/**************************************************************************** Prolog to Wam Compiler INRIA Rocquencourt - ChLoE Project Version 2.21 Daniel Diaz - 1994 File : wamcc.c Main : main([wamcc0,wamcc1,wamcc2,wamcc3,wamcc4,wamcc5,wamcc6,wamcc7,wamcc8]) ****************************************************************************/ #define FAST_MATH #define DEBUG_LEVEL 0 #include "wam_engine.h" #include "wamcc.h" #include "wamcc.usr" #define ASCII_PRED "wamcc" #define PRED X77616D6363 #define ARITY 1 Begin_Private_Pred execute(Pred_Name(X77616D63635F2461757831,1),1,"wamcc_$aux1",1) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "wamcc_$aux1" #define PRED X77616D63635F2461757831 #define ARITY 1 Begin_Private_Pred try_me_else(1) allocate(2) get_y_bc_reg(1) put_y_variable(0,1) call(Pred_Name(X636D645F6C696E65,2),1,1,"cmd_line",2) /* begin sub 1 */ cut_y(1) call(Pred_Name(X77616D63635F2461757832,0),1,2,"wamcc_$aux2",0) /* begin sub 2 */ put_y_unsafe_value(0,0) deallocate execute(Pred_Name(X636F6D70696C6531,1),1,"compile1",1) label(1) trust_me_else_fail allocate(0) call(Pred_Name(X646973706C61795F76657273696F6E,0),1,3,"display_version",0) /* begin sub 3 */ call(Pred_Name(X646973706C61795F68656C70,0),1,4,"display_help",0) /* begin sub 4 */ put_constant(X,0,"") deallocate execute(Pred_Name(X6572726F72,1),1,"error",1) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "wamcc_$aux2" #define PRED X77616D63635F2461757832 #define ARITY 0 Begin_Private_Pred try_me_else(1) put_constant(X766572626F7365,1,"verbose") put_constant(X74,0,"t") builtin_2(g_read,1,0) neck_cut execute(Pred_Name(X646973706C61795F76657273696F6E,0),1,"display_version",0) label(1) trust_me_else_fail proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "compile1" #define PRED X636F6D70696C6531 #define ARITY 1 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) neck_cut proceed label(3) trust_me_else_fail label(4) allocate(1) get_list(0) unify_x_variable(0) unify_y_variable(0) neck_cut call(Pred_Name(X636F6D70696C65315F2461757833,1),1,1,"compile1_$aux3",1) /* begin sub 1 */ put_y_value(0,0) deallocate execute(Pred_Name(X636F6D70696C6531,1),1,"compile1",1) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "compile1_$aux3" #define PRED X636F6D70696C65315F2461757833 #define ARITY 1 Begin_Private_Pred try_me_else(1) allocate(0) call(Pred_Name(X636F6D70696C6532,1),1,1,"compile2",1) /* begin sub 1 */ fail label(1) trust_me_else_fail proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "compile2" #define PRED X636F6D70696C6532 #define ARITY 1 Begin_Private_Pred try_me_else(1) allocate(3) get_y_bc_reg(0) call(Pred_Name(X637265655F6E6F6D735F666963,1),1,1,"cree_noms_fic",1) /* begin sub 1 */ call(Pred_Name(X636F6D70696C65325F2461757834,0),1,2,"compile2_$aux4",0) /* begin sub 2 */ put_constant(X617578,1,"aux") put_integer(1,0) builtin_2(g_assign,1,0) put_y_variable(2,0) put_y_variable(1,1) call(Pred_Name(X6C6972655F66696368696572,2),0,3,"lire_fichier",2) /* begin sub 3 */ put_y_value(2,0) put_y_value(1,1) call(Pred_Name(X636F6D70696C6572,2),1,4,"compiler",2) /* begin sub 4 */ cut_y(0) deallocate proceed label(1) trust_me_else_fail allocate(0) call(Pred_Name(X7365656E,0),0,5,"seen",0) /* begin sub 5 */ call(Pred_Name(X746F6C64,0),0,6,"told",0) /* begin sub 6 */ put_constant(X20202020202020202E2E2E204661696C,0," ... Fail") deallocate execute(Pred_Name(X6572726F72,1),1,"error",1) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "compile2_$aux4" #define PRED X636F6D70696C65325F2461757834 #define ARITY 0 Begin_Private_Pred try_me_else(1) put_constant(X766572626F7365,1,"verbose") put_constant(X74,0,"t") builtin_2(g_read,1,0) neck_cut put_constant(X6669635F696E,1,"fic_in") put_x_variable(2,0) builtin_2(g_read,1,0) put_constant(X436F6D70696C696E67207E772E2E2E7E6E,0,"Compiling ~w...~n") put_list(1) unify_x_value(2) unify_nil execute(Pred_Name(X666F726D617461,2),0,"formata",2) label(1) trust_me_else_fail proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "cree_noms_fic" #define PRED X637265655F6E6F6D735F666963 #define ARITY 1 Begin_Private_Pred allocate(8) get_y_variable(6,0) put_y_value(6,0) put_y_variable(7,1) call(Pred_Name(X61746F6D5F6C656E677468,2),0,1,"atom_length",2) /* begin sub 1 */ math_load_y_value(7,1) put_integer(2,0) function_2(sub,1,1,0) put_y_value(6,0) put_y_variable(5,2) put_y_variable(3,3) call(Pred_Name(X637265655F6E6F6D735F6669635F2461757835,4),1,2,"cree_noms_fic_$aux5",4) /* begin sub 2 */ put_y_value(5,0) put_y_variable(2,1) put_y_variable(1,2) put_y_variable(0,3) call(Pred_Name(X637265655F6E6F6D735F6669635F2461757836,4),1,3,"cree_noms_fic_$aux6",4) /* begin sub 3 */ put_y_value(5,0) put_y_variable(4,1) call(Pred_Name(X626173655F6E616D65,2),1,4,"base_name",2) /* begin sub 4 */ put_constant(X6D6F64756C65,1,"module") put_y_unsafe_value(4,0) builtin_2(g_assign,1,0) put_constant(X6669635F696E,1,"fic_in") put_y_unsafe_value(3,0) builtin_2(g_assign,1,0) put_constant(X6669635F6F7574,1,"fic_out") put_y_unsafe_value(2,0) builtin_2(g_assign,1,0) put_constant(X6669635F68,1,"fic_h") put_y_unsafe_value(1,0) builtin_2(g_assign,1,0) put_constant(X6669635F757372,1,"fic_usr") put_y_unsafe_value(0,0) builtin_2(g_assign,1,0) deallocate proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "cree_noms_fic_$aux6" #define PRED X637265655F6E6F6D735F6669635F2461757836 #define ARITY 4 Begin_Private_Pred try_me_else(1) allocate(3) get_y_variable(1,0) get_x_variable(4,1) get_y_variable(2,2) get_y_variable(0,3) put_constant(X6D6F64655F63,1,"mode_c") put_constant(X74,0,"t") builtin_2(g_read,1,0) neck_cut put_y_value(1,0) put_constant(X2E63,1,".c") put_x_value(4,2) call(Pred_Name(X61746F6D5F636F6E636174,3),0,1,"atom_concat",3) /* begin sub 1 */ put_y_value(1,0) put_constant(X2E68,1,".h") put_y_value(2,2) call(Pred_Name(X61746F6D5F636F6E636174,3),0,2,"atom_concat",3) /* begin sub 2 */ put_y_value(1,0) put_constant(X2E757372,1,".usr") put_y_value(0,2) deallocate execute(Pred_Name(X61746F6D5F636F6E636174,3),0,"atom_concat",3) label(1) trust_me_else_fail allocate(2) get_x_variable(4,1) get_y_variable(1,2) get_y_variable(0,3) put_constant(X2E77616D,1,".wam") put_x_value(4,2) call(Pred_Name(X61746F6D5F636F6E636174,3),0,3,"atom_concat",3) /* begin sub 3 */ put_y_value(1,0) get_constant(X6E756C6C,0,"null") put_y_value(0,0) get_constant(X6E756C6C,0,"null") deallocate proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "cree_noms_fic_$aux5" #define PRED X637265655F6E6F6D735F6669635F2461757835 #define ARITY 4 Begin_Private_Pred try_me_else(1) allocate(5) get_y_variable(0,0) get_y_variable(3,1) get_y_variable(2,2) get_y_variable(1,3) get_y_bc_reg(4) put_y_value(0,0) put_y_value(3,1) put_integer(3,2) put_constant(X2E706C,3,".pl") call(Pred_Name(X7375625F61746F6D,4),0,1,"sub_atom",4) /* begin sub 1 */ cut_y(4) math_load_y_value(3,0) function_1(dec,2,0) put_y_value(0,0) put_integer(1,1) put_y_value(2,3) call(Pred_Name(X7375625F61746F6D,4),0,2,"sub_atom",4) /* begin sub 2 */ put_y_value(1,0) get_y_value(0,0) deallocate proceed label(1) trust_me_else_fail get_x_value(0,2) put_x_value(2,0) put_constant(X2E706C,1,".pl") put_x_value(3,2) execute(Pred_Name(X61746F6D5F636F6E636174,3),0,"atom_concat",3) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "base_name" #define PRED X626173655F6E616D65 #define ARITY 2 Begin_Private_Pred execute(Pred_Name(X626173655F6E616D655F2461757837,2),1,"base_name_$aux7",2) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "base_name_$aux7" #define PRED X626173655F6E616D655F2461757837 #define ARITY 2 Begin_Private_Pred try_me_else(1) allocate(6) get_y_variable(2,0) get_y_variable(0,1) get_y_bc_reg(5) put_y_value(2,0) put_y_variable(3,1) put_integer(1,2) put_constant(X2F,3,"/") call(Pred_Name(X7375625F61746F6D,4),0,1,"sub_atom",4) /* begin sub 1 */ cut_y(5) put_y_value(2,0) put_y_variable(4,1) call(Pred_Name(X61746F6D5F6C656E677468,2),0,2,"atom_length",2) /* begin sub 2 */ math_load_y_value(3,0) function_1(inc,1,0) math_load_y_value(4,2) math_load_y_value(3,0) function_2(sub,2,2,0) put_y_value(2,0) put_y_variable(1,3) call(Pred_Name(X7375625F61746F6D,4),0,3,"sub_atom",4) /* begin sub 3 */ put_y_unsafe_value(1,0) put_y_value(0,1) deallocate execute(Pred_Name(X626173655F6E616D65,2),1,"base_name",2) label(1) trust_me_else_fail get_x_value(0,1) proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "cmd_line" #define PRED X636D645F6C696E65 #define ARITY 2 Begin_Private_Pred allocate(2) get_y_variable(0,1) put_y_variable(1,1) call(Pred_Name(X636D645F6C696E655F2461757838,2),1,1,"cmd_line_$aux8",2) /* begin sub 1 */ call(Pred_Name(X7365745F64656661756C745F6F7074696F6E73,0),1,2,"set_default_options",0) /* begin sub 2 */ put_y_unsafe_value(1,0) put_y_value(0,1) deallocate execute(Pred_Name(X636D645F6C696E6531,2),1,"cmd_line1",2) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "cmd_line_$aux8" #define PRED X636D645F6C696E655F2461757838 #define ARITY 2 Begin_Private_Pred try_me_else(1) allocate(3) get_y_variable(0,0) get_y_variable(1,1) get_y_bc_reg(2) put_y_value(0,0) call(Pred_Name(X636D645F6C696E655F2461757839,1),1,1,"cmd_line_$aux9",1) /* begin sub 1 */ cut_y(2) put_y_value(1,0) get_y_value(0,0) deallocate proceed label(1) trust_me_else_fail get_list(1) unify_x_local_value(0) unify_nil proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "cmd_line_$aux9" #define PRED X636D645F6C696E655F2461757839 #define ARITY 1 Begin_Private_Pred try_me_else(1) get_list(0) unify_void(2) proceed label(1) trust_me_else_fail put_nil(1) builtin_2(term_eq,0,1) proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "cmd_line1" #define PRED X636D645F6C696E6531 #define ARITY 2 Begin_Private_Pred switch_on_term(G_label(2),G_label(3),fail,G_label(1),fail) label(1) try(5,1) /* begin sub 1 */ trust(7) label(2) try_me_else(4) label(3) get_nil(0) get_nil(1) proceed label(4) retry_me_else(6) label(5) allocate(3) get_list(0) unify_x_variable(0) unify_y_variable(1) get_y_variable(0,1) get_x_bc_reg(1) put_y_variable(2,2) call(Pred_Name(X636D645F6C696E65315F246175783130,3),1,2,"cmd_line1_$aux10",3) /* begin sub 2 */ put_y_value(2,0) call(Pred_Name(X7472616974655F6F7074,1),1,3,"traite_opt",1) /* begin sub 3 */ put_y_value(1,0) put_y_value(0,1) deallocate execute(Pred_Name(X636D645F6C696E6531,2),1,"cmd_line1",2) label(6) trust_me_else_fail label(7) get_list(0) unify_x_variable(2) unify_x_variable(0) get_list(1) unify_x_value(2) unify_x_variable(1) execute(Pred_Name(X636D645F6C696E6531,2),1,"cmd_line1",2) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "cmd_line1_$aux10" #define PRED X636D645F6C696E65315F246175783130 #define ARITY 3 Begin_Private_Pred try_me_else(1) get_structure(X2D,1,0,"-") unify_x_local_value(2) cut_x(1) proceed label(1) trust_me_else_fail allocate(4) get_y_variable(1,0) get_y_variable(3,1) get_y_variable(0,2) put_y_value(1,0) put_integer(1,1) put_integer(1,2) put_constant(X2D,3,"-") call(Pred_Name(X7375625F61746F6D,4),0,1,"sub_atom",4) /* begin sub 1 */ cut_y(3) put_y_value(1,0) put_y_variable(2,1) call(Pred_Name(X61746F6D5F6C656E677468,2),0,2,"atom_length",2) /* begin sub 2 */ math_load_y_value(2,0) function_1(dec,2,0) put_y_value(1,0) put_integer(2,1) put_y_value(0,3) deallocate execute(Pred_Name(X7375625F61746F6D,4),0,"sub_atom",4) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "set_default_options" #define PRED X7365745F64656661756C745F6F7074696F6E73 #define ARITY 0 Begin_Private_Pred put_constant(X6D6F64655F63,1,"mode_c") put_constant(X74,0,"t") builtin_2(g_assign,1,0) put_constant(X666173745F6D617468,1,"fast_math") put_constant(X66,0,"f") builtin_2(g_assign,1,0) put_constant(X6E6F5F737461636B5F74657374,1,"no_stack_test") put_constant(X66,0,"f") builtin_2(g_assign,1,0) put_constant(X6E6F5F696E6C696E65,1,"no_inline") put_constant(X66,0,"f") builtin_2(g_assign,1,0) put_constant(X6465627567,1,"debug") put_integer(0,0) builtin_2(g_assign,1,0) put_constant(X766572626F7365,1,"verbose") put_constant(X66,0,"f") builtin_2(g_assign,1,0) proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "traite_opt" #define PRED X7472616974655F6F7074 #define ARITY 1 Begin_Private_Pred switch_on_term(G_label(2),G_label(1),fail,fail,fail) label(1) switch_on_constant(1,"[(c,3),(wam,5),(fast_math,7),(no_stack_test,9),(no_inline,11),(dbg0,13),(dbg,15),(dbg1,17),(dbg2,19),(v,21)]") label(2) try_me_else(4) label(3) get_constant(X63,0,"c") put_constant(X6D6F64655F63,1,"mode_c") put_constant(X74,0,"t") builtin_2(g_assign,1,0) proceed label(4) retry_me_else(6) label(5) get_constant(X77616D,0,"wam") put_constant(X6D6F64655F63,1,"mode_c") put_constant(X66,0,"f") builtin_2(g_assign,1,0) proceed label(6) retry_me_else(8) label(7) get_constant(X666173745F6D617468,0,"fast_math") put_constant(X666173745F6D617468,1,"fast_math") put_constant(X74,0,"t") builtin_2(g_assign,1,0) proceed label(8) retry_me_else(10) label(9) get_constant(X6E6F5F737461636B5F74657374,0,"no_stack_test") put_constant(X6E6F5F737461636B5F74657374,1,"no_stack_test") put_constant(X74,0,"t") builtin_2(g_assign,1,0) proceed label(10) retry_me_else(12) label(11) get_constant(X6E6F5F696E6C696E65,0,"no_inline") put_constant(X6E6F5F696E6C696E65,1,"no_inline") put_constant(X74,0,"t") builtin_2(g_assign,1,0) proceed label(12) retry_me_else(14) label(13) get_constant(X64626730,0,"dbg0") put_constant(X6465627567,1,"debug") put_integer(0,0) builtin_2(g_assign,1,0) proceed label(14) retry_me_else(16) label(15) get_constant(X646267,0,"dbg") put_constant(X6465627567,1,"debug") put_integer(1,0) builtin_2(g_assign,1,0) proceed label(16) retry_me_else(18) label(17) get_constant(X64626731,0,"dbg1") put_constant(X6465627567,1,"debug") put_integer(1,0) builtin_2(g_assign,1,0) proceed label(18) retry_me_else(20) label(19) get_constant(X64626732,0,"dbg2") put_constant(X6465627567,1,"debug") put_integer(2,0) builtin_2(g_assign,1,0) proceed label(20) trust_me_else_fail label(21) get_constant(X76,0,"v") put_constant(X766572626F7365,1,"verbose") put_constant(X74,0,"t") builtin_2(g_assign,1,0) proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "display_version" #define PRED X646973706C61795F76657273696F6E #define ARITY 0 Begin_Public_Pred allocate(8) neck_cut put_y_variable(7,0) get_constant(X50726F6C6F6720746F2057616D20436F6D70696C6572,0,"Prolog to Wam Compiler") put_y_variable(6,0) call(Pred_Name(X77616D5F76657273696F6E,1),0,1,"wam_version",1) /* begin sub 1 */ put_y_variable(0,0) call(Pred_Name(X77616D5F79656172,1),0,2,"wam_year",1) /* begin sub 2 */ put_y_value(7,0) put_y_variable(3,1) call(Pred_Name(X6E616D65,2),0,3,"name",2) /* begin sub 3 */ put_y_value(3,0) put_y_variable(5,1) call(Pred_Name(X6C656E677468,2),0,4,"length",2) /* begin sub 4 */ put_y_value(6,0) put_y_variable(2,1) call(Pred_Name(X6E616D65,2),0,5,"name",2) /* begin sub 5 */ put_y_value(2,0) put_y_variable(4,1) call(Pred_Name(X6C656E677468,2),0,6,"length",2) /* begin sub 6 */ put_integer(40,1) math_load_y_value(5,0) function_2(sub,3,1,0) put_integer(45,1) math_load_y_value(4,0) function_2(sub,0,1,0) get_y_variable(1,0) put_constant(X7E737E2A63202020494E52494120526F637175656E636F757274202D2043684C6F452050726F6A6563747E6E,0,"~s~*c INRIA Rocquencourt - ChLoE Project~n") put_list(1) unify_integer(32) unify_nil put_list(2) unify_x_value(3) unify_x_value(1) put_list(1) unify_y_local_value(3) unify_x_value(2) call(Pred_Name(X666F726D617461,2),0,7,"formata",2) /* begin sub 7 */ put_constant(X56657273696F6E207E737E2A6320202020202044616E69656C204469617A202D207E647E6E7E6E,0,"Version ~s~*c Daniel Diaz - ~d~n~n") put_list(2) unify_y_local_value(0) unify_nil put_list(1) unify_integer(32) unify_x_value(2) put_list(2) unify_y_local_value(1) unify_x_value(1) put_list(1) unify_y_local_value(2) unify_x_value(2) deallocate execute(Pred_Name(X666F726D617461,2),0,"formata",2) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "display_help" #define PRED X646973706C61795F68656C70 #define ARITY 0 Begin_Private_Pred allocate(1) put_y_variable(0,0) call(Pred_Name(X636F6D70696C65725F6E616D65,1),0,1,"compiler_name",1) /* begin sub 1 */ put_constant(X55736167653A7E6E7E6E,0,"Usage:~n~n") put_nil(1) call(Pred_Name(X666F726D617461,2),0,2,"formata",2) /* begin sub 2 */ put_constant(X2020207E77205B6F7074696F6E207C2066696C656E616D655D2E2E2E7E6E7E6E,0," ~w [option | filename]...~n~n") put_list(1) unify_y_local_value(0) unify_nil call(Pred_Name(X666F726D617461,2),0,3,"formata",2) /* begin sub 3 */ put_constant(X4F7074696F6E733A7E6E7E6E,0,"Options:~n~n") put_nil(1) call(Pred_Name(X666F726D617461,2),0,4,"formata",2) /* begin sub 4 */ put_constant(X2020202D632020202020202020202020202070726F647563652061202E6320202066696C657E6E,0," -c produce a .c file~n") put_nil(1) call(Pred_Name(X666F726D617461,2),0,5,"formata",2) /* begin sub 5 */ put_constant(X2020202D77616D202020202020202020202070726F647563652061202E77616D2066696C657E6E,0," -wam produce a .wam file~n") put_nil(1) call(Pred_Name(X666F726D617461,2),0,6,"formata",2) /* begin sub 6 */ put_constant(X2020202D666173745F6D6174682020202020646F206E6F74207465737420747970657320696E206D6174682065787072657373696F6E737E6E,0," -fast_math do not test types in math expressions~n") put_nil(1) call(Pred_Name(X666F726D617461,2),0,7,"formata",2) /* begin sub 7 */ put_constant(X2020202D6E6F5F737461636B5F7465737420646F206E6F7420696E636C756465206164646974696F6E616C20636F646520746F207465737420737461636B206F766572666C6F777E6E,0," -no_stack_test do not include additional code to test stack overflow~n") put_nil(1) call(Pred_Name(X666F726D617461,2),0,8,"formata",2) /* begin sub 8 */ put_constant(X2020202D6E6F5F696E6C696E652020202020646F206E6F7420696E6C696E6520616E79206275696C74696E20707265646963617465737E6E,0," -no_inline do not inline any builtin predicates~n") put_nil(1) call(Pred_Name(X666F726D617461,2),0,9,"formata",2) /* begin sub 9 */ put_constant(X2020202D6462672020202020202020202020636F6D70696C6520666F722070726F6C6F6720646562756767696E677E6E,0," -dbg compile for prolog debugging~n") put_nil(1) call(Pred_Name(X666F726D617461,2),0,10,"formata",2) /* begin sub 10 */ put_constant(X2020202D6462673220202020202020202020636F6D70696C6520666F722070726F6C6F6720616E642077616D20646562756767696E677E6E,0," -dbg2 compile for prolog and wam debugging~n") put_nil(1) call(Pred_Name(X666F726D617461,2),0,11,"formata",2) /* begin sub 11 */ put_constant(X2020202D7620202020202020202020202020766572626F7365206D6F64657E6E,0," -v verbose mode~n") put_nil(1) call(Pred_Name(X666F726D617461,2),0,12,"formata",2) /* begin sub 12 */ put_constant(X2020202D6820202020202020202020202020646973706C61792068656C707E6E,0," -h display help~n") put_nil(1) deallocate execute(Pred_Name(X666F726D617461,2),0,"formata",2) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "compiler" #define PRED X636F6D70696C6572 #define ARITY 2 Begin_Private_Pred allocate(6) get_y_variable(2,1) get_y_bc_reg(3) put_constant(X6D6F64655F63,2,"mode_c") put_y_variable(1,1) builtin_2(g_read,2,1) put_y_variable(5,1) call(Pred_Name(X657865635F706173736573,2),1,1,"exec_passes",2) /* begin sub 1 */ cut_y(3) put_y_value(5,0) put_y_variable(4,1) call(Pred_Name(X637265655F70617175657473,2),1,2,"cree_paquets",2) /* begin sub 2 */ cut_y(3) put_y_value(4,0) put_y_variable(0,1) call(Pred_Name(X657865635F696E6465786174696F6E,2),1,3,"exec_indexation",2) /* begin sub 3 */ cut_y(3) put_y_value(2,0) put_y_unsafe_value(1,1) put_y_unsafe_value(0,2) deallocate execute(Pred_Name(X636F6D70696C65725F246175783131,3),1,"compiler_$aux11",3) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "compiler_$aux11" #define PRED X636F6D70696C65725F246175783131 #define ARITY 3 Begin_Private_Pred try_me_else(1) put_constant(X66,0,"f") builtin_2(term_eq,1,0) neck_cut put_x_value(2,0) execute(Pred_Name(X77616D5F656D697373696F6E,1),0,"wam_emission",1) label(1) trust_me_else_fail get_x_variable(3,0) put_x_value(2,0) put_x_value(3,1) execute(Pred_Name(X635F656D697373696F6E,2),0,"c_emission",2) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "exec_passes" #define PRED X657865635F706173736573 #define ARITY 2 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(1) proceed label(3) trust_me_else_fail label(4) allocate(10) get_list(0) unify_x_variable(0) unify_x_variable(2) get_list(1) unify_x_variable(1) unify_y_variable(0) get_structure(X636C636F6D70,3,1,"clcomp") unify_y_variable(4) unify_y_variable(8) unify_y_variable(3) get_y_bc_reg(2) put_x_value(2,1) put_y_variable(9,2) put_y_variable(1,3) call(Pred_Name(X73756372655F73796E74617869717565,4),0,1,"sucre_syntaxique",4) /* begin sub 1 */ cut_y(2) put_y_value(9,0) put_y_value(8,1) put_y_variable(7,2) put_y_variable(6,3) put_y_variable(5,4) call(Pred_Name(X666F726D61745F696E7465726E65,5),0,2,"format_interne",5) /* begin sub 2 */ cut_y(2) put_y_value(7,0) put_y_value(6,1) call(Pred_Name(X636C61737369665F7661726961626C6573,2),0,3,"classif_variables",2) /* begin sub 3 */ cut_y(2) put_y_value(7,0) put_y_value(6,1) put_y_value(5,2) put_y_value(4,3) put_y_value(3,4) call(Pred_Name(X67656E65726174696F6E5F636F6465,5),0,4,"generation_code",5) /* begin sub 4 */ cut_y(2) put_y_value(3,0) call(Pred_Name(X616C6C6F636174696F6E5F7661727358,1),0,5,"allocation_varsX",1) /* begin sub 5 */ cut_y(2) put_y_unsafe_value(1,0) put_y_value(0,1) deallocate execute(Pred_Name(X657865635F706173736573,2),1,"exec_passes",2) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "cree_paquets" #define PRED X637265655F70617175657473 #define ARITY 2 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(1) proceed label(3) trust_me_else_fail label(4) allocate(4) get_list(0) unify_y_variable(2) unify_x_variable(0) get_y_variable(1,1) get_y_bc_reg(0) put_y_variable(3,1) call(Pred_Name(X637265655F70617175657473,2),1,1,"cree_paquets",2) /* begin sub 1 */ put_y_value(3,0) put_y_value(2,1) put_y_value(1,2) call(Pred_Name(X616A6F75745F636C61757365,3),1,2,"ajout_clause",3) /* begin sub 2 */ cut_y(0) deallocate proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "ajout_clause" #define PRED X616A6F75745F636C61757365 #define ARITY 3 Begin_Private_Pred get_list(2) unify_x_variable(2) unify_x_variable(3) execute(Pred_Name(X74726F7576655F706171756574,4),1,"trouve_paquet",4) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "trouve_paquet" #define PRED X74726F7576655F706171756574 #define ARITY 4 Begin_Private_Pred switch_on_term(G_label(2),G_label(3),fail,G_label(1),fail) label(1) try(5,1) /* begin sub 1 */ trust(7) label(2) try_me_else(4) label(3) get_nil(0) get_structure(X636C636F6D70,3,1,"clcomp") unify_x_variable(4) unify_x_variable(0) unify_x_variable(1) get_structure(X706171,2,2,"paq") unify_x_value(4) unify_x_variable(2) get_list(2) unify_x_variable(2) unify_nil get_nil(3) execute(Pred_Name(X666F726D61745F696E646578,3),1,"format_index",3) label(4) retry_me_else(6) label(5) get_list(0) unify_x_variable(0) unify_x_variable(4) get_structure(X706171,2,0,"paq") unify_x_variable(6) unify_x_variable(5) get_structure(X636C636F6D70,3,1,"clcomp") unify_x_value(6) unify_x_variable(0) unify_x_variable(1) get_structure(X706171,2,2,"paq") unify_x_value(6) unify_x_variable(2) get_list(2) unify_x_variable(2) unify_x_value(5) get_x_value(4,3) execute(Pred_Name(X666F726D61745F696E646578,3),1,"format_index",3) label(6) trust_me_else_fail label(7) get_list(0) unify_x_variable(4) unify_x_variable(0) get_list(3) unify_x_value(4) unify_x_variable(3) execute(Pred_Name(X74726F7576655F706171756574,4),1,"trouve_paquet",4) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "format_index" #define PRED X666F726D61745F696E646578 #define ARITY 3 Begin_Private_Pred get_structure(X636C,3,2,"cl") unify_void(1) unify_x_local_value(0) unify_x_local_value(1) proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "exec_indexation" #define PRED X657865635F696E6465786174696F6E #define ARITY 2 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(1) proceed label(3) trust_me_else_fail label(4) allocate(3) get_list(0) unify_x_variable(0) unify_y_variable(1) get_structure(X706171,2,0,"paq") unify_x_variable(2) unify_x_variable(0) get_list(1) unify_x_variable(1) unify_y_variable(0) get_structure(X706171,2,1,"paq") unify_x_value(2) unify_x_variable(1) get_y_bc_reg(2) call(Pred_Name(X696E6465786174696F6E,2),0,1,"indexation",2) /* begin sub 1 */ cut_y(2) put_y_value(1,0) put_y_value(0,1) deallocate execute(Pred_Name(X657865635F696E6465786174696F6E,2),1,"exec_indexation",2) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "ens_ajout" #define PRED X656E735F616A6F7574 #define ARITY 3 Begin_Public_Pred switch_on_term(G_label(2),G_label(3),fail,G_label(1),fail) label(1) try(5,1) /* begin sub 1 */ trust(7) label(2) try_me_else(4) label(3) get_nil(0) get_list(2) unify_x_local_value(1) unify_nil proceed label(4) retry_me_else(6) label(5) get_list(0) unify_x_variable(0) unify_x_variable(3) get_list(2) unify_x_value(0) unify_x_value(3) builtin_2(term_eq,1,0) neck_cut proceed label(6) trust_me_else_fail label(7) get_list(0) unify_x_variable(3) unify_x_variable(0) get_list(2) unify_x_value(3) unify_x_variable(2) execute(Pred_Name(X656E735F616A6F7574,3),1,"ens_ajout",3) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "ens_retrait" #define PRED X656E735F72657472616974 #define ARITY 3 Begin_Public_Pred switch_on_term(G_label(2),fail,fail,G_label(1),fail) label(1) try(3,1) /* begin sub 1 */ trust(5) label(2) try_me_else(4) label(3) get_list(0) unify_x_variable(0) unify_x_variable(3) get_x_value(3,2) builtin_2(term_eq,1,0) neck_cut proceed label(4) trust_me_else_fail label(5) get_list(0) unify_x_variable(3) unify_x_variable(0) get_list(2) unify_x_value(3) unify_x_variable(2) execute(Pred_Name(X656E735F72657472616974,3),1,"ens_retrait",3) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "ens_elt" #define PRED X656E735F656C74 #define ARITY 2 Begin_Public_Pred switch_on_term(G_label(2),fail,fail,G_label(1),fail) label(1) try(3,1) /* begin sub 1 */ trust(5) label(2) try_me_else(4) label(3) get_list(0) unify_x_variable(0) unify_void(1) builtin_2(term_eq,1,0) neck_cut proceed label(4) trust_me_else_fail label(5) get_list(0) unify_void(1) unify_x_variable(0) execute(Pred_Name(X656E735F656C74,2),1,"ens_elt",2) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "ens_inter" #define PRED X656E735F696E746572 #define ARITY 3 Begin_Public_Pred switch_on_term(G_label(2),G_label(3),fail,G_label(1),fail) label(1) try(5,1) /* begin sub 1 */ trust(7) label(2) try_me_else(4) label(3) get_nil(0) get_nil(2) proceed label(4) retry_me_else(6) label(5) allocate(4) get_list(0) unify_x_variable(3) unify_y_variable(2) get_y_variable(1,1) get_list(2) unify_x_value(3) unify_y_variable(0) get_y_bc_reg(3) put_y_value(1,0) put_x_value(3,1) call(Pred_Name(X656E735F656C74,2),1,2,"ens_elt",2) /* begin sub 2 */ cut_y(3) put_y_value(2,0) put_y_value(1,1) put_y_value(0,2) deallocate execute(Pred_Name(X656E735F696E746572,3),1,"ens_inter",3) label(6) trust_me_else_fail label(7) get_list(0) unify_void(1) unify_x_variable(0) execute(Pred_Name(X656E735F696E746572,3),1,"ens_inter",3) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "ens_union" #define PRED X656E735F756E696F6E #define ARITY 3 Begin_Public_Pred switch_on_term(G_label(2),G_label(3),fail,G_label(1),fail) label(1) try(5,1) /* begin sub 1 */ trust(7) label(2) try_me_else(4) label(3) get_nil(0) get_x_value(1,2) proceed label(4) retry_me_else(6) label(5) allocate(4) get_list(0) unify_x_variable(3) unify_y_variable(2) get_y_variable(1,1) get_y_variable(0,2) get_y_bc_reg(3) put_y_value(1,0) put_x_value(3,1) call(Pred_Name(X656E735F656C74,2),1,2,"ens_elt",2) /* begin sub 2 */ cut_y(3) put_y_value(2,0) put_y_value(1,1) put_y_value(0,2) deallocate execute(Pred_Name(X656E735F756E696F6E,3),1,"ens_union",3) label(6) trust_me_else_fail label(7) get_list(0) unify_x_variable(3) unify_x_variable(0) get_list(2) unify_x_value(3) unify_x_variable(2) execute(Pred_Name(X656E735F756E696F6E,3),1,"ens_union",3) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "ens_compl" #define PRED X656E735F636F6D706C #define ARITY 3 Begin_Public_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(2) proceed label(3) trust_me_else_fail label(4) allocate(3) get_list(0) unify_x_variable(0) unify_y_variable(2) get_y_variable(1,1) put_y_value(1,1) put_y_variable(0,3) call(Pred_Name(X656E735F636F6D706C5F246175783132,4),1,1,"ens_compl_$aux12",4) /* begin sub 1 */ put_y_value(2,0) put_y_value(1,1) put_y_unsafe_value(0,2) deallocate execute(Pred_Name(X656E735F636F6D706C,3),1,"ens_compl",3) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "ens_compl_$aux12" #define PRED X656E735F636F6D706C5F246175783132 #define ARITY 4 Begin_Private_Pred try_me_else(1) allocate(3) get_x_variable(4,0) get_y_variable(1,2) get_y_variable(0,3) get_y_bc_reg(2) put_x_value(1,0) put_x_value(4,1) call(Pred_Name(X656E735F656C74,2),1,1,"ens_elt",2) /* begin sub 1 */ cut_y(2) put_y_value(1,0) get_y_value(0,0) deallocate proceed label(1) trust_me_else_fail get_list(2) unify_x_local_value(0) unify_x_local_value(3) proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "error" #define PRED X6572726F72 #define ARITY 1 Begin_Public_Pred allocate(0) call(Pred_Name(X7772697465,1),0,1,"write",1) /* begin sub 1 */ call(Pred_Name(X6E6C,0),0,2,"nl",0) /* begin sub 2 */ deallocate execute(Pred_Name(X61626F7274,0),0,"abort",0) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "go" #define PRED X676F #define ARITY 0 Begin_Private_Pred allocate(1) put_structure(X61726776,1,0,"argv") unify_y_variable(0) call(Pred_Name(X756E6978,1),0,1,"unix",1) /* begin sub 1 */ put_y_value(0,0) deallocate execute(Pred_Name(X676F5F246175783133,1),1,"go_$aux13",1) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "go_$aux13" #define PRED X676F5F246175783133 #define ARITY 1 Begin_Private_Pred try_me_else(1) allocate(0) put_nil(1) builtin_2(term_neq,0,1) neck_cut call(Pred_Name(X77616D6363,1),1,1,"wamcc",1) /* begin sub 1 */ put_integer(0,0) put_constant(X74727565,1,"true") deallocate execute(Pred_Name(X68616C745F6F725F656C7365,2),0,"halt_or_else",2) label(1) trust_me_else_fail proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "$exe_1" #define PRED X246578655F31 #define ARITY 0 Begin_Private_Pred allocate(1) get_y_bc_reg(0) call(Pred_Name(X676F,0),1,1,"go",0) /* begin sub 1 */ cut_y(0) deallocate proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "$exe_2" #define PRED X246578655F32 #define ARITY 0 Begin_Private_Pred put_constant(X74727565,0,"true") put_constant(X74727565,1,"true") execute(Pred_Name(X746F705F6C6576656C,2),0,"top_level",2) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY Begin_Init_Tables(wamcc) Define_Atom(X5B5D,"[]") Define_Atom(X77616D6363,"wamcc") Define_Atom(X77616D63635F2461757831,"wamcc_$aux1") Define_Atom(X,"") Define_Atom(X77616D63635F2461757832,"wamcc_$aux2") Define_Atom(X766572626F7365,"verbose") Define_Atom(X74,"t") Define_Atom(X636F6D70696C6531,"compile1") Define_Atom(X636F6D70696C65315F2461757833,"compile1_$aux3") Define_Atom(X636F6D70696C6532,"compile2") Define_Atom(X617578,"aux") Define_Atom(X20202020202020202E2E2E204661696C," ... Fail") Define_Atom(X636F6D70696C65325F2461757834,"compile2_$aux4") Define_Atom(X6669635F696E,"fic_in") Define_Atom(X436F6D70696C696E67207E772E2E2E7E6E,"Compiling ~w...~n") Define_Atom(X637265655F6E6F6D735F666963,"cree_noms_fic") Define_Atom(X6D6F64756C65,"module") Define_Atom(X6669635F6F7574,"fic_out") Define_Atom(X6669635F68,"fic_h") Define_Atom(X6669635F757372,"fic_usr") Define_Atom(X637265655F6E6F6D735F6669635F2461757836,"cree_noms_fic_$aux6") Define_Atom(X6D6F64655F63,"mode_c") Define_Atom(X2E63,".c") Define_Atom(X2E68,".h") Define_Atom(X2E757372,".usr") Define_Atom(X2E77616D,".wam") Define_Atom(X6E756C6C,"null") Define_Atom(X637265655F6E6F6D735F6669635F2461757835,"cree_noms_fic_$aux5") Define_Atom(X2E706C,".pl") Define_Atom(X626173655F6E616D65,"base_name") Define_Atom(X626173655F6E616D655F2461757837,"base_name_$aux7") Define_Atom(X2F,"/") Define_Atom(X636D645F6C696E65,"cmd_line") Define_Atom(X636D645F6C696E655F2461757838,"cmd_line_$aux8") Define_Atom(X636D645F6C696E655F2461757839,"cmd_line_$aux9") Define_Atom(X636D645F6C696E6531,"cmd_line1") Define_Atom(X636D645F6C696E65315F246175783130,"cmd_line1_$aux10") Define_Atom(X2D,"-") Define_Atom(X7365745F64656661756C745F6F7074696F6E73,"set_default_options") Define_Atom(X666173745F6D617468,"fast_math") Define_Atom(X66,"f") Define_Atom(X6E6F5F737461636B5F74657374,"no_stack_test") Define_Atom(X6E6F5F696E6C696E65,"no_inline") Define_Atom(X6465627567,"debug") Define_Atom(X7472616974655F6F7074,"traite_opt") Define_Atom(X63,"c") Define_Atom(X77616D,"wam") Define_Atom(X64626730,"dbg0") Define_Atom(X646267,"dbg") Define_Atom(X64626731,"dbg1") Define_Atom(X64626732,"dbg2") Define_Atom(X76,"v") Define_Atom(X646973706C61795F76657273696F6E,"display_version") Define_Atom(X50726F6C6F6720746F2057616D20436F6D70696C6572,"Prolog to Wam Compiler") Define_Atom(X7E737E2A63202020494E52494120526F637175656E636F757274202D2043684C6F452050726F6A6563747E6E,"~s~*c INRIA Rocquencourt - ChLoE Project~n") Define_Atom(X56657273696F6E207E737E2A6320202020202044616E69656C204469617A202D207E647E6E7E6E,"Version ~s~*c Daniel Diaz - ~d~n~n") Define_Atom(X646973706C61795F68656C70,"display_help") Define_Atom(X55736167653A7E6E7E6E,"Usage:~n~n") Define_Atom(X2020207E77205B6F7074696F6E207C2066696C656E616D655D2E2E2E7E6E7E6E," ~w [option | filename]...~n~n") Define_Atom(X4F7074696F6E733A7E6E7E6E,"Options:~n~n") Define_Atom(X2020202D632020202020202020202020202070726F647563652061202E6320202066696C657E6E," -c produce a .c file~n") Define_Atom(X2020202D77616D202020202020202020202070726F647563652061202E77616D2066696C657E6E," -wam produce a .wam file~n") Define_Atom(X2020202D666173745F6D6174682020202020646F206E6F74207465737420747970657320696E206D6174682065787072657373696F6E737E6E," -fast_math do not test types in math expressions~n") Define_Atom(X2020202D6E6F5F737461636B5F7465737420646F206E6F7420696E636C756465206164646974696F6E616C20636F646520746F207465737420737461636B206F766572666C6F777E6E," -no_stack_test do not include additional code to test stack overflow~n") Define_Atom(X2020202D6E6F5F696E6C696E652020202020646F206E6F7420696E6C696E6520616E79206275696C74696E20707265646963617465737E6E," -no_inline do not inline any builtin predicates~n") Define_Atom(X2020202D6462672020202020202020202020636F6D70696C6520666F722070726F6C6F6720646562756767696E677E6E," -dbg compile for prolog debugging~n") Define_Atom(X2020202D6462673220202020202020202020636F6D70696C6520666F722070726F6C6F6720616E642077616D20646562756767696E677E6E," -dbg2 compile for prolog and wam debugging~n") Define_Atom(X2020202D7620202020202020202020202020766572626F7365206D6F64657E6E," -v verbose mode~n") Define_Atom(X2020202D6820202020202020202020202020646973706C61792068656C707E6E," -h display help~n") Define_Atom(X636F6D70696C6572,"compiler") Define_Atom(X636F6D70696C65725F246175783131,"compiler_$aux11") Define_Atom(X657865635F706173736573,"exec_passes") Define_Atom(X636C636F6D70,"clcomp") Define_Atom(X637265655F70617175657473,"cree_paquets") Define_Atom(X616A6F75745F636C61757365,"ajout_clause") Define_Atom(X74726F7576655F706171756574,"trouve_paquet") Define_Atom(X706171,"paq") Define_Atom(X666F726D61745F696E646578,"format_index") Define_Atom(X636C,"cl") Define_Atom(X657865635F696E6465786174696F6E,"exec_indexation") Define_Atom(X656E735F616A6F7574,"ens_ajout") Define_Atom(X656E735F72657472616974,"ens_retrait") Define_Atom(X656E735F656C74,"ens_elt") Define_Atom(X656E735F696E746572,"ens_inter") Define_Atom(X656E735F756E696F6E,"ens_union") Define_Atom(X656E735F636F6D706C,"ens_compl") Define_Atom(X656E735F636F6D706C5F246175783132,"ens_compl_$aux12") Define_Atom(X6572726F72,"error") Define_Atom(X676F,"go") Define_Atom(X61726776,"argv") Define_Atom(X676F5F246175783133,"go_$aux13") Define_Atom(X74727565,"true") Define_Atom(X246578655F31,"$exe_1") Define_Atom(X246578655F32,"$exe_2") Define_Pred(X77616D6363,1,0) Define_Pred(X77616D63635F2461757831,1,0) Define_Pred(X77616D63635F2461757832,0,0) Define_Pred(X636F6D70696C6531,1,0) Define_Pred(X636F6D70696C65315F2461757833,1,0) Define_Pred(X636F6D70696C6532,1,0) Define_Pred(X636F6D70696C65325F2461757834,0,0) Define_Pred(X637265655F6E6F6D735F666963,1,0) Define_Pred(X637265655F6E6F6D735F6669635F2461757836,4,0) Define_Pred(X637265655F6E6F6D735F6669635F2461757835,4,0) Define_Pred(X626173655F6E616D65,2,0) Define_Pred(X626173655F6E616D655F2461757837,2,0) Define_Pred(X636D645F6C696E65,2,0) Define_Pred(X636D645F6C696E655F2461757838,2,0) Define_Pred(X636D645F6C696E655F2461757839,1,0) Define_Pred(X636D645F6C696E6531,2,0) Define_Pred(X636D645F6C696E65315F246175783130,3,0) Define_Pred(X7365745F64656661756C745F6F7074696F6E73,0,0) Define_Pred(X7472616974655F6F7074,1,0) Define_Switch_CST_Table(Swt_Table_Name(X7472616974655F6F7074,1,1,cst),10) Define_Switch_CST(X63,Label_Pred_Name(X7472616974655F6F7074,1,3)) Define_Switch_CST(X77616D,Label_Pred_Name(X7472616974655F6F7074,1,5)) Define_Switch_CST(X666173745F6D617468,Label_Pred_Name(X7472616974655F6F7074,1,7)) Define_Switch_CST(X6E6F5F737461636B5F74657374,Label_Pred_Name(X7472616974655F6F7074,1,9)) Define_Switch_CST(X6E6F5F696E6C696E65,Label_Pred_Name(X7472616974655F6F7074,1,11)) Define_Switch_CST(X64626730,Label_Pred_Name(X7472616974655F6F7074,1,13)) Define_Switch_CST(X646267,Label_Pred_Name(X7472616974655F6F7074,1,15)) Define_Switch_CST(X64626731,Label_Pred_Name(X7472616974655F6F7074,1,17)) Define_Switch_CST(X64626732,Label_Pred_Name(X7472616974655F6F7074,1,19)) Define_Switch_CST(X76,Label_Pred_Name(X7472616974655F6F7074,1,21)) Define_Pred(X646973706C61795F76657273696F6E,0,1) Define_Pred(X646973706C61795F68656C70,0,0) Define_Pred(X636F6D70696C6572,2,0) Define_Pred(X636F6D70696C65725F246175783131,3,0) Define_Pred(X657865635F706173736573,2,0) Define_Pred(X637265655F70617175657473,2,0) Define_Pred(X616A6F75745F636C61757365,3,0) Define_Pred(X74726F7576655F706171756574,4,0) Define_Pred(X666F726D61745F696E646578,3,0) Define_Pred(X657865635F696E6465786174696F6E,2,0) Define_Pred(X656E735F616A6F7574,3,1) Define_Pred(X656E735F72657472616974,3,1) Define_Pred(X656E735F656C74,2,1) Define_Pred(X656E735F696E746572,3,1) Define_Pred(X656E735F756E696F6E,3,1) Define_Pred(X656E735F636F6D706C,3,1) Define_Pred(X656E735F636F6D706C5F246175783132,4,0) Define_Pred(X6572726F72,1,1) Define_Pred(X676F,0,0) Define_Pred(X676F5F246175783133,1,0) Define_Pred(X246578655F31,0,0) Define_Pred(X246578655F32,0,0) Init_Usr_File End_Init_Tables Begin_Exec_Directives(wamcc) Exec_Directive(1,Pred_Name(X246578655F31,0)) Exec_Directive(2,Pred_Name(X246578655F32,0)) End_Exec_Directives /*** MAIN ***/ int main(int argc,char *argv[]) { unix_argc=argc; unix_argv=argv; Init_Wam_Engine(); Init_Tables_Of_Module(Builtin) Init_Tables_Of_Module(wamcc0) Init_Tables_Of_Module(wamcc1) Init_Tables_Of_Module(wamcc2) Init_Tables_Of_Module(wamcc3) Init_Tables_Of_Module(wamcc4) Init_Tables_Of_Module(wamcc5) Init_Tables_Of_Module(wamcc6) Init_Tables_Of_Module(wamcc7) Init_Tables_Of_Module(wamcc8) Init_Tables_Of_Module(wamcc) Exec_Directives_Of_Module(Builtin) Exec_Directives_Of_Module(wamcc0) Exec_Directives_Of_Module(wamcc1) Exec_Directives_Of_Module(wamcc2) Exec_Directives_Of_Module(wamcc3) Exec_Directives_Of_Module(wamcc4) Exec_Directives_Of_Module(wamcc5) Exec_Directives_Of_Module(wamcc6) Exec_Directives_Of_Module(wamcc7) Exec_Directives_Of_Module(wamcc8) Exec_Directives_Of_Module(wamcc) Term_Wam_Engine(); return 0; }