/****************************************************************************
Prolog to Wam Compiler                     INRIA Rocquencourt - ChLoE Project
Version 2.21                                               Daniel Diaz - 1994

File : wamcc2.c
Main : no_main
****************************************************************************/

#define FAST_MATH
#define DEBUG_LEVEL    0

#include "wam_engine.h"

#include "wamcc2.h"
#include "wamcc2.usr"


#define ASCII_PRED "format_interne"
#define PRED       X666F726D61745F696E7465726E65
#define ARITY      5

Begin_Public_Pred
      try_me_else(2)
      switch_on_term(G_label(1),fail,fail,fail,G_label(1))

label(1)
      allocate(4)
      get_structure(X3A2D,2,0,":-")
      unify_x_variable(0)
      unify_y_variable(3)
      get_x_variable(5,1)
      get_y_variable(1,3)
      get_y_variable(0,4)
      put_y_variable(2,1)
      put_x_value(5,3)
      call(Pred_Name(X666F726D6174655F74657465,4),1,1,"formate_tete",4)          /* begin sub 1 */
      put_y_value(3,0)
      put_y_unsafe_value(2,1)
      put_y_value(1,2)
      put_y_value(0,3)
      deallocate
      execute(Pred_Name(X666F726D6174655F636F727073,4),1,"formate_corps",4)

label(2)
      trust_me_else_fail
      get_x_variable(5,1)
      get_nil(3)
      get_integer(0,4)
      put_x_variable(1,1)
      put_x_value(5,3)
      execute(Pred_Name(X666F726D6174655F74657465,4),1,"formate_tete",4)

End_Pred

#undef ASCII_PRED
#undef PRED
#undef ARITY



#define ASCII_PRED "formate_tete"
#define PRED       X666F726D6174655F74657465
#define ARITY      4

Begin_Private_Pred
      allocate(3)
      get_y_variable(2,0)
      get_y_variable(1,1)
      get_y_variable(0,2)
      put_y_value(2,0)
      put_x_value(3,1)
      call(Pred_Name(X7072656D5F617267,2),1,1,"prem_arg",2)          /* begin sub 1 */
      put_y_value(2,0)
      put_integer(0,1)
      put_y_value(1,2)
      put_y_value(0,3)
      put_x_variable(4,4)
      deallocate
      execute(Pred_Name(X666F726D6174655F70726564,5),1,"formate_pred",5)

End_Pred

#undef ASCII_PRED
#undef PRED
#undef ARITY



#define ASCII_PRED "prem_arg"
#define PRED       X7072656D5F617267
#define ARITY      2

Begin_Private_Pred
      try_me_else(1)
      get_structure(X2F,2,1,"/")
      unify_x_variable(2)
      unify_x_variable(1)
      builtin_1(compound,0)
      put_integer(1,5)
      put_x_variable(3,4)
      builtin_3(arg,5,0,4)
      builtin_1(nonvar,3)
      builtin_3(functor,3,2,1)
      proceed

label(1)
      trust_me_else_fail
      proceed

End_Pred

#undef ASCII_PRED
#undef PRED
#undef ARITY



#define ASCII_PRED "formate_corps"
#define PRED       X666F726D6174655F636F727073
#define ARITY      4

Begin_Private_Pred
      get_x_variable(4,1)
      get_x_variable(5,2)
      get_x_variable(6,3)
      put_integer(0,1)
      put_x_value(4,2)
      put_constant(X74,3,"t")
      put_nil(4)
      put_x_variable(7,7)
      execute(Pred_Name(X666F726D6174655F636F72707331,8),1,"formate_corps1",8)

End_Pred

#undef ASCII_PRED
#undef PRED
#undef ARITY



#define ASCII_PRED "formate_corps1"
#define PRED       X666F726D6174655F636F72707331
#define ARITY      8

Begin_Private_Pred
      try_me_else(5)
      switch_on_term(G_label(1),G_label(4),fail,fail,G_label(2))

label(1)
      try_me_else(3)

label(2)
      allocate(9)
      get_structure(X2C,2,0,",")
      unify_x_variable(0)
      unify_y_variable(8)
      get_y_variable(6,2)
      get_y_variable(4,4)
      get_y_variable(2,6)
      get_y_variable(1,7)
      get_y_bc_reg(0)
      put_y_value(6,2)
      put_y_variable(3,4)
      put_y_variable(7,6)
      put_y_variable(5,7)
      call(Pred_Name(X666F726D6174655F636F72707331,8),1,1,"formate_corps1",8)          /* begin sub 1 */
      cut_y(0)
      put_y_value(8,0)
      put_y_value(7,1)
      put_y_value(6,2)
      put_y_value(5,3)
      put_y_value(4,4)
      put_y_value(3,5)
      put_y_value(2,6)
      put_y_value(1,7)
      call(Pred_Name(X666F726D6174655F636F72707331,8),1,2,"formate_corps1",8)          /* begin sub 2 */
      cut_y(0)
      deallocate
      proceed

