static void _DumpItems( ValueStruct *value) { int i; if ( value == NULL ) return; switch (ValueType(value)) { case GL_TYPE_INT: printf("int"); break; case GL_TYPE_BOOL: printf("bool"); break; case GL_TYPE_BYTE: printf("byte"); break; case GL_TYPE_CHAR: printf("char(%d)",(int)ValueStringLength(value)); break; case GL_TYPE_VARCHAR: printf("varchar(%d)",(int)ValueStringLength(value)); break; case GL_TYPE_DBCODE: printf("dbcode(%d)",(int)ValueStringLength(value)); break; case GL_TYPE_NUMBER: if ( ValueFixedSlen(value) == 0 ) { printf("number(%d)",(int)ValueFixedLength(value)); } else { printf("number(%d,%d)", (int)ValueFixedLength(value), (int)ValueFixedSlen(value)); } break; case GL_TYPE_TEXT: printf("text"); break; case GL_TYPE_ARRAY: _DumpItems(ValueArrayItem(value,0)); printf("[%d]",(int)ValueArraySize(value)); break; case GL_TYPE_RECORD: printf("{\n"); nTab ++; for ( i = 0 ; i < ValueRecordSize(value) ; i ++ ) { PutTab(nTab); printf("%s\t",ValueRecordName(value,i)); _DumpItems(ValueRecordItem(value,i)); printf(";\n"); } nTab --; PutTab(nTab); printf("}"); break; default: break; } fflush(stdout); }
extern Bool SetValueStringWithLength( ValueStruct *val, char *str, size_t slen, char *codeset) { Bool rc , fMinus , fPoint; size_t len; byte *p; byte buff[SIZE_NUMBUF+1] , sbuff[SIZE_LONGNAME+1]; Fixed from; size_t size; #ifdef WITH_I18N byte *q; iconv_t cd; size_t sob , sib; char *istr; #endif ENTER_FUNC; if ( val == NULL ) { fprintf(stderr,"no ValueStruct\n"); rc = FALSE; } else if ( ( str == NULL ) || ( *str == CHAR_NIL ) ) { ValueIsNil(val); rc = TRUE; } else { ValueIsNonNil(val); switch (ValueType(val)) { case GL_TYPE_CHAR: case GL_TYPE_VARCHAR: case GL_TYPE_DBCODE: case GL_TYPE_TEXT: case GL_TYPE_SYMBOL: #ifdef WITH_I18N if ( ( codeset != NULL ) && ( ( stricmp(codeset,"utf8") == 0 ) || ( stricmp(codeset,"utf-8") == 0 ) ) ) { codeset = NULL; } if ( codeset != NULL ) { if ( IS_VALUE_EXPANDABLE(val) ) { len = slen; } else { len = ValueStringLength(val) < slen ? ValueStringLength(val) : slen; } cd = iconv_open("utf8",codeset); while (TRUE) { istr = str; sib = len; sob = ValueStringSize(val); if ( ( q = ValueString(val) ) != NULL ) { memclear(ValueString(val),ValueStringSize(val)); if ( iconv(cd,&istr,&sib,(void*)&q,&sob) == 0 ) break; if ( errno == E2BIG ) { xfree(ValueString(val)); ValueStringSize(val) *= 2; } else break; } else { ValueStringSize(val) = 1; } ValueString(val) = (byte *)xmalloc(ValueStringSize(val)); }; iconv_close(cd); *q = 0; len = ValueStringSize(val) - sob; } else { #endif size = slen + 1; len = slen; if ( size > ValueStringSize(val) ) { if ( ValueString(val) != NULL ) { xfree(ValueString(val)); } ValueStringSize(val) = size; ValueString(val) = (byte *)xmalloc(size); } memclear(ValueString(val),ValueStringSize(val)); strcpy(ValueString(val),str); #ifdef WITH_I18N } #endif if ( IS_VALUE_EXPANDABLE(val) ) { ValueStringLength(val) = len; } rc = TRUE; break; case GL_TYPE_BYTE: DecodeStringToBinary(ValueByte(val),ValueByteLength(val),str); rc = TRUE; break; case GL_TYPE_BINARY: #ifdef BINARY_IS_BASE64 p = (byte *)xmalloc(strlen(str)); size = strlen(str); size = DecodeBase64(p,size,str,size); if ( ValueByte(val) != NULL ) { xfree(ValueByte(val)); } ValueByteSize(val) = strlen(str); ValueByte(val) = p; #else size = 0; for ( p = str ; *p != 0 ; ) { if ( *p == '\\' ) { p ++; if ( *p == 'u' ) { p += 3; } else { p ++; } } else { p ++; } size ++; } if ( size > ValueByteSize(val) ) { if ( ValueByte(val) != NULL ) { xfree(ValueByte(val)); } ValueByteSize(val) = size; ValueByte(val) = (byte *)xmalloc(size); } memclear(ValueByte(val),ValueByteSize(val)); DecodeStringToBinary(ValueByte(val),size,str); #endif ValueByteLength(val) = size; rc = TRUE; break; case GL_TYPE_OBJECT: ValueObjectId(val) = 0; for ( ; slen > 0 ; slen -- ) { if ( isdigit(*str) ) { ValueObjectId(val) = ValueObjectId(val) * 10 + ( *str - '0' ); } str ++; } if ( ValueObjectFile(val) != NULL ) { xfree(ValueObjectFile(val)); ValueObjectFile(val) = NULL; } rc = TRUE; break; case GL_TYPE_NUMBER: case GL_TYPE_INT: case GL_TYPE_FLOAT: case GL_TYPE_BOOL: case GL_TYPE_TIMESTAMP: case GL_TYPE_DATE: case GL_TYPE_TIME: #ifdef WITH_I18N if ( codeset != NULL ) { cd = iconv_open("utf8",codeset); istr = str; sib = slen; sob = SIZE_NUMBUF; p = sbuff; iconv(cd,&istr,&sib,(void*)&p,&sob); iconv_close(cd); *p = 0; str = sbuff; } else { #endif strncpy(sbuff,str,SIZE_NUMBUF); str = sbuff; #ifdef WITH_I18N } #endif switch (ValueType(val)) { case GL_TYPE_NUMBER: p = buff; from.flen = 0; from.slen = 0; from.sval = buff; fPoint = FALSE; fMinus = FALSE; while ( *str != 0 ) { if ( fPoint ) { from.slen ++; } if ( *str == '-' ) { fMinus = TRUE; } else if ( isdigit(*str) ) { *p ++ = *str; from.flen ++; } else if ( *str == '.' ) { fPoint = TRUE; } str ++; } *p = 0; if ( fMinus ) { *buff |= 0x40; } FixedRescale(&ValueFixed(val),&from); rc = TRUE; break; case GL_TYPE_INT: ValueInteger(val) = StrToInt(str,slen); rc = TRUE; break; case GL_TYPE_FLOAT: ValueFloat(val) = atof(str); rc = TRUE; break; case GL_TYPE_BOOL: ValueBool(val) = ( toupper(*str) == 'T' ) ? TRUE : FALSE; rc = TRUE; break; case GL_TYPE_TIMESTAMP: ValueDateTimeYear(val) = StrToInt(str,4); str += 4; ValueDateTimeMon(val) = StrToInt(str,2) - 1; str += 2; ValueDateTimeMDay(val) = StrToInt(str,2); str += 2; ValueDateTimeHour(val) = StrToInt(str,2); str += 2; ValueDateTimeMin(val) = StrToInt(str,2); str += 2; ValueDateTimeSec(val) = StrToInt(str,2); str += 2; rc = mktime(&ValueDateTime(val)) >= 0 ? TRUE : FALSE; break; case GL_TYPE_DATE: ValueDateTimeYear(val) = StrToInt(str,4); str += 4; ValueDateTimeMon(val) = StrToInt(str,2) - 1; str += 2; ValueDateTimeMDay(val) = StrToInt(str,2); str += 2; ValueDateTimeHour(val) = 0; ValueDateTimeMin(val) = 0; ValueDateTimeSec(val) = 0; rc = mktime(&ValueDateTime(val)) >= 0 ? TRUE : FALSE; break; case GL_TYPE_TIME: ValueDateTimeYear(val) = 0; ValueDateTimeMon(val) = 0; ValueDateTimeMDay(val) = 0; ValueDateTimeHour(val) = StrToInt(str,2); str += 2; ValueDateTimeMin(val) = StrToInt(str,2); str += 2; ValueDateTimeSec(val) = StrToInt(str,2); str += 2; rc = TRUE; break; default: rc = TRUE; break; } break; default: ValueIsNil(val); rc = FALSE; } } LEAVE_FUNC; return (rc); }
extern Bool SetValueBinary( ValueStruct *val, byte *str, size_t slen) { Bool rc; size_t size; ENTER_FUNC; if ( val == NULL ) { fprintf(stderr,"no ValueStruct\n"); rc = FALSE; } else { if ( ( str == NULL ) || ( slen == 0 ) ) { ValueIsNil(val); rc = TRUE; } else { ValueIsNonNil(val); } switch (ValueType(val)) { case GL_TYPE_CHAR: case GL_TYPE_VARCHAR: case GL_TYPE_DBCODE: case GL_TYPE_TEXT: case GL_TYPE_SYMBOL: if ( *str == CHAR_NIL ) { ValueIsNil(val); } else { size = slen + 1; if ( size > ValueStringSize(val) ) { if ( ValueString(val) != NULL ) { xfree(ValueString(val)); } ValueStringSize(val) = size; ValueString(val) = (byte *)xmalloc(size); } memclear(ValueString(val),ValueStringSize(val)); if ( str != NULL ) { strcpy(ValueString(val),str); } if ( ValueType(val) == GL_TYPE_TEXT ) { ValueStringLength(val) = slen; } } rc = TRUE; break; case GL_TYPE_BYTE: size = ValueByteLength(val) < slen ? ValueByteLength(val) : slen; memclear(ValueByte(val),ValueByteSize(val)); if ( str != NULL ) { memcpy(ValueByte(val),str,size); } rc = TRUE; break; case GL_TYPE_BINARY: if ( slen > ValueByteSize(val) ) { if ( ValueByte(val) != NULL ) { xfree(ValueByte(val)); } ValueByteSize(val) = slen; ValueByte(val) = (byte *)xmalloc(slen); } memclear(ValueByte(val),ValueByteSize(val)); if ( str != NULL ) { memcpy(ValueByte(val),str,slen); } ValueByteLength(val) = slen; rc = TRUE; break; case GL_TYPE_NUMBER: if ( str != NULL ) { memcpy(&ValueFixed(val),str,sizeof(Fixed)); } else { memclear(&ValueFixed(val),sizeof(Fixed)); } rc = TRUE; break; case GL_TYPE_INT: if ( str != NULL ) { memcpy(&ValueInteger(val),str,sizeof(int)); } else { memclear(&ValueInteger(val),sizeof(int)); } rc = TRUE; break; case GL_TYPE_OBJECT: if ( str != NULL ) { memcpy(&ValueObjectId(val),str,sizeof(MonObjectType)); } else { ValueObjectId(val) = 0; } if ( ValueObjectFile(val) != NULL ) { xfree(ValueObjectFile(val)); ValueObjectFile(val) = NULL; } rc = TRUE; break; case GL_TYPE_FLOAT: if ( str != NULL ) { memcpy(&ValueFloat(val),str,sizeof(double)); } else { memclear(&ValueFloat(val),sizeof(double)); } rc = TRUE; break; case GL_TYPE_BOOL: if ( str != NULL ) { memcpy(&ValueBool(val),str,sizeof(Bool)); } else { memclear(&ValueBool(val),sizeof(Bool)); } rc = TRUE; break; case GL_TYPE_TIMESTAMP: case GL_TYPE_DATE: case GL_TYPE_TIME: if ( str != NULL ) { memcpy(&ValueDateTime(val),str,sizeof(struct tm)); rc = mktime(&ValueDateTime(val)) >= 0 ? TRUE : FALSE; } else { memclear(&ValueDateTime(val),sizeof(struct tm)); rc = TRUE; } break; default: ValueIsNil(val); rc = FALSE; break; } } LEAVE_FUNC; return (rc); }
extern LargeByteString * ValueToLBS( ValueStruct *val, char *codeset) { byte work[SIZE_NUMBUF+1]; byte work2[SIZE_NUMBUF+2]; byte *p , *q; int i; int size; LargeByteString *ret; ENTER_FUNC; if ( val == NULL ) { ret = NULL; } else { dbgprintf("type = %X\n",(int)ValueType(val)); if ( ValueStr(val) == NULL ) { ValueStr(val) = NewLBS(); } LBS_EmitStart(ValueStr(val)); if ( IS_VALUE_NIL(val) ) { LBS_EmitChar(ValueStr(val),CHAR_NIL); } else switch (ValueType(val)) { case GL_TYPE_CHAR: case GL_TYPE_VARCHAR: case GL_TYPE_TEXT: case GL_TYPE_SYMBOL: case GL_TYPE_DBCODE: if ( ValueString(val) != NULL ) { RewindLBS(ValueStr(val)); if ( IS_VALUE_EXPANDABLE(val) ) { LBS_EmitStringCodeset(ValueStr(val),ValueString(val), ValueStringSize(val), ValueStringLength(val),codeset); if ( ( size = ValueStringLength(val) - ValueSize(val) ) > 0 ) { for ( ; size > 0 ; size -- ) { LBS_EmitChar(ValueStr(val),0); } } } else { LBS_EmitStringCodeset(ValueStr(val),ValueString(val), ValueStringSize(val), 0,codeset); } } break; case GL_TYPE_BYTE: case GL_TYPE_BINARY: #ifdef BINARY_IS_BASE64 size = ( ( ValueByteLength(val) + 2 ) / 3 ) * 4; p = (char *)xmalloc(size); size = EncodeBase64(p,size,ValueByte(val),ValueByteLength(val)); LBS_ReserveSize(ValueStr(val),size+1); strcpy(ValueStrBody(val),p); xfree(p); #else p = ValueByte(val); for ( i = 0 ; i < ValueByteLength(val) ; i ++ , p ++ ) { switch (*p) { case '\\': LBS_EmitChar(ValueStr(val),'\\'); LBS_EmitChar(ValueStr(val),'\\'); break; case '"': LBS_EmitChar(ValueStr(val),'\\'); LBS_EmitChar(ValueStr(val),'"'); break; case '/': LBS_EmitChar(ValueStr(val),'\\'); LBS_EmitChar(ValueStr(val),'/'); break; case '\b': LBS_EmitChar(ValueStr(val),'\\'); LBS_EmitChar(ValueStr(val),'b'); break; case '\f': LBS_EmitChar(ValueStr(val),'\\'); LBS_EmitChar(ValueStr(val),'f'); break; case '\n': LBS_EmitChar(ValueStr(val),'\\'); LBS_EmitChar(ValueStr(val),'n'); break; case '\r': LBS_EmitChar(ValueStr(val),'\\'); LBS_EmitChar(ValueStr(val),'r'); break; case '\t': LBS_EmitChar(ValueStr(val),'\\'); LBS_EmitChar(ValueStr(val),'t'); break; default: if ( isprint(*p) ) { LBS_EmitChar(ValueStr(val),*p); } else { sprintf(work,"\\u%02X",(int)*p); LBS_EmitString(ValueStr(val),work); } break; } } if ( ( size = ValueStringLength(val) - ValueSize(val) ) > 0 ) { for ( ; size > 0 ; size -- ) { LBS_EmitByte(ValueStr(val),0); } } #endif break; case GL_TYPE_NUMBER: strcpy(work,ValueFixedBody(val)); p = work; q = work2; if ( *p >= 0x70 ) { *q ++ = '-'; *p ^= 0x40; } strcpy(q,p); if ( ValueFixedSlen(val) > 0 ) { p = work2 + strlen(work2); *(p + 1) = 0; q = p - 1; for ( i = 0 ; i < ValueFixedSlen(val) ; i ++ ) { *p -- = *q --; } *p = '.'; } LBS_EmitString(ValueStr(val),work2); break; case GL_TYPE_INT: sprintf(work,"%d",ValueInteger(val)); LBS_EmitString(ValueStr(val),work); break; case GL_TYPE_OBJECT: sprintf(work,"%d",(int)ValueObjectId(val)); LBS_EmitString(ValueStr(val),work); break; case GL_TYPE_FLOAT: sprintf(work,"%g",ValueFloat(val)); LBS_EmitString(ValueStr(val),work); break; case GL_TYPE_BOOL: sprintf(work,"%s",ValueBool(val) ? "TRUE" : "FALSE"); LBS_EmitString(ValueStr(val),work); break; case GL_TYPE_TIMESTAMP: sprintf(work,"%04d%02d%02d%02d%02d%02d", ValueDateTimeYear(val), ValueDateTimeMon(val) + 1, ValueDateTimeMDay(val), ValueDateTimeHour(val), ValueDateTimeMin(val), ValueDateTimeSec(val)); LBS_EmitString(ValueStr(val),work); break; case GL_TYPE_DATE: sprintf(work,"%04d%02d%02d", ValueDateTimeYear(val), ValueDateTimeMon(val) + 1, ValueDateTimeMDay(val)); LBS_EmitString(ValueStr(val),work); break; case GL_TYPE_TIME: sprintf(work,"%02d%02d%02d", ValueDateTimeHour(val), ValueDateTimeMin(val), ValueDateTimeSec(val)); LBS_EmitString(ValueStr(val),work); break; default: break; } LBS_EmitEnd(ValueStr(val)); ret = ValueStr(val); } LEAVE_FUNC; return (ret); }
static size_t _XML_PackValue2(CONVOPT *opt, unsigned char *p, char *name, ValueStruct *value) { char num[SIZE_NAME + 1]; int i; unsigned char *pp; if (IS_VALUE_NIL(value)) return (0); pp = p; if (value != NULL) { opt->nIndent++; p += IndentLine(opt, p); switch (ValueType(value)) { case GL_TYPE_ARRAY: if (opt->recname != NULL) { p += sprintf(p, "<%s:%s type=\"array\"", opt->recname, name); } else { p += sprintf(p, "<%s type=\"array\"", name); } p += sprintf(p, " count=\"%d\">", (int)ValueArraySize(value)); p += PutCR(opt, p); for (i = 0; i < ValueArraySize(value); i++) { sprintf(num, "%s", name); p += _XML_PackValue2(opt, p, num, ValueArrayItem(value, i)); } p += IndentLine(opt, p); if (opt->recname != NULL) { p += sprintf(p, "</%s:%s>", opt->recname, name); } else { p += sprintf(p, "</%s>", name); } break; case GL_TYPE_ROOT_RECORD: case GL_TYPE_RECORD: if (opt->recname != NULL) { p += sprintf(p, "<%s:%s type=\"record\"", opt->recname, name); } else { p += sprintf(p, "<%s type=\"record\"", name); } p += sprintf(p, " size=\"%d\">", (int)ValueRecordSize(value)); p += PutCR(opt, p); for (i = 0; i < ValueRecordSize(value); i++) { p += _XML_PackValue2(opt, p, ValueRecordName(value, i), ValueRecordItem(value, i)); } p += IndentLine(opt, p); if (opt->recname != NULL) { p += sprintf(p, "</%s:%s>", opt->recname, name); } else { p += sprintf(p, "</%s>", name); } break; case GL_TYPE_ALIAS: if (opt->recname != NULL) { p += sprintf(p, "<%s:%s type=\"alias\">", opt->recname, name); } else { p += sprintf(p, "<%s type=\"alias\">", name); } p += sprintf(p, "%s", ValueAliasName(value)); if (opt->recname != NULL) { p += sprintf(p, "</%s:%s>", opt->recname, name); } else { p += sprintf(p, "</%s>", name); } break; default: if (opt->recname != NULL) { p += sprintf(p, "<%s:%s", opt->recname, name); } else { p += sprintf(p, "<%s", name); } p += sprintf(p, " type="); switch (ValueType(value)) { case GL_TYPE_INT: p += sprintf(p, "\"int\""); break; case GL_TYPE_BOOL: p += sprintf(p, "\"bool\""); break; case GL_TYPE_BYTE: p += sprintf(p, "\"byte\" size=\"%d\"", (int)ValueByteLength(value)); break; case GL_TYPE_BINARY: p += sprintf(p, "\"binary\" size=\"%d\"", (int)ValueByteLength(value)); break; case GL_TYPE_CHAR: p += sprintf(p, "\"char\" size=\"%d\"", (int)ValueStringLength(value)); break; case GL_TYPE_VARCHAR: p += sprintf(p, "\"varchar\" size=\"%d\"", (int)ValueStringLength(value)); break; case GL_TYPE_TEXT: p += sprintf(p, "\"text\" size=\"%d\"", (int)ValueStringLength(value)); break; case GL_TYPE_SYMBOL: p += sprintf(p, "\"symbol\" size=\"%d\"", (int)ValueStringLength(value)); break; case GL_TYPE_DBCODE: p += sprintf(p, "\"dbcode\" size=\"%d\"", (int)ValueStringLength(value)); break; case GL_TYPE_NUMBER: p += sprintf(p, "\"number\" size=\"%d\" ssize=\"%d\"", (int)ValueFixedLength(value), (int)ValueFixedSlen(value)); break; case GL_TYPE_FLOAT: p += sprintf(p, "\"float\""); break; case GL_TYPE_OBJECT: p += sprintf(p, "\"object\""); break; case GL_TYPE_TIMESTAMP: p += sprintf(p, "\"timestamp\""); break; case GL_TYPE_DATE: p += sprintf(p, "\"date\""); break; case GL_TYPE_TIME: p += sprintf(p, "\"time\""); break; default: break; } p += sprintf(p, ">"); if (!IS_VALUE_NIL(value)) { p += XML_Encode(ValueToString(value, ConvCodeset(opt)), p); } if (opt->recname != NULL) { p += sprintf((char *)p, "</%s:%s>", opt->recname, name); } else { p += sprintf((char *)p, "</%s>", name); } break; } p += PutCR(opt, (char *)p); opt->nIndent--; } return (p - pp); }
static size_t _XML_SizeValue2(CONVOPT *opt, char *name, ValueStruct *value, char *buff) { char num[SIZE_NAME + 1]; int i; size_t size; size = 0; if (value != NULL) { if (IS_VALUE_NIL(value)) return (0); opt->nIndent++; size += IndentLine(opt, NULL); switch (ValueType(value)) { case GL_TYPE_ARRAY: if (opt->recname != NULL) { size += sprintf(buff, "<%s:%s type=\"array\" count=\"%d\">", opt->recname, name, (int)ValueArraySize(value)); } else { size += sprintf(buff, "<%s type=\"array\" count=\"%d\">", name, (int)ValueArraySize(value)); } size += PutCR(opt, buff); for (i = 0; i < ValueArraySize(value); i++) { sprintf(num, "%s:%d", name, i); size += _XML_SizeValue2(opt, num, ValueArrayItem(value, i), buff); } size += IndentLine(opt, NULL); if (opt->recname != NULL) { size += sprintf(buff, "</%s:%s>", opt->recname, name); } else { size += sprintf(buff, "</%s>", name); } break; case GL_TYPE_ROOT_RECORD: case GL_TYPE_RECORD: if (opt->recname != NULL) { size += sprintf(buff, "<%s:%s type=\"record\" size=\"%d\">", opt->recname, name, (int)ValueRecordSize(value)); } else { size += sprintf(buff, "<%s type=\"record\" size=\"%d\">", name, (int)ValueRecordSize(value)); } size += PutCR(opt, buff); for (i = 0; i < ValueRecordSize(value); i++) { size += _XML_SizeValue2(opt, ValueRecordName(value, i), ValueRecordItem(value, i), buff); } size += IndentLine(opt, NULL); if (opt->recname != NULL) { size += sprintf(buff, "</%s:%s>", opt->recname, name); } else { size += sprintf(buff, "</%s>", name); } break; default: if (opt->recname != NULL) { size += sprintf(buff, "<%s:%s", opt->recname, name); } else { size += sprintf(buff, "<%s", name); } size += 6; // " type=" switch (ValueType(value)) { case GL_TYPE_INT: size += 5; // "int" break; case GL_TYPE_BOOL: size += 6; // "bool" break; case GL_TYPE_BYTE: size += sprintf(buff, "\"byte\" size=\"%d\"", (int)ValueByteLength(value)); break; case GL_TYPE_BINARY: size += sprintf(buff, "\"binary\" size=\"%d\"", (int)ValueByteLength(value)); break; case GL_TYPE_CHAR: size += sprintf(buff, "\"char\" size=\"%d\"", (int)ValueStringLength(value)); break; case GL_TYPE_VARCHAR: size += sprintf(buff, "\"varchar\" size=\"%d\"", (int)ValueStringLength(value)); break; case GL_TYPE_TEXT: size += sprintf(buff, "\"text\" size=\"%d\"", (int)ValueStringLength(value)); break; case GL_TYPE_SYMBOL: size += sprintf(buff, "\"symbol\" size=\"%d\"", (int)ValueStringLength(value)); break; case GL_TYPE_DBCODE: size += sprintf(buff, "\"dbcode\" size=\"%d\"", (int)ValueStringLength(value)); break; case GL_TYPE_NUMBER: size += sprintf(buff, "\"number\" size=\"%d\" ssize=\"%d\"", (int)ValueFixedLength(value), (int)ValueFixedSlen(value)); break; case GL_TYPE_FLOAT: size += 7; // "float" break; case GL_TYPE_OBJECT: size += 8; // "object" break; case GL_TYPE_TIMESTAMP: size += 9; // "timestamp" break; case GL_TYPE_DATE: size += 4; // "date" break; case GL_TYPE_TIME: size += 8; // "time" break; case GL_TYPE_ALIAS: default: break; } size += 1; // ">" if (!IS_VALUE_NIL(value)) { size += XML_EncodeSize(ValueToString(value, ConvCodeset(opt))); } if (opt->recname != NULL) { size += sprintf(buff, "</%s:%s>", opt->recname, name); } else { size += sprintf(buff, "</%s>", name); } break; } size += PutCR(opt, buff); opt->nIndent--; } return (size); }
extern size_t OpenCOBOL_SizeValue(CONVOPT *opt, ValueStruct *value) { int i; size_t ret; if (value == NULL) return (0); dbgmsg(">OpenCOBOL_SizeValue"); switch (ValueType(value)) { case GL_TYPE_INT: ret = sizeof(int); break; case GL_TYPE_FLOAT: ret = sizeof(double); break; case GL_TYPE_BOOL: ret = 1; break; case GL_TYPE_BINARY: case GL_TYPE_TEXT: case GL_TYPE_SYMBOL: ret = opt->textsize; break; case GL_TYPE_BYTE: case GL_TYPE_CHAR: case GL_TYPE_VARCHAR: case GL_TYPE_DBCODE: ret = ValueStringLength(value); break; case GL_TYPE_NUMBER: ret = ValueFixedLength(value); break; case GL_TYPE_OBJECT: ret = SIZE_UUID; break; case GL_TYPE_TIMESTAMP: ret = 8 + 6; break; case GL_TYPE_DATE: ret = 8; break; case GL_TYPE_TIME: ret = 6; break; case GL_TYPE_ARRAY: ret = 0; for (i = 0; i < ValueArraySize(value); i++) { ret += OpenCOBOL_SizeValue(opt, ValueArrayItem(value, i)); } break; case GL_TYPE_ROOT_RECORD: case GL_TYPE_RECORD: ret = 0; for (i = 0; i < ValueRecordSize(value); i++) { ret += OpenCOBOL_SizeValue(opt, ValueRecordItem(value, i)); } break; default: ret = 0; break; } dbgmsg("<OpenCOBOL_SizeValue"); return (ret); }
extern size_t OpenCOBOL_PackValue(CONVOPT *opt, unsigned char *p, ValueStruct *value) { int i; size_t size; unsigned char *pp; pp = p; if (value != NULL) { switch (ValueType(value)) { case GL_TYPE_INT: *(int32_t *)p = (int32_t)ValueInteger(value); IntegerC2Cobol(opt, (int32_t *)p); p += sizeof(int32_t); break; case GL_TYPE_FLOAT: *(double *)p = ValueFloat(value); p += sizeof(double); break; case GL_TYPE_BOOL: *(char *)p = ValueBool(value) ? 'T' : 'F'; p++; break; case GL_TYPE_BYTE: memcpy(p, ValueByte(value), ValueByteLength(value)); p += ValueByteLength(value); break; case GL_TYPE_BINARY: memclear(p, opt->textsize); size = (opt->textsize < ValueByteLength(value)) ? opt->textsize : ValueByteLength(value); memcpy(p, ValueToBinary(value), size); p += opt->textsize; break; case GL_TYPE_TEXT: case GL_TYPE_SYMBOL: size = (opt->textsize < ValueStringLength(value)) ? opt->textsize : ValueStringLength(value); memcpy(p, ValueToString(value, ConvCodeset(opt)), size); StringC2Cobol(p, opt->textsize); p += opt->textsize; break; case GL_TYPE_CHAR: case GL_TYPE_VARCHAR: case GL_TYPE_DBCODE: if (IS_VALUE_NIL(value)) { memclear(p, ValueStringLength(value)); /* LOW-VALUE */ } else { strncpy(p, ValueToString(value, ConvCodeset(opt)), ValueStringLength(value)); StringC2Cobol(p, ValueStringLength(value)); } p += ValueStringLength(value); break; case GL_TYPE_NUMBER: memcpy(p, ValueFixedBody(value), ValueFixedLength(value)); FixedC2Cobol(p, ValueFixedLength(value)); p += ValueFixedLength(value); break; case GL_TYPE_OBJECT: memcpy(p, ValueBody(value), SIZE_UUID); StringC2Cobol(p, SIZE_UUID); p += SIZE_UUID; break; case GL_TYPE_TIMESTAMP: p += sprintf(p, "%04d%02d%02d%02d%02d%02d", ValueDateTimeYear(value), ValueDateTimeMon(value) + 1, ValueDateTimeMDay(value), ValueDateTimeHour(value), ValueDateTimeMin(value), ValueDateTimeSec(value)); break; case GL_TYPE_DATE: p += sprintf(p, "%04d%02d%02d", ValueDateTimeYear(value), ValueDateTimeMon(value) + 1, ValueDateTimeMDay(value)); break; case GL_TYPE_TIME: p += sprintf(p, "%02d%02d%02d", ValueDateTimeHour(value), ValueDateTimeMin(value), ValueDateTimeSec(value)); break; case GL_TYPE_ARRAY: for (i = 0; i < ValueArraySize(value); i++) { p += OpenCOBOL_PackValue(opt, p, ValueArrayItem(value, i)); } break; case GL_TYPE_ROOT_RECORD: case GL_TYPE_RECORD: for (i = 0; i < ValueRecordSize(value); i++) { p += OpenCOBOL_PackValue(opt, p, ValueRecordItem(value, i)); } break; default: break; } } return (p - pp); }
extern size_t OpenCOBOL_UnPackValue(CONVOPT *opt, unsigned char *p, ValueStruct *value) { int32_t i; char buff[SIZE_NUMBUF + 1]; unsigned char *q; ValueStruct *child; q = p; if (value != NULL) { ValueIsNonNil(value); switch (ValueType(value)) { case GL_TYPE_INT: i = *(int32_t*)p; IntegerCobol2C(opt, &i); SetValueInteger(value, (int64_t)i); p += sizeof(int32_t); break; case GL_TYPE_FLOAT: ValueFloat(value) = *(double *)p; p += sizeof(double); break; case GL_TYPE_BOOL: SetValueBool(value,(*(char *)p == 'T') ? TRUE : FALSE); p++; break; case GL_TYPE_OBJECT: StringCobol2C(p, SIZE_UUID); memcpy(ValueBody(value), p, SIZE_UUID); p += SIZE_UUID; break; case GL_TYPE_BYTE: memcpy(ValueByte(value), p, ValueByteLength(value)); p += ValueByteLength(value); break; case GL_TYPE_BINARY: SetValueBinary(value, p, opt->textsize); p += opt->textsize; break; case GL_TYPE_TEXT: case GL_TYPE_SYMBOL: StringCobol2C(p, opt->textsize); SetValueStringWithLength(value, p, opt->textsize, ConvCodeset(opt)); p += opt->textsize; break; case GL_TYPE_CHAR: case GL_TYPE_VARCHAR: case GL_TYPE_DBCODE: StringCobol2C(p, ValueStringLength(value)); SetValueStringWithLength(value, p, ValueStringLength(value), ConvCodeset(opt)); p += ValueStringLength(value); break; case GL_TYPE_NUMBER: memcpy(buff, p, ValueFixedLength(value)); FixedCobol2C(buff, ValueFixedLength(value)); strcpy(ValueFixedBody(value), buff); p += ValueFixedLength(value); break; case GL_TYPE_TIMESTAMP: ValueDateTimeYear(value) = StrToInt(p, 4); p += 4; ValueDateTimeMon(value) = StrToInt(p, 2) - 1; p += 2; ValueDateTimeMDay(value) = StrToInt(p, 2); p += 2; ValueDateTimeHour(value) = StrToInt(p, 2); p += 2; ValueDateTimeMin(value) = StrToInt(p, 2); p += 2; ValueDateTimeSec(value) = StrToInt(p, 2); p += 2; mktime(ValueDateTime(value)); break; case GL_TYPE_TIME: ValueDateTimeYear(value) = 0; ValueDateTimeMon(value) = 0; ValueDateTimeMDay(value) = 0; ValueDateTimeHour(value) = StrToInt(p, 2); p += 2; ValueDateTimeMin(value) = StrToInt(p, 2); p += 2; ValueDateTimeSec(value) = StrToInt(p, 2); p += 2; break; case GL_TYPE_DATE: ValueDateTimeYear(value) = StrToInt(p, 4); p += 4; ValueDateTimeMon(value) = StrToInt(p, 2) - 1; p += 2; ValueDateTimeMDay(value) = StrToInt(p, 2); p += 2; ValueDateTimeHour(value) = 0; ValueDateTimeMin(value) = 0; ValueDateTimeSec(value) = 0; mktime(ValueDateTime(value)); break; case GL_TYPE_ARRAY: for (i = 0; i < ValueArraySize(value); i++) { child = ValueArrayItem(value, i); if (child != NULL) { p += OpenCOBOL_UnPackValue(opt, p, child); ValueParent(child) = value; } } break; case GL_TYPE_ROOT_RECORD: case GL_TYPE_RECORD: for (i = 0; i < ValueRecordSize(value); i++) { child = ValueRecordItem(value, i); if (child != NULL) { p += OpenCOBOL_UnPackValue(opt, p, child); ValueParent(child) = value; } } break; default: ValueIsNil(value); break; } } return (p - q); }