int main() { StartClock(); unsigned int *no_init_ptr; unsigned int *ptr; struct UnsignedInt_Type1 ptr_str; ((ptr_str.Void_Type0::ptr = ptr , ptr_str.addr = (reinterpret_cast < unsigned long long > ((&ptr)))) , ((Assign(&ptr_str,UnsignedInt_Type1_Cast_Void_Type0(malloc_overload(400UL))) , ptr = ptr_str.Void_Type0::ptr))); unsigned int *ptr2; struct UnsignedInt_Type1 ptr2_str; ((ptr2_str.Void_Type0::ptr = ptr2 , ptr2_str.addr = (reinterpret_cast < unsigned long long > ((&ptr2)))) , ((Assign(&ptr2_str,UnsignedInt_Type1_Cast_Void_Type0(malloc_overload(40UL))) , ptr2 = ptr2_str.Void_Type0::ptr))); unsigned int *ptr_index; unsigned int counter = 0U; struct UnsignedInt_Type1 UnsignedInt_Type1_ovl_2; struct UnsignedInt_Type1 UnsignedInt_Type1_ovl_3; for ((((UnsignedInt_Type1_ovl_2 = create_struct(ptr_index,(reinterpret_cast < unsigned long long > ((&ptr_index)))) , UnsignedInt_Type1_Assign_UnsignedInt_Type1_UnsignedInt_Type1((reinterpret_cast < unsigned long long > ((&UnsignedInt_Type1_ovl_2))),ptr_str)) , ((unsigned int *)( *(reinterpret_cast < void ** > (UnsignedInt_Type1_ovl_2.addr)))) = UnsignedInt_Type1_ovl_2.Void_Type0::ptr) , UnsignedInt_Type1_ovl_2); b_LessThan_UnsignedInt_Type1_UnsignedInt_Type1(create_struct(ptr_index,(reinterpret_cast < unsigned long long > ((&ptr_index)))),UnsignedInt_Type1_Add_UnsignedInt_Type1_i(ptr_str,100)); (((UnsignedInt_Type1_ovl_3 = create_struct(ptr_index,(reinterpret_cast < unsigned long long > ((&ptr_index)))) , UnsignedInt_Type1_Increment_UnsignedInt_Type1((reinterpret_cast < unsigned long long > ((&UnsignedInt_Type1_ovl_3))))) , ((unsigned int *)( *(reinterpret_cast < void ** > (UnsignedInt_Type1_ovl_3.addr)))) = UnsignedInt_Type1_ovl_3.Void_Type0::ptr) , UnsignedInt_Type1_ovl_3)) { *Deref(create_struct(ptr_index,(reinterpret_cast < unsigned long long > ((&ptr_index))))) = counter++; } struct UnsignedInt_Type1 UnsignedInt_Type1_ovl_4; struct UnsignedInt_Type1 UnsignedInt_Type1_ovl_5; for ((((UnsignedInt_Type1_ovl_4 = create_struct(ptr_index,(reinterpret_cast < unsigned long long > ((&ptr_index)))) , UnsignedInt_Type1_Assign_UnsignedInt_Type1_UnsignedInt_Type1((reinterpret_cast < unsigned long long > ((&UnsignedInt_Type1_ovl_4))),UnsignedInt_Type1_Sub_UnsignedInt_Type1_i(UnsignedInt_Type1_Add_UnsignedInt_Type1_i(ptr_str,100),1))) , ((unsigned int *)( *(reinterpret_cast < void ** > (UnsignedInt_Type1_ovl_4.addr)))) = UnsignedInt_Type1_ovl_4.Void_Type0::ptr) , UnsignedInt_Type1_ovl_4); b_GreaterOrEqual_UnsignedInt_Type1_UnsignedInt_Type1(create_struct(ptr_index,(reinterpret_cast < unsigned long long > ((&ptr_index)))),ptr_str); (((UnsignedInt_Type1_ovl_5 = create_struct(ptr_index,(reinterpret_cast < unsigned long long > ((&ptr_index)))) , UnsignedInt_Type1_Decrement_UnsignedInt_Type1((reinterpret_cast < unsigned long long > ((&UnsignedInt_Type1_ovl_5))))) , ((unsigned int *)( *(reinterpret_cast < void ** > (UnsignedInt_Type1_ovl_5.addr)))) = UnsignedInt_Type1_ovl_5.Void_Type0::ptr) , UnsignedInt_Type1_ovl_5)) { printf("%u\n", *Deref(create_struct(ptr_index,(reinterpret_cast < unsigned long long > ((&ptr_index)))))); } EndClock(); return 1; }
void test_message() { question_t* q = create_struct(sizeof(question_t)); resource_t* r = create_struct(sizeof(resource_t)); message_t* msg = create_message(); msg->header->id = 1123; msg->header->QR = 1; msg->header->AA = 1; msg->header->TC = 1; msg->header->RD = 1; msg->header->RA = 1; msg->header->Z = 1; msg->header->RCODE = 1; msg->header->QDCOUNT = 1; msg->header->ANCOUNT = 1; msg->header->NSCOUNT = 0; msg->header->ARCOUNT = 0; q->QNAME = "video.cs.cmu.edu"; q->QTYPE = 1; q->QCLASS = 1; r->NAME = "video.cs.cmu.edu"; r->TYPE = 1; r->CLASS = 1; r->TTL = 214722222; r->RDLENGTH = 8; r->RDATA = "3.0.0.1"; list_add(msg->question, q); list_add(msg->answer, r); printf("%d\n", dumps_message(msg, buf)); msg = loads_message(buf); }
/* include-finalizer */ obj_t BGl_includezd2finaliza7erz75zzmodule_includez00() { AN_OBJECT; { /* Module/include.scm 153 */ { /* Module/include.scm 154 */ obj_t BgL_arg1571z00_185; obj_t BgL_arg1574z00_187; BgL_arg1571z00_185 = CNST_TABLE_REF(((long) 1)); BgL_arg1574z00_187 = bgl_reverse_bang(BGl_za2producedzd2codeza2zd2zzmodule_includez00); { /* Module/include.scm 154 */ obj_t BgL_newz00_268; BgL_newz00_268 = create_struct(CNST_TABLE_REF(((long) 2)), (int) (((long) 5))); { /* Module/include.scm 154 */ int BgL_auxz00_409; BgL_auxz00_409 = (int) (((long) 4)); STRUCT_SET(BgL_newz00_268, BgL_auxz00_409, BFALSE); } { /* Module/include.scm 154 */ int BgL_auxz00_412; BgL_auxz00_412 = (int) (((long) 3)); STRUCT_SET(BgL_newz00_268, BgL_auxz00_412, BTRUE); } { /* Module/include.scm 154 */ int BgL_auxz00_415; BgL_auxz00_415 = (int) (((long) 2)); STRUCT_SET(BgL_newz00_268, BgL_auxz00_415, BgL_arg1574z00_187); } { /* Module/include.scm 154 */ obj_t BgL_auxz00_420; int BgL_auxz00_418; BgL_auxz00_420 = BINT(((long) 100)); BgL_auxz00_418 = (int) (((long) 1)); STRUCT_SET(BgL_newz00_268, BgL_auxz00_418, BgL_auxz00_420); } { /* Module/include.scm 154 */ int BgL_auxz00_423; BgL_auxz00_423 = (int) (((long) 0)); STRUCT_SET(BgL_newz00_268, BgL_auxz00_423, BgL_arg1571z00_185); } BGl_za2toplevelzd2unitza2zd2zzmodule_includez00 = BgL_newz00_268; }} { /* Module/include.scm 159 */ obj_t BgL_list1575z00_188; BgL_list1575z00_188 = MAKE_PAIR(BGl_za2toplevelzd2unitza2zd2zzmodule_includez00, BNIL); return BgL_list1575z00_188; } } }
/* toplevel-init */ obj_t BGl_toplevelzd2initzd2zz__rgc_configz00() { AN_OBJECT; { /* Rgc/rgcconfig.scm 14 */ BGl_za2rgczd2optimza2zd2zz__rgc_configz00 = BTRUE; { /* Rgc/rgcconfig.scm 113 */ obj_t BgL_arg1900z00_806; BgL_arg1900z00_806 = BGl_list2181z00zz__rgc_configz00; { /* Rgc/rgcconfig.scm 113 */ obj_t BgL_newz00_1287; BgL_newz00_1287 = create_struct(BGl_symbol2248z00zz__rgc_configz00, (int) (((long) 7))); { /* Rgc/rgcconfig.scm 113 */ int BgL_auxz00_1707; BgL_auxz00_1707 = (int) (((long) 6)); STRUCT_SET(BgL_newz00_1287, BgL_auxz00_1707, BgL_arg1900z00_806); } { /* Rgc/rgcconfig.scm 113 */ int BgL_auxz00_1710; BgL_auxz00_1710 = (int) (((long) 5)); STRUCT_SET(BgL_newz00_1287, BgL_auxz00_1710, BGl_proc2244z00zz__rgc_configz00); } { /* Rgc/rgcconfig.scm 113 */ int BgL_auxz00_1713; BgL_auxz00_1713 = (int) (((long) 4)); STRUCT_SET(BgL_newz00_1287, BgL_auxz00_1713, BGl_proc2245z00zz__rgc_configz00); } { /* Rgc/rgcconfig.scm 113 */ int BgL_auxz00_1716; BgL_auxz00_1716 = (int) (((long) 3)); STRUCT_SET(BgL_newz00_1287, BgL_auxz00_1716, BGl_proc2246z00zz__rgc_configz00); } { /* Rgc/rgcconfig.scm 113 */ int BgL_auxz00_1719; BgL_auxz00_1719 = (int) (((long) 2)); STRUCT_SET(BgL_newz00_1287, BgL_auxz00_1719, BGl_proc2247z00zz__rgc_configz00); } { /* Rgc/rgcconfig.scm 113 */ obj_t BgL_auxz00_1724; int BgL_auxz00_1722; BgL_auxz00_1724 = BINT(((long) 256)); BgL_auxz00_1722 = (int) (((long) 1)); STRUCT_SET(BgL_newz00_1287, BgL_auxz00_1722, BgL_auxz00_1724); } { /* Rgc/rgcconfig.scm 113 */ int BgL_auxz00_1727; BgL_auxz00_1727 = (int) (((long) 0)); STRUCT_SET(BgL_newz00_1287, BgL_auxz00_1727, BGl_string2250z00zz__rgc_configz00); } BGl_za2asciizd2configza2zd2zz__rgc_configz00 = BgL_newz00_1287; }} return (BGl_za2rgczd2configza2zd2zz__rgc_configz00 = BGl_za2asciizd2configza2zd2zz__rgc_configz00, BUNSPEC); } }
/* declare-tvector! */ BGL_EXPORTED_DEF obj_t BGl_declarezd2tvectorz12zc0zz__tvectorz00(char *BgL_idz00_23, obj_t BgL_allocatez00_24, obj_t BgL_refz00_25, obj_t BgL_setz00_26) { AN_OBJECT; { /* Llib/tvector.scm 139 */ { /* Llib/tvector.scm 140 */ obj_t BgL_idz00_787; { /* Llib/tvector.scm 140 */ obj_t BgL_arg1898z00_792; { /* Llib/tvector.scm 140 */ obj_t BgL_casezd2valuezd2_793; BgL_casezd2valuezd2_793 = BGl_bigloozd2casezd2sensitivityz00zz__readerz00(); if ((BgL_casezd2valuezd2_793 == BGl_symbol2204z00zz__tvectorz00)) { /* Llib/tvector.scm 140 */ BgL_arg1898z00_792 = BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(string_to_bstring (BgL_idz00_23)); } else { /* Llib/tvector.scm 140 */ if ( (BgL_casezd2valuezd2_793 == BGl_symbol2206z00zz__tvectorz00)) { /* Llib/tvector.scm 140 */ BgL_arg1898z00_792 = BGl_stringzd2downcasezd2zz__r4_strings_6_7z00 (string_to_bstring(BgL_idz00_23)); } else { /* Llib/tvector.scm 140 */ BgL_arg1898z00_792 = string_to_bstring(BgL_idz00_23); } } } BgL_idz00_787 = string_to_symbol(BSTRING_TO_STRING(BgL_arg1898z00_792)); } { /* Llib/tvector.scm 140 */ obj_t BgL_oldz00_788; if (PAIRP(BGl_za2tvectorzd2tableza2zd2zz__tvectorz00)) { /* Llib/tvector.scm 147 */ obj_t BgL_cellz00_1335; BgL_cellz00_1335 = BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_idz00_787, BGl_za2tvectorzd2tableza2zd2zz__tvectorz00); if (PAIRP(BgL_cellz00_1335)) { /* Llib/tvector.scm 147 */ BgL_oldz00_788 = CDR(BgL_cellz00_1335); } else { /* Llib/tvector.scm 147 */ BgL_oldz00_788 = BFALSE; } } else { /* Llib/tvector.scm 147 */ BgL_oldz00_788 = BFALSE; } { /* Llib/tvector.scm 147 */ { /* Llib/tvector.scm 148 */ bool_t BgL_testz00_1752; if (STRUCTP(BgL_oldz00_788)) { /* Llib/tvector.scm 148 */ BgL_testz00_1752 = (STRUCT_KEY(BgL_oldz00_788) == BGl_symbol2208z00zz__tvectorz00); } else { /* Llib/tvector.scm 148 */ BgL_testz00_1752 = ((bool_t) 0); } if (BgL_testz00_1752) { /* Llib/tvector.scm 148 */ return BgL_oldz00_788; } else { /* Llib/tvector.scm 149 */ obj_t BgL_newz00_790; { /* Llib/tvector.scm 149 */ obj_t BgL_newz00_1351; BgL_newz00_1351 = create_struct(BGl_symbol2208z00zz__tvectorz00, (int) (((long) 4))); { /* Llib/tvector.scm 149 */ int BgL_auxz00_1759; BgL_auxz00_1759 = (int) (((long) 3)); STRUCT_SET(BgL_newz00_1351, BgL_auxz00_1759, BgL_setz00_26); } { /* Llib/tvector.scm 149 */ int BgL_auxz00_1762; BgL_auxz00_1762 = (int) (((long) 2)); STRUCT_SET(BgL_newz00_1351, BgL_auxz00_1762, BgL_refz00_25); } { /* Llib/tvector.scm 149 */ int BgL_auxz00_1765; BgL_auxz00_1765 = (int) (((long) 1)); STRUCT_SET(BgL_newz00_1351, BgL_auxz00_1765, BgL_allocatez00_24); } { /* Llib/tvector.scm 149 */ int BgL_auxz00_1768; BgL_auxz00_1768 = (int) (((long) 0)); STRUCT_SET(BgL_newz00_1351, BgL_auxz00_1768, BgL_idz00_787); } BgL_newz00_790 = BgL_newz00_1351; } { /* Llib/tvector.scm 150 */ obj_t BgL_arg1896z00_791; BgL_arg1896z00_791 = MAKE_PAIR(BgL_idz00_787, BgL_newz00_790); BGl_za2tvectorzd2tableza2zd2zz__tvectorz00 = MAKE_PAIR(BgL_arg1896z00_791, BGl_za2tvectorzd2tableza2zd2zz__tvectorz00); } return BgL_newz00_790; } } } } } } }
/* initialize-ast */ BGL_EXPORTED_DEF obj_t BGl_initializa7ezd2astz75zzbdb_initializa7eza7() { AN_OBJECT; { /* Bdb/bdb_initialize.scm 42 */ { /* Bdb/bdb_initialize.scm 44 */ obj_t BgL_bodyz00_815; { /* Bdb/bdb_initialize.scm 44 */ obj_t BgL_arg3296z00_830; { /* Bdb/bdb_initialize.scm 44 */ obj_t BgL_arg3298z00_832; obj_t BgL_arg3299z00_833; BgL_arg3298z00_832 = CNST_TABLE_REF(((long) 0)); { /* Bdb/bdb_initialize.scm 44 */ obj_t BgL_arg3300z00_834; obj_t BgL_arg3301z00_835; { /* Bdb/bdb_initialize.scm 44 */ obj_t BgL_arg3305z00_839; obj_t BgL_arg3306z00_840; BgL_arg3305z00_839 = CNST_TABLE_REF(((long) 1)); { /* Bdb/bdb_initialize.scm 44 */ obj_t BgL_list3307z00_841; BgL_list3307z00_841 = MAKE_PAIR(BNIL, BNIL); BgL_arg3306z00_840 = BGl_consza2za2zz__r4_pairs_and_lists_6_3z00 (BGl_za2moduleza2z00zzmodule_modulez00, BgL_list3307z00_841); } BgL_arg3300z00_834 = MAKE_PAIR(BgL_arg3305z00_839, BgL_arg3306z00_840); } { /* Bdb/bdb_initialize.scm 45 */ obj_t BgL_arg3308z00_842; obj_t BgL_arg3309z00_843; BgL_arg3308z00_842 = CNST_TABLE_REF(((long) 2)); { /* Bdb/bdb_initialize.scm 45 */ obj_t BgL_list3310z00_844; BgL_list3310z00_844 = MAKE_PAIR(BNIL, BNIL); BgL_arg3309z00_843 = BGl_consza2za2zz__r4_pairs_and_lists_6_3z00 (BGl_string3363z00zzbdb_initializa7eza7, BgL_list3310z00_844); } BgL_arg3301z00_835 = MAKE_PAIR(BgL_arg3308z00_842, BgL_arg3309z00_843); } { /* Bdb/bdb_initialize.scm 44 */ obj_t BgL_list3303z00_837; { /* Bdb/bdb_initialize.scm 44 */ obj_t BgL_arg3304z00_838; BgL_arg3304z00_838 = MAKE_PAIR(BNIL, BNIL); BgL_list3303z00_837 = MAKE_PAIR(BgL_arg3301z00_835, BgL_arg3304z00_838); } BgL_arg3299z00_833 = BGl_consza2za2zz__r4_pairs_and_lists_6_3z00 (BgL_arg3300z00_834, BgL_list3303z00_837); }} BgL_arg3296z00_830 = MAKE_PAIR(BgL_arg3298z00_832, BgL_arg3299z00_833); } BgL_bodyz00_815 = MAKE_PAIR(BgL_arg3296z00_830, BNIL); } { /* Bdb/bdb_initialize.scm 46 */ obj_t BgL_unitz00_816; { /* Bdb/bdb_initialize.scm 46 */ obj_t BgL_idz00_1267; BgL_idz00_1267 = CNST_TABLE_REF(((long) 3)); { /* Bdb/bdb_initialize.scm 46 */ obj_t BgL_newz00_1272; BgL_newz00_1272 = create_struct(CNST_TABLE_REF(((long) 4)), (int) (((long) 5))); { /* Bdb/bdb_initialize.scm 46 */ int BgL_auxz00_1357; BgL_auxz00_1357 = (int) (((long) 4)); STRUCT_SET(BgL_newz00_1272, BgL_auxz00_1357, BFALSE); } { /* Bdb/bdb_initialize.scm 46 */ int BgL_auxz00_1360; BgL_auxz00_1360 = (int) (((long) 3)); STRUCT_SET(BgL_newz00_1272, BgL_auxz00_1360, BTRUE); } { /* Bdb/bdb_initialize.scm 46 */ int BgL_auxz00_1363; BgL_auxz00_1363 = (int) (((long) 2)); STRUCT_SET(BgL_newz00_1272, BgL_auxz00_1363, BgL_bodyz00_815); } { /* Bdb/bdb_initialize.scm 46 */ obj_t BgL_auxz00_1368; int BgL_auxz00_1366; BgL_auxz00_1368 = BINT(((long) 9)); BgL_auxz00_1366 = (int) (((long) 1)); STRUCT_SET(BgL_newz00_1272, BgL_auxz00_1366, BgL_auxz00_1368); } { /* Bdb/bdb_initialize.scm 46 */ int BgL_auxz00_1371; BgL_auxz00_1371 = (int) (((long) 0)); STRUCT_SET(BgL_newz00_1272, BgL_auxz00_1371, BgL_idz00_1267); } BgL_unitz00_816 = BgL_newz00_1272; }} { /* Bdb/bdb_initialize.scm 47 */ obj_t BgL_astz00_817; { /* Bdb/bdb_initialize.scm 47 */ obj_t BgL_arg3294z00_828; { /* Bdb/bdb_initialize.scm 47 */ obj_t BgL_list3295z00_829; BgL_list3295z00_829 = MAKE_PAIR(BgL_unitz00_816, BNIL); BgL_arg3294z00_828 = BgL_list3295z00_829; } BgL_astz00_817 = BGl_buildzd2astzd2zzast_buildz00(BgL_arg3294z00_828); } { obj_t BgL_l3277z00_819; BgL_l3277z00_819 = BgL_astz00_817; BgL_zc3anonymousza33288ze3z83_820: if (PAIRP(BgL_l3277z00_819)) { /* Bdb/bdb_initialize.scm 48 */ { /* Bdb/bdb_initialize.scm 49 */ obj_t BgL_globalz00_822; BgL_globalz00_822 = CAR(BgL_l3277z00_819); { /* Bdb/bdb_initialize.scm 49 */ obj_t BgL_arg3290z00_823; BgL_typez00_bglt BgL_arg3291z00_824; { /* Bdb/bdb_initialize.scm 49 */ BgL_sfunz00_bglt BgL_obj1907z00_1303; { /* Bdb/bdb_initialize.scm 49 */ BgL_variablez00_bglt BgL_obj1632z00_1302; BgL_obj1632z00_1302 = (BgL_variablez00_bglt) (BgL_globalz00_822); BgL_obj1907z00_1303 = (BgL_sfunz00_bglt) ( (((BgL_variablez00_bglt) CREF(BgL_obj1632z00_1302))->BgL_valuez00)); } BgL_arg3290z00_823 = (((BgL_sfunz00_bglt) CREF(BgL_obj1907z00_1303))-> BgL_bodyz00); } { BgL_variablez00_bglt BgL_auxz00_1383; BgL_auxz00_1383 = (BgL_variablez00_bglt) (BgL_globalz00_822); BgL_arg3291z00_824 = (((BgL_variablez00_bglt) CREF(BgL_auxz00_1383))-> BgL_typez00); } BGl_coercez12z12zzcoerce_coercez00( (BgL_nodez00_bglt) (BgL_arg3290z00_823), BgL_globalz00_822, BgL_arg3291z00_824, ((bool_t) 0)); } } { obj_t BgL_l3277z00_1388; BgL_l3277z00_1388 = CDR(BgL_l3277z00_819); BgL_l3277z00_819 = BgL_l3277z00_1388; goto BgL_zc3anonymousza33288ze3z83_820; } } else { /* Bdb/bdb_initialize.scm 48 */ ((bool_t) 1); } } return BgL_astz00_817; } } } } }