/****************************************************************************
Prolog to Wam Compiler INRIA Rocquencourt - ChLoE Project
Version 2.21 Daniel Diaz - 1994
File : wamcc8.c
Main : no_main
****************************************************************************/
#define FAST_MATH
#define DEBUG_LEVEL 0
#include "wam_engine.h"
#include "wamcc8.h"
#include "wamcc8.usr"
#define ASCII_PRED "c_emission"
#define PRED X635F656D697373696F6E
#define ARITY 2
Begin_Public_Pred
allocate(4)
get_y_bc_reg(3)
put_y_variable(2,2)
put_y_variable(1,3)
put_y_variable(0,4)
call(Pred_Name(X635F656D69745F6669635F63,5),1,1,"c_emit_fic_c",5) /* begin sub 1 */
cut_y(3)
put_y_value(2,0)
put_y_value(1,1)
put_y_value(0,2)
call(Pred_Name(X635F656D69745F6669635F68,3),1,2,"c_emit_fic_h",3) /* begin sub 2 */
put_constant(X6669635F757372,2,"fic_usr")
put_x_variable(0,1)
builtin_2(g_read,2,1)
deallocate
execute(Pred_Name(X635F656D69745F6669635F757372,1),1,"c_emit_fic_usr",1)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_fic_c"
#define PRED X635F656D69745F6669635F63
#define ARITY 5
Begin_Private_Pred
allocate(7)
get_y_variable(4,0)
get_y_variable(0,1)
get_y_variable(3,2)
get_y_variable(2,3)
get_y_variable(1,4)
put_constant(X6669635F6F7574,1,"fic_out")
put_y_variable(6,0)
builtin_2(g_read,1,0)
put_constant(X6D6F64756C65,1,"module")
put_y_variable(5,0)
builtin_2(g_read,1,0)
put_y_value(6,0)
call(Pred_Name(X74656C6C,1),0,1,"tell",1) /* begin sub 1 */
put_constant(X2F2A7E2A637E6E,0,"/*~*c~n")
put_list(2)
unify_integer(42)
unify_nil
put_list(1)
unify_integer(75)
unify_x_value(2)
call(Pred_Name(X666F726D617461,2),0,2,"formata",2) /* begin sub 2 */
call(Pred_Name(X646973706C61795F76657273696F6E,0),0,3,"display_version",0) /* begin sub 3 */
put_constant(X46696C65203A207E617E6E,0,"File : ~a~n")
put_list(1)
unify_y_local_value(6)
unify_nil
call(Pred_Name(X666F726D617461,2),0,4,"formata",2) /* begin sub 4 */
put_constant(X4D61696E203A207E777E6E,0,"Main : ~w~n")
put_list(1)
unify_y_local_value(0)
unify_nil
call(Pred_Name(X666F726D617461,2),0,5,"formata",2) /* begin sub 5 */
put_constant(X7E2A632A2F7E6E7E6E,0,"~*c*/~n~n")
put_list(2)
unify_integer(42)
unify_nil
put_list(1)
unify_integer(75)
unify_x_value(2)
call(Pred_Name(X666F726D617461,2),0,6,"formata",2) /* begin sub 6 */
call(Pred_Name(X635F656D69745F6669635F635F2461757831,0),1,7,"c_emit_fic_c_$aux1",0) /* begin sub 7 */
call(Pred_Name(X635F656D69745F6669635F635F2461757832,0),1,8,"c_emit_fic_c_$aux2",0) /* begin sub 8 */
put_constant(X6465627567,1,"debug")
put_x_variable(2,0)
builtin_2(g_read,1,0)
put_constant(X23646566696E652044454255475F4C4556454C202020207E647E6E,0,"#define DEBUG_LEVEL ~d~n")
put_list(1)
unify_x_value(2)
unify_nil
call(Pred_Name(X666F726D617461,2),0,9,"formata",2) /* begin sub 9 */
call(Pred_Name(X6E6C,0),0,10,"nl",0) /* begin sub 10 */
put_constant(X23696E636C756465202277616D5F656E67696E652E68227E6E7E6E,0,"#include \"wam_engine.h\"~n~n")
put_nil(1)
call(Pred_Name(X666F726D617461,2),0,11,"formata",2) /* begin sub 11 */
put_constant(X23696E636C75646520227E612E68227E6E,0,"#include \"~a.h\"~n")
put_list(1)
unify_y_local_value(5)
unify_nil
call(Pred_Name(X666F726D617461,2),0,12,"formata",2) /* begin sub 12 */
put_constant(X23696E636C75646520227E612E75737222,0,"#include \"~a.usr\"")
put_list(1)
unify_y_local_value(5)
unify_nil
call(Pred_Name(X666F726D617461,2),0,13,"formata",2) /* begin sub 13 */
put_y_value(3,0)
put_nil(1)
put_x_variable(2,2)
call(Pred_Name(X6164645F746F5F6469635F61746F6D,3),1,14,"add_to_dic_atom",3) /* begin sub 14 */
put_y_value(4,0)
put_y_value(3,1)
put_y_value(2,2)
call(Pred_Name(X635F656D69745F6C73745F70726564,3),1,15,"c_emit_lst_pred",3) /* begin sub 15 */
put_y_value(3,0)
put_y_value(2,1)
put_y_value(1,2)
call(Pred_Name(X635F656D69745F6663745F696E69745F7461626C6573,3),1,16,"c_emit_fct_init_tables",3) /* begin sub 16 */
call(Pred_Name(X635F656D69745F6663745F657865635F64697265637469766573,0),1,17,"c_emit_fct_exec_directives",0) /* begin sub 17 */
put_y_value(0,0)
call(Pred_Name(X635F656D69745F6669635F635F2461757833,1),1,18,"c_emit_fic_c_$aux3",1) /* begin sub 18 */
deallocate
execute(Pred_Name(X746F6C64,0),0,"told",0)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_fic_c_$aux3"
#define PRED X635F656D69745F6669635F635F2461757833
#define ARITY 1
Begin_Private_Pred
try_me_else(1)
put_constant(X6E6F5F6D61696E,1,"no_main")
builtin_2(term_neq,0,1)
neck_cut
execute(Pred_Name(X635F656D69745F6663745F6D61696E,1),1,"c_emit_fct_main",1)
label(1)
trust_me_else_fail
proceed
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_fic_c_$aux2"
#define PRED X635F656D69745F6669635F635F2461757832
#define ARITY 0
Begin_Private_Pred
try_me_else(1)
put_constant(X6E6F5F737461636B5F74657374,1,"no_stack_test")
put_constant(X74,0,"t")
builtin_2(g_read,1,0)
neck_cut
put_constant(X23646566696E65204E4F5F535441434B5F544553547E6E,0,"#define NO_STACK_TEST~n")
put_nil(1)
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 "c_emit_fic_c_$aux1"
#define PRED X635F656D69745F6669635F635F2461757831
#define ARITY 0
Begin_Private_Pred
try_me_else(1)
put_constant(X666173745F6D617468,1,"fast_math")
put_constant(X74,0,"t")
builtin_2(g_read,1,0)
neck_cut
put_constant(X23646566696E6520464153545F4D4154487E6E,0,"#define FAST_MATH~n")
put_nil(1)
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 "c_emit_lst_pred"
#define PRED X635F656D69745F6C73745F70726564
#define ARITY 3
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(2)
proceed
label(3)
trust_me_else_fail
label(4)
allocate(8)
get_list(0)
unify_x_variable(0)
unify_y_variable(2)
get_structure(X706171,2,0,"paq")
unify_x_variable(0)
unify_y_variable(4)
get_structure(X2F,2,0,"/")
unify_y_variable(6)
unify_y_variable(5)
get_y_variable(1,1)
get_y_variable(7,2)
get_y_bc_reg(3)
put_y_value(1,0)
put_y_value(6,1)
put_x_variable(2,2)
call(Pred_Name(X6164645F746F5F6469635F61746F6D,3),1,1,"add_to_dic_atom",3) /* begin sub 1 */
put_y_value(7,0)
get_list(0)
unify_x_variable(0)
unify_y_variable(0)
get_structure(X70,3,0,"p")
unify_x_variable(0)
unify_x_variable(2)
unify_x_variable(3)
get_structure(X2F,2,0,"/")
unify_y_value(6)
unify_y_value(5)
put_y_value(6,0)
put_y_value(5,1)
put_y_value(4,4)
put_y_value(1,5)
call(Pred_Name(X635F656D69745F70726564,6),1,2,"c_emit_pred",6) /* 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(X635F656D69745F6C73745F70726564,3),1,"c_emit_lst_pred",3)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_pred"
#define PRED X635F656D69745F70726564
#define ARITY 6
Begin_Private_Pred
allocate(7)
get_y_variable(5,0)
get_y_variable(4,1)
get_y_variable(1,2)
get_y_variable(0,3)
get_y_variable(3,4)
get_y_variable(2,5)
neck_cut
call(Pred_Name(X6E6C,0),0,1,"nl",0) /* begin sub 1 */
call(Pred_Name(X6E6C,0),0,2,"nl",0) /* begin sub 2 */
call(Pred_Name(X6E6C,0),0,3,"nl",0) /* begin sub 3 */
put_y_value(5,0)
put_y_variable(6,1)
call(Pred_Name(X635F737472696E67,2),1,4,"c_string",2) /* begin sub 4 */
put_constant(X23646566696E652041534349495F5052454420,0,"#define ASCII_PRED ")
call(Pred_Name(X7772697465,1),0,5,"write",1) /* begin sub 5 */
put_y_value(6,0)
call(Pred_Name(X7772697465,1),0,6,"write",1) /* begin sub 6 */
call(Pred_Name(X6E6C,0),0,7,"nl",0) /* begin sub 7 */
put_constant(X23646566696E65205052454420202020202020,0,"#define PRED ")
call(Pred_Name(X7772697465,1),0,8,"write",1) /* begin sub 8 */
put_y_value(5,0)
call(Pred_Name(X685F7772697465,1),1,9,"h_write",1) /* begin sub 9 */
call(Pred_Name(X6E6C,0),0,10,"nl",0) /* begin sub 10 */
put_constant(X23646566696E65204152495459202020202020,0,"#define ARITY ")
call(Pred_Name(X7772697465,1),0,11,"write",1) /* begin sub 11 */
put_y_value(4,0)
call(Pred_Name(X7772697465,1),0,12,"write",1) /* begin sub 12 */
call(Pred_Name(X6E6C,0),0,13,"nl",0) /* begin sub 13 */
call(Pred_Name(X6E6C,0),0,14,"nl",0) /* begin sub 14 */
put_y_value(5,0)
put_y_value(4,1)
call(Pred_Name(X635F656D69745F707265645F2461757834,2),1,15,"c_emit_pred_$aux4",2) /* begin sub 15 */
call(Pred_Name(X6E6C,0),0,16,"nl",0) /* begin sub 16 */
put_y_value(3,0)
put_y_value(2,1)
put_integer(1,2)
put_x_variable(3,3)
put_y_value(1,4)
put_y_value(0,5)
call(Pred_Name(X635F656D6974,6),1,17,"c_emit",6) /* begin sub 17 */
call(Pred_Name(X6E6C,0),0,18,"nl",0) /* begin sub 18 */
put_constant(X456E645F50726564,0,"End_Pred")
call(Pred_Name(X7772697465,1),0,19,"write",1) /* begin sub 19 */
call(Pred_Name(X6E6C,0),0,20,"nl",0) /* begin sub 20 */
call(Pred_Name(X6E6C,0),0,21,"nl",0) /* begin sub 21 */
put_constant(X23756E6465662041534349495F50524544,0,"#undef ASCII_PRED")
call(Pred_Name(X7772697465,1),0,22,"write",1) /* begin sub 22 */
call(Pred_Name(X6E6C,0),0,23,"nl",0) /* begin sub 23 */
put_constant(X23756E6465662050524544,0,"#undef PRED")
call(Pred_Name(X7772697465,1),0,24,"write",1) /* begin sub 24 */
call(Pred_Name(X6E6C,0),0,25,"nl",0) /* begin sub 25 */
put_constant(X23756E646566204152495459,0,"#undef ARITY")
call(Pred_Name(X7772697465,1),0,26,"write",1) /* begin sub 26 */
deallocate
execute(Pred_Name(X6E6C,0),0,"nl",0)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_pred_$aux4"
#define PRED X635F656D69745F707265645F2461757834
#define ARITY 2
Begin_Private_Pred
try_me_else(1)
allocate(1)
get_x_variable(3,0)
get_x_variable(2,1)
get_y_bc_reg(0)
put_constant(X707562,0,"pub")
put_x_value(3,1)
call(Pred_Name(X746573745F707265645F696E666F,3),0,1,"test_pred_info",3) /* begin sub 1 */
cut_y(0)
put_constant(X426567696E5F5075626C69635F50726564,0,"Begin_Public_Pred")
deallocate
execute(Pred_Name(X7772697465,1),0,"write",1)
label(1)
trust_me_else_fail
put_constant(X426567696E5F507269766174655F50726564,0,"Begin_Private_Pred")
execute(Pred_Name(X7772697465,1),0,"write",1)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit"
#define PRED X635F656D6974
#define ARITY 6
Begin_Private_Pred
try_me_else(5)
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_x_value(2,3)
get_nil(4)
get_nil(5)
proceed
label(3)
trust_me_else_fail
label(4)
allocate(13)
get_list(0)
unify_x_variable(0)
unify_y_variable(10)
get_y_variable(9,1)
get_y_variable(11,2)
get_y_variable(7,3)
get_y_variable(3,4)
get_y_variable(0,5)
get_y_bc_reg(6)
put_y_variable(12,1)
call(Pred_Name(X635F656D69745F2461757835,2),1,1,"c_emit_$aux5",2) /* begin sub 1 */
cut_y(6)
put_y_value(12,0)
put_y_value(9,1)
put_y_value(11,2)
put_y_variable(8,3)
put_y_variable(5,4)
put_y_variable(2,5)
call(Pred_Name(X635F656D6974,6),1,2,"c_emit",6) /* begin sub 2 */
put_y_value(10,0)
put_y_value(9,1)
put_y_value(8,2)
put_y_value(7,3)
put_y_variable(4,4)
put_y_variable(1,5)
call(Pred_Name(X635F656D6974,6),1,3,"c_emit",6) /* begin sub 3 */
cut_y(6)
put_y_value(5,0)
put_y_value(4,1)
put_y_value(3,2)
call(Pred_Name(X617070656E64,3),0,4,"append",3) /* begin sub 4 */
put_y_unsafe_value(2,0)
put_y_unsafe_value(1,1)
put_y_value(0,2)
deallocate
execute(Pred_Name(X617070656E64,3),0,"append",3)
label(5)
retry_me_else(6)
get_x_value(2,3)
get_nil(4)
get_nil(5)
execute(Pred_Name(X64756D6D795F696E737472756374696F6E,1),0,"dummy_instruction",1)
label(6)
retry_me_else(36)
switch_on_term(G_label(8),fail,fail,fail,G_label(7))
label(7)
switch_on_structure(7,"[(get_constant/2,9),(put_constant/2,11),(get_structure/2,13),(put_structure/2,15),(unify_constant/1,17),(call/1,19),(execute/1,21),(switch_on_term/5,23),(switch_on_constant/3,25),(switch_on_integer/3,27),(switch_on_structure/3,29),(try/1,31),(retry/1,33),(label/1,35)]")
label(8)
try_me_else(10)
label(9)
allocate(3)
get_structure(X6765745F636F6E7374616E74,2,0,"get_constant")
unify_y_variable(2)
unify_y_variable(1)
get_x_value(2,3)
get_nil(4)
get_nil(5)
put_x_value(1,0)
put_y_value(2,1)
put_y_variable(0,2)
call(Pred_Name(X6164645F746F5F6469635F61746F6D,3),1,5,"add_to_dic_atom",3) /* begin sub 5 */
put_integer(6,0)
call(Pred_Name(X746162,1),0,6,"tab",1) /* begin sub 6 */
put_constant(X6765745F636F6E7374616E7428,0,"get_constant(")
call(Pred_Name(X7772697465,1),0,7,"write",1) /* begin sub 7 */
put_y_value(2,0)
call(Pred_Name(X685F7772697465,1),1,8,"h_write",1) /* begin sub 8 */
put_constant(X2C7E642C7E61297E6E,0,",~d,~a)~n")
put_list(2)
unify_y_local_value(0)
unify_nil
put_list(1)
unify_y_value(1)
unify_x_value(2)
deallocate
execute(Pred_Name(X666F726D617461,2),0,"formata",2)
label(10)
retry_me_else(12)
label(11)
allocate(3)
get_structure(X7075745F636F6E7374616E74,2,0,"put_constant")
unify_y_variable(2)
unify_y_variable(1)
get_x_value(2,3)
get_nil(4)
get_nil(5)
put_x_value(1,0)
put_y_value(2,1)
put_y_variable(0,2)
call(Pred_Name(X6164645F746F5F6469635F61746F6D,3),1,9,"add_to_dic_atom",3) /* begin sub 9 */
put_integer(6,0)
call(Pred_Name(X746162,1),0,10,"tab",1) /* begin sub 10 */
put_constant(X7075745F636F6E7374616E7428,0,"put_constant(")
call(Pred_Name(X7772697465,1),0,11,"write",1) /* begin sub 11 */
put_y_value(2,0)
call(Pred_Name(X685F7772697465,1),1,12,"h_write",1) /* begin sub 12 */
put_constant(X2C7E642C7E61297E6E,0,",~d,~a)~n")
put_list(2)
unify_y_local_value(0)
unify_nil
put_list(1)
unify_y_value(1)
unify_x_value(2)
deallocate
execute(Pred_Name(X666F726D617461,2),0,"formata",2)
label(12)
retry_me_else(14)
label(13)
allocate(4)
get_structure(X6765745F737472756374757265,2,0,"get_structure")
unify_x_variable(0)
unify_y_variable(1)
get_structure(X2F,2,0,"/")
unify_y_variable(3)
unify_y_variable(2)
get_x_value(2,3)
get_nil(4)
get_nil(5)
put_x_value(1,0)
put_y_value(3,1)
put_y_variable(0,2)
call(Pred_Name(X6164645F746F5F6469635F61746F6D,3),1,13,"add_to_dic_atom",3) /* begin sub 13 */
put_integer(6,0)
call(Pred_Name(X746162,1),0,14,"tab",1) /* begin sub 14 */
put_constant(X6765745F73747275637475726528,0,"get_structure(")
call(Pred_Name(X7772697465,1),0,15,"write",1) /* begin sub 15 */
put_y_value(3,0)
call(Pred_Name(X685F7772697465,1),1,16,"h_write",1) /* begin sub 16 */
put_constant(X2C7E642C7E642C7E61297E6E,0,",~d,~d,~a)~n")
put_list(1)
unify_y_local_value(0)
unify_nil
put_list(2)
unify_y_value(1)
unify_x_value(1)
put_list(1)
unify_y_value(2)
unify_x_value(2)
deallocate
execute(Pred_Name(X666F726D617461,2),0,"formata",2)
label(14)
retry_me_else(16)
label(15)
allocate(4)
get_structure(X7075745F737472756374757265,2,0,"put_structure")
unify_x_variable(0)
unify_y_variable(1)
get_structure(X2F,2,0,"/")
unify_y_variable(3)
unify_y_variable(2)
get_x_value(2,3)
get_nil(4)
get_nil(5)
put_x_value(1,0)
put_y_value(3,1)
put_y_variable(0,2)
call(Pred_Name(X6164645F746F5F6469635F61746F6D,3),1,17,"add_to_dic_atom",3) /* begin sub 17 */
put_integer(6,0)
call(Pred_Name(X746162,1),0,18,"tab",1) /* begin sub 18 */
put_constant(X7075745F73747275637475726528,0,"put_structure(")
call(Pred_Name(X7772697465,1),0,19,"write",1) /* begin sub 19 */
put_y_value(3,0)
call(Pred_Name(X685F7772697465,1),1,20,"h_write",1) /* begin sub 20 */
put_constant(X2C7E642C7E642C7E61297E6E,0,",~d,~d,~a)~n")
put_list(1)
unify_y_local_value(0)
unify_nil
put_list(2)
unify_y_value(1)
unify_x_value(1)
put_list(1)
unify_y_value(2)
unify_x_value(2)
deallocate
execute(Pred_Name(X666F726D617461,2),0,"formata",2)
label(16)
retry_me_else(18)
label(17)
allocate(2)
get_structure(X756E6966795F636F6E7374616E74,1,0,"unify_constant")
unify_y_variable(1)
get_x_value(2,3)
get_nil(4)
get_nil(5)
put_x_value(1,0)
put_y_value(1,1)
put_y_variable(0,2)
call(Pred_Name(X6164645F746F5F6469635F61746F6D,3),1,21,"add_to_dic_atom",3) /* begin sub 21 */
put_integer(6,0)
call(Pred_Name(X746162,1),0,22,"tab",1) /* begin sub 22 */
put_constant(X756E6966795F636F6E7374616E7428,0,"unify_constant(")
call(Pred_Name(X7772697465,1),0,23,"write",1) /* begin sub 23 */
put_y_value(1,0)
call(Pred_Name(X685F7772697465,1),1,24,"h_write",1) /* begin sub 24 */
put_constant(X2C7E61297E6E,0,",~a)~n")
put_list(1)
unify_y_local_value(0)
unify_nil
deallocate
execute(Pred_Name(X666F726D617461,2),0,"formata",2)
label(18)
retry_me_else(20)
label(19)
allocate(6)
get_structure(X63616C6C,1,0,"call")
unify_x_variable(0)
get_structure(X2F,2,0,"/")
unify_y_variable(4)
unify_y_variable(1)
get_y_variable(0,2)
get_y_variable(5,3)
get_nil(4)
get_nil(5)
put_y_value(4,0)
put_y_value(1,1)
put_y_variable(3,2)
call(Pred_Name(X635F656D69745F2461757836,3),1,25,"c_emit_$aux6",3) /* begin sub 25 */
math_load_y_value(0,0)
function_1(inc,0,0)
get_y_value(5,0)
put_y_value(4,0)
put_y_variable(2,1)
call(Pred_Name(X635F737472696E67,2),1,26,"c_string",2) /* begin sub 26 */
put_integer(6,0)
call(Pred_Name(X746162,1),0,27,"tab",1) /* begin sub 27 */
put_constant(X63616C6C28,0,"call(")
call(Pred_Name(X7772697465,1),0,28,"write",1) /* begin sub 28 */
put_y_value(4,0)
put_y_value(1,1)
call(Pred_Name(X77726974655F707265645F6E616D65,2),1,29,"write_pred_name",2) /* begin sub 29 */
put_constant(X2C7E642C7E642C7E612C7E6429,0,",~d,~d,~a,~d)")
put_list(2)
unify_y_value(1)
unify_nil
put_list(1)
unify_y_local_value(2)
unify_x_value(2)
put_list(2)
unify_y_local_value(0)
unify_x_value(1)
put_list(1)
unify_y_local_value(3)
unify_x_value(2)
call(Pred_Name(X666F726D617461,2),0,30,"formata",2) /* begin sub 30 */
put_y_value(0,0)
deallocate
execute(Pred_Name(X635F656D69745F6865616465725F7375625F70726564,1),1,"c_emit_header_sub_pred",1)
label(20)
retry_me_else(22)
label(21)
allocate(4)
get_structure(X65786563757465,1,0,"execute")
unify_x_variable(0)
get_structure(X2F,2,0,"/")
unify_y_variable(3)
unify_y_variable(0)
get_x_value(2,3)
get_nil(4)
get_nil(5)
put_y_value(3,0)
put_y_value(0,1)
put_y_variable(2,2)
call(Pred_Name(X635F656D69745F2461757837,3),1,31,"c_emit_$aux7",3) /* begin sub 31 */
put_y_value(3,0)
put_y_variable(1,1)
call(Pred_Name(X635F737472696E67,2),1,32,"c_string",2) /* begin sub 32 */
put_integer(6,0)
call(Pred_Name(X746162,1),0,33,"tab",1) /* begin sub 33 */
put_constant(X6578656375746528,0,"execute(")
call(Pred_Name(X7772697465,1),0,34,"write",1) /* begin sub 34 */
put_y_value(3,0)
put_y_value(0,1)
call(Pred_Name(X77726974655F707265645F6E616D65,2),1,35,"write_pred_name",2) /* begin sub 35 */
put_constant(X2C7E642C7E612C7E64297E6E,0,",~d,~a,~d)~n")
put_list(1)
unify_y_value(0)
unify_nil
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)
label(22)
retry_me_else(24)
label(23)
allocate(5)
get_structure(X7377697463685F6F6E5F7465726D,5,0,"switch_on_term")
unify_y_variable(4)
unify_y_variable(3)
unify_y_variable(2)
unify_y_variable(1)
unify_y_variable(0)
get_x_value(2,3)
get_nil(4)
get_nil(5)
put_integer(6,0)
call(Pred_Name(X746162,1),0,36,"tab",1) /* begin sub 36 */
put_constant(X7377697463685F6F6E5F7465726D28,0,"switch_on_term(")
call(Pred_Name(X7772697465,1),0,37,"write",1) /* begin sub 37 */
put_y_value(4,0)
call(Pred_Name(X635F656D69745F676F746F5F6F725F6661696C,1),1,38,"c_emit_goto_or_fail",1) /* begin sub 38 */
put_constant(X2C,0,",")
call(Pred_Name(X7772697465,1),0,39,"write",1) /* begin sub 39 */
put_y_value(3,0)
call(Pred_Name(X635F656D69745F676F746F5F6F725F6661696C,1),1,40,"c_emit_goto_or_fail",1) /* begin sub 40 */
put_constant(X2C,0,",")
call(Pred_Name(X7772697465,1),0,41,"write",1) /* begin sub 41 */
put_y_value(2,0)
call(Pred_Name(X635F656D69745F676F746F5F6F725F6661696C,1),1,42,"c_emit_goto_or_fail",1) /* begin sub 42 */
put_constant(X2C,0,",")
call(Pred_Name(X7772697465,1),0,43,"write",1) /* begin sub 43 */
put_y_value(1,0)
call(Pred_Name(X635F656D69745F676F746F5F6F725F6661696C,1),1,44,"c_emit_goto_or_fail",1) /* begin sub 44 */
put_constant(X2C,0,",")
call(Pred_Name(X7772697465,1),0,45,"write",1) /* begin sub 45 */
put_y_value(0,0)
call(Pred_Name(X635F656D69745F676F746F5F6F725F6661696C,1),1,46,"c_emit_goto_or_fail",1) /* begin sub 46 */
put_constant(X29,0,")")
call(Pred_Name(X7772697465,1),0,47,"write",1) /* begin sub 47 */
deallocate
execute(Pred_Name(X6E6C,0),0,"nl",0)
label(24)
retry_me_else(26)
label(25)
allocate(2)
get_structure(X7377697463685F6F6E5F636F6E7374616E74,3,0,"switch_on_constant")
unify_y_variable(1)
unify_x_variable(0)
unify_y_variable(0)
get_x_value(2,3)
get_list(4)
unify_x_variable(1)
unify_nil
get_structure(X63,3,1,"c")
unify_y_value(1)
unify_x_value(0)
unify_y_value(0)
get_nil(5)
put_integer(6,0)
call(Pred_Name(X746162,1),0,48,"tab",1) /* begin sub 48 */
put_constant(X7377697463685F6F6E5F636F6E7374616E7428,0,"switch_on_constant(")
call(Pred_Name(X7772697465,1),0,49,"write",1) /* begin sub 49 */
put_constant(X7E642C227E7722297E6E,0,"~d,\"~w\")~n")
put_list(2)
unify_y_value(0)
unify_nil
put_list(1)
unify_y_value(1)
unify_x_value(2)
deallocate
execute(Pred_Name(X666F726D617461,2),0,"formata",2)
label(26)
retry_me_else(28)
label(27)
allocate(1)
get_structure(X7377697463685F6F6E5F696E7465676572,3,0,"switch_on_integer")
unify_void(2)
unify_y_variable(0)
get_x_value(2,3)
get_nil(4)
get_nil(5)
put_integer(6,0)
call(Pred_Name(X746162,1),0,50,"tab",1) /* begin sub 50 */
put_constant(X7377697463685F6F6E5F696E7465676572286C737428,0,"switch_on_integer(lst(")
call(Pred_Name(X7772697465,1),0,51,"write",1) /* begin sub 51 */
put_y_value(0,0)
call(Pred_Name(X635F656D69745F7377745F696E74,1),1,52,"c_emit_swt_int",1) /* begin sub 52 */
put_constant(X292C227E7722297E6E,0,"),\"~w\")~n")
put_list(1)
unify_y_value(0)
unify_nil
deallocate
execute(Pred_Name(X666F726D617461,2),0,"formata",2)
label(28)
retry_me_else(30)
label(29)
allocate(2)
get_structure(X7377697463685F6F6E5F737472756374757265,3,0,"switch_on_structure")
unify_y_variable(1)
unify_x_variable(0)
unify_y_variable(0)
get_x_value(2,3)
get_nil(4)
get_list(5)
unify_x_variable(1)
unify_nil
get_structure(X73,3,1,"s")
unify_y_value(1)
unify_x_value(0)
unify_y_value(0)
put_integer(6,0)
call(Pred_Name(X746162,1),0,53,"tab",1) /* begin sub 53 */
put_constant(X7377697463685F6F6E5F73747275637475726528,0,"switch_on_structure(")
call(Pred_Name(X7772697465,1),0,54,"write",1) /* begin sub 54 */
put_constant(X7E642C227E7722297E6E,0,"~d,\"~w\")~n")
put_list(2)
unify_y_value(0)
unify_nil
put_list(1)
unify_y_value(1)
unify_x_value(2)
deallocate
execute(Pred_Name(X666F726D617461,2),0,"formata",2)
label(30)
retry_me_else(32)
label(31)
allocate(2)
get_structure(X747279,1,0,"try")
unify_y_variable(1)
get_y_variable(0,2)
get_nil(4)
get_nil(5)
math_load_y_value(0,0)
function_1(inc,0,0)
get_x_value(3,0)
put_integer(6,0)
call(Pred_Name(X746162,1),0,55,"tab",1) /* begin sub 55 */
put_structure(X747279,2,0,"try")
unify_y_value(1)
unify_y_local_value(0)
call(Pred_Name(X7772697465,1),0,56,"write",1) /* begin sub 56 */
put_y_value(0,0)
deallocate
execute(Pred_Name(X635F656D69745F6865616465725F7375625F70726564,1),1,"c_emit_header_sub_pred",1)
label(32)
retry_me_else(34)
label(33)
allocate(2)
get_structure(X7265747279,1,0,"retry")
unify_y_variable(1)
get_y_variable(0,2)
get_nil(4)
get_nil(5)
math_load_y_value(0,0)
function_1(inc,0,0)
get_x_value(3,0)
put_integer(6,0)
call(Pred_Name(X746162,1),0,57,"tab",1) /* begin sub 57 */
put_structure(X7265747279,2,0,"retry")
unify_y_value(1)
unify_y_local_value(0)
call(Pred_Name(X7772697465,1),0,58,"write",1) /* begin sub 58 */
put_y_value(0,0)
deallocate
execute(Pred_Name(X635F656D69745F6865616465725F7375625F70726564,1),1,"c_emit_header_sub_pred",1)
label(34)
trust_me_else_fail
label(35)
get_structure(X6C6162656C,1,0,"label")
unify_x_variable(0)
get_x_value(2,3)
get_nil(4)
get_nil(5)
execute(Pred_Name(X635F656D69745F2461757839,1),1,"c_emit_$aux9",1)
label(36)
trust_me_else_fail
allocate(1)
get_y_variable(0,0)
get_x_value(2,3)
get_nil(4)
get_nil(5)
put_integer(6,0)
call(Pred_Name(X746162,1),0,59,"tab",1) /* begin sub 59 */
put_y_value(0,0)
call(Pred_Name(X7772697465,1),0,60,"write",1) /* begin sub 60 */
deallocate
execute(Pred_Name(X6E6C,0),0,"nl",0)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_$aux5"
#define PRED X635F656D69745F2461757835
#define ARITY 2
Begin_Private_Pred
try_me_else(1)
execute(Pred_Name(X7370656369616C5F666F726D,2),0,"special_form",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 "c_emit_$aux6"
#define PRED X635F656D69745F2461757836
#define ARITY 3
Begin_Private_Pred
try_me_else(1)
allocate(2)
get_x_variable(4,0)
get_x_variable(3,1)
get_y_variable(0,2)
get_y_bc_reg(1)
put_constant(X646566,0,"def")
put_x_value(4,1)
put_x_value(3,2)
call(Pred_Name(X746573745F707265645F696E666F,3),0,1,"test_pred_info",3) /* begin sub 1 */
cut_y(1)
put_y_value(0,0)
get_integer(1,0)
deallocate
proceed
label(1)
trust_me_else_fail
get_integer(0,2)
proceed
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_$aux7"
#define PRED X635F656D69745F2461757837
#define ARITY 3
Begin_Private_Pred
try_me_else(1)
allocate(2)
get_x_variable(4,0)
get_x_variable(3,1)
get_y_variable(0,2)
get_y_bc_reg(1)
put_constant(X646566,0,"def")
put_x_value(4,1)
put_x_value(3,2)
call(Pred_Name(X746573745F707265645F696E666F,3),0,1,"test_pred_info",3) /* begin sub 1 */
cut_y(1)
put_y_value(0,0)
get_integer(1,0)
deallocate
proceed
label(1)
trust_me_else_fail
get_integer(0,2)
proceed
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_goto_or_fail"
#define PRED X635F656D69745F676F746F5F6F725F6661696C
#define ARITY 1
Begin_Private_Pred
execute(Pred_Name(X635F656D69745F676F746F5F6F725F6661696C5F2461757838,1),1,"c_emit_goto_or_fail_$aux8",1)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_goto_or_fail_$aux8"
#define PRED X635F656D69745F676F746F5F6F725F6661696C5F2461757838
#define ARITY 1
Begin_Private_Pred
try_me_else(1)
put_constant(X6661696C,1,"fail")
builtin_2(term_eq,0,1)
neck_cut
put_constant(X6661696C,0,"fail")
execute(Pred_Name(X7772697465,1),0,"write",1)
label(1)
trust_me_else_fail
get_x_variable(1,0)
put_structure(X475F6C6162656C,1,0,"G_label")
unify_x_local_value(1)
execute(Pred_Name(X7772697465,1),0,"write",1)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_swt_int"
#define PRED X635F656D69745F7377745F696E74
#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)
proceed
label(3)
trust_me_else_fail
label(4)
allocate(1)
get_list(0)
unify_x_variable(0)
unify_y_variable(0)
get_structure(X2C,2,0,",")
unify_x_variable(2)
unify_x_variable(1)
put_structure(X69,2,0,"i")
unify_x_value(2)
unify_x_value(1)
call(Pred_Name(X7772697465,1),0,1,"write",1) /* begin sub 1 */
put_constant(X20,0," ")
call(Pred_Name(X7772697465,1),0,2,"write",1) /* begin sub 2 */
put_y_value(0,0)
deallocate
execute(Pred_Name(X635F656D69745F7377745F696E74,1),1,"c_emit_swt_int",1)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_$aux9"
#define PRED X635F656D69745F2461757839
#define ARITY 1
Begin_Private_Pred
try_me_else(1)
get_integer(0,0)
neck_cut
proceed
label(1)
trust_me_else_fail
allocate(1)
get_y_variable(0,0)
call(Pred_Name(X6E6C,0),0,1,"nl",0) /* begin sub 1 */
put_structure(X6C6162656C,1,0,"label")
unify_y_local_value(0)
call(Pred_Name(X7772697465,1),0,2,"write",1) /* begin sub 2 */
deallocate
execute(Pred_Name(X6E6C,0),0,"nl",0)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_header_sub_pred"
#define PRED X635F656D69745F6865616465725F7375625F70726564
#define ARITY 1
Begin_Private_Pred
get_x_variable(2,0)
put_constant(X202020202020202020202F2A20626567696E20737562207E64202A2F7E6E,0," /* begin sub ~d */~n")
put_list(1)
unify_x_local_value(2)
unify_nil
execute(Pred_Name(X666F726D617461,2),0,"formata",2)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_fct_init_tables"
#define PRED X635F656D69745F6663745F696E69745F7461626C6573
#define ARITY 3
Begin_Private_Pred
allocate(4)
get_y_variable(2,0)
get_y_variable(1,1)
get_y_variable(0,2)
put_constant(X6D6F64756C65,1,"module")
put_y_variable(3,0)
builtin_2(g_read,1,0)
call(Pred_Name(X6E6C,0),0,1,"nl",0) /* begin sub 1 */
call(Pred_Name(X6E6C,0),0,2,"nl",0) /* begin sub 2 */
put_structure(X426567696E5F496E69745F5461626C6573,1,0,"Begin_Init_Tables")
unify_y_local_value(3)
call(Pred_Name(X7772697465,1),0,3,"write",1) /* begin sub 3 */
call(Pred_Name(X6E6C,0),0,4,"nl",0) /* begin sub 4 */
call(Pred_Name(X6E6C,0),0,5,"nl",0) /* begin sub 5 */
put_y_value(2,0)
call(Pred_Name(X635F656D69745F696E69745F7461626C65735F61746F6D,1),1,6,"c_emit_init_tables_atom",1) /* begin sub 6 */
call(Pred_Name(X6E6C,0),0,7,"nl",0) /* begin sub 7 */
put_y_value(1,0)
put_y_value(0,1)
call(Pred_Name(X635F656D69745F696E69745F7461626C65735F70726564,2),1,8,"c_emit_init_tables_pred",2) /* begin sub 8 */
call(Pred_Name(X6E6C,0),0,9,"nl",0) /* begin sub 9 */
put_constant(X20496E69745F5573725F46696C65,0," Init_Usr_File")
call(Pred_Name(X7772697465,1),0,10,"write",1) /* begin sub 10 */
call(Pred_Name(X6E6C,0),0,11,"nl",0) /* begin sub 11 */
call(Pred_Name(X6E6C,0),0,12,"nl",0) /* begin sub 12 */
put_constant(X456E645F496E69745F5461626C6573,0,"End_Init_Tables")
call(Pred_Name(X7772697465,1),0,13,"write",1) /* begin sub 13 */
deallocate
execute(Pred_Name(X6E6C,0),0,"nl",0)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_init_tables_atom"
#define PRED X635F656D69745F696E69745F7461626C65735F61746F6D
#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)
proceed
label(3)
trust_me_else_fail
label(4)
allocate(3)
get_list(0)
unify_x_variable(0)
unify_y_variable(0)
get_structure(X2D,2,0,"-")
unify_y_variable(2)
unify_y_variable(1)
put_constant(X20446566696E655F41746F6D28,0," Define_Atom(")
call(Pred_Name(X7772697465,1),0,1,"write",1) /* begin sub 1 */
put_y_value(2,0)
call(Pred_Name(X685F7772697465,1),1,2,"h_write",1) /* begin sub 2 */
put_constant(X2C7E61297E6E,0,",~a)~n")
put_list(1)
unify_y_value(1)
unify_nil
call(Pred_Name(X666F726D617461,2),0,3,"formata",2) /* begin sub 3 */
put_y_value(0,0)
deallocate
execute(Pred_Name(X635F656D69745F696E69745F7461626C65735F61746F6D,1),1,"c_emit_init_tables_atom",1)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_init_tables_pred"
#define PRED X635F656D69745F696E69745F7461626C65735F70726564
#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_integer(0,1)
proceed
label(3)
trust_me_else_fail
label(4)
allocate(8)
get_list(0)
unify_x_variable(0)
unify_y_variable(3)
get_structure(X70,3,0,"p")
unify_x_variable(0)
unify_y_variable(7)
unify_y_variable(6)
get_structure(X2F,2,0,"/")
unify_y_variable(5)
unify_y_variable(4)
get_y_variable(2,1)
call(Pred_Name(X6E6C,0),0,1,"nl",0) /* begin sub 1 */
put_constant(X20446566696E655F5072656428,0," Define_Pred(")
call(Pred_Name(X7772697465,1),0,2,"write",1) /* begin sub 2 */
put_y_value(5,0)
call(Pred_Name(X685F7772697465,1),1,3,"h_write",1) /* begin sub 3 */
put_constant(X2C7E642C,0,",~d,")
put_list(1)
unify_y_value(4)
unify_nil
call(Pred_Name(X666F726D617461,2),0,4,"formata",2) /* begin sub 4 */
put_y_value(5,0)
put_y_value(4,1)
put_y_variable(0,2)
call(Pred_Name(X635F656D69745F696E69745F7461626C65735F707265645F246175783130,3),1,5,"c_emit_init_tables_pred_$aux10",3) /* begin sub 5 */
put_constant(X29,0,")")
call(Pred_Name(X7772697465,1),0,6,"write",1) /* begin sub 6 */
call(Pred_Name(X6E6C,0),0,7,"nl",0) /* begin sub 7 */
put_y_value(7,0)
put_y_value(5,1)
put_y_value(4,2)
call(Pred_Name(X635F656D69745F696E69745F74626C5F7377745F637374,3),1,8,"c_emit_init_tbl_swt_cst",3) /* begin sub 8 */
put_y_value(6,0)
put_y_value(5,1)
put_y_value(4,2)
call(Pred_Name(X635F656D69745F696E69745F74626C5F7377745F737463,3),1,9,"c_emit_init_tbl_swt_stc",3) /* begin sub 9 */
put_y_value(3,0)
put_y_variable(1,1)
call(Pred_Name(X635F656D69745F696E69745F7461626C65735F70726564,2),1,10,"c_emit_init_tables_pred",2) /* begin sub 10 */
math_load_y_value(1,1)
math_load_y_value(0,0)
function_2(add,0,1,0)
get_y_value(2,0)
deallocate
proceed
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_init_tables_pred_$aux10"
#define PRED X635F656D69745F696E69745F7461626C65735F707265645F246175783130
#define ARITY 3
Begin_Private_Pred
try_me_else(1)
allocate(2)
get_x_variable(4,0)
get_x_variable(3,1)
get_y_variable(0,2)
get_y_bc_reg(1)
put_constant(X707562,0,"pub")
put_x_value(4,1)
put_x_value(3,2)
call(Pred_Name(X746573745F707265645F696E666F,3),0,1,"test_pred_info",3) /* begin sub 1 */
cut_y(1)
put_integer(1,0)
call(Pred_Name(X7772697465,1),0,2,"write",1) /* begin sub 2 */
put_y_value(0,0)
get_integer(0,0)
deallocate
proceed
label(1)
trust_me_else_fail
allocate(1)
get_y_variable(0,2)
put_integer(0,0)
call(Pred_Name(X7772697465,1),0,3,"write",1) /* begin sub 3 */
put_y_value(0,0)
get_integer(1,0)
deallocate
proceed
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_init_tbl_swt_cst"
#define PRED X635F656D69745F696E69745F74626C5F7377745F637374
#define ARITY 3
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)
proceed
label(3)
trust_me_else_fail
label(4)
allocate(6)
get_list(0)
unify_x_variable(0)
unify_y_variable(2)
get_structure(X63,3,0,"c")
unify_y_variable(5)
unify_y_variable(4)
unify_y_variable(3)
get_y_variable(1,1)
get_y_variable(0,2)
put_constant(X20446566696E655F5377697463685F4353545F5461626C6528,0," Define_Switch_CST_Table(")
call(Pred_Name(X7772697465,1),0,1,"write",1) /* begin sub 1 */
put_y_value(1,0)
put_y_value(0,1)
put_y_value(5,2)
put_constant(X637374,3,"cst")
call(Pred_Name(X77726974655F7377745F7461626C655F6E616D65,4),1,2,"write_swt_table_name",4) /* begin sub 2 */
put_constant(X2C7E64297E6E,0,",~d)~n")
put_list(1)
unify_y_value(4)
unify_nil
call(Pred_Name(X666F726D617461,2),0,3,"formata",2) /* begin sub 3 */
put_y_value(3,0)
put_y_value(1,1)
put_y_value(0,2)
call(Pred_Name(X635F656D69745F696E69745F7377745F637374,3),1,4,"c_emit_init_swt_cst",3) /* begin sub 4 */
put_y_value(2,0)
put_y_value(1,1)
put_y_value(0,2)
deallocate
execute(Pred_Name(X635F656D69745F696E69745F74626C5F7377745F637374,3),1,"c_emit_init_tbl_swt_cst",3)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_init_swt_cst"
#define PRED X635F656D69745F696E69745F7377745F637374
#define ARITY 3
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)
proceed
label(3)
trust_me_else_fail
label(4)
allocate(5)
get_list(0)
unify_x_variable(0)
unify_y_variable(2)
get_structure(X2C,2,0,",")
unify_y_variable(4)
unify_y_variable(3)
get_y_variable(1,1)
get_y_variable(0,2)
put_constant(X2020202020446566696E655F5377697463685F43535428,0," Define_Switch_CST(")
call(Pred_Name(X7772697465,1),0,1,"write",1) /* begin sub 1 */
put_y_value(4,0)
call(Pred_Name(X685F7772697465,1),1,2,"h_write",1) /* begin sub 2 */
put_constant(X2C,0,",")
call(Pred_Name(X7772697465,1),0,3,"write",1) /* begin sub 3 */
put_y_value(1,0)
put_y_value(0,1)
put_y_value(3,2)
call(Pred_Name(X77726974655F6C6162656C5F707265645F6E616D65,3),1,4,"write_label_pred_name",3) /* begin sub 4 */
put_constant(X29,0,")")
call(Pred_Name(X7772697465,1),0,5,"write",1) /* begin sub 5 */
call(Pred_Name(X6E6C,0),0,6,"nl",0) /* begin sub 6 */
put_y_value(2,0)
put_y_value(1,1)
put_y_value(0,2)
deallocate
execute(Pred_Name(X635F656D69745F696E69745F7377745F637374,3),1,"c_emit_init_swt_cst",3)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_init_tbl_swt_stc"
#define PRED X635F656D69745F696E69745F74626C5F7377745F737463
#define ARITY 3
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)
proceed
label(3)
trust_me_else_fail
label(4)
allocate(6)
get_list(0)
unify_x_variable(0)
unify_y_variable(2)
get_structure(X73,3,0,"s")
unify_y_variable(5)
unify_y_variable(4)
unify_y_variable(3)
get_y_variable(1,1)
get_y_variable(0,2)
put_constant(X20446566696E655F5377697463685F5354435F5461626C6528,0," Define_Switch_STC_Table(")
call(Pred_Name(X7772697465,1),0,1,"write",1) /* begin sub 1 */
put_y_value(1,0)
put_y_value(0,1)
put_y_value(5,2)
put_constant(X737463,3,"stc")
call(Pred_Name(X77726974655F7377745F7461626C655F6E616D65,4),1,2,"write_swt_table_name",4) /* begin sub 2 */
put_constant(X2C7E64297E6E,0,",~d)~n")
put_list(1)
unify_y_value(4)
unify_nil
call(Pred_Name(X666F726D617461,2),0,3,"formata",2) /* begin sub 3 */
put_y_value(3,0)
put_y_value(1,1)
put_y_value(0,2)
call(Pred_Name(X635F656D69745F696E69745F7377745F737463,3),1,4,"c_emit_init_swt_stc",3) /* begin sub 4 */
put_y_value(2,0)
put_y_value(1,1)
put_y_value(0,2)
deallocate
execute(Pred_Name(X635F656D69745F696E69745F74626C5F7377745F737463,3),1,"c_emit_init_tbl_swt_stc",3)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_init_swt_stc"
#define PRED X635F656D69745F696E69745F7377745F737463
#define ARITY 3
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)
proceed
label(3)
trust_me_else_fail
label(4)
allocate(6)
get_list(0)
unify_x_variable(0)
unify_y_variable(2)
get_structure(X2C,2,0,",")
unify_x_variable(0)
unify_y_variable(3)
get_structure(X2F,2,0,"/")
unify_y_variable(5)
unify_y_variable(4)
get_y_variable(1,1)
get_y_variable(0,2)
put_constant(X2020202020446566696E655F5377697463685F53544328,0," Define_Switch_STC(")
call(Pred_Name(X7772697465,1),0,1,"write",1) /* begin sub 1 */
put_y_value(5,0)
call(Pred_Name(X685F7772697465,1),1,2,"h_write",1) /* begin sub 2 */
put_constant(X2C7E642C,0,",~d,")
put_list(1)
unify_y_value(4)
unify_nil
call(Pred_Name(X666F726D617461,2),0,3,"formata",2) /* begin sub 3 */
put_y_value(1,0)
put_y_value(0,1)
put_y_value(3,2)
call(Pred_Name(X77726974655F6C6162656C5F707265645F6E616D65,3),1,4,"write_label_pred_name",3) /* begin sub 4 */
put_constant(X29,0,")")
call(Pred_Name(X7772697465,1),0,5,"write",1) /* begin sub 5 */
call(Pred_Name(X6E6C,0),0,6,"nl",0) /* begin sub 6 */
put_y_value(2,0)
put_y_value(1,1)
put_y_value(0,2)
deallocate
execute(Pred_Name(X635F656D69745F696E69745F7377745F737463,3),1,"c_emit_init_swt_stc",3)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_fct_exec_directives"
#define PRED X635F656D69745F6663745F657865635F64697265637469766573
#define ARITY 0
Begin_Private_Pred
allocate(1)
put_constant(X6D6F64756C65,1,"module")
put_y_variable(0,0)
builtin_2(g_read,1,0)
call(Pred_Name(X6E6C,0),0,1,"nl",0) /* begin sub 1 */
call(Pred_Name(X6E6C,0),0,2,"nl",0) /* begin sub 2 */
put_structure(X426567696E5F457865635F44697265637469766573,1,0,"Begin_Exec_Directives")
unify_y_local_value(0)
call(Pred_Name(X7772697465,1),0,3,"write",1) /* begin sub 3 */
call(Pred_Name(X6E6C,0),0,4,"nl",0) /* begin sub 4 */
call(Pred_Name(X6E6C,0),0,5,"nl",0) /* begin sub 5 */
put_constant(X6E625F636C617573655F64796E,2,"nb_clause_dyn")
put_x_variable(1,0)
builtin_2(g_read,2,0)
put_integer(1,0)
put_constant(X2464796E5F,2,"$dyn_")
call(Pred_Name(X635F656D69745F657865635F64697265637469766573,3),1,6,"c_emit_exec_directives",3) /* begin sub 6 */
call(Pred_Name(X6E6C,0),0,7,"nl",0) /* begin sub 7 */
put_constant(X6E625F636C617573655F657865,2,"nb_clause_exe")
put_x_variable(1,0)
builtin_2(g_read,2,0)
put_integer(1,0)
put_constant(X246578655F,2,"$exe_")
call(Pred_Name(X635F656D69745F657865635F64697265637469766573,3),1,8,"c_emit_exec_directives",3) /* begin sub 8 */
call(Pred_Name(X6E6C,0),0,9,"nl",0) /* begin sub 9 */
put_constant(X456E645F457865635F44697265637469766573,0,"End_Exec_Directives")
call(Pred_Name(X7772697465,1),0,10,"write",1) /* begin sub 10 */
deallocate
execute(Pred_Name(X6E6C,0),0,"nl",0)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_exec_directives"
#define PRED X635F656D69745F657865635F64697265637469766573
#define ARITY 3
Begin_Private_Pred
execute(Pred_Name(X635F656D69745F657865635F646972656374697665735F246175783131,3),1,"c_emit_exec_directives_$aux11",3)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_exec_directives_$aux11"
#define PRED X635F656D69745F657865635F646972656374697665735F246175783131
#define ARITY 3
Begin_Private_Pred
try_me_else(1)
allocate(4)
get_y_variable(2,0)
get_y_variable(1,1)
get_y_variable(0,2)
math_load_y_value(2,1)
math_load_y_value(1,0)
builtin_2(lte,1,0)
neck_cut
put_y_value(0,0)
put_y_value(2,1)
put_y_variable(3,2)
call(Pred_Name(X6D616B655F7370656369616C5F636C617573655F68656164,3),0,1,"make_special_clause_head",3) /* begin sub 1 */
put_constant(X20457865635F446972656374697665287E642C,0," Exec_Directive(~d,")
put_list(1)
unify_y_local_value(2)
unify_nil
call(Pred_Name(X666F726D617461,2),0,2,"formata",2) /* begin sub 2 */
put_y_value(3,0)
put_integer(0,1)
call(Pred_Name(X77726974655F707265645F6E616D65,2),1,3,"write_pred_name",2) /* begin sub 3 */
put_constant(X29,0,")")
call(Pred_Name(X7772697465,1),0,4,"write",1) /* begin sub 4 */
call(Pred_Name(X6E6C,0),0,5,"nl",0) /* begin sub 5 */
math_load_y_value(2,0)
function_1(inc,0,0)
put_y_value(1,1)
put_y_value(0,2)
deallocate
execute(Pred_Name(X635F656D69745F657865635F64697265637469766573,3),1,"c_emit_exec_directives",3)
label(1)
trust_me_else_fail
proceed
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_fct_main"
#define PRED X635F656D69745F6663745F6D61696E
#define ARITY 1
Begin_Private_Pred
allocate(6)
get_y_bc_reg(5)
put_constant(X6D6F64756C65,2,"module")
put_y_variable(3,1)
builtin_2(g_read,2,1)
put_y_variable(4,1)
put_y_variable(1,2)
call(Pred_Name(X635F656D69745F6663745F6D61696E5F246175783132,3),1,1,"c_emit_fct_main_$aux12",3) /* begin sub 1 */
cut_y(5)
put_y_value(4,0)
put_list(1)
unify_y_local_value(3)
unify_nil
put_y_variable(2,2)
call(Pred_Name(X617070656E64,3),0,2,"append",3) /* begin sub 2 */
put_y_variable(0,0)
get_list(0)
unify_constant(X4275696C74696E,"Builtin")
unify_y_local_value(2)
put_constant(X7E6E7E6E2F2A2A2A204D41494E202A2A2A2F7E6E7E6E,0,"~n~n/*** MAIN ***/~n~n")
put_nil(1)
call(Pred_Name(X666F726D617461,2),0,3,"formata",2) /* begin sub 3 */
put_constant(X696E74206D61696E28696E7420617267632C63686172202A617267765B5D297E6E7E6E7B7E6E,0,"int main(int argc,char *argv[])~n~n{~n")
put_nil(1)
call(Pred_Name(X666F726D617461,2),0,4,"formata",2) /* begin sub 4 */
put_constant(X20756E69785F617267633D617267633B7E6E,0," unix_argc=argc;~n")
put_nil(1)
call(Pred_Name(X666F726D617461,2),0,5,"formata",2) /* begin sub 5 */
put_constant(X20756E69785F617267763D617267763B7E6E7E6E,0," unix_argv=argv;~n~n")
put_nil(1)
call(Pred_Name(X666F726D617461,2),0,6,"formata",2) /* begin sub 6 */
put_y_value(1,0)
call(Pred_Name(X635F656D69745F6663745F6D61696E5F646566696E655F737461636B73,1),1,7,"c_emit_fct_main_define_stacks",1) /* begin sub 7 */
call(Pred_Name(X6E6C,0),0,8,"nl",0) /* begin sub 8 */
put_constant(X20496E69745F57616D5F456E67696E6528293B7E6E7E6E,0," Init_Wam_Engine();~n~n")
put_nil(1)
call(Pred_Name(X666F726D617461,2),0,9,"formata",2) /* begin sub 9 */
put_y_value(0,0)
call(Pred_Name(X635F656D69745F6663745F6D61696E5F696E69745F7461626C65735F6D6F64756C6573,1),1,10,"c_emit_fct_main_init_tables_modules",1) /* begin sub 10 */
call(Pred_Name(X6E6C,0),0,11,"nl",0) /* begin sub 11 */
put_y_value(0,0)
call(Pred_Name(X635F656D69745F6663745F6D61696E5F657865635F646972656374697665735F6D6F64756C6573,1),1,12,"c_emit_fct_main_exec_directives_modules",1) /* begin sub 12 */
call(Pred_Name(X6E6C,0),0,13,"nl",0) /* begin sub 13 */
put_constant(X205465726D5F57616D5F456E67696E6528293B7E6E7E6E,0," Term_Wam_Engine();~n~n")
put_nil(1)
call(Pred_Name(X666F726D617461,2),0,14,"formata",2) /* begin sub 14 */
put_constant(X2072657475726E20303B7E6E7D7E6E,0," return 0;~n}~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 "c_emit_fct_main_$aux12"
#define PRED X635F656D69745F6663745F6D61696E5F246175783132
#define ARITY 3
Begin_Private_Pred
try_me_else(1)
get_constant(X6D61696E,0,"main")
get_nil(1)
get_nil(2)
proceed
label(1)
retry_me_else(2)
get_structure(X6D61696E,1,0,"main")
unify_x_local_value(1)
get_nil(2)
proceed
label(2)
trust_me_else_fail
get_structure(X6D61696E,2,0,"main")
unify_x_local_value(1)
unify_x_local_value(2)
proceed
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_fct_main_define_stacks"
#define PRED X635F656D69745F6663745F6D61696E5F646566696E655F737461636B73
#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)
proceed
label(3)
trust_me_else_fail
label(4)
allocate(1)
get_list(0)
unify_x_variable(0)
unify_y_variable(0)
get_structure(X737461636B,3,0,"stack")
unify_x_variable(3)
unify_x_variable(4)
unify_x_variable(2)
put_constant(X205365745F537461636B5F44656661756C747328227E61222C227E61222C7E64293B7E6E,0," Set_Stack_Defaults(\"~a\",\"~a\",~d);~n")
put_list(1)
unify_x_value(2)
unify_nil
put_list(2)
unify_x_value(4)
unify_x_value(1)
put_list(1)
unify_x_value(3)
unify_x_value(2)
call(Pred_Name(X666F726D617461,2),0,1,"formata",2) /* begin sub 1 */
put_y_value(0,0)
deallocate
execute(Pred_Name(X635F656D69745F6663745F6D61696E5F646566696E655F737461636B73,1),1,"c_emit_fct_main_define_stacks",1)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_fct_main_init_tables_modules"
#define PRED X635F656D69745F6663745F6D61696E5F696E69745F7461626C65735F6D6F64756C6573
#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)
proceed
label(3)
trust_me_else_fail
label(4)
allocate(1)
get_list(0)
unify_x_variable(1)
unify_y_variable(0)
put_structure(X20496E69745F5461626C65735F4F665F4D6F64756C65,1,0," Init_Tables_Of_Module")
unify_x_value(1)
call(Pred_Name(X7772697465,1),0,1,"write",1) /* begin sub 1 */
call(Pred_Name(X6E6C,0),0,2,"nl",0) /* begin sub 2 */
put_y_value(0,0)
deallocate
execute(Pred_Name(X635F656D69745F6663745F6D61696E5F696E69745F7461626C65735F6D6F64756C6573,1),1,"c_emit_fct_main_init_tables_modules",1)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_fct_main_exec_directives_modules"
#define PRED X635F656D69745F6663745F6D61696E5F657865635F646972656374697665735F6D6F64756C6573
#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)
proceed
label(3)
trust_me_else_fail
label(4)
allocate(1)
get_list(0)
unify_x_variable(1)
unify_y_variable(0)
put_structure(X20457865635F446972656374697665735F4F665F4D6F64756C65,1,0," Exec_Directives_Of_Module")
unify_x_value(1)
call(Pred_Name(X7772697465,1),0,1,"write",1) /* begin sub 1 */
call(Pred_Name(X6E6C,0),0,2,"nl",0) /* begin sub 2 */
put_y_value(0,0)
deallocate
execute(Pred_Name(X635F656D69745F6663745F6D61696E5F657865635F646972656374697665735F6D6F64756C6573,1),1,"c_emit_fct_main_exec_directives_modules",1)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "add_to_dic_atom"
#define PRED X6164645F746F5F6469635F61746F6D
#define ARITY 3
Begin_Private_Pred
allocate(3)
get_x_variable(3,0)
get_y_variable(2,1)
get_y_variable(1,2)
get_y_bc_reg(0)
put_structure(X2D,2,0,"-")
unify_y_local_value(2)
unify_y_local_value(1)
put_x_value(3,1)
call(Pred_Name(X6D656D626572,2),0,1,"member",2) /* begin sub 1 */
put_y_value(2,0)
put_y_value(1,1)
call(Pred_Name(X6164645F746F5F6469635F61746F6D5F246175783133,2),1,2,"add_to_dic_atom_$aux13",2) /* begin sub 2 */
cut_y(0)
deallocate
proceed
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "add_to_dic_atom_$aux13"
#define PRED X6164645F746F5F6469635F61746F6D5F246175783133
#define ARITY 2
Begin_Private_Pred
try_me_else(1)
builtin_1(var,1)
execute(Pred_Name(X635F737472696E67,2),1,"c_string",2)
label(1)
trust_me_else_fail
proceed
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_string"
#define PRED X635F737472696E67
#define ARITY 2
Begin_Private_Pred
allocate(3)
get_y_variable(1,1)
put_y_variable(2,1)
call(Pred_Name(X61746F6D5F636F646573,2),0,1,"atom_codes",2) /* begin sub 1 */
put_y_value(2,0)
put_y_variable(0,1)
call(Pred_Name(X70726F6C6F675F746F5F635F737472696E67,2),1,2,"prolog_to_c_string",2) /* begin sub 2 */
put_y_value(1,0)
put_list(1)
unify_integer(34)
unify_y_local_value(0)
deallocate
execute(Pred_Name(X61746F6D5F636F646573,2),0,"atom_codes",2)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "prolog_to_c_string"
#define PRED X70726F6C6F675F746F5F635F737472696E67
#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_list(1)
unify_integer(34)
unify_nil
proceed
label(3)
trust_me_else_fail
label(4)
allocate(2)
get_list(0)
unify_x_variable(0)
unify_y_variable(1)
put_y_variable(0,2)
call(Pred_Name(X70726F6C6F675F746F5F635F737472696E675F246175783134,3),1,1,"prolog_to_c_string_$aux14",3) /* begin sub 1 */
put_y_value(1,0)
put_y_unsafe_value(0,1)
deallocate
execute(Pred_Name(X70726F6C6F675F746F5F635F737472696E67,2),1,"prolog_to_c_string",2)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "prolog_to_c_string_$aux14"
#define PRED X70726F6C6F675F746F5F635F737472696E675F246175783134
#define ARITY 3
Begin_Private_Pred
try_me_else(1)
allocate(4)
get_y_variable(1,0)
get_y_variable(2,1)
get_y_variable(0,2)
get_y_bc_reg(3)
put_y_value(1,0)
call(Pred_Name(X70726F6C6F675F746F5F635F737472696E675F246175783135,1),1,1,"prolog_to_c_string_$aux15",1) /* begin sub 1 */
cut_y(3)
put_y_value(2,0)
get_list(0)
unify_integer(92)
unify_x_variable(0)
get_list(0)
unify_y_local_value(1)
unify_y_local_value(0)
deallocate
proceed
label(1)
trust_me_else_fail
get_list(1)
unify_x_local_value(0)
unify_x_local_value(2)
proceed
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "prolog_to_c_string_$aux15"
#define PRED X70726F6C6F675F746F5F635F737472696E675F246175783135
#define ARITY 1
Begin_Private_Pred
try_me_else(1)
get_integer(92,0)
proceed
label(1)
trust_me_else_fail
get_integer(34,0)
proceed
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_fic_h"
#define PRED X635F656D69745F6669635F68
#define ARITY 3
Begin_Private_Pred
allocate(6)
get_y_variable(1,0)
get_y_variable(0,1)
get_y_variable(4,2)
put_constant(X6D6F64756C65,1,"module")
put_y_variable(3,0)
builtin_2(g_read,1,0)
put_constant(X6669635F68,1,"fic_h")
put_y_variable(5,0)
builtin_2(g_read,1,0)
put_y_value(5,0)
call(Pred_Name(X74656C6C,1),0,1,"tell",1) /* begin sub 1 */
put_constant(X2F2A7E2A637E6E,0,"/*~*c~n")
put_list(2)
unify_integer(42)
unify_nil
put_list(1)
unify_integer(75)
unify_x_value(2)
call(Pred_Name(X666F726D617461,2),0,2,"formata",2) /* begin sub 2 */
call(Pred_Name(X646973706C61795F76657273696F6E,0),0,3,"display_version",0) /* begin sub 3 */
put_constant(X66696C65203A207E617E6E,0,"file : ~a~n")
put_list(1)
unify_y_local_value(5)
unify_nil
call(Pred_Name(X666F726D617461,2),0,4,"formata",2) /* begin sub 4 */
put_constant(X7E2A632A2F7E6E7E6E,0,"~*c*/~n~n")
put_list(2)
unify_integer(42)
unify_nil
put_list(1)
unify_integer(75)
unify_x_value(2)
call(Pred_Name(X666F726D617461,2),0,5,"formata",2) /* begin sub 5 */
put_constant(X23646566696E65204E425F4F465F505249564154455F5052454453202020207E647E6E7E6E,0,"#define NB_OF_PRIVATE_PREDS ~d~n~n")
put_list(1)
unify_y_local_value(4)
unify_nil
call(Pred_Name(X666F726D617461,2),0,6,"formata",2) /* begin sub 6 */
put_y_value(3,0)
put_y_variable(2,1)
call(Pred_Name(X635F737472696E67,2),1,7,"c_string",2) /* begin sub 7 */
put_constant(X7374617469632063686172202020202A6D6F64756C655F6E616D653D7E613B7E6E,0,"static char *module_name=~a;~n")
put_list(1)
unify_y_local_value(2)
unify_nil
call(Pred_Name(X666F726D617461,2),0,8,"formata",2) /* begin sub 8 */
put_constant(X73746174696320696E742020202020206D6F64756C655F6E623B7E6E7E6E,0,"static int module_nb;~n~n")
put_nil(1)
call(Pred_Name(X666F726D617461,2),0,9,"formata",2) /* begin sub 9 */
put_y_value(1,0)
call(Pred_Name(X635F656D69745F6465636C5F7661725F61746F6D,1),1,10,"c_emit_decl_var_atom",1) /* begin sub 10 */
call(Pred_Name(X6E6C,0),0,11,"nl",0) /* begin sub 11 */
put_y_value(0,0)
call(Pred_Name(X635F656D69745F6465636C5F7661725F70726564,1),1,12,"c_emit_decl_var_pred",1) /* begin sub 12 */
call(Pred_Name(X6E6C,0),0,13,"nl",0) /* begin sub 13 */
deallocate
execute(Pred_Name(X746F6C64,0),0,"told",0)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_decl_var_atom"
#define PRED X635F656D69745F6465636C5F7661725F61746F6D
#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)
proceed
label(3)
trust_me_else_fail
label(4)
allocate(2)
get_list(0)
unify_x_variable(0)
unify_y_variable(0)
get_structure(X2D,2,0,"-")
unify_y_variable(1)
unify_void(1)
put_constant(X7374617469632041746F6D496E66202A,0,"static AtomInf *")
call(Pred_Name(X7772697465,1),0,1,"write",1) /* begin sub 1 */
put_y_value(1,0)
call(Pred_Name(X685F7772697465,1),1,2,"h_write",1) /* begin sub 2 */
put_constant(X3B,0,";")
call(Pred_Name(X7772697465,1),0,3,"write",1) /* begin sub 3 */
call(Pred_Name(X6E6C,0),0,4,"nl",0) /* begin sub 4 */
put_y_value(0,0)
deallocate
execute(Pred_Name(X635F656D69745F6465636C5F7661725F61746F6D,1),1,"c_emit_decl_var_atom",1)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_decl_var_pred"
#define PRED X635F656D69745F6465636C5F7661725F70726564
#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)
proceed
label(3)
trust_me_else_fail
label(4)
allocate(4)
get_list(0)
unify_x_variable(0)
unify_y_variable(0)
get_structure(X70,3,0,"p")
unify_x_variable(1)
unify_x_variable(0)
unify_y_variable(3)
get_structure(X2F,2,1,"/")
unify_y_variable(2)
unify_y_variable(1)
put_constant(X637374,1,"cst")
put_y_value(2,2)
put_y_value(1,3)
call(Pred_Name(X635F656D69745F6465636C5F74626C5F737774,4),1,1,"c_emit_decl_tbl_swt",4) /* begin sub 1 */
put_y_value(3,0)
put_constant(X737463,1,"stc")
put_y_value(2,2)
put_y_value(1,3)
call(Pred_Name(X635F656D69745F6465636C5F74626C5F737774,4),1,2,"c_emit_decl_tbl_swt",4) /* begin sub 2 */
put_y_value(0,0)
deallocate
execute(Pred_Name(X635F656D69745F6465636C5F7661725F70726564,1),1,"c_emit_decl_var_pred",1)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_decl_tbl_swt"
#define PRED X635F656D69745F6465636C5F74626C5F737774
#define ARITY 4
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)
proceed
label(3)
trust_me_else_fail
label(4)
allocate(5)
get_list(0)
unify_x_variable(4)
unify_y_variable(3)
get_y_variable(2,1)
get_y_variable(1,2)
get_y_variable(0,3)
put_integer(1,1)
put_y_variable(4,0)
builtin_3(arg,1,4,0)
put_constant(X7374617469632053777454626C202020,0,"static SwtTbl ")
call(Pred_Name(X7772697465,1),0,1,"write",1) /* begin sub 1 */
put_y_value(1,0)
put_y_value(0,1)
put_y_value(4,2)
put_y_value(2,3)
call(Pred_Name(X77726974655F7377745F7461626C655F6E616D65,4),1,2,"write_swt_table_name",4) /* begin sub 2 */
put_constant(X3B,0,";")
call(Pred_Name(X7772697465,1),0,3,"write",1) /* begin sub 3 */
call(Pred_Name(X6E6C,0),0,4,"nl",0) /* begin sub 4 */
put_y_value(3,0)
put_y_value(2,1)
put_y_value(1,2)
put_y_value(0,3)
deallocate
execute(Pred_Name(X635F656D69745F6465636C5F74626C5F737774,4),1,"c_emit_decl_tbl_swt",4)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_fic_usr"
#define PRED X635F656D69745F6669635F757372
#define ARITY 1
Begin_Private_Pred
try_me_else(1)
get_x_variable(1,0)
put_structure(X616363657373,2,0,"access")
unify_x_local_value(1)
unify_integer(0)
execute(Pred_Name(X756E6978,1),0,"unix",1)
label(1)
trust_me_else_fail
allocate(1)
get_y_variable(0,0)
put_y_value(0,0)
call(Pred_Name(X74656C6C,1),0,1,"tell",1) /* begin sub 1 */
put_constant(X2F2A7E2A637E6E,0,"/*~*c~n")
put_list(2)
unify_integer(42)
unify_nil
put_list(1)
unify_integer(75)
unify_x_value(2)
call(Pred_Name(X666F726D617461,2),0,2,"formata",2) /* begin sub 2 */
call(Pred_Name(X646973706C61795F76657273696F6E,0),0,3,"display_version",0) /* begin sub 3 */
put_constant(X66696C65203A207E617E6E,0,"file : ~a~n")
put_list(1)
unify_y_local_value(0)
unify_nil
call(Pred_Name(X666F726D617461,2),0,4,"formata",2) /* begin sub 4 */
put_constant(X7E2A632A2F7E6E7E6E,0,"~*c*/~n~n")
put_list(2)
unify_integer(42)
unify_nil
put_list(1)
unify_integer(75)
unify_x_value(2)
call(Pred_Name(X666F726D617461,2),0,5,"formata",2) /* begin sub 5 */
call(Pred_Name(X635F656D69745F6D6F6469665F6661696C,0),1,6,"c_emit_modif_fail",0) /* begin sub 6 */
call(Pred_Name(X635F656D69745F656E5F746574655F696E69745F757372,0),1,7,"c_emit_en_tete_init_usr",0) /* begin sub 7 */
call(Pred_Name(X6E6C,0),0,8,"nl",0) /* begin sub 8 */
call(Pred_Name(X6E6C,0),0,9,"nl",0) /* begin sub 9 */
put_constant(X7B7E6E7D7E6E,0,"{~n}~n")
put_nil(1)
call(Pred_Name(X666F726D617461,2),0,10,"formata",2) /* begin sub 10 */
call(Pred_Name(X635F656D69745F726573746F72655F6661696C,0),1,11,"c_emit_restore_fail",0) /* begin sub 11 */
deallocate
execute(Pred_Name(X746F6C64,0),0,"told",0)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_modif_fail"
#define PRED X635F656D69745F6D6F6469665F6661696C
#define ARITY 0
Begin_Private_Pred
allocate(0)
call(Pred_Name(X6E6C,0),0,1,"nl",0) /* begin sub 1 */
put_constant(X2F2A2041626F76652074686973206C696E652C2070757420796F7572206669727374206D6163726F7320,0,"/* Above this line, put your first macros ")
call(Pred_Name(X7772697465,1),0,2,"write",1) /* begin sub 2 */
put_constant(X28746865736520696E636C7564656420627920707261676D615F6329202A2F,0,"(these included by pragma_c) */")
call(Pred_Name(X7772697465,1),0,3,"write",1) /* begin sub 3 */
call(Pred_Name(X6E6C,0),0,4,"nl",0) /* begin sub 4 */
call(Pred_Name(X6E6C,0),0,5,"nl",0) /* begin sub 5 */
put_constant(X23756E64656620206661696C,0,"#undef fail")
call(Pred_Name(X7772697465,1),0,6,"write",1) /* begin sub 6 */
call(Pred_Name(X6E6C,0),0,7,"nl",0) /* begin sub 7 */
put_constant(X23646566696E65206661696C204661696C5F4C696B655F426F6F6C,0,"#define fail Fail_Like_Bool")
call(Pred_Name(X7772697465,1),0,8,"write",1) /* begin sub 8 */
call(Pred_Name(X6E6C,0),0,9,"nl",0) /* begin sub 9 */
call(Pred_Name(X6E6C,0),0,10,"nl",0) /* begin sub 10 */
put_constant(X2F2A2042656C6F772074686973206C696E652C2070757420796F7572206F7468657273206D6163726F7320,0,"/* Below this line, put your others macros ")
call(Pred_Name(X7772697465,1),0,11,"write",1) /* begin sub 11 */
put_constant(X616E6420796F75722066756E6374696F6E73202A2F,0,"and your functions */")
call(Pred_Name(X7772697465,1),0,12,"write",1) /* begin sub 12 */
call(Pred_Name(X6E6C,0),0,13,"nl",0) /* begin sub 13 */
call(Pred_Name(X6E6C,0),0,14,"nl",0) /* begin sub 14 */
deallocate
execute(Pred_Name(X6E6C,0),0,"nl",0)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_restore_fail"
#define PRED X635F656D69745F726573746F72655F6661696C
#define ARITY 0
Begin_Private_Pred
allocate(0)
call(Pred_Name(X6E6C,0),0,1,"nl",0) /* begin sub 1 */
put_constant(X2F2A20656E64206F6620757365722066696C65202A2F,0,"/* end of user file */")
call(Pred_Name(X7772697465,1),0,2,"write",1) /* begin sub 2 */
call(Pred_Name(X6E6C,0),0,3,"nl",0) /* begin sub 3 */
call(Pred_Name(X6E6C,0),0,4,"nl",0) /* begin sub 4 */
put_constant(X23756E64656620206661696C,0,"#undef fail")
call(Pred_Name(X7772697465,1),0,5,"write",1) /* begin sub 5 */
call(Pred_Name(X6E6C,0),0,6,"nl",0) /* begin sub 6 */
put_constant(X23646566696E65206661696C204661696C5F4C696B655F57616D,0,"#define fail Fail_Like_Wam")
call(Pred_Name(X7772697465,1),0,7,"write",1) /* begin sub 7 */
deallocate
execute(Pred_Name(X6E6C,0),0,"nl",0)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "c_emit_en_tete_init_usr"
#define PRED X635F656D69745F656E5F746574655F696E69745F757372
#define ARITY 0
Begin_Private_Pred
put_constant(X73746174696320766F696420496E697469616C697A655F55737228766F696429,0,"static void Initialize_Usr(void)")
execute(Pred_Name(X7772697465,1),0,"write",1)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "write_pred_name"
#define PRED X77726974655F707265645F6E616D65
#define ARITY 2
Begin_Private_Pred
allocate(2)
get_y_variable(1,0)
get_y_variable(0,1)
put_constant(X507265645F4E616D6528,0,"Pred_Name(")
call(Pred_Name(X7772697465,1),0,1,"write",1) /* begin sub 1 */
put_y_value(1,0)
call(Pred_Name(X685F7772697465,1),1,2,"h_write",1) /* begin sub 2 */
put_constant(X2C7E6429,0,",~d)")
put_list(1)
unify_y_local_value(0)
unify_nil
deallocate
execute(Pred_Name(X666F726D617461,2),0,"formata",2)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "write_label_pred_name"
#define PRED X77726974655F6C6162656C5F707265645F6E616D65
#define ARITY 3
Begin_Private_Pred
allocate(3)
get_y_variable(2,0)
get_y_variable(1,1)
get_y_variable(0,2)
put_constant(X4C6162656C5F507265645F4E616D6528,0,"Label_Pred_Name(")
call(Pred_Name(X7772697465,1),0,1,"write",1) /* begin sub 1 */
put_y_value(2,0)
call(Pred_Name(X685F7772697465,1),1,2,"h_write",1) /* begin sub 2 */
put_constant(X2C7E642C7E6429,0,",~d,~d)")
put_list(2)
unify_y_local_value(0)
unify_nil
put_list(1)
unify_y_local_value(1)
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 "write_swt_table_name"
#define PRED X77726974655F7377745F7461626C655F6E616D65
#define ARITY 4
Begin_Private_Pred
allocate(4)
get_y_variable(3,0)
get_y_variable(2,1)
get_y_variable(1,2)
get_y_variable(0,3)
put_constant(X5377745F5461626C655F4E616D6528,0,"Swt_Table_Name(")
call(Pred_Name(X7772697465,1),0,1,"write",1) /* begin sub 1 */
put_y_value(3,0)
call(Pred_Name(X685F7772697465,1),1,2,"h_write",1) /* begin sub 2 */
put_constant(X2C7E642C7E642C7E6129,0,",~d,~d,~a)")
put_list(1)
unify_y_local_value(0)
unify_nil
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 "h_write"
#define PRED X685F7772697465
#define ARITY 1
Begin_Private_Pred
allocate(1)
put_y_variable(0,1)
call(Pred_Name(X61746F6D5F636F646573,2),0,1,"atom_codes",2) /* begin sub 1 */
put_constant(X58,0,"X")
call(Pred_Name(X7772697465,1),0,2,"write",1) /* begin sub 2 */
put_y_unsafe_value(0,0)
deallocate
execute(Pred_Name(X685F77726974655F68657861,1),1,"h_write_hexa",1)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
#define ASCII_PRED "h_write_hexa"
#define PRED X685F77726974655F68657861
#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)
proceed
label(3)
trust_me_else_fail
label(4)
allocate(1)
get_list(0)
unify_x_variable(2)
unify_y_variable(0)
put_constant(X7E313652,0,"~16R")
put_list(1)
unify_x_value(2)
unify_nil
call(Pred_Name(X666F726D617461,2),0,1,"formata",2) /* begin sub 1 */
put_y_value(0,0)
deallocate
execute(Pred_Name(X685F77726974655F68657861,1),1,"h_write_hexa",1)
End_Pred
#undef ASCII_PRED
#undef PRED
#undef ARITY
Begin_Init_Tables(wamcc8)
Define_Atom(X5B5D,"[]")
Define_Atom(X635F656D697373696F6E,"c_emission")
Define_Atom(X6669635F757372,"fic_usr")
Define_Atom(X635F656D69745F6669635F63,"c_emit_fic_c")
Define_Atom(X6669635F6F7574,"fic_out")
Define_Atom(X6D6F64756C65,"module")
Define_Atom(X2F2A7E2A637E6E,"/*~*c~n")
Define_Atom(X46696C65203A207E617E6E,"File : ~a~n")
Define_Atom(X4D61696E203A207E777E6E,"Main : ~w~n")
Define_Atom(X7E2A632A2F7E6E7E6E,"~*c*/~n~n")
Define_Atom(X6465627567,"debug")
Define_Atom(X23646566696E652044454255475F4C4556454C202020207E647E6E,"#define DEBUG_LEVEL ~d~n")
Define_Atom(X23696E636C756465202277616D5F656E67696E652E68227E6E7E6E,"#include \"wam_engine.h\"~n~n")
Define_Atom(X23696E636C75646520227E612E68227E6E,"#include \"~a.h\"~n")
Define_Atom(X23696E636C75646520227E612E75737222,"#include \"~a.usr\"")
Define_Atom(X635F656D69745F6669635F635F2461757833,"c_emit_fic_c_$aux3")
Define_Atom(X6E6F5F6D61696E,"no_main")
Define_Atom(X635F656D69745F6669635F635F2461757832,"c_emit_fic_c_$aux2")
Define_Atom(X6E6F5F737461636B5F74657374,"no_stack_test")
Define_Atom(X74,"t")
Define_Atom(X23646566696E65204E4F5F535441434B5F544553547E6E,"#define NO_STACK_TEST~n")
Define_Atom(X635F656D69745F6669635F635F2461757831,"c_emit_fic_c_$aux1")
Define_Atom(X666173745F6D617468,"fast_math")
Define_Atom(X23646566696E6520464153545F4D4154487E6E,"#define FAST_MATH~n")
Define_Atom(X635F656D69745F6C73745F70726564,"c_emit_lst_pred")
Define_Atom(X706171,"paq")
Define_Atom(X2F,"/")
Define_Atom(X70,"p")
Define_Atom(X635F656D69745F70726564,"c_emit_pred")
Define_Atom(X23646566696E652041534349495F5052454420,"#define ASCII_PRED ")
Define_Atom(X23646566696E65205052454420202020202020,"#define PRED ")
Define_Atom(X23646566696E65204152495459202020202020,"#define ARITY ")
Define_Atom(X456E645F50726564,"End_Pred")
Define_Atom(X23756E6465662041534349495F50524544,"#undef ASCII_PRED")
Define_Atom(X23756E6465662050524544,"#undef PRED")
Define_Atom(X23756E646566204152495459,"#undef ARITY")
Define_Atom(X635F656D69745F707265645F2461757834,"c_emit_pred_$aux4")
Define_Atom(X707562,"pub")
Define_Atom(X426567696E5F5075626C69635F50726564,"Begin_Public_Pred")
Define_Atom(X426567696E5F507269766174655F50726564,"Begin_Private_Pred")
Define_Atom(X635F656D6974,"c_emit")
Define_Atom(X6765745F636F6E7374616E74,"get_constant")
Define_Atom(X6765745F636F6E7374616E7428,"get_constant(")
Define_Atom(X2C7E642C7E61297E6E,",~d,~a)~n")
Define_Atom(X7075745F636F6E7374616E74,"put_constant")
Define_Atom(X7075745F636F6E7374616E7428,"put_constant(")
Define_Atom(X6765745F737472756374757265,"get_structure")
Define_Atom(X6765745F73747275637475726528,"get_structure(")
Define_Atom(X2C7E642C7E642C7E61297E6E,",~d,~d,~a)~n")
Define_Atom(X7075745F737472756374757265,"put_structure")
Define_Atom(X7075745F73747275637475726528,"put_structure(")
Define_Atom(X756E6966795F636F6E7374616E74,"unify_constant")
Define_Atom(X756E6966795F636F6E7374616E7428,"unify_constant(")
Define_Atom(X2C7E61297E6E,",~a)~n")
Define_Atom(X63616C6C,"call")
Define_Atom(X63616C6C28,"call(")
Define_Atom(X2C7E642C7E642C7E612C7E6429,",~d,~d,~a,~d)")
Define_Atom(X65786563757465,"execute")
Define_Atom(X6578656375746528,"execute(")
Define_Atom(X2C7E642C7E612C7E64297E6E,",~d,~a,~d)~n")
Define_Atom(X7377697463685F6F6E5F7465726D,"switch_on_term")
Define_Atom(X7377697463685F6F6E5F7465726D28,"switch_on_term(")
Define_Atom(X2C,",")
Define_Atom(X29,")")
Define_Atom(X7377697463685F6F6E5F636F6E7374616E74,"switch_on_constant")
Define_Atom(X63,"c")
Define_Atom(X7377697463685F6F6E5F636F6E7374616E7428,"switch_on_constant(")
Define_Atom(X7E642C227E7722297E6E,"~d,\"~w\")~n")
Define_Atom(X7377697463685F6F6E5F696E7465676572,"switch_on_integer")
Define_Atom(X7377697463685F6F6E5F696E7465676572286C737428,"switch_on_integer(lst(")
Define_Atom(X292C227E7722297E6E,"),\"~w\")~n")
Define_Atom(X7377697463685F6F6E5F737472756374757265,"switch_on_structure")
Define_Atom(X73,"s")
Define_Atom(X7377697463685F6F6E5F73747275637475726528,"switch_on_structure(")
Define_Atom(X747279,"try")
Define_Atom(X7265747279,"retry")
Define_Atom(X6C6162656C,"label")
Define_Atom(X635F656D69745F2461757835,"c_emit_$aux5")
Define_Atom(X635F656D69745F2461757836,"c_emit_$aux6")
Define_Atom(X646566,"def")
Define_Atom(X635F656D69745F2461757837,"c_emit_$aux7")
Define_Atom(X635F656D69745F676F746F5F6F725F6661696C,"c_emit_goto_or_fail")
Define_Atom(X635F656D69745F676F746F5F6F725F6661696C5F2461757838,"c_emit_goto_or_fail_$aux8")
Define_Atom(X6661696C,"fail")
Define_Atom(X475F6C6162656C,"G_label")
Define_Atom(X635F656D69745F7377745F696E74,"c_emit_swt_int")
Define_Atom(X69,"i")
Define_Atom(X20," ")
Define_Atom(X635F656D69745F2461757839,"c_emit_$aux9")
Define_Atom(X635F656D69745F6865616465725F7375625F70726564,"c_emit_header_sub_pred")
Define_Atom(X202020202020202020202F2A20626567696E20737562207E64202A2F7E6E," /* begin sub ~d */~n")
Define_Atom(X635F656D69745F6663745F696E69745F7461626C6573,"c_emit_fct_init_tables")
Define_Atom(X426567696E5F496E69745F5461626C6573,"Begin_Init_Tables")
Define_Atom(X20496E69745F5573725F46696C65," Init_Usr_File")
Define_Atom(X456E645F496E69745F5461626C6573,"End_Init_Tables")
Define_Atom(X635F656D69745F696E69745F7461626C65735F61746F6D,"c_emit_init_tables_atom")
Define_Atom(X2D,"-")
Define_Atom(X20446566696E655F41746F6D28," Define_Atom(")
Define_Atom(X635F656D69745F696E69745F7461626C65735F70726564,"c_emit_init_tables_pred")
Define_Atom(X20446566696E655F5072656428," Define_Pred(")
Define_Atom(X2C7E642C,",~d,")
Define_Atom(X635F656D69745F696E69745F7461626C65735F707265645F246175783130,"c_emit_init_tables_pred_$aux10")
Define_Atom(X635F656D69745F696E69745F74626C5F7377745F637374,"c_emit_init_tbl_swt_cst")
Define_Atom(X20446566696E655F5377697463685F4353545F5461626C6528," Define_Switch_CST_Table(")
Define_Atom(X637374,"cst")
Define_Atom(X2C7E64297E6E,",~d)~n")
Define_Atom(X635F656D69745F696E69745F7377745F637374,"c_emit_init_swt_cst")
Define_Atom(X2020202020446566696E655F5377697463685F43535428," Define_Switch_CST(")
Define_Atom(X635F656D69745F696E69745F74626C5F7377745F737463,"c_emit_init_tbl_swt_stc")
Define_Atom(X20446566696E655F5377697463685F5354435F5461626C6528," Define_Switch_STC_Table(")
Define_Atom(X737463,"stc")
Define_Atom(X635F656D69745F696E69745F7377745F737463,"c_emit_init_swt_stc")
Define_Atom(X2020202020446566696E655F5377697463685F53544328," Define_Switch_STC(")
Define_Atom(X635F656D69745F6663745F657865635F64697265637469766573,"c_emit_fct_exec_directives")
Define_Atom(X426567696E5F457865635F44697265637469766573,"Begin_Exec_Directives")
Define_Atom(X6E625F636C617573655F64796E,"nb_clause_dyn")
Define_Atom(X2464796E5F,"$dyn_")
Define_Atom(X6E625F636C617573655F657865,"nb_clause_exe")
Define_Atom(X246578655F,"$exe_")
Define_Atom(X456E645F457865635F44697265637469766573,"End_Exec_Directives")
Define_Atom(X635F656D69745F657865635F64697265637469766573,"c_emit_exec_directives")
Define_Atom(X635F656D69745F657865635F646972656374697665735F246175783131,"c_emit_exec_directives_$aux11")
Define_Atom(X20457865635F446972656374697665287E642C," Exec_Directive(~d,")
Define_Atom(X635F656D69745F6663745F6D61696E,"c_emit_fct_main")
Define_Atom(X4275696C74696E,"Builtin")
Define_Atom(X7E6E7E6E2F2A2A2A204D41494E202A2A2A2F7E6E7E6E,"~n~n/*** MAIN ***/~n~n")
Define_Atom(X696E74206D61696E28696E7420617267632C63686172202A617267765B5D297E6E7E6E7B7E6E,"int main(int argc,char *argv[])~n~n{~n")
Define_Atom(X20756E69785F617267633D617267633B7E6E," unix_argc=argc;~n")
Define_Atom(X20756E69785F617267763D617267763B7E6E7E6E," unix_argv=argv;~n~n")
Define_Atom(X20496E69745F57616D5F456E67696E6528293B7E6E7E6E," Init_Wam_Engine();~n~n")
Define_Atom(X205465726D5F57616D5F456E67696E6528293B7E6E7E6E," Term_Wam_Engine();~n~n")
Define_Atom(X2072657475726E20303B7E6E7D7E6E," return 0;~n}~n")
Define_Atom(X635F656D69745F6663745F6D61696E5F246175783132,"c_emit_fct_main_$aux12")
Define_Atom(X6D61696E,"main")
Define_Atom(X635F656D69745F6663745F6D61696E5F646566696E655F737461636B73,"c_emit_fct_main_define_stacks")
Define_Atom(X737461636B,"stack")
Define_Atom(X205365745F537461636B5F44656661756C747328227E61222C227E61222C7E64293B7E6E," Set_Stack_Defaults(\"~a\",\"~a\",~d);~n")
Define_Atom(X635F656D69745F6663745F6D61696E5F696E69745F7461626C65735F6D6F64756C6573,"c_emit_fct_main_init_tables_modules")
Define_Atom(X20496E69745F5461626C65735F4F665F4D6F64756C65," Init_Tables_Of_Module")
Define_Atom(X635F656D69745F6663745F6D61696E5F657865635F646972656374697665735F6D6F64756C6573,"c_emit_fct_main_exec_directives_modules")
Define_Atom(X20457865635F446972656374697665735F4F665F4D6F64756C65," Exec_Directives_Of_Module")
Define_Atom(X6164645F746F5F6469635F61746F6D,"add_to_dic_atom")
Define_Atom(X6164645F746F5F6469635F61746F6D5F246175783133,"add_to_dic_atom_$aux13")
Define_Atom(X635F737472696E67,"c_string")
Define_Atom(X70726F6C6F675F746F5F635F737472696E67,"prolog_to_c_string")
Define_Atom(X70726F6C6F675F746F5F635F737472696E675F246175783134,"prolog_to_c_string_$aux14")
Define_Atom(X70726F6C6F675F746F5F635F737472696E675F246175783135,"prolog_to_c_string_$aux15")
Define_Atom(X635F656D69745F6669635F68,"c_emit_fic_h")
Define_Atom(X6669635F68,"fic_h")
Define_Atom(X66696C65203A207E617E6E,"file : ~a~n")
Define_Atom(X23646566696E65204E425F4F465F505249564154455F5052454453202020207E647E6E7E6E,"#define NB_OF_PRIVATE_PREDS ~d~n~n")
Define_Atom(X7374617469632063686172202020202A6D6F64756C655F6E616D653D7E613B7E6E,"static char *module_name=~a;~n")
Define_Atom(X73746174696320696E742020202020206D6F64756C655F6E623B7E6E7E6E,"static int module_nb;~n~n")
Define_Atom(X635F656D69745F6465636C5F7661725F61746F6D,"c_emit_decl_var_atom")
Define_Atom(X7374617469632041746F6D496E66202A,"static AtomInf *")
Define_Atom(X3B,";")
Define_Atom(X635F656D69745F6465636C5F7661725F70726564,"c_emit_decl_var_pred")
Define_Atom(X635F656D69745F6465636C5F74626C5F737774,"c_emit_decl_tbl_swt")
Define_Atom(X7374617469632053777454626C202020,"static SwtTbl ")
Define_Atom(X635F656D69745F6669635F757372,"c_emit_fic_usr")
Define_Atom(X616363657373,"access")
Define_Atom(X7B7E6E7D7E6E,"{~n}~n")
Define_Atom(X635F656D69745F6D6F6469665F6661696C,"c_emit_modif_fail")
Define_Atom(X2F2A2041626F76652074686973206C696E652C2070757420796F7572206669727374206D6163726F7320,"/* Above this line, put your first macros ")
Define_Atom(X28746865736520696E636C7564656420627920707261676D615F6329202A2F,"(these included by pragma_c) */")
Define_Atom(X23756E64656620206661696C,"#undef fail")
Define_Atom(X23646566696E65206661696C204661696C5F4C696B655F426F6F6C,"#define fail Fail_Like_Bool")
Define_Atom(X2F2A2042656C6F772074686973206C696E652C2070757420796F7572206F7468657273206D6163726F7320,"/* Below this line, put your others macros ")
Define_Atom(X616E6420796F75722066756E6374696F6E73202A2F,"and your functions */")
Define_Atom(X635F656D69745F726573746F72655F6661696C,"c_emit_restore_fail")
Define_Atom(X2F2A20656E64206F6620757365722066696C65202A2F,"/* end of user file */")
Define_Atom(X23646566696E65206661696C204661696C5F4C696B655F57616D,"#define fail Fail_Like_Wam")
Define_Atom(X635F656D69745F656E5F746574655F696E69745F757372,"c_emit_en_tete_init_usr")
Define_Atom(X73746174696320766F696420496E697469616C697A655F55737228766F696429,"static void Initialize_Usr(void)")
Define_Atom(X77726974655F707265645F6E616D65,"write_pred_name")
Define_Atom(X507265645F4E616D6528,"Pred_Name(")
Define_Atom(X2C7E6429,",~d)")
Define_Atom(X77726974655F6C6162656C5F707265645F6E616D65,"write_label_pred_name")
Define_Atom(X4C6162656C5F507265645F4E616D6528,"Label_Pred_Name(")
Define_Atom(X2C7E642C7E6429,",~d,~d)")
Define_Atom(X77726974655F7377745F7461626C655F6E616D65,"write_swt_table_name")
Define_Atom(X5377745F5461626C655F4E616D6528,"Swt_Table_Name(")
Define_Atom(X2C7E642C7E642C7E6129,",~d,~d,~a)")
Define_Atom(X685F7772697465,"h_write")
Define_Atom(X58,"X")
Define_Atom(X685F77726974655F68657861,"h_write_hexa")
Define_Atom(X7E313652,"~16R")
Define_Pred(X635F656D697373696F6E,2,1)
Define_Pred(X635F656D69745F6669635F63,5,0)
Define_Pred(X635F656D69745F6669635F635F2461757833,1,0)
Define_Pred(X635F656D69745F6669635F635F2461757832,0,0)
Define_Pred(X635F656D69745F6669635F635F2461757831,0,0)
Define_Pred(X635F656D69745F6C73745F70726564,3,0)
Define_Pred(X635F656D69745F70726564,6,0)
Define_Pred(X635F656D69745F707265645F2461757834,2,0)
Define_Pred(X635F656D6974,6,0)
Define_Switch_STC_Table(Swt_Table_Name(X635F656D6974,6,7,stc),14)
Define_Switch_STC(X6765745F636F6E7374616E74,2,Label_Pred_Name(X635F656D6974,6,9))
Define_Switch_STC(X7075745F636F6E7374616E74,2,Label_Pred_Name(X635F656D6974,6,11))
Define_Switch_STC(X6765745F737472756374757265,2,Label_Pred_Name(X635F656D6974,6,13))
Define_Switch_STC(X7075745F737472756374757265,2,Label_Pred_Name(X635F656D6974,6,15))
Define_Switch_STC(X756E6966795F636F6E7374616E74,1,Label_Pred_Name(X635F656D6974,6,17))
Define_Switch_STC(X63616C6C,1,Label_Pred_Name(X635F656D6974,6,19))
Define_Switch_STC(X65786563757465,1,Label_Pred_Name(X635F656D6974,6,21))
Define_Switch_STC(X7377697463685F6F6E5F7465726D,5,Label_Pred_Name(X635F656D6974,6,23))
Define_Switch_STC(X7377697463685F6F6E5F636F6E7374616E74,3,Label_Pred_Name(X635F656D6974,6,25))
Define_Switch_STC(X7377697463685F6F6E5F696E7465676572,3,Label_Pred_Name(X635F656D6974,6,27))
Define_Switch_STC(X7377697463685F6F6E5F737472756374757265,3,Label_Pred_Name(X635F656D6974,6,29))
Define_Switch_STC(X747279,1,Label_Pred_Name(X635F656D6974,6,31))
Define_Switch_STC(X7265747279,1,Label_Pred_Name(X635F656D6974,6,33))
Define_Switch_STC(X6C6162656C,1,Label_Pred_Name(X635F656D6974,6,35))
Define_Pred(X635F656D69745F2461757835,2,0)
Define_Pred(X635F656D69745F2461757836,3,0)
Define_Pred(X635F656D69745F2461757837,3,0)
Define_Pred(X635F656D69745F676F746F5F6F725F6661696C,1,0)
Define_Pred(X635F656D69745F676F746F5F6F725F6661696C5F2461757838,1,0)
Define_Pred(X635F656D69745F7377745F696E74,1,0)
Define_Pred(X635F656D69745F2461757839,1,0)
Define_Pred(X635F656D69745F6865616465725F7375625F70726564,1,0)
Define_Pred(X635F656D69745F6663745F696E69745F7461626C6573,3,0)
Define_Pred(X635F656D69745F696E69745F7461626C65735F61746F6D,1,0)
Define_Pred(X635F656D69745F696E69745F7461626C65735F70726564,2,0)
Define_Pred(X635F656D69745F696E69745F7461626C65735F707265645F246175783130,3,0)
Define_Pred(X635F656D69745F696E69745F74626C5F7377745F637374,3,0)
Define_Pred(X635F656D69745F696E69745F7377745F637374,3,0)
Define_Pred(X635F656D69745F696E69745F74626C5F7377745F737463,3,0)
Define_Pred(X635F656D69745F696E69745F7377745F737463,3,0)
Define_Pred(X635F656D69745F6663745F657865635F64697265637469766573,0,0)
Define_Pred(X635F656D69745F657865635F64697265637469766573,3,0)
Define_Pred(X635F656D69745F657865635F646972656374697665735F246175783131,3,0)
Define_Pred(X635F656D69745F6663745F6D61696E,1,0)
Define_Pred(X635F656D69745F6663745F6D61696E5F246175783132,3,0)
Define_Pred(X635F656D69745F6663745F6D61696E5F646566696E655F737461636B73,1,0)
Define_Pred(X635F656D69745F6663745F6D61696E5F696E69745F7461626C65735F6D6F64756C6573,1,0)
Define_Pred(X635F656D69745F6663745F6D61696E5F657865635F646972656374697665735F6D6F64756C6573,1,0)
Define_Pred(X6164645F746F5F6469635F61746F6D,3,0)
Define_Pred(X6164645F746F5F6469635F61746F6D5F246175783133,2,0)
Define_Pred(X635F737472696E67,2,0)
Define_Pred(X70726F6C6F675F746F5F635F737472696E67,2,0)
Define_Pred(X70726F6C6F675F746F5F635F737472696E675F246175783134,3,0)
Define_Pred(X70726F6C6F675F746F5F635F737472696E675F246175783135,1,0)
Define_Pred(X635F656D69745F6669635F68,3,0)
Define_Pred(X635F656D69745F6465636C5F7661725F61746F6D,1,0)
Define_Pred(X635F656D69745F6465636C5F7661725F70726564,1,0)
Define_Pred(X635F656D69745F6465636C5F74626C5F737774,4,0)
Define_Pred(X635F656D69745F6669635F757372,1,0)
Define_Pred(X635F656D69745F6D6F6469665F6661696C,0,0)
Define_Pred(X635F656D69745F726573746F72655F6661696C,0,0)
Define_Pred(X635F656D69745F656E5F746574655F696E69745F757372,0,0)
Define_Pred(X77726974655F707265645F6E616D65,2,0)
Define_Pred(X77726974655F6C6162656C5F707265645F6E616D65,3,0)
Define_Pred(X77726974655F7377745F7461626C655F6E616D65,4,0)
Define_Pred(X685F7772697465,1,0)
Define_Pred(X685F77726974655F68657861,1,0)
Init_Usr_File
End_Init_Tables
Begin_Exec_Directives(wamcc8)
End_Exec_Directives
syntax highlighted by Code2HTML, v. 0.9.1