label(3)
      trust_me_else_fail

label(4)
      get_constant(X74727565,0,"true")
      get_x_value(4,5)
      get_x_value(1,6)
      get_x_value(3,7)
      proceed

label(5)
      trust_me_else_fail
      allocate(6)
      get_y_variable(5,0)
      get_y_variable(3,2)
      get_list(5)
      unify_y_variable(2)
      unify_x_local_value(4)
      get_y_variable(4,6)
      get_y_variable(1,7)
      put_x_value(1,0)
      put_x_value(3,1)
      put_y_value(4,2)
      call(Pred_Name(X666F726D6174655F636F727073315F2461757831,3),1,3,"formate_corps1_$aux1",3)          /* begin sub 3 */
      put_y_value(5,0)
      put_y_value(4,1)
      put_y_value(3,2)
      put_y_value(2,3)
      put_y_variable(0,4)
      call(Pred_Name(X666F726D6174655F70726564,5),1,4,"formate_pred",5)          /* begin sub 4 */
      put_y_value(1,0)
      put_y_unsafe_value(0,1)
      deallocate
      execute(Pred_Name(X666F726D6174655F636F727073315F2461757832,2),1,"formate_corps1_$aux2",2)

End_Pred

#undef ASCII_PRED
#undef PRED
#undef ARITY



#define ASCII_PRED "formate_corps1_$aux2"
#define PRED       X666F726D6174655F636F727073315F2461757832
#define ARITY      2

Begin_Private_Pred
      try_me_else(1)
      put_constant(X74,2,"t")
      builtin_2(term_eq,1,2)
      neck_cut
      get_constant(X66,0,"f")
      proceed

label(1)
      trust_me_else_fail
      get_constant(X74,0,"t")
      proceed

End_Pred

#undef ASCII_PRED
#undef PRED
#undef ARITY



#define ASCII_PRED "formate_corps1_$aux1"
#define PRED       X666F726D6174655F636F727073315F2461757831
#define ARITY      3

Begin_Private_Pred
      try_me_else(1)
      put_constant(X74,3,"t")
      builtin_2(term_eq,1,3)
      neck_cut
      math_load_x_value(0,0)
      function_1(inc,0,0)
      get_x_value(2,0)
      proceed

label(1)
      trust_me_else_fail
      get_x_value(0,2)
      proceed

End_Pred

#undef ASCII_PRED
#undef PRED
#undef ARITY



#define ASCII_PRED "formate_pred"
#define PRED       X666F726D6174655F70726564
#define ARITY      5

Begin_Private_Pred
      allocate(3)
      get_x_variable(6,0)
      get_structure(X70,4,3,"p")
      unify_x_local_value(1)
      unify_x_variable(0)
      unify_x_variable(5)
      unify_void(1)
      get_structure(X2F,2,0,"/")
      unify_y_variable(2)
      unify_y_variable(1)
      get_y_variable(0,4)
      put_y_value(2,3)
      put_y_value(1,0)
      builtin_3(functor,6,3,0)
      put_list(3)
      unify_void(1)
      unify_x_variable(0)
      builtin_2(term_univ,6,3)
      put_constant(X66,3,"f")
      put_x_value(5,4)
      call(Pred_Name(X666F726D6174655F6C73745F617267,5),1,1,"formate_lst_arg",5)          /* begin sub 1 */
      put_y_value(2,0)
      put_y_value(1,1)
      put_y_value(0,2)
      deallocate
      execute(Pred_Name(X666F726D6174655F707265645F2461757833,3),1,"formate_pred_$aux3",3)

End_Pred

#undef ASCII_PRED
#undef PRED
#undef ARITY



#define ASCII_PRED "formate_pred_$aux3"
#define PRED       X666F726D6174655F707265645F2461757833
#define ARITY      3

Begin_Private_Pred
      try_me_else(1)
      allocate(2)
      get_y_variable(0,2)
      get_y_bc_reg(1)
      call(Pred_Name(X696E6C696E655F707265646963617465,2),1,1,"inline_predicate",2)          /* begin sub 1 */
      cut_y(1)
      put_y_value(0,0)
      get_constant(X74,0,"t")
      deallocate
      proceed

label(1)
      trust_me_else_fail
      get_constant(X66,2,"f")
      proceed

