/**************************************************************************** Prolog to Wam Compiler INRIA Rocquencourt - ChLoE Project Version 2.21 Daniel Diaz - 1994 File : wamcc2.c Main : no_main ****************************************************************************/ #define FAST_MATH #define DEBUG_LEVEL 0 #include "wam_engine.h" #include "wamcc2.h" #include "wamcc2.usr" #define ASCII_PRED "format_interne" #define PRED X666F726D61745F696E7465726E65 #define ARITY 5 Begin_Public_Pred try_me_else(2) switch_on_term(G_label(1),fail,fail,fail,G_label(1)) label(1) allocate(4) get_structure(X3A2D,2,0,":-") unify_x_variable(0) unify_y_variable(3) get_x_variable(5,1) get_y_variable(1,3) get_y_variable(0,4) put_y_variable(2,1) put_x_value(5,3) call(Pred_Name(X666F726D6174655F74657465,4),1,1,"formate_tete",4) /* begin sub 1 */ put_y_value(3,0) put_y_unsafe_value(2,1) put_y_value(1,2) put_y_value(0,3) deallocate execute(Pred_Name(X666F726D6174655F636F727073,4),1,"formate_corps",4) label(2) trust_me_else_fail get_x_variable(5,1) get_nil(3) get_integer(0,4) put_x_variable(1,1) put_x_value(5,3) execute(Pred_Name(X666F726D6174655F74657465,4),1,"formate_tete",4) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "formate_tete" #define PRED X666F726D6174655F74657465 #define ARITY 4 Begin_Private_Pred allocate(3) get_y_variable(2,0) get_y_variable(1,1) get_y_variable(0,2) put_y_value(2,0) put_x_value(3,1) call(Pred_Name(X7072656D5F617267,2),1,1,"prem_arg",2) /* begin sub 1 */ put_y_value(2,0) put_integer(0,1) put_y_value(1,2) put_y_value(0,3) put_x_variable(4,4) deallocate execute(Pred_Name(X666F726D6174655F70726564,5),1,"formate_pred",5) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "prem_arg" #define PRED X7072656D5F617267 #define ARITY 2 Begin_Private_Pred try_me_else(1) get_structure(X2F,2,1,"/") unify_x_variable(2) unify_x_variable(1) builtin_1(compound,0) put_integer(1,5) put_x_variable(3,4) builtin_3(arg,5,0,4) builtin_1(nonvar,3) builtin_3(functor,3,2,1) proceed label(1) trust_me_else_fail proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "formate_corps" #define PRED X666F726D6174655F636F727073 #define ARITY 4 Begin_Private_Pred get_x_variable(4,1) get_x_variable(5,2) get_x_variable(6,3) put_integer(0,1) put_x_value(4,2) put_constant(X74,3,"t") put_nil(4) put_x_variable(7,7) execute(Pred_Name(X666F726D6174655F636F72707331,8),1,"formate_corps1",8) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "formate_corps1" #define PRED X666F726D6174655F636F72707331 #define ARITY 8 Begin_Private_Pred try_me_else(5) switch_on_term(G_label(1),G_label(4),fail,fail,G_label(2)) label(1) try_me_else(3) label(2) allocate(9) get_structure(X2C,2,0,",") unify_x_variable(0) unify_y_variable(8) get_y_variable(6,2) get_y_variable(4,4) get_y_variable(2,6) get_y_variable(1,7) get_y_bc_reg(0) put_y_value(6,2) put_y_variable(3,4) put_y_variable(7,6) put_y_variable(5,7) call(Pred_Name(X666F726D6174655F636F72707331,8),1,1,"formate_corps1",8) /* begin sub 1 */ cut_y(0) put_y_value(8,0) put_y_value(7,1) put_y_value(6,2) put_y_value(5,3) put_y_value(4,4) put_y_value(3,5) put_y_value(2,6) put_y_value(1,7) call(Pred_Name(X666F726D6174655F636F72707331,8),1,2,"formate_corps1",8) /* begin sub 2 */ cut_y(0) deallocate proceed label(3) trust_me_else_fail label(4) get_constant(X74727565,0,"true") get_x_value(4,5) get_x_value(1,6) get_x_value(3,7) proceed label(5) trust_me_else_fail allocate(6) get_y_variable(5,0) get_y_variable(3,2) get_list(5) unify_y_variable(2) unify_x_local_value(4) get_y_variable(4,6) get_y_variable(1,7) put_x_value(1,0) put_x_value(3,1) put_y_value(4,2) call(Pred_Name(X666F726D6174655F636F727073315F2461757831,3),1,3,"formate_corps1_$aux1",3) /* begin sub 3 */ put_y_value(5,0) put_y_value(4,1) put_y_value(3,2) put_y_value(2,3) put_y_variable(0,4) call(Pred_Name(X666F726D6174655F70726564,5),1,4,"formate_pred",5) /* begin sub 4 */ put_y_value(1,0) put_y_unsafe_value(0,1) deallocate execute(Pred_Name(X666F726D6174655F636F727073315F2461757832,2),1,"formate_corps1_$aux2",2) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "formate_corps1_$aux2" #define PRED X666F726D6174655F636F727073315F2461757832 #define ARITY 2 Begin_Private_Pred try_me_else(1) put_constant(X74,2,"t") builtin_2(term_eq,1,2) neck_cut get_constant(X66,0,"f") proceed label(1) trust_me_else_fail get_constant(X74,0,"t") proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "formate_corps1_$aux1" #define PRED X666F726D6174655F636F727073315F2461757831 #define ARITY 3 Begin_Private_Pred try_me_else(1) put_constant(X74,3,"t") builtin_2(term_eq,1,3) neck_cut math_load_x_value(0,0) function_1(inc,0,0) get_x_value(2,0) proceed label(1) trust_me_else_fail get_x_value(0,2) proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "formate_pred" #define PRED X666F726D6174655F70726564 #define ARITY 5 Begin_Private_Pred allocate(3) get_x_variable(6,0) get_structure(X70,4,3,"p") unify_x_local_value(1) unify_x_variable(0) unify_x_variable(5) unify_void(1) get_structure(X2F,2,0,"/") unify_y_variable(2) unify_y_variable(1) get_y_variable(0,4) put_y_value(2,3) put_y_value(1,0) builtin_3(functor,6,3,0) put_list(3) unify_void(1) unify_x_variable(0) builtin_2(term_univ,6,3) put_constant(X66,3,"f") put_x_value(5,4) call(Pred_Name(X666F726D6174655F6C73745F617267,5),1,1,"formate_lst_arg",5) /* begin sub 1 */ put_y_value(2,0) put_y_value(1,1) put_y_value(0,2) deallocate execute(Pred_Name(X666F726D6174655F707265645F2461757833,3),1,"formate_pred_$aux3",3) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "formate_pred_$aux3" #define PRED X666F726D6174655F707265645F2461757833 #define ARITY 3 Begin_Private_Pred try_me_else(1) allocate(2) get_y_variable(0,2) get_y_bc_reg(1) call(Pred_Name(X696E6C696E655F707265646963617465,2),1,1,"inline_predicate",2) /* begin sub 1 */ cut_y(1) put_y_value(0,0) get_constant(X74,0,"t") deallocate proceed label(1) trust_me_else_fail get_constant(X66,2,"f") proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "formate_lst_arg" #define PRED X666F726D6174655F6C73745F617267 #define ARITY 5 Begin_Private_Pred switch_on_term(G_label(1),G_label(2),fail,G_label(4),fail) label(1) try_me_else(3) label(2) get_nil(0) get_nil(4) proceed label(3) trust_me_else_fail label(4) allocate(6) get_list(0) unify_x_variable(0) unify_y_variable(4) get_y_variable(3,1) get_y_variable(2,2) get_y_variable(1,3) get_list(4) unify_x_variable(4) unify_y_variable(0) get_y_bc_reg(5) put_y_value(3,1) put_y_value(2,2) put_y_value(1,3) call(Pred_Name(X666F726D6174655F617267,5),1,1,"formate_arg",5) /* begin sub 1 */ cut_y(5) put_y_value(4,0) put_y_value(3,1) put_y_value(2,2) put_y_value(1,3) put_y_value(0,4) deallocate execute(Pred_Name(X666F726D6174655F6C73745F617267,5),1,"formate_lst_arg",5) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "formate_arg" #define PRED X666F726D6174655F617267 #define ARITY 5 Begin_Private_Pred try_me_else(1) allocate(4) get_x_variable(5,0) get_y_variable(3,1) get_y_variable(2,3) get_structure(X766172,3,4,"var") unify_y_variable(1) unify_y_variable(0) unify_void(1) builtin_1(var,5) put_x_value(2,0) put_structure(X76,2,1,"v") unify_x_local_value(5) unify_y_value(1) call(Pred_Name(X6C6F6F6B75705F766172,2),1,1,"lookup_var",2) /* begin sub 1 */ put_y_value(3,0) put_y_value(2,1) put_y_value(1,2) put_y_value(0,3) deallocate execute(Pred_Name(X666F726D6174655F6172675F2461757834,4),1,"formate_arg_$aux4",4) label(1) retry_me_else(6) switch_on_term(G_label(2),G_label(3),fail,G_label(5),fail) label(2) try_me_else(4) label(3) get_nil(0) get_constant(X6E696C,4,"nil") proceed label(4) trust_me_else_fail label(5) allocate(4) get_list(0) unify_x_variable(0) unify_y_variable(3) get_y_variable(2,1) get_y_variable(1,2) get_structure(X6C7374,2,4,"lst") unify_x_variable(4) unify_y_variable(0) put_y_value(2,1) put_y_value(1,2) put_constant(X74,3,"t") call(Pred_Name(X666F726D6174655F617267,5),1,2,"formate_arg",5) /* begin sub 2 */ put_y_value(3,0) put_y_value(2,1) put_y_value(1,2) put_constant(X74,3,"t") put_y_value(0,4) deallocate execute(Pred_Name(X666F726D6174655F617267,5),1,"formate_arg",5) label(6) trust_me_else_fail get_x_variable(3,4) put_x_variable(4,7) put_x_variable(5,6) builtin_3(functor,0,7,6) execute(Pred_Name(X666F726D6174655F6172675F2461757835,6),1,"formate_arg_$aux5",6) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "formate_arg_$aux4" #define PRED X666F726D6174655F6172675F2461757834 #define ARITY 4 Begin_Private_Pred try_me_else(1) builtin_1(var,2) neck_cut get_structure(X696776,5,2,"igv") unify_void(1) unify_x_local_value(0) unify_void(1) unify_x_local_value(1) unify_void(1) get_constant(X74,3,"t") proceed label(1) trust_me_else_fail get_x_variable(5,0) get_x_variable(1,3) get_structure(X696776,5,2,"igv") unify_x_variable(3) unify_x_variable(0) unify_void(1) unify_x_variable(2) unify_x_variable(4) get_constant(X66,1,"f") put_x_value(5,1) execute(Pred_Name(X646574656374655F7661725F59,5),1,"detecte_var_Y",5) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "formate_arg_$aux5" #define PRED X666F726D6174655F6172675F2461757835 #define ARITY 6 Begin_Private_Pred try_me_else(1) get_integer(0,5) neck_cut put_x_value(4,0) put_x_value(3,1) execute(Pred_Name(X747970655F61746F6D6963,2),1,"type_atomic",2) label(1) trust_me_else_fail allocate(4) get_x_variable(6,0) get_y_variable(3,3) get_y_variable(2,4) get_y_variable(1,5) put_list(3) unify_void(1) unify_x_variable(0) builtin_2(term_univ,6,3) put_constant(X74,3,"t") put_y_variable(0,4) call(Pred_Name(X666F726D6174655F6C73745F617267,5),1,1,"formate_lst_arg",5) /* begin sub 1 */ put_y_value(3,0) get_structure(X737463,2,0,"stc") unify_x_variable(0) unify_y_local_value(0) get_structure(X2F,2,0,"/") unify_y_local_value(2) unify_y_local_value(1) deallocate proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "lookup_var" #define PRED X6C6F6F6B75705F766172 #define ARITY 2 Begin_Private_Pred try_me_else(1) builtin_1(var,0) neck_cut get_list(0) unify_x_local_value(1) unify_void(1) proceed label(1) trust_me_else_fail switch_on_term(G_label(3),fail,fail,G_label(2),fail) label(2) try(4,1) /* begin sub 1 */ trust(6) label(3) try_me_else(5) label(4) get_list(0) unify_x_variable(0) unify_void(1) get_structure(X76,2,0,"v") unify_x_variable(0) unify_x_variable(2) get_structure(X76,2,1,"v") unify_x_variable(1) unify_x_value(2) builtin_2(term_eq,1,0) neck_cut proceed label(5) trust_me_else_fail label(6) get_list(0) unify_void(1) unify_x_variable(0) execute(Pred_Name(X6C6F6F6B75705F766172,2),1,"lookup_var",2) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "type_atomic" #define PRED X747970655F61746F6D6963 #define ARITY 2 Begin_Public_Pred try_me_else(1) get_structure(X637374,1,1,"cst") unify_x_local_value(0) builtin_1(atom,0) neck_cut proceed label(1) trust_me_else_fail get_structure(X696E74,1,1,"int") unify_x_local_value(0) builtin_1(integer,0) neck_cut proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "detecte_var_Y" #define PRED X646574656374655F7661725F59 #define ARITY 5 Begin_Private_Pred try_me_else(1) get_x_value(0,1) proceed label(1) retry_me_else(3) switch_on_term(G_label(2),fail,G_label(2),fail,fail) label(2) get_integer(0,0) get_integer(1,1) proceed label(3) trust_me_else_fail get_structure(X79,1,3,"y") unify_void(1) put_x_value(2,1) put_x_value(4,2) execute(Pred_Name(X646574656374655F64616E67657265757365,3),1,"detecte_dangereuse",3) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "detecte_dangereuse" #define PRED X646574656374655F64616E67657265757365 #define ARITY 3 Begin_Private_Pred try_me_else(1) get_constant(X74,2,"t") put_integer(0,2) builtin_2(term_neq,0,2) put_constant(X66,0,"f") builtin_2(term_eq,1,0) proceed label(1) trust_me_else_fail get_constant(X66,2,"f") proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "inline_predicate" #define PRED X696E6C696E655F707265646963617465 #define ARITY 2 Begin_Public_Pred put_constant(X6E6F5F696E6C696E65,4,"no_inline") put_x_variable(2,3) builtin_2(g_read,4,3) execute(Pred_Name(X696E6C696E655F707265646963617465,3),1,"inline_predicate",3) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "inline_predicate" #define PRED X696E6C696E655F707265646963617465 #define ARITY 3 Begin_Private_Pred switch_on_term(G_label(2),G_label(1),fail,fail,fail) label(1) switch_on_constant(1,"[($get_bc_reg,3),($cut,5),($dbg_true,7),(pragma_c,9),(calling_module_nb,11),(=,13),(var,15),(nonvar,17),(atom,19),(integer,21),(number,23),(atomic,25),(compound,27),(callable,29),(functor,31),(arg,33),(compare,35),(=..,37),(==,39),(\==,41),(@<,43),(@=<,45),(@>,47),(@>=,49),(is,51),(=:=,53),(=\=,55),(<,57),(=<,59),(>,61),(>=,63),(g_assign,65),(g_assignb,67),(g_link,69),(g_read,71),(g_array_size,73)]") label(2) try_me_else(4) label(3) get_constant(X246765745F62635F726567,0,"$get_bc_reg") get_integer(1,1) proceed label(4) retry_me_else(6) label(5) get_constant(X24637574,0,"$cut") get_integer(1,1) proceed label(6) retry_me_else(8) label(7) get_constant(X246462675F74727565,0,"$dbg_true") get_integer(0,1) proceed label(8) retry_me_else(10) label(9) get_constant(X707261676D615F63,0,"pragma_c") get_integer(1,1) proceed label(10) retry_me_else(12) label(11) get_constant(X63616C6C696E675F6D6F64756C655F6E62,0,"calling_module_nb") get_integer(1,1) proceed label(12) retry_me_else(14) label(13) get_constant(X3D,0,"=") get_integer(2,1) get_constant(X66,2,"f") proceed label(14) retry_me_else(16) label(15) get_constant(X766172,0,"var") get_integer(1,1) get_constant(X66,2,"f") proceed label(16) retry_me_else(18) label(17) get_constant(X6E6F6E766172,0,"nonvar") get_integer(1,1) get_constant(X66,2,"f") proceed label(18) retry_me_else(20) label(19) get_constant(X61746F6D,0,"atom") get_integer(1,1) get_constant(X66,2,"f") proceed label(20) retry_me_else(22) label(21) get_constant(X696E7465676572,0,"integer") get_integer(1,1) get_constant(X66,2,"f") proceed label(22) retry_me_else(24) label(23) get_constant(X6E756D626572,0,"number") get_integer(1,1) get_constant(X66,2,"f") proceed label(24) retry_me_else(26) label(25) get_constant(X61746F6D6963,0,"atomic") get_integer(1,1) get_constant(X66,2,"f") proceed label(26) retry_me_else(28) label(27) get_constant(X636F6D706F756E64,0,"compound") get_integer(1,1) get_constant(X66,2,"f") proceed label(28) retry_me_else(30) label(29) get_constant(X63616C6C61626C65,0,"callable") get_integer(1,1) get_constant(X66,2,"f") proceed label(30) retry_me_else(32) label(31) get_constant(X66756E63746F72,0,"functor") get_integer(3,1) get_constant(X66,2,"f") proceed label(32) retry_me_else(34) label(33) get_constant(X617267,0,"arg") get_integer(3,1) get_constant(X66,2,"f") proceed label(34) retry_me_else(36) label(35) get_constant(X636F6D70617265,0,"compare") get_integer(3,1) get_constant(X66,2,"f") proceed label(36) retry_me_else(38) label(37) get_constant(X3D2E2E,0,"=..") get_integer(2,1) get_constant(X66,2,"f") proceed label(38) retry_me_else(40) label(39) get_constant(X3D3D,0,"==") get_integer(2,1) get_constant(X66,2,"f") proceed label(40) retry_me_else(42) label(41) get_constant(X5C3D3D,0,"\\==") get_integer(2,1) get_constant(X66,2,"f") proceed label(42) retry_me_else(44) label(43) get_constant(X403C,0,"@<") get_integer(2,1) get_constant(X66,2,"f") proceed label(44) retry_me_else(46) label(45) get_constant(X403D3C,0,"@=<") get_integer(2,1) get_constant(X66,2,"f") proceed label(46) retry_me_else(48) label(47) get_constant(X403E,0,"@>") get_integer(2,1) get_constant(X66,2,"f") proceed label(48) retry_me_else(50) label(49) get_constant(X403E3D,0,"@>=") get_integer(2,1) get_constant(X66,2,"f") proceed label(50) retry_me_else(52) label(51) get_constant(X6973,0,"is") get_integer(2,1) get_constant(X66,2,"f") proceed label(52) retry_me_else(54) label(53) get_constant(X3D3A3D,0,"=:=") get_integer(2,1) get_constant(X66,2,"f") proceed label(54) retry_me_else(56) label(55) get_constant(X3D5C3D,0,"=\\=") get_integer(2,1) get_constant(X66,2,"f") proceed label(56) retry_me_else(58) label(57) get_constant(X3C,0,"<") get_integer(2,1) get_constant(X66,2,"f") proceed label(58) retry_me_else(60) label(59) get_constant(X3D3C,0,"=<") get_integer(2,1) get_constant(X66,2,"f") proceed label(60) retry_me_else(62) label(61) get_constant(X3E,0,">") get_integer(2,1) get_constant(X66,2,"f") proceed label(62) retry_me_else(64) label(63) get_constant(X3E3D,0,">=") get_integer(2,1) get_constant(X66,2,"f") proceed label(64) retry_me_else(66) label(65) get_constant(X675F61737369676E,0,"g_assign") get_integer(2,1) get_constant(X66,2,"f") proceed label(66) retry_me_else(68) label(67) get_constant(X675F61737369676E62,0,"g_assignb") get_integer(2,1) get_constant(X66,2,"f") proceed label(68) retry_me_else(70) label(69) get_constant(X675F6C696E6B,0,"g_link") get_integer(2,1) get_constant(X66,2,"f") proceed label(70) retry_me_else(72) label(71) get_constant(X675F72656164,0,"g_read") get_integer(2,1) get_constant(X66,2,"f") proceed label(72) trust_me_else_fail label(73) get_constant(X675F61727261795F73697A65,0,"g_array_size") get_integer(2,1) get_constant(X66,2,"f") proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY Begin_Init_Tables(wamcc2) Define_Atom(X5B5D,"[]") Define_Atom(X666F726D61745F696E7465726E65,"format_interne") Define_Atom(X3A2D,":-") Define_Atom(X666F726D6174655F74657465,"formate_tete") Define_Atom(X7072656D5F617267,"prem_arg") Define_Atom(X2F,"/") Define_Atom(X666F726D6174655F636F727073,"formate_corps") Define_Atom(X74,"t") Define_Atom(X666F726D6174655F636F72707331,"formate_corps1") Define_Atom(X2C,",") Define_Atom(X74727565,"true") Define_Atom(X666F726D6174655F636F727073315F2461757832,"formate_corps1_$aux2") Define_Atom(X66,"f") Define_Atom(X666F726D6174655F636F727073315F2461757831,"formate_corps1_$aux1") Define_Atom(X666F726D6174655F70726564,"formate_pred") Define_Atom(X70,"p") Define_Atom(X666F726D6174655F707265645F2461757833,"formate_pred_$aux3") Define_Atom(X666F726D6174655F6C73745F617267,"formate_lst_arg") Define_Atom(X666F726D6174655F617267,"formate_arg") Define_Atom(X766172,"var") Define_Atom(X76,"v") Define_Atom(X6E696C,"nil") Define_Atom(X6C7374,"lst") Define_Atom(X666F726D6174655F6172675F2461757834,"formate_arg_$aux4") Define_Atom(X696776,"igv") Define_Atom(X666F726D6174655F6172675F2461757835,"formate_arg_$aux5") Define_Atom(X737463,"stc") Define_Atom(X6C6F6F6B75705F766172,"lookup_var") Define_Atom(X747970655F61746F6D6963,"type_atomic") Define_Atom(X637374,"cst") Define_Atom(X696E74,"int") Define_Atom(X646574656374655F7661725F59,"detecte_var_Y") Define_Atom(X79,"y") Define_Atom(X646574656374655F64616E67657265757365,"detecte_dangereuse") Define_Atom(X696E6C696E655F707265646963617465,"inline_predicate") Define_Atom(X6E6F5F696E6C696E65,"no_inline") Define_Atom(X246765745F62635F726567,"$get_bc_reg") Define_Atom(X24637574,"$cut") Define_Atom(X246462675F74727565,"$dbg_true") Define_Atom(X707261676D615F63,"pragma_c") Define_Atom(X63616C6C696E675F6D6F64756C655F6E62,"calling_module_nb") Define_Atom(X3D,"=") Define_Atom(X6E6F6E766172,"nonvar") Define_Atom(X61746F6D,"atom") Define_Atom(X696E7465676572,"integer") Define_Atom(X6E756D626572,"number") Define_Atom(X61746F6D6963,"atomic") Define_Atom(X636F6D706F756E64,"compound") Define_Atom(X63616C6C61626C65,"callable") Define_Atom(X66756E63746F72,"functor") Define_Atom(X617267,"arg") Define_Atom(X636F6D70617265,"compare") Define_Atom(X3D2E2E,"=..") Define_Atom(X3D3D,"==") Define_Atom(X5C3D3D,"\\==") Define_Atom(X403C,"@<") Define_Atom(X403D3C,"@=<") Define_Atom(X403E,"@>") Define_Atom(X403E3D,"@>=") Define_Atom(X6973,"is") Define_Atom(X3D3A3D,"=:=") Define_Atom(X3D5C3D,"=\\=") Define_Atom(X3C,"<") Define_Atom(X3D3C,"=<") Define_Atom(X3E,">") Define_Atom(X3E3D,">=") Define_Atom(X675F61737369676E,"g_assign") Define_Atom(X675F61737369676E62,"g_assignb") Define_Atom(X675F6C696E6B,"g_link") Define_Atom(X675F72656164,"g_read") Define_Atom(X675F61727261795F73697A65,"g_array_size") Define_Pred(X666F726D61745F696E7465726E65,5,1) Define_Pred(X666F726D6174655F74657465,4,0) Define_Pred(X7072656D5F617267,2,0) Define_Pred(X666F726D6174655F636F727073,4,0) Define_Pred(X666F726D6174655F636F72707331,8,0) Define_Pred(X666F726D6174655F636F727073315F2461757832,2,0) Define_Pred(X666F726D6174655F636F727073315F2461757831,3,0) Define_Pred(X666F726D6174655F70726564,5,0) Define_Pred(X666F726D6174655F707265645F2461757833,3,0) Define_Pred(X666F726D6174655F6C73745F617267,5,0) Define_Pred(X666F726D6174655F617267,5,0) Define_Pred(X666F726D6174655F6172675F2461757834,4,0) Define_Pred(X666F726D6174655F6172675F2461757835,6,0) Define_Pred(X6C6F6F6B75705F766172,2,0) Define_Pred(X747970655F61746F6D6963,2,1) Define_Pred(X646574656374655F7661725F59,5,0) Define_Pred(X646574656374655F64616E67657265757365,3,0) Define_Pred(X696E6C696E655F707265646963617465,2,1) Define_Pred(X696E6C696E655F707265646963617465,3,0) Define_Switch_CST_Table(Swt_Table_Name(X696E6C696E655F707265646963617465,3,1,cst),36) Define_Switch_CST(X246765745F62635F726567,Label_Pred_Name(X696E6C696E655F707265646963617465,3,3)) Define_Switch_CST(X24637574,Label_Pred_Name(X696E6C696E655F707265646963617465,3,5)) Define_Switch_CST(X246462675F74727565,Label_Pred_Name(X696E6C696E655F707265646963617465,3,7)) Define_Switch_CST(X707261676D615F63,Label_Pred_Name(X696E6C696E655F707265646963617465,3,9)) Define_Switch_CST(X63616C6C696E675F6D6F64756C655F6E62,Label_Pred_Name(X696E6C696E655F707265646963617465,3,11)) Define_Switch_CST(X3D,Label_Pred_Name(X696E6C696E655F707265646963617465,3,13)) Define_Switch_CST(X766172,Label_Pred_Name(X696E6C696E655F707265646963617465,3,15)) Define_Switch_CST(X6E6F6E766172,Label_Pred_Name(X696E6C696E655F707265646963617465,3,17)) Define_Switch_CST(X61746F6D,Label_Pred_Name(X696E6C696E655F707265646963617465,3,19)) Define_Switch_CST(X696E7465676572,Label_Pred_Name(X696E6C696E655F707265646963617465,3,21)) Define_Switch_CST(X6E756D626572,Label_Pred_Name(X696E6C696E655F707265646963617465,3,23)) Define_Switch_CST(X61746F6D6963,Label_Pred_Name(X696E6C696E655F707265646963617465,3,25)) Define_Switch_CST(X636F6D706F756E64,Label_Pred_Name(X696E6C696E655F707265646963617465,3,27)) Define_Switch_CST(X63616C6C61626C65,Label_Pred_Name(X696E6C696E655F707265646963617465,3,29)) Define_Switch_CST(X66756E63746F72,Label_Pred_Name(X696E6C696E655F707265646963617465,3,31)) Define_Switch_CST(X617267,Label_Pred_Name(X696E6C696E655F707265646963617465,3,33)) Define_Switch_CST(X636F6D70617265,Label_Pred_Name(X696E6C696E655F707265646963617465,3,35)) Define_Switch_CST(X3D2E2E,Label_Pred_Name(X696E6C696E655F707265646963617465,3,37)) Define_Switch_CST(X3D3D,Label_Pred_Name(X696E6C696E655F707265646963617465,3,39)) Define_Switch_CST(X5C3D3D,Label_Pred_Name(X696E6C696E655F707265646963617465,3,41)) Define_Switch_CST(X403C,Label_Pred_Name(X696E6C696E655F707265646963617465,3,43)) Define_Switch_CST(X403D3C,Label_Pred_Name(X696E6C696E655F707265646963617465,3,45)) Define_Switch_CST(X403E,Label_Pred_Name(X696E6C696E655F707265646963617465,3,47)) Define_Switch_CST(X403E3D,Label_Pred_Name(X696E6C696E655F707265646963617465,3,49)) Define_Switch_CST(X6973,Label_Pred_Name(X696E6C696E655F707265646963617465,3,51)) Define_Switch_CST(X3D3A3D,Label_Pred_Name(X696E6C696E655F707265646963617465,3,53)) Define_Switch_CST(X3D5C3D,Label_Pred_Name(X696E6C696E655F707265646963617465,3,55)) Define_Switch_CST(X3C,Label_Pred_Name(X696E6C696E655F707265646963617465,3,57)) Define_Switch_CST(X3D3C,Label_Pred_Name(X696E6C696E655F707265646963617465,3,59)) Define_Switch_CST(X3E,Label_Pred_Name(X696E6C696E655F707265646963617465,3,61)) Define_Switch_CST(X3E3D,Label_Pred_Name(X696E6C696E655F707265646963617465,3,63)) Define_Switch_CST(X675F61737369676E,Label_Pred_Name(X696E6C696E655F707265646963617465,3,65)) Define_Switch_CST(X675F61737369676E62,Label_Pred_Name(X696E6C696E655F707265646963617465,3,67)) Define_Switch_CST(X675F6C696E6B,Label_Pred_Name(X696E6C696E655F707265646963617465,3,69)) Define_Switch_CST(X675F72656164,Label_Pred_Name(X696E6C696E655F707265646963617465,3,71)) Define_Switch_CST(X675F61727261795F73697A65,Label_Pred_Name(X696E6C696E655F707265646963617465,3,73)) Init_Usr_File End_Init_Tables Begin_Exec_Directives(wamcc2) End_Exec_Directives