static ValueStruct *_CloseXML(DBG_Struct *dbg, DBCOMM_CTRL *ctrl, RecordStruct *rec, ValueStruct *args) { ValueStruct *obj, *ret; xmlChar *buff; int size; DBG_Struct *mondbg; buff = NULL; ret = NULL; if (rec->type != RECORD_DB) { ctrl->rc = MCP_BAD_ARG; return NULL; } if ((obj = GetItemLongName(args, "object")) == NULL) { ctrl->rc = MCP_BAD_ARG; return NULL; } if (XMLDoc == NULL) { ctrl->rc = MCP_BAD_OTHER; return NULL; } ctrl->rc = MCP_OK; if (XMLmode == MODE_WRITE) { xmlDocDumpFormatMemoryEnc(XMLDoc, &buff, &size, "UTF-8", 0); if (buff != NULL) { mondbg = GetDBG_monsys(); ValueObjectId(obj) = blob_import_mem(mondbg, 0, "XMLIO.xml", "application/xml", 0, buff, size); if (ValueObjectId(obj) != GL_OBJ_NULL) { ret = DuplicateValue(args, TRUE); ctrl->rc = MCP_OK; } else { Warning("monblob_import_mem failure"); ctrl->rc = MCP_BAD_OTHER; } } xfree(buff); } xmlFreeDoc(XMLDoc); XMLDoc = NULL; XMLpos = 0; XMLmode = MODE_NONE; return ret; }
static ValueStruct *_OpenXML(DBG_Struct *dbg, DBCOMM_CTRL *ctrl, RecordStruct *rec, ValueStruct *args) { int rc; ValueStruct *obj, *mode, *ret; char *buff; size_t size; xmlNodePtr root; DBG_Struct *mondbg; XMLpos = 0; XMLDoc = NULL; XMLmode = MODE_NONE; rc = MCP_BAD_OTHER; ret = NULL; if (rec->type != RECORD_DB) { rc = MCP_BAD_ARG; } else { if ((obj = GetItemLongName(args, "object")) != NULL && (mode = GetItemLongName(args, "mode")) != NULL) { XMLmode = ValueInteger(mode); if (XMLmode == MODE_WRITE) { XMLDoc = xmlNewDoc("1.0"); root = xmlNewDocNode(XMLDoc, NULL, "data", NULL); xmlDocSetRootElement(XMLDoc, root); ret = DuplicateValue(args, TRUE); rc = MCP_OK; } else { mondbg = GetDBG_monsys(); if (blob_export_mem(mondbg, ValueObjectId(obj), &buff, &size)) { if (size > 0) { XMLDoc = xmlReadMemory(buff, size, "http://www.montsuqi.org/", NULL, XML_PARSE_NOBLANKS | XML_PARSE_NOENT); if (XMLDoc != NULL) { rc = MCP_OK; } } xfree(buff); } } } else { rc = MCP_BAD_ARG; } } if (ctrl != NULL) { ctrl->rc = rc; } return ret; }
static VALUE get_value(ValueStruct *val) { if (val == NULL) return Qnil; if (IS_VALUE_NIL(val)) return Qnil; switch (ValueType(val)) { case GL_TYPE_BOOL: return ValueBool(val) ? Qtrue : Qfalse; case GL_TYPE_INT: return INT2NUM(ValueInteger(val)); case GL_TYPE_FLOAT: return rb_float_new(ValueFloat(val)); case GL_TYPE_NUMBER: return bigdecimal_new(val); case GL_TYPE_CHAR: case GL_TYPE_VARCHAR: case GL_TYPE_DBCODE: case GL_TYPE_TEXT: return rb_str_new2(ValueToString(val, codeset)); case GL_TYPE_BYTE: case GL_TYPE_BINARY: if (ValueByte(val) == NULL) { return Qnil; } else { return rb_str_new(ValueByte(val), ValueByteLength(val)); } case GL_TYPE_OBJECT: return INT2NUM(ValueObjectId(val)); case GL_TYPE_ARRAY: return aryval_new(val, 0); case GL_TYPE_RECORD: return recval_new(val, 0); case GL_TYPE_TIMESTAMP: return timestamp_new(val); case GL_TYPE_DATE: return date_new(val); default: rb_raise(rb_eArgError, "unsupported ValueStruct type"); break; } return Qnil; /* not reached */ }
extern int ValueToInteger( ValueStruct *val) { int ret; if ( val == NULL ) { ret = 0; } else switch (ValueType(val)) { case GL_TYPE_CHAR: case GL_TYPE_VARCHAR: case GL_TYPE_TEXT: case GL_TYPE_SYMBOL: ret = StrToInt(ValueString(val),strlen(ValueString(val))); break; case GL_TYPE_NUMBER: ret = FixedToInt(&ValueFixed(val)); break; case GL_TYPE_INT: ret = ValueInteger(val); break; case GL_TYPE_FLOAT: ret = (int)ValueFloat(val); break; case GL_TYPE_BOOL: ret = ValueBool(val); break; case GL_TYPE_OBJECT: ret = ValueObjectId(val); break; case GL_TYPE_TIMESTAMP: case GL_TYPE_DATE: case GL_TYPE_TIME: ret = (int)mktime(&ValueDateTime(val)); break; default: ret = 0; } return (ret); }
extern Bool SetValueInteger( ValueStruct *val, int ival) { Bool rc; char str[SIZE_NUMBUF+1]; Bool fMinus; if ( val == NULL ) { fprintf(stderr,"no ValueStruct\n"); rc = FALSE; } 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: sprintf(str,"%d",ival); rc = SetValueString(val,str,NULL); break; case GL_TYPE_NUMBER: if ( ival < 0 ) { ival = - ival; fMinus = TRUE; } else { fMinus = FALSE; } sprintf(str,"%0*d",(int)ValueFixedLength(val),ival); if ( fMinus ) { *str |= 0x40; } rc = SetValueString(val,str,NULL); break; case GL_TYPE_INT: ValueInteger(val) = ival; rc = TRUE; break; case GL_TYPE_FLOAT: ValueFloat(val) = ival; rc = TRUE; break; case GL_TYPE_BOOL: ValueBool(val) = ( ival == 0 ) ? FALSE : TRUE; rc = TRUE; break; case GL_TYPE_OBJECT: ValueObjectId(val) = ival; if ( ValueObjectFile(val) != NULL ) { xfree(ValueObjectFile(val)); ValueObjectFile(val) = NULL; } rc = TRUE; break; case GL_TYPE_TIMESTAMP: case GL_TYPE_DATE: case GL_TYPE_TIME: rc = ( localtime_r((time_t *)&ival,&ValueDateTime(val)) != NULL ) ? TRUE : FALSE; break; default: ValueIsNil(val); rc = FALSE; } } return (rc); }
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 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); }
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); }