End_Pred

#undef ASCII_PRED
#undef PRED
#undef ARITY



#define ASCII_PRED "formate_lst_arg"
#define PRED       X666F726D6174655F6C73745F617267
#define ARITY      5

Begin_Private_Pred
      switch_on_term(G_label(1),G_label(2),fail,G_label(4),fail)

label(1)
      try_me_else(3)

label(2)
      get_nil(0)
      get_nil(4)
      proceed

label(3)
      trust_me_else_fail

label(4)
      allocate(6)
      get_list(0)
      unify_x_variable(0)
      unify_y_variable(4)
      get_y_variable(3,1)
      get_y_variable(2,2)
      get_y_variable(1,3)
      get_list(4)
      unify_x_variable(4)
      unify_y_variable(0)
      get_y_bc_reg(5)
      put_y_value(3,1)
      put_y_value(2,2)
      put_y_value(1,3)
      call(Pred_Name(X666F726D6174655F617267,5),1,1,"formate_arg",5)          /* begin sub 1 */
      cut_y(5)
      put_y_value(4,0)
      put_y_value(3,1)
      put_y_value(2,2)
      put_y_value(1,3)
      put_y_value(0,4)
      deallocate
      execute(Pred_Name(X666F726D6174655F6C73745F617267,5),1,"formate_lst_arg",5)

End_Pred

#undef ASCII_PRED
#undef PRED
#undef ARITY



#define ASCII_PRED "formate_arg"
#define PRED       X666F726D6174655F617267
#define ARITY      5

Begin_Private_Pred
      try_me_else(1)
      allocate(4)
      get_x_variable(5,0)
      get_y_variable(3,1)
      get_y_variable(2,3)
      get_structure(X766172,3,4,"var")
      unify_y_variable(1)
      unify_y_variable(0)
      unify_void(1)
      builtin_1(var,5)
      put_x_value(2,0)
      put_structure(X76,2,1,"v")
      unify_x_local_value(5)
      unify_y_value(1)
      call(Pred_Name(X6C6F6F6B75705F766172,2),1,1,"lookup_var",2)          /* begin sub 1 */
      put_y_value(3,0)
      put_y_value(2,1)
      put_y_value(1,2)
      put_y_value(0,3)
      deallocate
      execute(Pred_Name(X666F726D6174655F6172675F2461757834,4),1,"formate_arg_$aux4",4)

label(1)
      retry_me_else(6)
      switch_on_term(G_label(2),G_label(3),fail,G_label(5),fail)

label(2)
      try_me_else(4)

label(3)
      get_nil(0)
      get_constant(X6E696C,4,"nil")
      proceed

label(4)
      trust_me_else_fail

label(5)
      allocate(4)
      get_list(0)
      unify_x_variable(0)
      unify_y_variable(3)
      get_y_variable(2,1)
      get_y_variable(1,2)
      get_structure(X6C7374,2,4,"lst")
      unify_x_variable(4)
      unify_y_variable(0)
      put_y_value(2,1)
      put_y_value(1,2)
      put_constant(X74,3,"t")
      call(Pred_Name(X666F726D6174655F617267,5),1,2,"formate_arg",5)          /* begin sub 2 */
      put_y_value(3,0)
      put_y_value(2,1)
      put_y_value(1,2)
      put_constant(X74,3,"t")
      put_y_value(0,4)
      deallocate
      execute(Pred_Name(X666F726D6174655F617267,5),1,"formate_arg",5)

label(6)
      trust_me_else_fail
      get_x_variable(3,4)
      put_x_variable(4,7)
      put_x_variable(5,6)
      builtin_3(functor,0,7,6)
      execute(Pred_Name(X666F726D6174655F6172675F2461757835,6),1,"formate_arg_$aux5",6)

End_Pred

#undef ASCII_PRED
#undef PRED
#undef ARITY



#define ASCII_PRED "formate_arg_$aux4"
#define PRED       X666F726D6174655F6172675F2461757834
#define ARITY      4

Begin_Private_Pred
      try_me_else(1)
      builtin_1(var,2)
      neck_cut
      get_structure(X696776,5,2,"igv")
      unify_void(1)
      unify_x_local_value(0)
      unify_void(1)
      unify_x_local_value(1)
      unify_void(1)
      get_constant(X74,3,"t")
      proceed

label(1)
      trust_me_else_fail
      get_x_variable(5,0)
      get_x_variable(1,3)
      get_structure(X696776,5,2,"igv")
      unify_x_variable(3)
      unify_x_variable(0)
      unify_void(1)
      unify_x_variable(2)
      unify_x_variable(4)
      get_constant(X66,1,"f")
      put_x_value(5,1)
      execute(Pred_Name(X646574656374655F7661725F59,5),1,"detecte_var_Y",5)

