static void recval_set_method(VALUE obj, ValueStruct *val) { int i; VALUE name; for (i = 0; i < ValueRecordSize(val); i++) { rb_define_singleton_method(obj, ValueRecordName(val, i), recval_get_field, 0); name = rb_str_new2(ValueRecordName(val, i)); rb_str_cat2(name, "="); rb_define_singleton_method(obj, StringValuePtr(name), recval_set_field, 1); } }
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); }
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); }
static xmlNodePtr Value2XMLNode(char *name, ValueStruct *val) { xmlNodePtr node; xmlNodePtr child; int i; if (val == NULL) { return NULL; } node = NULL; switch (ValueType(val)) { case GL_TYPE_INT: node = xmlNewNode(NULL, "int"); xmlNodeAddContent(node, ValueToString(val, NULL)); break; case GL_TYPE_FLOAT: node = xmlNewNode(NULL, "float"); xmlNodeAddContent(node, ValueToString(val, NULL)); break; case GL_TYPE_NUMBER: node = xmlNewNode(NULL, "number"); xmlNodeAddContent(node, ValueToString(val, NULL)); break; case GL_TYPE_BOOL: node = xmlNewNode(NULL, "bool"); xmlNodeAddContent(node, ValueToString(val, NULL)); break; case GL_TYPE_CHAR: case GL_TYPE_VARCHAR: case GL_TYPE_SYMBOL: case GL_TYPE_DBCODE: case GL_TYPE_TEXT: node = xmlNewNode(NULL, "string"); xmlNodeAddContent(node, ValueToString(val, NULL)); break; case GL_TYPE_ARRAY: node = xmlNewNode(NULL, "array"); for (i = 0; i < ValueArraySize(val); i++) { child = Value2XMLNode(NULL, ValueArrayItem(val, i)); if (child != NULL) { xmlAddChildList(node, child); } } break; case GL_TYPE_RECORD: node = xmlNewNode(NULL, "record"); for (i = 0; i < ValueRecordSize(val); i++) { if (!strcmp(ValueRecordName(val, i), "mode")) { continue; } child = Value2XMLNode(ValueRecordName(val, i), ValueRecordItem(val, i)); if (child != NULL) { xmlAddChildList(node, child); } } break; } if (node != NULL && name != NULL && strlen(name) > 0) { xmlNewProp(node, "name", name); } return node; }
static int XMLNode2Value(ValueStruct *val, xmlNodePtr root) { int i; char *buff1; xmlNodePtr node; if (val == NULL || root == NULL) { return MCP_BAD_OTHER; } switch (ValueType(val)) { case GL_TYPE_INT: if (xmlStrcmp(root->name, "int") != 0) { break; } buff1 = XMLGetString(root, "0"); SetValueStringWithLength(val, buff1, strlen(buff1), NULL); free(buff1); break; case GL_TYPE_FLOAT: if (xmlStrcmp(root->name, "float") != 0) { break; } buff1 = XMLGetString(root, "0"); SetValueStringWithLength(val, buff1, strlen(buff1), NULL); free(buff1); break; case GL_TYPE_NUMBER: if (xmlStrcmp(root->name, "number") != 0) { break; } buff1 = XMLGetString(root, "0.0"); SetValueStringWithLength(val, buff1, strlen(buff1), NULL); free(buff1); break; case GL_TYPE_BOOL: if (xmlStrcmp(root->name, "bool") != 0) { break; } buff1 = XMLGetString(root, "FALSE"); SetValueStringWithLength(val, buff1, strlen(buff1), NULL); free(buff1); break; case GL_TYPE_CHAR: case GL_TYPE_VARCHAR: case GL_TYPE_SYMBOL: case GL_TYPE_DBCODE: case GL_TYPE_TEXT: if (xmlStrcmp(root->name, "string") != 0) { break; } buff1 = XMLGetString(root, ""); SetValueStringWithLength(val, buff1, strlen(buff1), NULL); free(buff1); break; case GL_TYPE_ARRAY: if (xmlStrcmp(root->name, "array") != 0) { break; } node = root->children; for (i = 0; i < ValueArraySize(val); i++) { if (node == NULL) { break; } XMLNode2Value(ValueArrayItem(val, i), node); node = node->next; } break; case GL_TYPE_RECORD: if (xmlStrcmp(root->name, "record") != 0) { break; } for (i = 0; i < ValueRecordSize(val); i++) { for (node = root->children; node != NULL; node = node->next) { if ((buff1 = xmlGetProp(node, "name")) == NULL) { continue; } if (!xmlStrcmp(buff1, ValueRecordName(val, i))) { XMLNode2Value(ValueRecordItem(val, i), node); free(buff1); break; } free(buff1); } } break; case GL_TYPE_OBJECT: break; default: return MCP_BAD_ARG; break; } return MCP_OK; }