static int chkdec(struct facets *fp,char *s,int n) {
int ok=1;
if(fp->set&(1<<FCT_MIN_EXCLUSIVE)) ok=ok&&deccmp(s,n,fp->minExclusive,strlen(fp->minExclusive))>0;
if(fp->set&(1<<FCT_MIN_INCLUSIVE)) ok=ok&&deccmp(s,n,fp->minInclusive,strlen(fp->minInclusive))>=0;
if(fp->set&(1<<FCT_MAX_INCLUSIVE)) ok=ok&&deccmp(s,n,fp->maxInclusive,strlen(fp->maxInclusive))<=0;
if(fp->set&(1<<FCT_MAX_EXCLUSIVE)) ok=ok&&deccmp(s,n,fp->maxExclusive,strlen(fp->maxExclusive))<0;
return ok;
}
int xsd_equal(char *typ,char *val,char *s,int n) {
if(!xsd_allows(typ,"",val,strlen(val))) {
(*error_handler)(XSD_ER_VAL,val);
return 0;
}
if(!xsd_allows(typ,"",s,n)) return 0;
switch(s_tab(typ,typtab,NTYP)) {
/*primitive*/
case TYP_STRING: return s_cmpn(val,s,n)==0;
case TYP_BOOLEAN: return (s_tokcmpn("true",val,strlen(val))==0||s_tokcmpn("1",val,strlen(val))==0)==(s_tokcmpn("true",s,n)==0||s_tokcmpn("1",s,n)==0);
case TYP_DECIMAL: return deccmp(val,strlen(val),s,n)==0;
case TYP_FLOAT: case TYP_DOUBLE: return dblcmpn(val,s,n)==0;
case TYP_DURATION: return duracmp(val,s,n)==0;
case TYP_DATE_TIME: return dtcmpn(val,s,n,"ymdtz")==0;
case TYP_DATE: return dtcmpn(val,s,n,"ymdz")==0;
case TYP_TIME: return dtcmpn(val,s,n,"tz")==0;
case TYP_G_YEAR_MONTH: return dtcmpn(val,s,n,"ymz")==0;
case TYP_G_YEAR: return dtcmpn(val,s,n,"yz")==0;
case TYP_G_MONTH_DAY: return dtcmpn(val,s,n,"mdz")==0;
case TYP_G_DAY: return dtcmpn(val,s,n,"dz")==0;
case TYP_G_MONTH: return dtcmpn(val,s,n,"mz")==0;
case TYP_HEX_BINARY: return hexcmpn(val,s,n)==0;
case TYP_BASE64_BINARY: return b64cmpn(val,s,n)==0;
case TYP_ANY_URI: return s_tokcmpn(val,s,n)==0;
case TYP_QNAME: case TYP_NOTATION:
return qncmpn(val,s,n)==0;
/*derived*/
case TYP_NORMALIZED_STRING: return nrmcmpn(val,s,n)==0;
case TYP_TOKEN:
case TYP_LANGUAGE:
case TYP_NMTOKEN:
case TYP_NMTOKENS:
case TYP_NAME:
case TYP_NCNAME:
case TYP_ID:
case TYP_IDREF:
case TYP_IDREFS:
case TYP_ENTITY:
case TYP_ENTITIES: return s_tokcmpn(val,s,n)==0;
case TYP_INTEGER:
case TYP_POSITIVE_INTEGER:
case TYP_NON_NEGATIVE_INTEGER:
case TYP_NON_POSITIVE_INTEGER:
case TYP_NEGATIVE_INTEGER:
case TYP_BYTE:
case TYP_UNSIGNED_BYTE:
case TYP_SHORT:
case TYP_UNSIGNED_SHORT:
case TYP_INT:
case TYP_UNSIGNED_INT:
case TYP_LONG:
case TYP_UNSIGNED_LONG: return deccmp(val,strlen(val),s,n)==0;
case NTYP: (*error_handler)(XSD_ER_TYP,typ); return 0;
default: assert(0);
}
return 0;
}
int
main(void)
{
decimal *dec, *din;
char buf[BUFSIZE];
long l;
int i, j, k, q, r, count = 0;
double dbl;
decimal **decarr = (decimal **) calloc(1, sizeof(decimal));
ECPGdebug(1, stderr);
for (i = 0; decs[i]; i++)
{
dec = PGTYPESdecimal_new();
r = deccvasc(decs[i], strlen(decs[i]), dec);
if (r)
{
check_errno();
printf("dec[%d,0]: r: %d\n", i, r);
PGTYPESdecimal_free(dec);
continue;
}
decarr = realloc(decarr, sizeof(decimal *) * (count + 1));
decarr[count++] = dec;
r = dectoasc(dec, buf, BUFSIZE-1, -1);
if (r < 0) check_errno();
printf("dec[%d,1]: r: %d, %s\n", i, r, buf);
r = dectoasc(dec, buf, BUFSIZE-1, 0);
if (r < 0) check_errno();
printf("dec[%d,2]: r: %d, %s\n", i, r, buf);
r = dectoasc(dec, buf, BUFSIZE-1, 1);
if (r < 0) check_errno();
printf("dec[%d,3]: r: %d, %s\n", i, r, buf);
r = dectoasc(dec, buf, BUFSIZE-1, 2);
if (r < 0) check_errno();
printf("dec[%d,4]: r: %d, %s\n", i, r, buf);
din = PGTYPESdecimal_new();
r = dectoasc(din, buf, BUFSIZE-1, 2);
if (r < 0) check_errno();
printf("dec[%d,5]: r: %d, %s\n", i, r, buf);
r = dectolong(dec, &l);
if (r) check_errno();
printf("dec[%d,6]: %ld (r: %d)\n", i, r?0L:l, r);
if (r == 0)
{
r = deccvlong(l, din);
if (r) check_errno();
dectoasc(din, buf, BUFSIZE-1, 2);
q = deccmp(dec, din);
printf("dec[%d,7]: %s (r: %d - cmp: %d)\n", i, buf, r, q);
}
r = dectoint(dec, &k);
if (r) check_errno();
printf("dec[%d,8]: %d (r: %d)\n", i, r?0:k, r);
if (r == 0)
{
r = deccvint(k, din);
if (r) check_errno();
dectoasc(din, buf, BUFSIZE-1, 2);
q = deccmp(dec, din);
printf("dec[%d,9]: %s (r: %d - cmp: %d)\n", i, buf, r, q);
}
if (i != 6)
{
/* underflow does not work reliable on several archs, so not testing it here */
/* this is a libc problem since we only call strtod() */
r = dectodbl(dec, &dbl);
if (r) check_errno();
printf("dec[%d,10]: %g (r: %d)\n", i, r?0.0:dbl, r);
}
PGTYPESdecimal_free(din);
printf("\n");
}
/* add a NULL value */
dec = PGTYPESdecimal_new();
decarr = realloc(decarr, sizeof(decimal *) * (count + 1));
decarr[count++] = dec;
rsetnull(CDECIMALTYPE, (char *) decarr[count-1]);
printf("dec[%d]: %sNULL\n", count-1,
risnull(CDECIMALTYPE, (char *) decarr[count-1]) ? "" : "NOT ");
printf("dec[0]: %sNULL\n",
risnull(CDECIMALTYPE, (char *) decarr[0]) ? "" : "NOT ");
r = dectoasc(decarr[3], buf, -1, -1);
check_errno(); printf("dectoasc with len == -1: r: %d\n", r);
r = dectoasc(decarr[3], buf, 0, -1);
check_errno(); printf("dectoasc with len == 0: r: %d\n", r);
for (i = 0; i < count; i++)
{
for (j = 0; j < count; j++)
{
decimal a, s, m, d;
int c;
c = deccmp(decarr[i], decarr[j]);
printf("dec[c,%d,%d]: %d\n", i, j, c);
r = decadd(decarr[i], decarr[j], &a);
if (r)
{
check_errno();
printf("r: %d\n", r);
}
else
{
dectoasc(&a, buf, BUFSIZE-1, -1);
printf("dec[a,%d,%d]: %s\n", i, j, buf);
}
r = decsub(decarr[i], decarr[j], &s);
if (r)
{
check_errno();
printf("r: %d\n", r);
}
else
{
dectoasc(&s, buf, BUFSIZE-1, -1);
printf("dec[s,%d,%d]: %s\n", i, j, buf);
}
r = decmul(decarr[i], decarr[j], &m);
if (r)
{
check_errno();
printf("r: %d\n", r);
}
else
{
dectoasc(&m, buf, BUFSIZE-1, -1);
printf("dec[m,%d,%d]: %s\n", i, j, buf);
}
r = decdiv(decarr[i], decarr[j], &d);
if (r)
{
check_errno();
printf("r: %d\n", r);
}
else
{
dectoasc(&d, buf, BUFSIZE-1, -1);
printf("dec[d,%d,%d]: %s\n", i, j, buf);
}
}
}
for (i = 0; i < count; i++)
{
dectoasc(decarr[i], buf, BUFSIZE-1, -1);
printf("%d: %s\n", i, buf);
PGTYPESdecimal_free(decarr[i]);
}
free(decarr);
return 0;
}
void xsd_test() {
rx_init();
assert(toklenn("",0)==0);
assert(toklenn("A",1)==1);
assert(toklenn(" A ",4)==1);
assert(toklenn(" A B ",7)==3);
assert(tokcntn("",0)==0);
assert(tokcntn("A",1)==1);
assert(tokcntn("AB CD",5)==2);
assert(tokcntn(" AB C ",9)==2);
assert(diglenn(" +14.25",7)==4);
assert(diglenn("1",1)==1);
assert(diglenn("0",1)==1);
assert(diglenn("+00.0",5)==1);
assert(fdiglenn(".1",2)==1);
assert(fdiglenn("+0.0140",7)==3);
assert(fdiglenn("0",1)==0);
assert(deccmp("0",1,"0.0",3)==0);
assert(deccmp("1 ",2," 1",2)==0);
assert(deccmp("0.",2,".0",2)==0);
assert(deccmp("1",1,"1.0",3)==0);
assert(deccmp("01.1",4,"1.10",4)==0);
assert(deccmp("+1",2,"1.0",3)==0);
assert(deccmp("+0.",3,"-0",2)==0);
assert(deccmp("0",1,"0.1",3)<0);
assert(deccmp("1.",2,".0",2)>0);
assert(deccmp("+1",2,"-1",2)>0);
assert(hexcmpn("","",0)==0);
assert(hexcmpn("ABC123","ABC123",6)==0);
assert(hexcmpn("aBCd","AbCd",4)==0);
assert(hexcmpn("ABC 123"," ABC123",7)==0);
assert(hexcmpn("ABC124","ABC123",6)>0);
assert(rx_match(PAT_BASE64_BINARY,"",0));
assert(rx_match(PAT_BASE64_BINARY,"YmFz",4));
assert(rx_match(PAT_BASE64_BINARY,"YA==",4));
assert(rx_match(PAT_BASE64_BINARY,"Y w = =",7));
assert(rx_match(PAT_BASE64_BINARY,"YF8=",4));
assert(!rx_match(PAT_BASE64_BINARY,"YmF@",4));
assert(!rx_match(PAT_BASE64_BINARY,"YmFgH",5));
assert(!rx_match(PAT_BASE64_BINARY,"Y===",4));
assert(!rx_match(PAT_BASE64_BINARY,"YF=O",4));
assert(!rx_match(PAT_BASE64_BINARY,"YFZ=",4));
assert(b64cmpn("","",0)==0);
assert(b64cmpn("ABC123","ABC123",6)==0);
assert(b64cmpn("ABC 123"," ABC123",7)==0);
assert(b64cmpn("ABC124","ABC123",6)>0);
assert(b64cmpn("ABC123","abc123",6)<0);
assert(nrmcmpn("A B","A B",3)==0);
assert(nrmcmpn("A B","A C",3)<0);
assert(nrmcmpn("A B","A\nB",3)==0);
assert(nrmcmpn(" A","A ",2)<0);
}