End_Pred

#undef ASCII_PRED
#undef PRED
#undef ARITY



#define ASCII_PRED "formate_arg_$aux5"
#define PRED       X666F726D6174655F6172675F2461757835
#define ARITY      6

Begin_Private_Pred
      try_me_else(1)
      get_integer(0,5)
      neck_cut
      put_x_value(4,0)
      put_x_value(3,1)
      execute(Pred_Name(X747970655F61746F6D6963,2),1,"type_atomic",2)

label(1)
      trust_me_else_fail
      allocate(4)
      get_x_variable(6,0)
      get_y_variable(3,3)
      get_y_variable(2,4)
      get_y_variable(1,5)
      put_list(3)
      unify_void(1)
      unify_x_variable(0)
      builtin_2(term_univ,6,3)
      put_constant(X74,3,"t")
      put_y_variable(0,4)
      call(Pred_Name(X666F726D6174655F6C73745F617267,5),1,1,"formate_lst_arg",5)          /* begin sub 1 */
      put_y_value(3,0)
      get_structure(X737463,2,0,"stc")
      unify_x_variable(0)
      unify_y_local_value(0)
      get_structure(X2F,2,0,"/")
      unify_y_local_value(2)
      unify_y_local_value(1)
      deallocate
      proceed

End_Pred

#undef ASCII_PRED
#undef PRED
#undef ARITY



#define ASCII_PRED "lookup_var"
#define PRED       X6C6F6F6B75705F766172
#define ARITY      2

Begin_Private_Pred
      try_me_else(1)
      builtin_1(var,0)
      neck_cut
      get_list(0)
      unify_x_local_value(1)
      unify_void(1)
      proceed

label(1)
      trust_me_else_fail
      switch_on_term(G_label(3),fail,fail,G_label(2),fail)

label(2)
      try(4,1)          /* begin sub 1 */
      trust(6)

label(3)
      try_me_else(5)

label(4)
      get_list(0)
      unify_x_variable(0)
      unify_void(1)
      get_structure(X76,2,0,"v")
      unify_x_variable(0)
      unify_x_variable(2)
      get_structure(X76,2,1,"v")
      unify_x_variable(1)
      unify_x_value(2)
      builtin_2(term_eq,1,0)
      neck_cut
      proceed

label(5)
      trust_me_else_fail

label(6)
      get_list(0)
      unify_void(1)
      unify_x_variable(0)
      execute(Pred_Name(X6C6F6F6B75705F766172,2),1,"lookup_var",2)

End_Pred

#undef ASCII_PRED
#undef PRED
#undef ARITY



#define ASCII_PRED "type_atomic"
#define PRED       X747970655F61746F6D6963
#define ARITY      2

Begin_Public_Pred
      try_me_else(1)
      get_structure(X637374,1,1,"cst")
      unify_x_local_value(0)
      builtin_1(atom,0)
      neck_cut
      proceed

label(1)
      trust_me_else_fail
      get_structure(X696E74,1,1,"int")
      unify_x_local_value(0)
      builtin_1(integer,0)
      neck_cut
      proceed

End_Pred

#undef ASCII_PRED
#undef PRED
#undef ARITY



#define ASCII_PRED "detecte_var_Y"
#define PRED       X646574656374655F7661725F59
#define ARITY      5

Begin_Private_Pred
      try_me_else(1)
      get_x_value(0,1)
      proceed

label(1)
      retry_me_else(3)
      switch_on_term(G_label(2),fail,G_label(2),fail,fail)

label(2)
      get_integer(0,0)
      get_integer(1,1)
      proceed

label(3)
      trust_me_else_fail
      get_structure(X79,1,3,"y")
      unify_void(1)
      put_x_value(2,1)
      put_x_value(4,2)
      execute(Pred_Name(X646574656374655F64616E67657265757365,3),1,"detecte_dangereuse",3)

End_Pred

#undef ASCII_PRED
#undef PRED
#undef ARITY



#define ASCII_PRED "detecte_dangereuse"
#define PRED       X646574656374655F64616E67657265757365
#define ARITY      3

Begin_Private_Pred
      try_me_else(1)
      get_constant(X74,2,"t")
      put_integer(0,2)
      builtin_2(term_neq,0,2)
      put_constant(X66,0,"f")
      builtin_2(term_eq,1,0)
      proceed

label(1)
      trust_me_else_fail
      get_constant(X66,2,"f")
      proceed

