static int _StartBatch(MessageHandler *handler, char *name, char *param) {
int (*apl)(char *);
int rc;
ValueStruct *val;
char *arg;
OpenCOBOL_Conv = NewConvOpt();
ConvSetSize(OpenCOBOL_Conv, ThisBD->textsize, ThisBD->arraysize);
ConvSetCodeset(OpenCOBOL_Conv, ConvCodeset(handler->conv));
if (handler->conv != NULL) {
OpenCOBOL_Conv->fBigEndian = handler->conv->fBigEndian;
} else {
Error("handler->conv is NULL");
}
InitMONFUNC(OpenCOBOL_Conv, OpenCOBOL_PackValue, OpenCOBOL_UnPackValue,
OpenCOBOL_SizeValue);
#ifdef DEBUG
printf("starting [%s][%s]\n", name, param);
#endif
if ((apl = cob_resolve(name)) != NULL) {
val = NewValue(GL_TYPE_CHAR);
SetValueStringWithLength(val, param, ThisBD->textsize, NULL);
arg = StrnDup(ValueToString(val, "euc-jisx0213"), ThisBD->textsize);
StringC2Cobol(arg, ThisBD->textsize);
rc = apl(arg);
FreeValueStruct(val);
xfree(arg);
} else {
Warning("%s - %s is not found.", cob_resolve_error(), name);
rc = -1;
}
return (rc);
}
static void
set_value(ValueStruct *value, VALUE obj)
{
VALUE class_path, str;
if (NIL_P(obj)) {
ValueIsNil(value);
}
else {
ValueIsNonNil(value);
switch (TYPE(obj)) {
case T_TRUE:
case T_FALSE:
SetValueBool(value, RTEST(obj) ? TRUE : FALSE);
break;
case T_FIXNUM:
SetValueInteger(value, FIX2INT(obj));
break;
case T_BIGNUM:
SetValueInteger(value, NUM2INT(obj));
break;
case T_FLOAT:
SetValueFloat(value, RFLOAT(obj)->value);
break;
case T_STRING:
switch (ValueType(value)) {
case GL_TYPE_BYTE:
case GL_TYPE_BINARY:
SetValueBinary(value, RSTRING(obj)->ptr, RSTRING(obj)->len);
break;
default:
SetValueStringWithLength(value,
RSTRING(obj)->ptr,
RSTRING(obj)->len,
codeset);
break;
}
break;
default:
class_path = rb_class_path(CLASS_OF(obj));
if (strcasecmp(StringValuePtr(class_path), "BigDecimal") == 0) {
str = rb_funcall(obj, rb_intern("to_s"), 1, rb_str_new2("F"));
} else
if (strcasecmp(StringValuePtr(class_path), "Time") == 0) {
str = rb_funcall(obj, rb_intern("strftime"), 1, rb_str_new2("%Y%m%d%H%M%S"));
dbgprintf("strftime [%s]",StringValuePtr(str));
}
else {
str = rb_funcall(obj, rb_intern("to_s"), 0);
}
SetValueString(value, StringValuePtr(str), codeset);
break;
}
}
}
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);
}
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;
}
