/* output assignment statements for a simple map entry */
static void c_map_get_assign_simple(symbol_t* sp, list_t* entry)
{
list_t *p = entry->sub1;
if (p->type == ESC_FTYPE || p->type == ESC_MAP) {
c_outi("%sesc_bits = ", prefix);
c_expression(p->e3, 0);
c_out(";\n");
}
if (cpp())
c_outi("*%sarg = ", prefix);
else if (java())
c_outi("%sarg = ", prefix);
/* figure out if we have simple assignment or escape */
if (p->type == ESC_FTYPE || p->type == ESC_MAP)
c_map_get_assign_esc(p);
else {
if (sp->ptype->ident == FLOAT && p->e1->type == DOUBLE)
c_out("(float)");
c_expression(p->e1, 0);
}
c_out(";\n");
}
/* output assignment statements for a simple map entry */
static void c_map_putxml_assign_simple(symbol_t* sp, list_t* entry)
{
list_t *p = entry->sub1;
if (p->type == ESC_FTYPE || p->type == ESC_MAP) {
c_outi("%sesc_bits = ", prefix);
c_expression(p->e3, 0);
c_out(";\n");
}
if (cpp())
c_outi("*%sarg = ", prefix);
else if (java())
c_outi("%sarg = ", prefix);
/* figure out if we have simple assignment or escape */
if (p->type == ESC_FTYPE || p->type == ESC_MAP)
c_map_get_assign_esc(p);
else {
if (sp->ptype->ident == FLOAT && entry->sub1->e1->type == DOUBLE)
c_out("(float)");
c_expression(p->e1, 0);
}
c_out(";\n");
/* output an element for the value, which corresponds to the code */
c_xml_map_var_simple(sp, 1);
}
/* generate map putvlc method */
static void c_map_put(symbol_t *sp, list_t *stmts)
{
c_outi("\n");
if (cpp()) {
if (sp->ptype->ident == CLASS_TYPE)
c_outi("int %s::putvlc(%s &%sbs, %s%s *%sarg, int *%sparse, int *%scode) {\n",
sp->name, bitstream_class, prefix,
((sp->modifiers & M_UNSIGNED) ? "unsigned " : ""),
sp->ptype->name, prefix, prefix, prefix);
else
c_outi("int %s::putvlc(%s &%sbs, %s%s %sarg, int *%sparse, int *%scode) {\n",
sp->name, bitstream_class, prefix,
((sp->modifiers & M_UNSIGNED) ? "unsigned " : ""),
sp->ptype->name, prefix, prefix, prefix);
}
else if (java()) {
c_outi("public static %s putvlc(%s %sbs, %s %sarg) throws IOException {\n",
map_result, bitstream_class, prefix, sp->ptype->name, prefix);
}
c_identlevel++;
/* declare hit variable (used for return value), data and size */
c_outi("int %sdata = 0, %ssize = 0;\n", prefix, prefix);
c_outi("int %sesc_bits = 0;\n", prefix);
if (cpp())
c_outi("int %shit = 1;\n\n", prefix);
else if (java())
c_outi("boolean %shit = true;\n\n", prefix);
/* output the core putvlc code (series of putbits with case statements */
c_map_put_core(sp, stmts);
c_identlevel--;
c_outi("}\n");
}
/* put the simple value for the escape code */
static void c_map_put_esc_simple(symbol_t *sp, list_t *entry)
{
node_t *pp = entry->e3;
if (!is_literal(pp->op)) {
c_out("0");
return;
}
/* no map cascades at this time */
if (entry->type == ESC_MAP)
fatal("Internal error CM%d: Map cascading not supported", __LINE__);
c_outi("%sbs.%s%s%s", prefix,
(sp->modifiers & M_LITTLE ? "little_" : ""),
(sp->modifiers & M_UNSIGNED || sp->ptype->ident > INT ? "" : "s"), "put");
if (sp->ptype->ident <= INT) {
if (java() && sp->modifiers & M_LONG)
c_out("long(");
else
c_out("bits(%sarg,", prefix);
c_expression(pp, 0);
c_out(");\n");
}
else if (sp->ptype->ident == FLOAT)
c_out("float(%sarg);\n", prefix);
else if (sp->ptype->ident == DOUBLE && (sp->modifiers & M_LONG))
c_out("ldouble(%sarg);\n", prefix);
else
c_out("double(%sarg);\n", prefix);
}
/* output assignment statements for a class map entry */
static void c_map_get_assign_class(symbol_t *sp, list_t *entry)
{
list_t *p;
/* find the statements for this class */
list_t *stmts = find_class_stmts(sp->ptype);
if (stmts == NULL)
fatal("Internal error CM%d: Cannot find declaration of class '%s'", __LINE__, sp->name);
if (entry->sub1->type == ESC_FTYPE || entry->sub1->type == ESC_MAP)
p = entry->sub1;
else
p = entry->sub1->sub1;
/* traverse declarations and output assignment code for each variable */
while (stmts != NULL) {
switch (stmts->type) {
case DECL:
if (p == NULL) return;
if (p->type == ESC_FTYPE || p->type == ESC_MAP) {
c_outi("%sesc_bits = ", prefix);
c_expression(p->e3, 0);
c_out(";\n");
}
c_outi("%sarg%s%s = ", prefix, c_scope(), stmts->sp->name);
/* figure out if we have simple assignment or escape */
if (p->type == ESC_FTYPE || p->type == ESC_MAP)
c_map_get_assign_esc(p);
else {
if (stmts->sp->ptype->ident == FLOAT && p->e1->type == DOUBLE)
c_out("(float)");
c_expression(p->e1, 0);
}
c_out(";\n");
p = p->next;
break;
default:
return;
}
stmts = stmts->next;
}
}
/* output verbatim code */
void verbatim(verbatim_t *vp)
{
if (vp == NULL || vp->str == NULL) return;
/* output preprocessor directive for file/line info */
if (!supp_lineno && cpp()) {
c_out("#");
c_out("line %d \"%s\"\n", vp->lineno, filename);
}
c_outi("%s\n", vp->str);
}
/* {EV_RECTANGLE}.out */
EIF_REFERENCE F752_6923 (EIF_REFERENCE Current)
{
GTCX
EIF_REFERENCE tr1 = NULL;
EIF_REFERENCE tr2 = NULL;
EIF_INTEGER_32 ti4_1;
EIF_REFERENCE Result = ((EIF_REFERENCE) 0);
RTLD;
RTLI(4);
RTLR(0,tr1);
RTLR(1,Current);
RTLR(2,tr2);
RTLR(3,Result);
RTGC;
tr1 = RTMS_EX_H("(X: ",4,676870688);
ti4_1 = *(EIF_INTEGER_32 *)(Current+ _LNGOFF_0_0_0_0_);
tr2 = c_outi(ti4_1);
tr1 = F923_10437(RTCV(tr1), tr2);
tr2 = RTMS_EX_H(", Y: ",5,543056416);
tr1 = F923_10437(RTCV(tr1), tr2);
ti4_1 = *(EIF_INTEGER_32 *)(Current+ _LNGOFF_0_0_0_1_);
tr2 = c_outi(ti4_1);
tr1 = F923_10437(RTCV(tr1), tr2);
tr2 = RTMS_EX_H(", Width: ",9,1306770464);
tr1 = F923_10437(RTCV(tr1), tr2);
ti4_1 = *(EIF_INTEGER_32 *)(Current+ _LNGOFF_0_0_0_2_);
tr2 = c_outi(ti4_1);
tr1 = F923_10437(RTCV(tr1), tr2);
tr2 = RTMS_EX_H(", Height: ",10,1818164768);
tr1 = F923_10437(RTCV(tr1), tr2);
ti4_1 = *(EIF_INTEGER_32 *)(Current+ _LNGOFF_0_0_0_3_);
tr2 = c_outi(ti4_1);
tr1 = F923_10437(RTCV(tr1), tr2);
tr2 = RTMS_EX_H(")",1,41);
Result = F923_10437(RTCV(tr1), tr2);
RTLE;
return Result;
}
/* put the parsing of a variable with simple parse expr as an XML element */
void c_xml_var_simple(symbol_t* sp, node_t *align, int dims, node_t **dim)
{
c_outi("if (bAttr) {\n");
c_identlevel++;
if (cpp())
c_outi("%s(\"<%s", xml_func3, sp->name);
else if (java())
c_outi("XML.%s(\"<%s", xml_func3, sp->name);
/* bit values are accessed as integer values */
if (sp->ptype->ident == CHAR) {
if (sp->modifiers & M_UNSIGNED)
c_out(" type=\\\"flUChar\\\"");
else
c_out(" type=\\\"flSChar\\\"");
}
else if (sp->ptype->ident <= INT) {
if (sp->modifiers & M_UNSIGNED)
c_out(" type=\\\"flUInt\\\"");
else
c_out(" type=\\\"flSInt\\\"");
}
else if (sp->ptype->ident == FLOAT)
c_out(" type=\\\"flFloat\\\"");
else if (sp->ptype->ident == DOUBLE)
c_out(" type=\\\"flDouble\\\"");
else
fatal("Internal error CX%d: Expected simple type", __LINE__);
c_xml_var_helper(sp, align, dims, dim);
c_identlevel--;
c_outi("}\n");
// !bAttr
c_outi("else {\n");
c_identlevel++;
if (cpp())
c_outi("%s(\"<%s", xml_func3, sp->name);
else if (java())
c_outi("XML.%s(\"<%s", xml_func3, sp->name);
c_xml_var_helper(sp, align, dims, dim);
c_identlevel--;
c_outi("}\n");
}
/* put the class value for the escape code */
static void c_map_put_esc_class(symbol_t *sp, list_t *entry)
{
list_t *pp = entry;
list_t *stmts = find_class_stmts(sp->ptype);
if (stmts == NULL)
fatal("Internal error CM%d: Cannot find declaration of class '%s'", __LINE__, sp->name);
/* no map cascades at this time */
if (entry->type == ESC_MAP)
fatal("Internal error CM%d: Map cascading not supported", __LINE__);
while (stmts != NULL) {
switch (stmts->type) {
case DECL:
/* declarations are ok, even parsable ones, but not with classes */
if (stmts->sp->ptype->ident == CLASS_TYPE) return;
if (pp == NULL) return;
if (!is_literal(pp->e3->op)) {
c_out("0");
return;
}
c_outi("%sbs.%sput", prefix, (stmts->sp->modifiers & M_LITTLE ? "little_" : ""));
if (stmts->sp->ptype->ident <= INT) {
if (java() && stmts->sp->modifiers & M_LONG)
c_out("long(%sarg%s%s,", prefix, c_scope(), stmts->sp->name);
else
c_out("bits(%sarg%s%s,", prefix, c_scope(), stmts->sp->name);
c_expression(pp->e3, 0);
c_out(");\n");
}
else if (stmts->sp->ptype->ident == FLOAT)
c_out("float(%sarg%s%s);\n", prefix, c_scope(), stmts->sp->name);
else if (stmts->sp->ptype->ident == DOUBLE && (stmts->sp->modifiers & M_LONG))
c_out("ldouble(%sarg%s%s);\n", prefix, c_scope(), stmts->sp->name);
else
c_out("double(%sarg%s%s);\n", prefix, c_scope(), stmts->sp->name);
pp = pp->next;
break;
default:
/* everything else, isn't - has been reported already */
return;
}
stmts = stmts->next;
}
}
/* generate schema description for the map */
static void c_map_xsd(symbol_t* sp, list_t* stmts)
{
c_outi("<xsd:element name=\"code\" type=\"flBit\"/>\n");
if (sp->ptype->ident != CLASS_TYPE) {
c_outi("<xsd:element name=\"value\"");
if (sp->ptype->ident == CHAR) {
if (sp->modifiers & M_UNSIGNED)
c_out(" type=\"flUChar\"");
else
c_out(" type=\"flSChar\"");
}
else {
if (sp->ptype->ident <= INT) {
if (sp->modifiers & M_UNSIGNED)
c_out(" type=\"flUInt\"");
else
c_out(" type=\"flSInt\"");
}
else if (sp->ptype->ident == FLOAT)
c_out(" type=\"flFloat\"");
else if (sp->ptype->ident == DOUBLE)
c_out(" type=\"flDouble\"");
else
fatal("Internal error CM%d: Expected simple type", __LINE__);
}
c_out("/>\n");
}
else {
c_outi("<xsd:element name=\"value\">\n");
c_identlevel++;
c_outi("<xsd:complexType>\n");
c_identlevel++;
c_outi("<xsd:sequence>\n");
c_identlevel++;
c_map_xsd_assign_class(sp);
c_identlevel--;
c_outi("</xsd:sequence>\n");
c_identlevel--;
c_outi("</xsd:complexType>\n");
c_identlevel--;
c_outi("</xsd:element>\n");
}
}
static void c_map_xsd_assign_class(symbol_t *sp)
{
/* find the statements for this class */
list_t *stmts = find_class_stmts(sp->ptype);
if (stmts == NULL)
fatal("Internal error CM%d: Cannot find declaration of class '%s'", __LINE__, sp->name);
/* traverse declarations and output assignment code for each variable */
while (stmts != NULL) {
switch (stmts->type) {
case DECL:
c_outi("<xsd:element name=\"%s\"", stmts->sp->name);
if (stmts->sp->ptype->ident == CHAR) {
if (sp->modifiers & M_UNSIGNED)
c_out(" type=\"flUChar\"/>\n");
else
c_out(" type=\"flSChar\"/>\n");
}
else if (stmts->sp->ptype->ident <= INT) {
if (stmts->sp->modifiers & M_UNSIGNED)
c_out(" type=\"flUInt\"/>\n");
else
c_out(" type=\"flSInt\"/>\n");
}
else if (stmts->sp->ptype->ident == FLOAT)
c_out(" type=\"flFloat\"/>\n");
else if (stmts->sp->ptype->ident == DOUBLE)
c_out(" type=\"flDouble\"/>\n");
else
fatal("Internal error CM%d: Expected simple type", __LINE__);
default:
break;
}
stmts = stmts->next;
}
}
/* generate map putxml method */
static void c_map_putxml(symbol_t* sp, list_t* stmts)
{
c_out("\n");
if (cpp()) {
c_outi("int %s::putxml(%s &%sbs, short int bAttr, %s%s *%sarg, int *%sparse, int *%scode) {\n",
sp->name, bitstream_class, prefix,
((sp->modifiers & M_UNSIGNED) ? "unsigned " : ""),
sp->ptype->name, prefix, prefix, prefix);
c_identlevel++;
/* declare hit variable (used for return value), data and size */
c_outi("int %sdata = 0, %ssize = 0;\n", prefix, prefix);
c_outi("int %sesc_bits = 0;\n", prefix);
c_outi("int %shit = 1;\n\n", prefix);
}
else if (java()) {
c_outi("public static %s putxml(%s %sbs, boolean bAttr) throws IOException {\n",
map_result, bitstream_class, prefix, sp->ptype->name, prefix, prefix, prefix);
c_identlevel++;
/* declare hit variable (used for return value), data and size */
c_outi("int %sdata = 0, %ssize = 0;\n", prefix, prefix);
c_outi("int %sesc_bits = 0;\n", prefix);
c_outi("boolean %shit = true;\n", prefix);
if (sp->ptype->ident == CLASS_TYPE)
c_outi("%s %sarg = new %s();\n\n", sp->ptype->name, prefix, sp->ptype->name);
else
c_outi("%s %sarg = %s%s;\n\n",
sp->ptype->name, prefix, (sp->ptype->ident == FLOAT) ? "(float)" : "",
(sp->ptype->ident <= INT) ? "0" : "0.0");
}
/* output the core putxml code (series of getbits with case statements) */
c_map_putxml_core(sp, stmts);
/* return code and size, if requested */
if (cpp()) {
c_outi("if (%sparse != NULL) *%sparse = %ssize;\n", prefix, prefix, prefix);
c_outi("if (%scode != NULL) *%scode = %sdata;\n", prefix, prefix, prefix);
c_outi("return %shit;\n", prefix);
}
else if (java())
c_outi("return new %s(%shit, %sdata, %ssize, %sarg);\n", map_result, prefix, prefix, prefix, prefix);
c_identlevel--;
c_outi("}\n");
}
/* Core code for putxml - checks for a match against the map codes. The routine uses
* two variables: _data and _size, that contain the matched code. If no match is found, then
* the last code entry is used. If we get a hit, the _hit variable is assigned 1, otherwise
* it is left untouched (previously set to 0).
*/
static void c_map_putxml_core(symbol_t *sp, list_t *stmts)
{
list_t *lp = stmts;
int size;
/* sanity check */
if (lp->e1 == NULL || lp->e1->op != BIT_LITERAL || lp->e1->left.bit == NULL)
fatal("Internal error CM%d: Expected code entry with bit literal", __LINE__);
size = lp->e1->left.bit->len;
/* get data */
c_outi("%sdata = %sbs.nextbits(%d);\n", prefix, prefix, size);
c_outi("switch (%sdata) {\n", prefix);
while (lp != NULL) {
/* sanity check */
if (lp->e1 == NULL || lp->e1->op != BIT_LITERAL || lp->e1->left.bit == NULL)
fatal("Internal error CM%d: Expected code entry with bit literal", __LINE__);
/* did the size change? */
if (lp->e1->left.bit->len != size) {
c_outi("default:\n");
c_identlevel++;
c_map_putxml_core(sp, lp);
c_identlevel--;
break;
}
/* check for match */
c_outi("case %d:\n", lp->e1->left.bit->val);
c_identlevel++;
/* skip bits, if we are doing get - must be done here so that escapes read correctly */
c_outi("%sbs.skipbits(%d);\n", prefix, size);
/* output code element for the XML document */
c_outi("if (bAttr) {\n");
c_identlevel++;
if (cpp())
c_outi("%s(", xml_func3);
else if (java())
c_outi("XML.%s(", xml_func3);
c_out("\"<code type=\\\"flBit\\\" bitLen=\\\"%d\\\">%d</code>\");\n", lp->e1->left.bit->len, lp->e1->left.bit->val);
c_identlevel--;
c_outi("}\n");
c_outi("else {\n");
c_identlevel++;
if (cpp())
c_outi("%s(", xml_func3);
else if (java())
c_outi("XML.%s(", xml_func3);
c_out("\"<code bitLen=\\\"%d\\\">%d</code>\");\n", lp->e1->left.bit->len, lp->e1->left.bit->val);
c_identlevel--;
c_outi("}\n");
/* output assignment code */
c_map_putxml_assign(sp, lp);
/* save size */
c_outi("%ssize = %d;\n", prefix, lp->e1->left.bit->len);
c_outi("break;\n");
c_identlevel--;
/* if at the end, set hit to 0 and use last entry */
if (lp->next == NULL) {
c_outi("default:\n");
c_identlevel++;
if (cpp())
c_outi("%shit = 0;\n", prefix);
else if (java())
c_outi("%shit = false;\n", prefix);
c_identlevel--;
}
/* next code */
lp = lp->next;
}
/* close switch statement */
c_outi("}\n");
}
/* {HTTP_CONNECTION_HANDLER}.process_incoming_connection */
void F128_1782 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "process_incoming_connection";
RTEX;
#define arg1 arg1x.it_r
EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
#define up1 up1x.it_p
EIF_TYPED_VALUE up2x = {{0}, SK_POINTER};
#define up2 up2x.it_p
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
EIF_TYPED_VALUE ur2x = {{0}, SK_REF};
#define ur2 ur2x.it_r
EIF_REFERENCE tr1 = NULL;
EIF_REFERENCE tr2 = NULL;
EIF_INTEGER_32 ti4_1;
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(6);
RTLR(0,arg1);
RTLR(1,Current);
RTLR(2,tr1);
RTLR(3,tr2);
RTLR(4,ur1);
RTLR(5,ur2);
RTLU (SK_VOID, NULL);
RTLU(SK_REF,&arg1);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 127, Current, 0, 1, 2315);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(127, Current, 2315);
if (arg1) {
RTCC(arg1, 127, l_feature_name, 1, 34);
}
RTIV(Current, RTAL);
if (
WDBG(127,"dbglog")
) {
RTHOOK(1);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr2 = RTMS_EX_H(".before process_incoming_connection {",37,507102075);
ur1 = tr2;
tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(3791, "plus", tr1))(tr1, ur1x)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(594, "descriptor", arg1))(arg1)).it_i4);
RTNHOOK(1,1);
tr1 = c_outi(ti4_1);
ur1 = RTCCL(tr1);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(3791, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr2 = RTMS_EX_H("} -- SCOOP WAIT!",16,1724631841);
ur1 = tr2;
tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(3791, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr2);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(1511, dtype))(Current, ur1x);
}
/* Core code for putvlc - checks for a match against the map codes. The routine uses
* two variables: _data and _size, that contain the matched code. If no match is found, then
* the last code entry is used. If we get a hit, the _hit variable is assigned 1, otherwise
* it is left untouched (previously set to 0).
*/
static void c_map_put_core(symbol_t *sp, list_t *stmts)
{
list_t *lp = stmts;
list_t *last = NULL;
int size;
/* put data */
while (lp != NULL) {
/* sanity check */
if (lp->e1 == NULL || lp->e1->op != BIT_LITERAL || lp->e1->left.bit == NULL)
fatal("Internal error CM%d: Expected code entry with bit literal", __LINE__);
if (lp->sub1->type == ESC_FTYPE || lp->sub1->type == ESC_MAP) {
/* save one and only escape code for last */
last = lp;
lp = lp->next;
continue;
}
/* get bit length */
size = lp->e1->left.bit->len;
/* check for match */
c_outi("if (");
c_map_put_compare(sp, lp->sub1);
c_out(") {\n");
c_identlevel++;
/* put bits */
if (!lp->sp) {
if (java() && sp->ptype->modifiers & M_LONG)
c_outi("%sbs.putlong(%d,%d);\n", prefix, lp->e1->left.bit->val, size);
else
c_outi("%sbs.putbits(%d,%d);\n", prefix, lp->e1->left.bit->val, size);
}
else {
if (java() && sp->ptype->modifiers & M_LONG)
c_outi("%sbs.%sputlong(%d,%d);\n", prefix,
(sp->ptype->id->modifiers & M_LITTLE ? "little_" : ""), lp->e1->left.bit->val, size);
else
c_outi("%sbs.%sputbits(%d,%d);\n", prefix,
(sp->ptype->id->modifiers & M_LITTLE ? "little_" : ""), lp->e1->left.bit->val, size);
}
/* save size */
c_outi("%ssize = %d;\n", prefix, lp->e1->left.bit->len);
/* save data */
c_outi("%sdata = %d;\n", prefix, lp->e1->left.bit->val);
/* return code and size, if requested */
if (cpp()) {
c_outi("if (%sparse != NULL) *%sparse = %ssize;\n", prefix, prefix, prefix);
c_outi("if (%scode != NULL) *%scode = %sdata;\n", prefix, prefix, prefix);
c_outi("return %shit;\n", prefix);
}
else if (java())
c_outi("return new %s(%shit, %sdata, %ssize, %sarg);\n", map_result, prefix, prefix, prefix, prefix);
c_identlevel--;
c_outi("}\n");
/* next code */
lp = lp->next;
}
/* no escape code */
if (last == NULL) {
if (cpp()) {
c_outi("%shit = 0;\n", prefix);
c_outi("if (%sparse != NULL) *%sparse = %ssize;\n", prefix, prefix, prefix);
c_outi("if (%scode != NULL) *%scode = %sdata;\n", prefix, prefix, prefix);
c_outi("return %shit;\n", prefix);
}
else if (java()) {
c_outi("%shit = false;\n", prefix);
c_outi("return new %s(%shit, %sdata, %ssize, %sarg);\n", map_result, prefix, prefix, prefix, prefix);
}
}
else {
/* get bit length */
size = last->e1->left.bit->len;
/* put bits */
if (!last->sp) {
if (java() && sp->ptype->modifiers & M_LONG)
c_outi("%sbs.putlong(%d,%d);\n", prefix, last->e1->left.bit->val, size);
else
c_outi("%sbs.putbits(%d,%d);\n", prefix, last->e1->left.bit->val, size);
}
else {
if (java() && sp->ptype->modifiers & M_LONG)
c_outi("%sbs.%sputlong(%d,%d);\n", prefix,
(sp->ptype->id->modifiers & M_LITTLE ? "little_" : ""), last->e1->left.bit->val, size);
else
c_outi("%sbs.%sputbits(%d,%d);\n", prefix,
(sp->ptype->id->modifiers & M_LITTLE ? "little_" : ""), last->e1->left.bit->val, size);
}
/* save size */
c_outi("%ssize = %d;\n", prefix, last->e1->left.bit->len);
/* save data */
c_outi("%sdata = %d;\n", prefix, last->e1->left.bit->val);
if (sp->ptype->ident != CLASS_TYPE)
c_map_put_esc_simple(sp, last->sub1);
else
c_map_put_esc_class(sp, last->sub1);
if (cpp()) {
c_outi("if (%sparse != NULL) *%sparse = %ssize;\n", prefix, prefix, prefix);
c_outi("if (%scode != NULL) *%scode = %sdata;\n", prefix, prefix, prefix);
c_outi("return %shit;\n", prefix);
}
else if (java()) {
c_outi("return new %s(%shit, %sdata, %ssize, %sarg);\n", map_result, prefix, prefix, prefix, prefix);
}
}
}
/* {WS_ERROR_FRAME}.string */
EIF_TYPED_VALUE F4_55 (EIF_REFERENCE Current)
{
GTCX
char *l_feature_name = "string";
RTEX;
EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
#define up1 up1x.it_p
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
EIF_REFERENCE tr1 = NULL;
EIF_REFERENCE tr2 = NULL;
EIF_REFERENCE tr3 = NULL;
EIF_INTEGER_32 ti4_1;
EIF_REFERENCE Result = ((EIF_REFERENCE) 0);
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(6);
RTLR(0,tr1);
RTLR(1,tr2);
RTLR(2,Current);
RTLR(3,tr3);
RTLR(4,ur1);
RTLR(5,Result);
RTLU (SK_REF, &Result);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 3, Current, 0, 0, 53);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(3, Current, 53);
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAL(Current, 0, 0xF80000DA, 0,0); /* Result */
tr1 = RTLN(218);
tr2 = RTMS_EX_H("Error(",6,2056441384);
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(54, dtype));
tr3 = c_outi(ti4_1);
ur1 = RTCCL(tr3);
tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(3675, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr2 = RTMS_EX_H("): ",3,2701856);
ur1 = tr2;
tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(3675, "plus", tr3))(tr3, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(55, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr3);
tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(3675, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr3);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(3727, Dtype(tr1)))(tr1, ur1x);
RTNHOOK(1,1);
Result = (EIF_REFERENCE) RTCCL(tr1);
RTVI(Current, RTAL);
RTRS;
RTHOOK(2);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(2);
RTEE;
{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
#undef up1
#undef ur1
}
/* {EV_CHARACTER_FORMAT_I}.out */
EIF_REFERENCE F1044_13331 (EIF_REFERENCE Current)
{
GTCX
EIF_INTEGER_32 loc1 = (EIF_INTEGER_32) 0;
EIF_INTEGER_32 loc2 = (EIF_INTEGER_32) 0;
EIF_REFERENCE tr1 = NULL;
EIF_INTEGER_32 ti4_1;
EIF_INTEGER_8 ti1_1;
EIF_BOOLEAN tb1;
EIF_REFERENCE Result = ((EIF_REFERENCE) 0);
RTLD;
RTLI(3);
RTLR(0,Current);
RTLR(1,Result);
RTLR(2,tr1);
RTGC;
ti4_1 = *(EIF_INTEGER_32 *)(Current+ _LNGOFF_2_4_0_8_);
Result = c_outi(ti4_1);
tr1 = *(EIF_REFERENCE *)(Current + _REFACS_1_);
tr1 = F920_10291(RTCV(tr1));
F923_10435(RTCV(Result), tr1);
tr1 = c_outi(F1045_13382(Current));
F923_10435(RTCV(Result), tr1);
ti4_1 = *(EIF_INTEGER_32 *)(Current+ _LNGOFF_2_4_0_6_);
tr1 = c_outi(ti4_1);
F923_10435(RTCV(Result), tr1);
ti4_1 = *(EIF_INTEGER_32 *)(Current+ _LNGOFF_2_4_0_5_);
tr1 = c_outi(ti4_1);
F923_10435(RTCV(Result), tr1);
loc2 = *(EIF_INTEGER_32 *)(Current+ _LNGOFF_2_4_0_2_);
loc1 = eif_bit_shift_right(loc2,((EIF_INTEGER_32) 16L));
ti1_1 = (EIF_INTEGER_8) loc1;
tr1 = c_outi(ti1_1);
F923_10435(RTCV(Result), tr1);
loc1 = eif_bit_shift_right(loc2,((EIF_INTEGER_32) 8L));
ti1_1 = (EIF_INTEGER_8) loc1;
tr1 = c_outi(ti1_1);
F923_10435(RTCV(Result), tr1);
ti1_1 = (EIF_INTEGER_8) loc2;
tr1 = c_outi(ti1_1);
F923_10435(RTCV(Result), tr1);
loc2 = *(EIF_INTEGER_32 *)(Current+ _LNGOFF_2_4_0_1_);
loc1 = eif_bit_shift_right(loc2,((EIF_INTEGER_32) 16L));
ti1_1 = (EIF_INTEGER_8) loc1;
tr1 = c_outi(ti1_1);
F923_10435(RTCV(Result), tr1);
loc1 = eif_bit_shift_right(loc2,((EIF_INTEGER_32) 8L));
ti1_1 = (EIF_INTEGER_8) loc1;
tr1 = c_outi(ti1_1);
F923_10435(RTCV(Result), tr1);
ti1_1 = (EIF_INTEGER_8) loc2;
tr1 = c_outi(ti1_1);
F923_10435(RTCV(Result), tr1);
tb1 = *(EIF_BOOLEAN *)(Current+ _CHROFF_2_2_);
tr1 = (tb1 ? makestr ("True", 4) : makestr ("False", 5));
F923_10435(RTCV(Result), tr1);
tb1 = *(EIF_BOOLEAN *)(Current+ _CHROFF_2_1_);
tr1 = (tb1 ? makestr ("True", 4) : makestr ("False", 5));
F923_10435(RTCV(Result), tr1);
ti4_1 = *(EIF_INTEGER_32 *)(Current+ _LNGOFF_2_4_0_3_);
tr1 = c_outi(ti4_1);
F923_10435(RTCV(Result), tr1);
RTLE;
return Result;
}
/* {HTTP_REQUEST_HANDLER}.release */
void F183_9407 (EIF_REFERENCE Current)
{
GTCX
char *l_feature_name = "release";
RTEX;
EIF_REFERENCE loc1 = (EIF_REFERENCE) 0;
EIF_REFERENCE loc2 = (EIF_REFERENCE) 0;
EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
#define up1 up1x.it_p
EIF_TYPED_VALUE up2x = {{0}, SK_POINTER};
#define up2 up2x.it_p
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
EIF_REFERENCE tr1 = NULL;
EIF_REFERENCE tr2 = NULL;
EIF_INTEGER_32 ti4_1;
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(6);
RTLR(0,loc2);
RTLR(1,Current);
RTLR(2,tr1);
RTLR(3,loc1);
RTLR(4,tr2);
RTLR(5,ur1);
RTLU (SK_VOID, NULL);
RTLU (SK_REF, &Current);
RTLU(SK_REF, &loc1);
RTLU(SK_REF, &loc2);
RTEAA(l_feature_name, 182, Current, 2, 0, 2703);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(182, Current, 2703);
RTIV(Current, RTAL);
RTHOOK(1);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(9051, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
loc2 = RTCCL(tr1);
if (EIF_TEST(loc2)) {
RTHOOK(2);
RTDBGAL(Current, 1, 0xF8000185, 0, 0); /* loc1 */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(4022, "descriptor", loc2))(loc2)).it_i4);
RTNHOOK(2,1);
tr1 = c_outi(ti4_1);
loc1 = (EIF_REFERENCE) RTCCL(tr1);
if (
WDBG(182,"dbglog")
) {
RTHOOK(3);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr2 = RTMS_EX_H(".release: ENTER {",17,921091963);
ur1 = tr2;
tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr1))(tr1, ur1x)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
ur1 = RTCCL(loc1);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr2 = RTMS_EX_H("}",1,125);
ur1 = tr2;
tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr2);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(8916, dtype))(Current, ur1x);
}
RTHOOK(4);
(FUNCTION_CAST(void, (EIF_REFERENCE)) RTWF(9062, 181))(Current);
if (
WDBG(182,"dbglog")
) {
RTHOOK(5);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr2 = RTMS_EX_H(".release: LEAVE {",17,415867771);
ur1 = tr2;
tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr1))(tr1, ur1x)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
ur1 = RTCCL(loc1);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr2 = RTMS_EX_H("}",1,125);
ur1 = tr2;
tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr2);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(8916, dtype))(Current, ur1x);
}
/* {RT_DBG_LOCAL_RECORD}.debug_output */
EIF_TYPED_VALUE F615_4530 (EIF_REFERENCE Current)
{
GTCX
char *l_feature_name = "debug_output";
RTEX;
EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
#define up1 up1x.it_p
EIF_TYPED_VALUE up2x = {{0}, SK_POINTER};
#define up2 up2x.it_p
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
EIF_REFERENCE tr1 = NULL;
EIF_REFERENCE tr2 = NULL;
EIF_INTEGER_32 ti4_1;
EIF_REFERENCE Result = ((EIF_REFERENCE) 0);
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(5);
RTLR(0,Current);
RTLR(1,tr1);
RTLR(2,tr2);
RTLR(3,ur1);
RTLR(4,Result);
RTLU (SK_REF, &Result);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 614, Current, 0, 0, 9844);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(614, Current, 9844);
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAL(Current, 0, 0xF80000AA, 0,0); /* Result */
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1623, 176))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr2 = RTMS_EX_H(" (depth=",8,749294653);
ur1 = tr2;
tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2918, "plus", tr1))(tr1, ur1x)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(3342, dtype));
tr1 = c_outi(ti4_1);
ur1 = RTCCL(tr1);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2918, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr2 = RTMS_EX_H(")",1,41);
ur1 = tr2;
tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2918, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
Result = (EIF_REFERENCE) RTCCL(tr2);
if (RTAL & CK_ENSURE) {
RTHOOK(2);
RTCT("result_not_void", EX_POST);
if ((EIF_BOOLEAN)(Result != NULL)) {
RTCK;
} else {
RTCF;
}
}
RTVI(Current, RTAL);
RTRS;
RTHOOK(3);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(2);
RTEE;
{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
#undef up1
#undef up2
#undef ur1
}
/* generate map definition */
void map_decl(symbol_t *sp, list_t *stmts)
{
FILE *tmp;
if (sp == NULL) return;
if (sp->ptype == NULL)
fatal("Internal error CM%d: Map without type information", __LINE__);
if (cpp())
c_out("\nclass %s {\n", sp->name);
else if (java())
c_out("\npublic class %s {\n", sp->name);
else if (xsd()) {
c_out("\n<xsd:complexType name=\"%s\">\n", sp->name);
c_identlevel++;
c_outi("<xsd:sequence>\n");
}
c_identlevel++;
/* if doing C++, declare nextvlc()/getvlc()/putvlc() and switch output files */
if (cpp()) {
/* nextvlc(), getvlc() */
if (gen_get) {
c_outi("public: static int nextvlc(%s &%sbs, %s%s *%sarg, int *%sparse=NULL, int *%scode=NULL);\n",
bitstream_class, prefix,
((sp->modifiers & M_UNSIGNED) ? "unsigned " : ""),
sp->ptype->name, prefix, prefix, prefix);
c_outi("public: static int getvlc(%s &%sbs, %s%s *%sarg, int *%sparse=NULL, int *%scode=NULL);\n",
bitstream_class, prefix,
((sp->modifiers & M_UNSIGNED) ? "unsigned " : ""),
sp->ptype->name, prefix, prefix, prefix);
}
/* putvlc() */
if (gen_put) {
if (sp->ptype->ident == CLASS_TYPE)
/* if CLASS_TYPE pass a pointer to argument */
c_outi("public: static int putvlc(%s &%sbs, %s%s *%sarg, int *%sparse=NULL, int *%scode=NULL);\n",
bitstream_class, prefix,
((sp->modifiers & M_UNSIGNED) ? "unsigned " : ""),
sp->ptype->name, prefix, prefix, prefix);
else
/* otherwise, just value */
c_outi("public: static int putvlc(%s &%sbs, %s%s %sarg, int *%sparse=NULL, int *%scode=NULL);\n",
bitstream_class, prefix,
((sp->modifiers & M_UNSIGNED) ? "unsigned " : ""),
sp->ptype->name, prefix, prefix, prefix);
}
/* putxml() */
if (gen_putxml) {
c_outi("public: static int putxml(%s &%sbs, short int bAttr, %s%s *%sarg, int *%sparse=NULL, int *%scode=NULL);\n",
bitstream_class, prefix,
((sp->modifiers & M_UNSIGNED) ? "unsigned " : ""),
sp->ptype->name, prefix, prefix, prefix);
}
c_identlevel = 0;
tmp = ofp;
ofp = ofp2;
}
if (cpp() || java()) {
/* generate getvlc function; no next, if the map uses escape */
if (gen_get && !sp->escape)
c_map_next(sp, stmts);
/* generate getvlc function */
if (gen_get)
c_map_get(sp, stmts);
/* generate putvlc function */
if (gen_put)
c_map_put(sp, stmts);
/* generate putxml function */
if (gen_putxml)
c_map_putxml(sp, stmts);
}
else if (xsd())
c_map_xsd(sp, stmts);
/* switch back to .h file */
if (cpp()) {
c_identlevel = 1;
ofp = tmp;
}
c_identlevel--;
if (cpp())
c_out("};\n");
else if (java())
c_out("}\n");
else if (xsd()) {
c_outi("</xsd:sequence>\n");
c_identlevel--;
c_out("</xsd:complexType>\n");
}
}
RTHOOK(4);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7867, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
RTNHOOK(4,1);
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(8377, dtype));
ui4_1 = ti4_1;
tc1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(8141, "to_character", tr1))(tr1, ui4_1x)).it_c1);
uc1 = tc1;
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4505, "append_character", Result))(Result, uc1x);
} else {
RTHOOK(5);
RTDBGAL(Current, 2, 0xF80000DB, 0, 0); /* loc2 */
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(8377, dtype));
tr1 = c_outi(ti4_1);
loc2 = (EIF_REFERENCE) RTCCL(tr1);
RTHOOK(6);
RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */
tr1 = RTLN(219);
ti4_1 = *(EIF_INTEGER_32 *)(loc2 + RTVA(4454, "count", loc2));
ui4_1 = (EIF_INTEGER_32) (((EIF_INTEGER_32) 3L) + ti4_1);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(4329, Dtype(tr1)))(tr1, ui4_1x);
RTNHOOK(6,1);
Result = (EIF_REFERENCE) RTCCL(tr1);
RTHOOK(7);
uc1 = (EIF_CHARACTER_8) '%';
/* {RT_DBG_ATTRIBUTE_RECORD}.restore */
void F460_7751 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "restore";
RTEX;
EIF_REFERENCE loc1 = (EIF_REFERENCE) 0;
#define arg1 arg1x.it_r
EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
#define up1 up1x.it_p
EIF_TYPED_VALUE up2x = {{0}, SK_POINTER};
#define up2 up2x.it_p
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
EIF_TYPED_VALUE ur2x = {{0}, SK_REF};
#define ur2 ur2x.it_r
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_REFERENCE tr1 = NULL;
EIF_REFERENCE tr2 = NULL;
EIF_REFERENCE tr3 = NULL;
EIF_INTEGER_32 ti4_1;
EIF_BOOLEAN tb1;
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(8);
RTLR(0,arg1);
RTLR(1,Current);
RTLR(2,tr1);
RTLR(3,tr2);
RTLR(4,ur1);
RTLR(5,tr3);
RTLR(6,loc1);
RTLR(7,ur2);
RTLU (SK_VOID, NULL);
RTLU(SK_REF,&arg1);
RTLU (SK_REF, &Current);
RTLU(SK_REF, &loc1);
RTEAA(l_feature_name, 459, Current, 1, 1, 12869);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(459, Current, 12869);
if (arg1) {
RTCC(arg1, 459, l_feature_name, 1, 386);
}
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("val_attached", EX_PRE);
RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
if (
WDBG(459,"rt_dbg_replay")
) {
RTHOOK(2);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr2 = RTMS_EX_H(".restore (",10,1145697320);
ur1 = tr2;
tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4554, "plus", tr1))(tr1, ur1x)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6052, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
RTNHOOK(2,1);
tr3 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(7, "generator", tr1))(tr1)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
ur1 = RTCCL(tr3);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4554, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr2 = RTMS_EX_H(" #",2,8227);
ur1 = tr2;
tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4554, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(6029, dtype));
tr1 = c_outi(ti4_1);
ur1 = RTCCL(tr1);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4554, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr2 = RTMS_EX_H(")\012",2,10506);
ur1 = tr2;
tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4554, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr2);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(1567, dtype))(Current, ur1x);
RTHOOK(3);
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(6029, dtype));
ui4_1 = ti4_1;
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6052, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr1);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(5887, dtype))(Current, ui4_1x, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
loc1 = RTCCL(tr1);
if (EIF_TEST(loc1)) {
RTHOOK(4);
tr1 = RTMS_EX_H(" -> ",4,539835936);
ur1 = RTCCL(loc1);
tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4554, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr1 = RTMS_EX_H("\012",1,10);
ur1 = tr1;
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4554, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr1);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(1567, dtype))(Current, ur1x);
} else {
/* output assignment statements for a class map entry */
static void c_map_putxml_assign_class(symbol_t *sp, list_t *entry)
{
list_t *p;
/* find the statements for this class */
list_t *stmts = find_class_stmts(sp->ptype);
if (stmts == NULL)
fatal("Internal error CM%d: Cannot find declaration of class '%s'", __LINE__, sp->name);
if (entry->sub1->type == ESC_FTYPE || entry->sub1->type == ESC_MAP)
p = entry->sub1;
else
p = entry->sub1->sub1;
/* output the beginning of the value element for the XML document */
if (cpp())
c_outi("%s(", xml_func4);
else if (java())
c_outi("XML.%s(", xml_func4);
c_out("\"value\", 0);\n");
/* traverse declarations and output assignment code for each variable */
while (stmts != NULL) {
switch (stmts->type) {
case DECL:
if (p == NULL) return;
if (p->type == ESC_FTYPE || p->type == ESC_MAP) {
c_outi("%sesc_bits = ", prefix);
c_expression(p->e3, 0);
c_out(";\n");
}
else
c_outi("%sesc_bits = 0;\n", prefix);
c_outi("%sarg%s%s = ", prefix, c_scope(), stmts->sp->name);
/* figure out if we have simple assignment or escape */
if (entry->sub1->type == ESC_FTYPE || entry->sub1->type == ESC_MAP)
c_map_get_assign_esc(p);
else {
if (stmts->sp->ptype->ident == FLOAT && p->e1->type == DOUBLE)
c_out("(float)");
c_expression(p->e1, 0);
}
c_out(";\n");
/* output an element for each class member value, which corresponds to the code */
c_xml_map_var_simple(stmts->sp, 0);
p = p->next;
break;
default:
break;
}
stmts = stmts->next;
}
/* output the end of the value element for the xml document */
if (cpp())
c_outi("%s(", xml_func5);
else if (java())
c_outi("XML.%s(", xml_func5);
c_out("\"</value>\");\n");
}
/* {RT_DBG_FIELD_RECORD}.restore */
void F644_4512 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "restore";
RTEX;
#define arg1 arg1x.it_r
EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
#define up1 up1x.it_p
EIF_TYPED_VALUE up2x = {{0}, SK_POINTER};
#define up2 up2x.it_p
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
EIF_TYPED_VALUE ur2x = {{0}, SK_REF};
#define ur2 ur2x.it_r
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_REFERENCE tr1 = NULL;
EIF_REFERENCE tr2 = NULL;
EIF_REFERENCE tr3 = NULL;
EIF_INTEGER_32 ti4_1;
EIF_BOOLEAN tb1;
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(7);
RTLR(0,arg1);
RTLR(1,Current);
RTLR(2,tr1);
RTLR(3,tr2);
RTLR(4,ur1);
RTLR(5,tr3);
RTLR(6,ur2);
RTLU (SK_VOID, NULL);
RTLU(SK_REF,&arg1);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 643, Current, 0, 1, 9651);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(643, Current, 9651);
RTCC(arg1, 643, l_feature_name, 1, eif_attached_type(176));
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("val_attached", EX_PRE);
RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
if (
WDBG(643,"rt_dbg_replay")
) {
RTHOOK(2);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(3212, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
RTNHOOK(2,1);
tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(3330, dtype))(Current)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
ur1 = RTCCL(tr2);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1555, "set_object", tr1))(tr1, ur1x);
RTHOOK(3);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr2 = RTMS_EX_H(".restore (",10,1145697320);
ur1 = tr2;
tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2917, "plus", tr1))(tr1, ur1x)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(3330, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
RTNHOOK(3,1);
tr3 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(7, "generator", tr1))(tr1)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
ur1 = RTCCL(tr3);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2917, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr2 = RTMS_EX_H(" #",2,8227);
ur1 = tr2;
tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2917, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(3317, dtype));
tr1 = c_outi(ti4_1);
ur1 = RTCCL(tr1);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2917, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr2 = RTMS_EX_H(")\012",2,10506);
ur1 = tr2;
tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2917, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr2);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(618, dtype))(Current, ur1x);
RTHOOK(4);
tr1 = RTMS_EX_H(" -> ",4,539835936);
tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(3212, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
RTNHOOK(4,1);
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(3317, dtype));
ui4_1 = ti4_1;
tr3 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1495, "field_name", tr2))(tr2, ui4_1x)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
ur1 = RTCCL(tr3);
tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2917, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr1 = RTMS_EX_H(": offset ",9,1304398880);
ur1 = tr1;
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2917, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(3212, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
RTNHOOK(4,2);
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(3317, dtype));
ui4_1 = ti4_1;
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1496, "field_offset", tr2))(tr2, ui4_1x)).it_i4);
RTNHOOK(4,3);
tr2 = c_outi(ti4_1);
ur1 = RTCCL(tr2);
tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2917, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr1 = RTMS_EX_H("\012",1,10);
ur1 = tr1;
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2917, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr1);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(618, dtype))(Current, ur1x);
}
/* {WSF_NINO_SERVICE_LAUNCHER}.launch */
void F97_7277 (EIF_REFERENCE Current)
{
GTCX
char *l_feature_name = "launch";
RTEX;
EIF_REFERENCE loc1 = (EIF_REFERENCE) 0;
EIF_REFERENCE loc2 = (EIF_REFERENCE) 0;
EIF_REFERENCE loc3 = (EIF_REFERENCE) 0;
EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
#define up1 up1x.it_p
EIF_TYPED_VALUE up2x = {{0}, SK_POINTER};
#define up2 up2x.it_p
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_TYPED_VALUE ub1x = {{0}, SK_BOOL};
#define ub1 ub1x.it_b
EIF_REFERENCE tr1 = NULL;
EIF_REFERENCE tr2 = NULL;
EIF_REFERENCE tr3 = NULL;
EIF_INTEGER_32 ti4_1;
EIF_BOOLEAN tb1;
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(8);
RTLR(0,Current);
RTLR(1,loc1);
RTLR(2,tr1);
RTLR(3,ur1);
RTLR(4,tr2);
RTLR(5,tr3);
RTLR(6,loc2);
RTLR(7,loc3);
RTLU (SK_VOID, NULL);
RTLU (SK_REF, &Current);
RTLU(SK_REF, &loc1);
RTLU(SK_REF, &loc2);
RTLU(SK_REF, &loc3);
RTEAA(l_feature_name, 96, Current, 3, 0, 1587);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(96, Current, 1587);
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("launchable", EX_PRE);
tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7126, dtype))(Current)).it_b);
RTTE(tb1, label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
RTHOOK(2);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7140, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
loc1 = RTCCL(tr1);
if (EIF_TEST(loc1)) {
RTHOOK(3);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7137, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr1);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(7155, "set_base", loc1))(loc1, ur1x);
RTHOOK(4);
tb1 = *(EIF_BOOLEAN *)(Current + RTWA(7139, dtype));
if (tb1) {
RTHOOK(5);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(7147, "configuration", loc1))(loc1)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
RTNHOOK(5,1);
ub1 = (EIF_BOOLEAN) 1;
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(3765, "set_force_single_threaded", tr1))(tr1, ub1x);
}
RTHOOK(6);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(7147, "configuration", loc1))(loc1)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
RTNHOOK(6,1);
tb1 = *(EIF_BOOLEAN *)(Current + RTWA(7138, dtype));
ub1 = tb1;
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(3766, "set_is_verbose", tr1))(tr1, ub1x);
if (
WDBG(96,"nino")
) {
RTHOOK(7);
tb1 = *(EIF_BOOLEAN *)(Current + RTWA(7138, dtype));
if (tb1) {
RTHOOK(8);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
RTNHOOK(8,1);
tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(4173, "error", tr1))(tr1)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
RTNHOOK(8,2);
tr1 = RTMS_EX_H("Launching Nino web server on port ",34,114728992);
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(7135, dtype));
tr3 = c_outi(ti4_1);
ur1 = RTCCL(tr3);
tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr3);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(12782, "put_string", tr2))(tr2, ur1x);
RTHOOK(9);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7136, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
loc2 = RTCCL(tr1);
if (EIF_TEST(loc2)) {
RTHOOK(10);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
RTNHOOK(10,1);
tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(4173, "error", tr1))(tr1)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
RTNHOOK(10,2);
tr1 = RTMS_EX_H("\012 http://",9,1366933039);
ur1 = RTCCL(loc2);
tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr1 = RTMS_EX_H(":",1,58);
ur1 = tr1;
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr3))(tr3, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(7135, dtype));
tr3 = c_outi(ti4_1);
ur1 = RTCCL(tr3);
tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr1 = RTMS_EX_H("/",1,47);
ur1 = tr1;
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr3))(tr3, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7137, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr3);
tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr1 = RTMS_EX_H("\012",1,10);
ur1 = tr1;
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr3))(tr3, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr1);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(12782, "put_string", tr2))(tr2, ur1x);
} else {
RTHOOK(11);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
RTNHOOK(11,1);
tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(4173, "error", tr1))(tr1)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
RTNHOOK(11,2);
tr1 = RTMS_EX_H("\012 http://localhost:",19,324861498);
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(7135, dtype));
tr3 = c_outi(ti4_1);
ur1 = RTCCL(tr3);
tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr1 = RTMS_EX_H("/",1,47);
ur1 = tr1;
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr3))(tr3, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7137, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr3);
tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr1 = RTMS_EX_H("\012",1,10);
ur1 = tr1;
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr3))(tr3, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr1);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(12782, "put_string", tr2))(tr2, ur1x);
}
}
}
/* {RT_DBG_LOCAL_RECORD}.restore */
void F615_4533 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "restore";
RTEX;
#define arg1 arg1x.it_r
EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
#define up1 up1x.it_p
EIF_TYPED_VALUE up2x = {{0}, SK_POINTER};
#define up2 up2x.it_p
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
EIF_REFERENCE tr1 = NULL;
EIF_REFERENCE tr2 = NULL;
EIF_INTEGER_32 ti4_1;
EIF_BOOLEAN tb1;
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(5);
RTLR(0,arg1);
RTLR(1,Current);
RTLR(2,tr1);
RTLR(3,tr2);
RTLR(4,ur1);
RTLU (SK_VOID, NULL);
RTLU(SK_REF,&arg1);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 614, Current, 0, 1, 9847);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(614, Current, 9847);
RTCC(arg1, 614, l_feature_name, 1, eif_attached_type(176));
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("val_attached", EX_PRE);
RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
if (
WDBG(614,"rt_dbg_replay")
) {
RTHOOK(2);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr2 = RTMS_EX_H(".restore: depth=",16,1353584189);
ur1 = tr2;
tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2918, "plus", tr1))(tr1, ur1x)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(3342, dtype));
tr1 = c_outi(ti4_1);
ur1 = RTCCL(tr1);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2918, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr2 = RTMS_EX_H(" #",2,8227);
ur1 = tr2;
tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2918, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(3318, dtype));
tr1 = c_outi(ti4_1);
ur1 = RTCCL(tr1);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2918, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tr2 = RTMS_EX_H("\012",1,10);
ur1 = tr2;
tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2918, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr2);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(619, dtype))(Current, ur1x);
}
/* {MY_THREAD}.execute */
void F28_624 (EIF_REFERENCE Current)
{
GTCX
char *l_feature_name = "execute";
RTEX;
EIF_INTEGER_32 loc1 = (EIF_INTEGER_32) 0;
EIF_INTEGER_32 loc2 = (EIF_INTEGER_32) 0;
EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
#define up1 up1x.it_p
EIF_TYPED_VALUE up2x = {{0}, SK_POINTER};
#define up2 up2x.it_p
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
EIF_TYPED_VALUE ui8_1x = {{0}, SK_INT64};
#define ui8_1 ui8_1x.it_i8
EIF_REFERENCE tr1 = NULL;
EIF_REFERENCE tr2 = NULL;
EIF_INTEGER_64 ti8_1;
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(4);
RTLR(0,Current);
RTLR(1,tr1);
RTLR(2,tr2);
RTLR(3,ur1);
RTLU (SK_VOID, NULL);
RTLU (SK_REF, &Current);
RTLU(SK_INT32, &loc1);
RTLU(SK_INT32, &loc2);
RTEAA(l_feature_name, 27, Current, 2, 0, 718);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(27, Current, 718);
RTIV(Current, RTAL);
RTHOOK(1);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
RTNHOOK(1,1);
tr2 = RTMS_EX_H("foo",3,6713199);
ur1 = tr2;
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(355, "put_string", tr1))(tr1, ur1x);
RTHOOK(2);
RTDBGAL(Current, 2, 0x10000000, 1, 0); /* loc2 */
loc2 = (EIF_INTEGER_32) ((EIF_INTEGER_32) 1L);
for (;;) {
RTHOOK(3);
if ((EIF_BOOLEAN)(loc2 == ((EIF_INTEGER_32) 50L))) break;
RTHOOK(4);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
RTNHOOK(4,1);
tr2 = c_outi(loc2);
ur1 = RTCCL(tr2);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(355, "put_string", tr1))(tr1, ur1x);
RTHOOK(5);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
RTNHOOK(5,1);
(FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(374, "put_new_line", tr1))(tr1);
RTHOOK(6);
ti8_1 = (EIF_INTEGER_64) ((EIF_INTEGER_32) 100000000L);
ui8_1 = ti8_1;
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(603, dtype))(Current, ui8_1x);
RTHOOK(7);
RTDBGAL(Current, 2, 0x10000000, 1, 0); /* loc2 */
loc2++;
}
RTVI(Current, RTAL);
RTRS;
RTHOOK(8);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(4);
RTEE;
#undef up1
#undef up2
#undef ur1
#undef ui8_1
}