End_Pred

#undef ASCII_PRED
#undef PRED
#undef ARITY



#define ASCII_PRED "inline_predicate"
#define PRED       X696E6C696E655F707265646963617465
#define ARITY      2

Begin_Public_Pred
      put_constant(X6E6F5F696E6C696E65,4,"no_inline")
      put_x_variable(2,3)
      builtin_2(g_read,4,3)
      execute(Pred_Name(X696E6C696E655F707265646963617465,3),1,"inline_predicate",3)

End_Pred

#undef ASCII_PRED
#undef PRED
#undef ARITY



#define ASCII_PRED "inline_predicate"
#define PRED       X696E6C696E655F707265646963617465
#define ARITY      3

Begin_Private_Pred
      switch_on_term(G_label(2),G_label(1),fail,fail,fail)

label(1)
      switch_on_constant(1,"[($get_bc_reg,3),($cut,5),($dbg_true,7),(pragma_c,9),(calling_module_nb,11),(=,13),(var,15),(nonvar,17),(atom,19),(integer,21),(number,23),(atomic,25),(compound,27),(callable,29),(functor,31),(arg,33),(compare,35),(=..,37),(==,39),(\==,41),(@<,43),(@=<,45),(@>,47),(@>=,49),(is,51),(=:=,53),(=\=,55),(<,57),(=<,59),(>,61),(>=,63),(g_assign,65),(g_assignb,67),(g_link,69),(g_read,71),(g_array_size,73)]")

label(2)
      try_me_else(4)

label(3)
      get_constant(X246765745F62635F726567,0,"$get_bc_reg")
      get_integer(1,1)
      proceed

label(4)
      retry_me_else(6)

label(5)
      get_constant(X24637574,0,"$cut")
      get_integer(1,1)
      proceed

label(6)
      retry_me_else(8)

label(7)
      get_constant(X246462675F74727565,0,"$dbg_true")
      get_integer(0,1)
      proceed

label(8)
      retry_me_else(10)

label(9)
      get_constant(X707261676D615F63,0,"pragma_c")
      get_integer(1,1)
      proceed

label(10)
      retry_me_else(12)

label(11)
      get_constant(X63616C6C696E675F6D6F64756C655F6E62,0,"calling_module_nb")
      get_integer(1,1)
      proceed

label(12)
      retry_me_else(14)

label(13)
      get_constant(X3D,0,"=")
      get_integer(2,1)
      get_constant(X66,2,"f")
      proceed

label(14)
      retry_me_else(16)

label(15)
      get_constant(X766172,0,"var")
      get_integer(1,1)
      get_constant(X66,2,"f")
      proceed

label(16)
      retry_me_else(18)

label(17)
      get_constant(X6E6F6E766172,0,"nonvar")
      get_integer(1,1)
      get_constant(X66,2,"f")
      proceed

label(18)
      retry_me_else(20)

label(19)
      get_constant(X61746F6D,0,"atom")
      get_integer(1,1)
      get_constant(X66,2,"f")
      proceed

label(20)
      retry_me_else(22)

label(21)
      get_constant(X696E7465676572,0,"integer")
      get_integer(1,1)
      get_constant(X66,2,"f")
      proceed

label(22)
      retry_me_else(24)

label(23)
      get_constant(X6E756D626572,0,"number")
      get_integer(1,1)
      get_constant(X66,2,"f")
      proceed

label(24)
      retry_me_else(26)

label(25)
      get_constant(X61746F6D6963,0,"atomic")
      get_integer(1,1)
      get_constant(X66,2,"f")
      proceed

label(26)
      retry_me_else(28)

label(27)
      get_constant(X636F6D706F756E64,0,"compound")
      get_integer(1,1)
      get_constant(X66,2,"f")
      proceed

label(28)
      retry_me_else(30)

label(29)
      get_constant(X63616C6C61626C65,0,"callable")
      get_integer(1,1)
      get_constant(X66,2,"f")
      proceed

label(30)
      retry_me_else(32)

label(31)
      get_constant(X66756E63746F72,0,"functor")
      get_integer(3,1)
      get_constant(X66,2,"f")
      proceed

label(32)
      retry_me_else(34)

label(33)
      get_constant(X617267,0,"arg")
      get_integer(3,1)
      get_constant(X66,2,"f")
      proceed

label(34)
      retry_me_else(36)

label(35)
      get_constant(X636F6D70617265,0,"compare")
      get_integer(3,1)
      get_constant(X66,2,"f")
      proceed

label(36)
      retry_me_else(38)

label(37)
      get_constant(X3D2E2E,0,"=..")
      get_integer(2,1)
      get_constant(X66,2,"f")
      proceed

