/****************************************************************************
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
