int wg_right_strhash_bucket
(void* db, gint longstr, char* cstr, char* cextrastr, gint ctype, gint cstrsize) {
char* str;
char* extrastr;
int strsize;
gint type;
//printf("wg_right_strhash_bucket called with %s %s type %d size %d\n",
// cstr,cextrastr,ctype,cstrsize);
type=wg_get_encoded_type(db,longstr);
if (type!=ctype) return 0;
strsize=wg_decode_str_len(db,longstr)+1;
if (strsize!=cstrsize) return 0;
str=wg_decode_str(db,longstr);
if ((cstr==NULL && str!=NULL) || (cstr!=NULL && str==NULL)) return 0;
if ((cstr!=NULL) && (memcmp(str,cstr,cstrsize))) return 0;
extrastr=wg_decode_str_lang(db,longstr);
if ((cextrastr==NULL && extrastr!=NULL) || (cextrastr!=NULL && extrastr==NULL)) return 0;
if ((cextrastr!=NULL) && (strcmp(extrastr,cextrastr))) return 0;
return 1;
}
char* sprint_value(void *db, wg_int enc, char **buf, int *bufsize, char **bptr,
int format, int showid, int depth, int maxdepth, int strenc) {
wg_int *ptrdata;
int intdata,strl,strl1,strl2;
char *strdata, *exdata;
double doubledata;
char strbuf[80]; // tmp area for dates
int limit=MIN_STRLEN;
switch(wg_get_encoded_type(db, enc)) {
case WG_NULLTYPE:
str_guarantee_space(buf, bufsize, bptr, MIN_STRLEN);
if (format!=0) {
// json
snprintf(*bptr, limit, JS_NULL);
return *bptr+strlen(*bptr);
}
return *bptr;
case WG_RECORDTYPE:
str_guarantee_space(buf, bufsize, bptr, MIN_STRLEN);
if (!format || depth>=maxdepth) {
snprintf(*bptr, limit,"%d", (int)enc); // record offset (i.e. id)
return *bptr+strlen(*bptr);
} else {
// recursive print
ptrdata = wg_decode_record(db, enc);
sprint_record(db,ptrdata,buf,bufsize,bptr,format,showid,depth+1,maxdepth,strenc);
**bptr='\0';
return *bptr;
}
break;
case WG_INTTYPE:
intdata = wg_decode_int(db, enc);
str_guarantee_space(buf, bufsize, bptr, MIN_STRLEN);
snprintf(*bptr, limit, "%d", intdata);
return *bptr+strlen(*bptr);
case WG_DOUBLETYPE:
doubledata = wg_decode_double(db, enc);
str_guarantee_space(buf, bufsize, bptr, MIN_STRLEN);
snprintf(*bptr, limit, DOUBLE_FORMAT, doubledata);
return *bptr+strlen(*bptr);
case WG_FIXPOINTTYPE:
doubledata = wg_decode_fixpoint(db, enc);
str_guarantee_space(buf, bufsize, bptr, MIN_STRLEN);
snprintf(*bptr, limit, DOUBLE_FORMAT, doubledata);
return *bptr+strlen(*bptr);
case WG_STRTYPE:
strdata = wg_decode_str(db, enc);
exdata = wg_decode_str_lang(db,enc);
if (strdata!=NULL) strl1=strlen(strdata);
else strl1=0;
if (exdata!=NULL) strl2=strlen(exdata);
else strl2=0;
str_guarantee_space(buf, bufsize, bptr, MIN_STRLEN+STRLEN_FACTOR*(strl1+strl2));
sprint_string(*bptr,(strl1+strl2),strdata,strenc);
if (exdata!=NULL) {
snprintf(*bptr+strl1+1,limit,"@%s\"", exdata);
}
return *bptr+strlen(*bptr);
case WG_URITYPE:
strdata = wg_decode_uri(db, enc);
exdata = wg_decode_uri_prefix(db, enc);
if (strdata!=NULL) strl1=strlen(strdata);
else strl1=0;
if (exdata!=NULL) strl2=strlen(exdata);
else strl2=0;
limit=MIN_STRLEN+STRLEN_FACTOR*(strl1+strl2);
str_guarantee_space(buf, bufsize, bptr, limit);
if (exdata==NULL)
snprintf(*bptr, limit, "\"%s\"", strdata);
else
snprintf(*bptr, limit, "\"%s:%s\"", exdata, strdata);
return *bptr+strlen(*bptr);
case WG_XMLLITERALTYPE:
strdata = wg_decode_xmlliteral(db, enc);
exdata = wg_decode_xmlliteral_xsdtype(db, enc);
if (strdata!=NULL) strl1=strlen(strdata);
else strl1=0;
if (exdata!=NULL) strl2=strlen(exdata);
else strl2=0;
limit=MIN_STRLEN+STRLEN_FACTOR*(strl1+strl2);
str_guarantee_space(buf, bufsize, bptr, limit);
snprintf(*bptr, limit, "\"%s:%s\"", exdata, strdata);
return *bptr+strlen(*bptr);
case WG_CHARTYPE:
intdata = wg_decode_char(db, enc);
str_guarantee_space(buf, bufsize, bptr, MIN_STRLEN);
snprintf(*bptr, limit, "\"%c\"", (char) intdata);
return *bptr+strlen(*bptr);
case WG_DATETYPE:
intdata = wg_decode_date(db, enc);
wg_strf_iso_datetime(db,intdata,0,strbuf);
strbuf[10]=0;
str_guarantee_space(buf, bufsize, bptr, MIN_STRLEN);
snprintf(*bptr, limit, "\"%s\"",strbuf);
return *bptr+strlen(*bptr);
case WG_TIMETYPE:
intdata = wg_decode_time(db, enc);
wg_strf_iso_datetime(db,1,intdata,strbuf);
str_guarantee_space(buf, bufsize, bptr, MIN_STRLEN);
snprintf(*bptr, limit, "\"%s\"",strbuf+11);
return *bptr+strlen(*bptr);
case WG_VARTYPE:
intdata = wg_decode_var(db, enc);
str_guarantee_space(buf, bufsize, bptr, MIN_STRLEN);
snprintf(*bptr, limit, "\"?%d\"", intdata);
return *bptr+strlen(*bptr);
case WG_BLOBTYPE:
strdata = wg_decode_blob(db, enc);
strl=wg_decode_blob_len(db, enc);
limit=MIN_STRLEN+STRLEN_FACTOR*strlen(strdata);
str_guarantee_space(buf, bufsize, bptr, limit);
sprint_blob(*bptr,strl,strdata,strenc);
return *bptr+strlen(*bptr);
default:
str_guarantee_space(buf, bufsize, bptr, MIN_STRLEN);
snprintf(*bptr, limit, JS_TYPE_ERR);
return *bptr+strlen(*bptr);
}
}