label(38)
      retry_me_else(40)

label(39)
      get_constant(X3D3D,0,"==")
      get_integer(2,1)
      get_constant(X66,2,"f")
      proceed

label(40)
      retry_me_else(42)

label(41)
      get_constant(X5C3D3D,0,"\\==")
      get_integer(2,1)
      get_constant(X66,2,"f")
      proceed

label(42)
      retry_me_else(44)

label(43)
      get_constant(X403C,0,"@<")
      get_integer(2,1)
      get_constant(X66,2,"f")
      proceed

label(44)
      retry_me_else(46)

label(45)
      get_constant(X403D3C,0,"@=<")
      get_integer(2,1)
      get_constant(X66,2,"f")
      proceed

label(46)
      retry_me_else(48)

label(47)
      get_constant(X403E,0,"@>")
      get_integer(2,1)
      get_constant(X66,2,"f")
      proceed

label(48)
      retry_me_else(50)

label(49)
      get_constant(X403E3D,0,"@>=")
      get_integer(2,1)
      get_constant(X66,2,"f")
      proceed

label(50)
      retry_me_else(52)

label(51)
      get_constant(X6973,0,"is")
      get_integer(2,1)
      get_constant(X66,2,"f")
      proceed

label(52)
      retry_me_else(54)

label(53)
      get_constant(X3D3A3D,0,"=:=")
      get_integer(2,1)
      get_constant(X66,2,"f")
      proceed

label(54)
      retry_me_else(56)

label(55)
      get_constant(X3D5C3D,0,"=\\=")
      get_integer(2,1)
      get_constant(X66,2,"f")
      proceed

label(56)
      retry_me_else(58)

label(57)
      get_constant(X3C,0,"<")
      get_integer(2,1)
      get_constant(X66,2,"f")
      proceed

label(58)
      retry_me_else(60)

label(59)
      get_constant(X3D3C,0,"=<")
      get_integer(2,1)
      get_constant(X66,2,"f")
      proceed

label(60)
      retry_me_else(62)

label(61)
      get_constant(X3E,0,">")
      get_integer(2,1)
      get_constant(X66,2,"f")
      proceed

label(62)
      retry_me_else(64)

label(63)
      get_constant(X3E3D,0,">=")
      get_integer(2,1)
      get_constant(X66,2,"f")
      proceed

label(64)
      retry_me_else(66)

label(65)
      get_constant(X675F61737369676E,0,"g_assign")
      get_integer(2,1)
      get_constant(X66,2,"f")
      proceed

label(66)
      retry_me_else(68)

label(67)
      get_constant(X675F61737369676E62,0,"g_assignb")
      get_integer(2,1)
      get_constant(X66,2,"f")
      proceed

label(68)
      retry_me_else(70)

label(69)
      get_constant(X675F6C696E6B,0,"g_link")
      get_integer(2,1)
      get_constant(X66,2,"f")
      proceed

label(70)
      retry_me_else(72)

label(71)
      get_constant(X675F72656164,0,"g_read")
      get_integer(2,1)
      get_constant(X66,2,"f")
      proceed

label(72)
      trust_me_else_fail

label(73)
      get_constant(X675F61727261795F73697A65,0,"g_array_size")
      get_integer(2,1)
      get_constant(X66,2,"f")
      proceed

End_Pred

#undef ASCII_PRED
#undef PRED
#undef ARITY


Begin_Init_Tables(wamcc2)

 Define_Atom(X5B5D,"[]")
 Define_Atom(X666F726D61745F696E7465726E65,"format_interne")
 Define_Atom(X3A2D,":-")
 Define_Atom(X666F726D6174655F74657465,"formate_tete")
 Define_Atom(X7072656D5F617267,"prem_arg")
 Define_Atom(X2F,"/")
 Define_Atom(X666F726D6174655F636F727073,"formate_corps")
 Define_Atom(X74,"t")
 Define_Atom(X666F726D6174655F636F72707331,"formate_corps1")
 Define_Atom(X2C,",")
 Define_Atom(X74727565,"true")
 Define_Atom(X666F726D6174655F636F727073315F2461757832,"formate_corps1_$aux2")
 Define_Atom(X66,"f")
 Define_Atom(X666F726D6174655F636F727073315F2461757831,"formate_corps1_$aux1")
 Define_Atom(X666F726D6174655F70726564,"formate_pred")
 Define_Atom(X70,"p")
 Define_Atom(X666F726D6174655F707265645F2461757833,"formate_pred_$aux3")
 Define_Atom(X666F726D6174655F6C73745F617267,"formate_lst_arg")
 Define_Atom(X666F726D6174655F617267,"formate_arg")
 Define_Atom(X766172,"var")
 Define_Atom(X76,"v")
 Define_Atom(X6E696C,"nil")
 Define_Atom(X6C7374,"lst")
 Define_Atom(X666F726D6174655F6172675F2461757834,"formate_arg_$aux4")
 Define_Atom(X696776,"igv")
 Define_Atom(X666F726D6174655F6172675F2461757835,"formate_arg_$aux5")
 Define_Atom(X737463,"stc")
 Define_Atom(X6C6F6F6B75705F766172,"lookup_var")
 Define_Atom(X747970655F61746F6D6963,"type_atomic")
 Define_Atom(X637374,"cst")
 Define_Atom(X696E74,"int")
 Define_Atom(X646574656374655F7661725F59,"detecte_var_Y")
 Define_Atom(X79,"y")
 Define_Atom(X646574656374655F64616E67657265757365,"detecte_dangereuse")
 Define_Atom(X696E6C696E655F707265646963617465,"inline_predicate")
 Define_Atom(X6E6F5F696E6C696E65,"no_inline")
 Define_Atom(X246765745F62635F726567,"$get_bc_reg")
 Define_Atom(X24637574,"$cut")
 Define_Atom(X246462675F74727565,"$dbg_true")
 Define_Atom(X707261676D615F63,"pragma_c")
 Define_Atom(X63616C6C696E675F6D6F64756C655F6E62,"calling_module_nb")
 Define_Atom(X3D,"=")
 Define_Atom(X6E6F6E766172,"nonvar")
 Define_Atom(X61746F6D,"atom")
 Define_Atom(X696E7465676572,"integer")
 Define_Atom(X6E756D626572,"number")
 Define_Atom(X61746F6D6963,"atomic")
 Define_Atom(X636F6D706F756E64,"compound")
 Define_Atom(X63616C6C61626C65,"callable")
 Define_Atom(X66756E63746F72,"functor")
 Define_Atom(X617267,"arg")
 Define_Atom(X636F6D70617265,"compare")
 Define_Atom(X3D2E2E,"=..")
 Define_Atom(X3D3D,"==")
 Define_Atom(X5C3D3D,"\\==")
 Define_Atom(X403C,"@<")
 Define_Atom(X403D3C,"@=<")
 Define_Atom(X403E,"@>")
 Define_Atom(X403E3D,"@>=")
 Define_Atom(X6973,"is")
 Define_Atom(X3D3A3D,"=:=")
 Define_Atom(X3D5C3D,"=\\=")
 Define_Atom(X3C,"<")
 Define_Atom(X3D3C,"=<")
 Define_Atom(X3E,">")
 Define_Atom(X3E3D,">=")
 Define_Atom(X675F61737369676E,"g_assign")
 Define_Atom(X675F61737369676E62,"g_assignb")
 Define_Atom(X675F6C696E6B,"g_link")
 Define_Atom(X675F72656164,"g_read")
 Define_Atom(X675F61727261795F73697A65,"g_array_size")


 Define_Pred(X666F726D61745F696E7465726E65,5,1)

 Define_Pred(X666F726D6174655F74657465,4,0)

 Define_Pred(X7072656D5F617267,2,0)

 Define_Pred(X666F726D6174655F636F727073,4,0)

 Define_Pred(X666F726D6174655F636F72707331,8,0)

 Define_Pred(X666F726D6174655F636F727073315F2461757832,2,0)

 Define_Pred(X666F726D6174655F636F727073315F2461757831,3,0)

 Define_Pred(X666F726D6174655F70726564,5,0)

 Define_Pred(X666F726D6174655F707265645F2461757833,3,0)

 Define_Pred(X666F726D6174655F6C73745F617267,5,0)

 Define_Pred(X666F726D6174655F617267,5,0)

 Define_Pred(X666F726D6174655F6172675F2461757834,4,0)

 Define_Pred(X666F726D6174655F6172675F2461757835,6,0)

 Define_Pred(X6C6F6F6B75705F766172,2,0)

 Define_Pred(X747970655F61746F6D6963,2,1)

 Define_Pred(X646574656374655F7661725F59,5,0)

 Define_Pred(X646574656374655F64616E67657265757365,3,0)

 Define_Pred(X696E6C696E655F707265646963617465,2,1)

 Define_Pred(X696E6C696E655F707265646963617465,3,0)
 Define_Switch_CST_Table(Swt_Table_Name(X696E6C696E655F707265646963617465,3,1,cst),36)
     Define_Switch_CST(X246765745F62635F726567,Label_Pred_Name(X696E6C696E655F707265646963617465,3,3))
     Define_Switch_CST(X24637574,Label_Pred_Name(X696E6C696E655F707265646963617465,3,5))
     Define_Switch_CST(X246462675F74727565,Label_Pred_Name(X696E6C696E655F707265646963617465,3,7))
     Define_Switch_CST(X707261676D615F63,Label_Pred_Name(X696E6C696E655F707265646963617465,3,9))
     Define_Switch_CST(X63616C6C696E675F6D6F64756C655F6E62,Label_Pred_Name(X696E6C696E655F707265646963617465,3,11))
     Define_Switch_CST(X3D,Label_Pred_Name(X696E6C696E655F707265646963617465,3,13))
     Define_Switch_CST(X766172,Label_Pred_Name(X696E6C696E655F707265646963617465,3,15))
     Define_Switch_CST(X6E6F6E766172,Label_Pred_Name(X696E6C696E655F707265646963617465,3,17))
     Define_Switch_CST(X61746F6D,Label_Pred_Name(X696E6C696E655F707265646963617465,3,19))
     Define_Switch_CST(X696E7465676572,Label_Pred_Name(X696E6C696E655F707265646963617465,3,21))
     Define_Switch_CST(X6E756D626572,Label_Pred_Name(X696E6C696E655F707265646963617465,3,23))
     Define_Switch_CST(X61746F6D6963,Label_Pred_Name(X696E6C696E655F707265646963617465,3,25))
     Define_Switch_CST(X636F6D706F756E64,Label_Pred_Name(X696E6C696E655F707265646963617465,3,27))
     Define_Switch_CST(X63616C6C61626C65,Label_Pred_Name(X696E6C696E655F707265646963617465,3,29))
     Define_Switch_CST(X66756E63746F72,Label_Pred_Name(X696E6C696E655F707265646963617465,3,31))
     Define_Switch_CST(X617267,Label_Pred_Name(X696E6C696E655F707265646963617465,3,33))
     Define_Switch_CST(X636F6D70617265,Label_Pred_Name(X696E6C696E655F707265646963617465,3,35))
     Define_Switch_CST(X3D2E2E,Label_Pred_Name(X696E6C696E655F707265646963617465,3,37))
     Define_Switch_CST(X3D3D,Label_Pred_Name(X696E6C696E655F707265646963617465,3,39))
     Define_Switch_CST(X5C3D3D,Label_Pred_Name(X696E6C696E655F707265646963617465,3,41))
     Define_Switch_CST(X403C,Label_Pred_Name(X696E6C696E655F707265646963617465,3,43))
     Define_Switch_CST(X403D3C,Label_Pred_Name(X696E6C696E655F707265646963617465,3,45))
     Define_Switch_CST(X403E,Label_Pred_Name(X696E6C696E655F707265646963617465,3,47))
     Define_Switch_CST(X403E3D,Label_Pred_Name(X696E6C696E655F707265646963617465,3,49))
     Define_Switch_CST(X6973,Label_Pred_Name(X696E6C696E655F707265646963617465,3,51))
     Define_Switch_CST(X3D3A3D,Label_Pred_Name(X696E6C696E655F707265646963617465,3,53))
     Define_Switch_CST(X3D5C3D,Label_Pred_Name(X696E6C696E655F707265646963617465,3,55))
     Define_Switch_CST(X3C,Label_Pred_Name(X696E6C696E655F707265646963617465,3,57))
     Define_Switch_CST(X3D3C,Label_Pred_Name(X696E6C696E655F707265646963617465,3,59))
     Define_Switch_CST(X3E,Label_Pred_Name(X696E6C696E655F707265646963617465,3,61))
     Define_Switch_CST(X3E3D,Label_Pred_Name(X696E6C696E655F707265646963617465,3,63))
     Define_Switch_CST(X675F61737369676E,Label_Pred_Name(X696E6C696E655F707265646963617465,3,65))
     Define_Switch_CST(X675F61737369676E62,Label_Pred_Name(X696E6C696E655F707265646963617465,3,67))
     Define_Switch_CST(X675F6C696E6B,Label_Pred_Name(X696E6C696E655F707265646963617465,3,69))
     Define_Switch_CST(X675F72656164,Label_Pred_Name(X696E6C696E655F707265646963617465,3,71))
     Define_Switch_CST(X675F61727261795F73697A65,Label_Pred_Name(X696E6C696E655F707265646963617465,3,73))

 Init_Usr_File

End_Init_Tables


Begin_Exec_Directives(wamcc2)



End_Exec_Directives
