/**************************************************************************** Prolog to Wam Compiler INRIA Rocquencourt - ChLoE Project Version 2.21 Daniel Diaz - 1994 File : wamcc6.c Main : no_main ****************************************************************************/ #define FAST_MATH #define DEBUG_LEVEL 0 #include "wam_engine.h" #include "wamcc6.h" #include "wamcc6.usr" #define ASCII_PRED "indexation" #define PRED X696E6465786174696F6E #define ARITY 2 Begin_Public_Pred allocate(1) get_y_variable(0,1) put_constant(X66,1,"f") put_x_variable(2,2) put_y_value(0,3) call(Pred_Name(X696E6465786174696F6E31,4),1,1,"indexation1",4) /* begin sub 1 */ put_y_value(0,0) put_integer(0,1) put_x_variable(2,2) deallocate execute(Pred_Name(X616C6C6F635F6C6162656C73,3),1,"alloc_labels",3) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "indexation1" #define PRED X696E6465786174696F6E31 #define ARITY 4 Begin_Private_Pred allocate(7) get_y_variable(2,1) get_list(3) unify_x_variable(1) unify_y_variable(1) get_structure(X6C6162656C,1,1,"label") unify_x_local_value(2) get_y_bc_reg(0) put_y_variable(6,1) put_y_variable(5,2) put_y_variable(4,3) put_y_variable(3,4) call(Pred_Name(X636865726368655F766172,5),1,1,"cherche_var",5) /* begin sub 1 */ put_y_value(6,0) put_y_value(5,1) put_y_value(4,2) put_y_value(3,3) put_y_value(2,4) put_y_value(1,5) call(Pred_Name(X696E6465786572,6),1,2,"indexer",6) /* begin sub 2 */ cut_y(0) deallocate proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "cherche_var" #define PRED X636865726368655F766172 #define ARITY 5 Begin_Private_Pred switch_on_term(G_label(2),G_label(3),fail,G_label(1),fail) label(1) try(5,1) /* begin sub 1 */ trust(7) label(2) try_me_else(4) label(3) get_nil(0) get_integer(2,1) get_nil(2) get_nil(4) proceed label(4) retry_me_else(6) label(5) get_list(0) unify_x_variable(5) unify_x_variable(0) get_structure(X636C,3,5,"cl") unify_x_variable(7) unify_x_variable(5) unify_x_variable(6) get_nil(2) get_structure(X636C,3,3,"cl") unify_x_value(7) unify_x_value(5) unify_x_value(6) get_x_value(0,4) builtin_1(var,5) execute(Pred_Name(X636865726368655F7661725F2461757831,2),1,"cherche_var_$aux1",2) label(6) trust_me_else_fail label(7) allocate(2) get_list(0) unify_x_variable(5) unify_x_variable(0) get_y_variable(1,1) get_list(2) unify_x_value(5) unify_x_variable(2) put_y_variable(0,1) call(Pred_Name(X636865726368655F766172,5),1,2,"cherche_var",5) /* begin sub 2 */ put_y_value(1,0) put_y_unsafe_value(0,1) deallocate execute(Pred_Name(X636865726368655F7661725F2461757832,2),1,"cherche_var_$aux2",2) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "cherche_var_$aux1" #define PRED X636865726368655F7661725F2461757831 #define ARITY 2 Begin_Private_Pred try_me_else(1) put_nil(2) builtin_2(term_eq,0,2) neck_cut get_integer(14,1) proceed label(1) trust_me_else_fail get_integer(13,1) proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "cherche_var_$aux2" #define PRED X636865726368655F7661725F2461757832 #define ARITY 2 Begin_Private_Pred try_me_else(1) put_integer(13,2) builtin_2(term_eq,1,2) neck_cut get_integer(11,0) proceed label(1) retry_me_else(2) put_integer(14,2) builtin_2(term_eq,1,2) neck_cut get_integer(12,0) proceed label(2) trust_me_else_fail get_x_value(1,0) proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "indexer" #define PRED X696E6465786572 #define ARITY 6 Begin_Private_Pred switch_on_term(G_label(2),fail,G_label(1),fail,fail) label(1) switch_on_integer(lst(i(11,3) i(12,5) i(13,7) i(14,9) i(2,11) ),"[(11,3),(12,5),(13,7),(14,9),(2,11)]") label(2) try_me_else(4) label(3) allocate(9) get_integer(11,0) get_y_variable(8,1) get_structure(X636C,3,2,"cl") unify_void(2) unify_y_variable(1) get_y_variable(7,3) get_y_variable(6,5) put_x_value(4,0) put_y_variable(5,1) put_y_variable(3,2) call(Pred_Name(X696E64657865725F2461757833,3),1,1,"indexer_$aux3",3) /* begin sub 1 */ put_integer(2,0) put_y_value(8,1) put_x_variable(2,2) put_x_variable(3,3) put_constant(X66,4,"f") put_y_variable(4,5) call(Pred_Name(X696E6465786572,6),1,2,"indexer",6) /* begin sub 2 */ put_y_value(7,0) put_constant(X74,1,"t") put_y_variable(2,2) put_y_variable(0,3) call(Pred_Name(X696E6465786174696F6E31,4),1,3,"indexation1",4) /* begin sub 3 */ put_y_value(6,0) get_list(0) unify_y_local_value(5) unify_x_variable(0) get_list(0) unify_y_local_value(4) unify_x_variable(0) get_list(0) unify_x_variable(1) unify_x_variable(0) get_structure(X6C6162656C,1,1,"label") unify_y_local_value(3) get_list(0) unify_x_variable(1) unify_x_variable(0) get_structure(X72657472795F6D655F656C7365,1,1,"retry_me_else") unify_y_local_value(2) get_list(0) unify_y_value(1) unify_y_local_value(0) deallocate proceed label(4) retry_me_else(6) label(5) allocate(6) get_integer(12,0) get_y_variable(5,1) get_structure(X636C,3,2,"cl") unify_void(2) unify_y_variable(0) get_y_variable(4,5) put_x_value(4,0) put_y_variable(3,1) put_y_variable(1,2) call(Pred_Name(X696E64657865725F2461757834,3),1,4,"indexer_$aux4",3) /* begin sub 4 */ put_integer(2,0) put_y_value(5,1) put_x_variable(2,2) put_x_variable(3,3) put_constant(X66,4,"f") put_y_variable(2,5) call(Pred_Name(X696E6465786572,6),1,5,"indexer",6) /* begin sub 5 */ put_y_value(4,0) get_list(0) unify_y_local_value(3) unify_x_variable(0) get_list(0) unify_y_local_value(2) unify_x_variable(0) get_list(0) unify_x_variable(1) unify_x_variable(0) get_structure(X6C6162656C,1,1,"label") unify_y_local_value(1) get_list(0) unify_constant(X74727573745F6D655F656C73655F6661696C,"trust_me_else_fail") unify_y_value(0) deallocate proceed label(6) retry_me_else(8) label(7) allocate(6) get_integer(13,0) get_structure(X636C,3,2,"cl") unify_void(2) unify_y_variable(1) get_y_variable(5,3) get_y_variable(3,5) put_x_value(4,0) put_y_variable(4,1) put_y_variable(2,2) call(Pred_Name(X696E64657865725F2461757835,3),1,6,"indexer_$aux5",3) /* begin sub 6 */ put_y_value(5,0) put_constant(X74,1,"t") put_y_value(4,2) put_y_variable(0,3) call(Pred_Name(X696E6465786174696F6E31,4),1,7,"indexation1",4) /* begin sub 7 */ put_y_value(3,0) get_list(0) unify_y_local_value(2) unify_x_variable(0) get_list(0) unify_y_value(1) unify_y_local_value(0) deallocate proceed label(8) retry_me_else(10) label(9) get_integer(14,0) get_structure(X636C,3,2,"cl") unify_void(2) unify_x_variable(0) put_x_value(4,1) put_x_value(5,2) execute(Pred_Name(X696E64657865725F2461757836,3),1,"indexer_$aux6",3) label(10) trust_me_else_fail label(11) allocate(19) get_integer(2,0) get_y_variable(3,1) get_y_bc_reg(0) put_x_value(4,0) put_x_value(5,1) put_y_variable(14,2) put_y_variable(11,3) put_y_variable(8,4) put_y_variable(5,5) put_y_variable(18,6) put_y_variable(2,7) call(Pred_Name(X696E64657865725F2461757837,8),1,8,"indexer_$aux7",8) /* begin sub 8 */ put_y_value(3,0) put_y_variable(15,1) put_y_variable(12,2) put_y_variable(9,3) put_y_variable(6,4) call(Pred_Name(X6465636F75706572,5),1,9,"decouper",5) /* begin sub 9 */ cut_y(0) put_y_value(14,0) put_y_value(15,1) put_y_variable(17,2) put_y_variable(16,3) call(Pred_Name(X696E64657865725F2461757838,4),1,10,"indexer_$aux8",4) /* begin sub 10 */ put_y_value(11,0) put_y_value(12,1) put_y_value(17,2) put_y_value(16,3) call(Pred_Name(X696E64657865725F2461757839,4),1,11,"indexer_$aux9",4) /* begin sub 11 */ put_y_value(8,0) put_y_value(9,1) put_y_value(17,2) put_y_value(16,3) call(Pred_Name(X696E64657865725F246175783130,4),1,12,"indexer_$aux10",4) /* begin sub 12 */ put_y_value(5,0) put_y_value(6,1) put_y_value(17,2) put_y_value(16,3) call(Pred_Name(X696E64657865725F246175783131,4),1,13,"indexer_$aux11",4) /* begin sub 13 */ put_y_value(18,0) put_y_value(17,1) put_y_value(16,2) put_y_variable(13,3) call(Pred_Name(X696E64657865725F246175783132,4),1,14,"indexer_$aux12",4) /* begin sub 14 */ put_y_value(15,0) put_constant(X7377697463685F6F6E5F636F6E7374616E74,1,"switch_on_constant") put_y_value(14,2) put_y_variable(10,3) put_y_value(13,4) call(Pred_Name(X67656E5F737769746368,5),1,15,"gen_switch",5) /* begin sub 15 */ cut_y(0) put_y_value(12,0) put_constant(X7377697463685F6F6E5F696E7465676572,1,"switch_on_integer") put_y_value(11,2) put_y_variable(7,3) put_y_value(10,4) call(Pred_Name(X67656E5F737769746368,5),1,16,"gen_switch",5) /* begin sub 16 */ cut_y(0) put_y_value(9,0) put_y_value(8,1) put_y_variable(4,2) put_y_value(7,3) call(Pred_Name(X67656E5F6C69737465,4),1,17,"gen_liste",4) /* begin sub 17 */ cut_y(0) put_y_value(6,0) put_constant(X7377697463685F6F6E5F737472756374757265,1,"switch_on_structure") put_y_value(5,2) put_y_variable(1,3) put_y_value(4,4) call(Pred_Name(X67656E5F737769746368,5),1,18,"gen_switch",5) /* begin sub 18 */ cut_y(0) put_y_value(3,0) put_y_value(2,1) put_y_value(1,2) call(Pred_Name(X67656E5F696E737473,3),1,19,"gen_insts",3) /* begin sub 19 */ cut_y(0) deallocate proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "indexer_$aux3" #define PRED X696E64657865725F2461757833 #define ARITY 3 Begin_Private_Pred try_me_else(1) put_constant(X66,3,"f") builtin_2(term_eq,0,3) neck_cut get_structure(X7472795F6D655F656C7365,1,1,"try_me_else") unify_x_local_value(2) proceed label(1) trust_me_else_fail get_structure(X72657472795F6D655F656C7365,1,1,"retry_me_else") unify_x_local_value(2) proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "indexer_$aux4" #define PRED X696E64657865725F2461757834 #define ARITY 3 Begin_Private_Pred try_me_else(1) put_constant(X66,3,"f") builtin_2(term_eq,0,3) neck_cut get_structure(X7472795F6D655F656C7365,1,1,"try_me_else") unify_x_local_value(2) proceed label(1) trust_me_else_fail get_structure(X72657472795F6D655F656C7365,1,1,"retry_me_else") unify_x_local_value(2) proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "indexer_$aux5" #define PRED X696E64657865725F2461757835 #define ARITY 3 Begin_Private_Pred try_me_else(1) put_constant(X66,3,"f") builtin_2(term_eq,0,3) neck_cut get_structure(X7472795F6D655F656C7365,1,2,"try_me_else") unify_x_local_value(1) proceed label(1) trust_me_else_fail get_structure(X72657472795F6D655F656C7365,1,2,"retry_me_else") unify_x_local_value(1) proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "indexer_$aux6" #define PRED X696E64657865725F2461757836 #define ARITY 3 Begin_Private_Pred try_me_else(1) put_constant(X66,3,"f") builtin_2(term_eq,1,3) neck_cut get_x_value(0,2) proceed label(1) trust_me_else_fail get_list(2) unify_constant(X74727573745F6D655F656C73655F6661696C,"trust_me_else_fail") unify_x_local_value(0) proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "indexer_$aux12" #define PRED X696E64657865725F246175783132 #define ARITY 4 Begin_Private_Pred try_me_else(1) put_constant(X74,4,"t") builtin_2(term_eq,2,4) neck_cut get_x_value(3,0) get_constant(X6661696C,1,"fail") proceed label(1) trust_me_else_fail get_x_value(3,0) proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "indexer_$aux11" #define PRED X696E64657865725F246175783131 #define ARITY 4 Begin_Private_Pred try_me_else(1) put_nil(4) builtin_2(term_eq,1,4) neck_cut get_x_value(2,0) get_constant(X74,3,"t") proceed label(1) trust_me_else_fail proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "indexer_$aux10" #define PRED X696E64657865725F246175783130 #define ARITY 4 Begin_Private_Pred try_me_else(1) put_nil(4) builtin_2(term_eq,1,4) neck_cut get_x_value(2,0) get_constant(X74,3,"t") proceed label(1) trust_me_else_fail proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "indexer_$aux9" #define PRED X696E64657865725F2461757839 #define ARITY 4 Begin_Private_Pred try_me_else(1) put_nil(4) builtin_2(term_eq,1,4) neck_cut get_x_value(2,0) get_constant(X74,3,"t") proceed label(1) trust_me_else_fail proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "indexer_$aux8" #define PRED X696E64657865725F2461757838 #define ARITY 4 Begin_Private_Pred try_me_else(1) put_nil(4) builtin_2(term_eq,1,4) neck_cut get_x_value(2,0) get_constant(X74,3,"t") proceed label(1) trust_me_else_fail proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "indexer_$aux7" #define PRED X696E64657865725F2461757837 #define ARITY 8 Begin_Private_Pred try_me_else(1) put_constant(X66,8,"f") builtin_2(term_eq,0,8) neck_cut get_list(1) unify_x_variable(0) unify_x_local_value(6) get_structure(X7377697463685F6F6E5F7465726D,5,0,"switch_on_term") unify_x_local_value(7) unify_x_local_value(2) unify_x_local_value(3) unify_x_local_value(4) unify_x_local_value(5) proceed label(1) trust_me_else_fail get_list(1) unify_constant(X74727573745F6D655F656C73655F6661696C,"trust_me_else_fail") unify_x_variable(0) get_list(0) unify_x_variable(0) unify_x_local_value(6) get_structure(X7377697463685F6F6E5F7465726D,5,0,"switch_on_term") unify_x_local_value(7) unify_x_local_value(2) unify_x_local_value(3) unify_x_local_value(4) unify_x_local_value(5) proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "decouper" #define PRED X6465636F75706572 #define ARITY 5 Begin_Private_Pred allocate(6) get_y_variable(4,1) get_y_variable(2,2) get_x_variable(8,3) get_y_variable(0,4) put_nil(1) put_nil(2) put_structure(X61,2,3,"a") unify_x_variable(4) unify_x_value(4) put_nil(4) put_y_variable(5,5) put_y_variable(3,6) put_structure(X61,2,7,"a") unify_nil unify_x_local_value(8) put_y_variable(1,8) call(Pred_Name(X6465636F7570657231,9),1,1,"decouper1",9) /* begin sub 1 */ put_y_value(5,0) put_y_value(4,1) call(Pred_Name(X66696E69725F6C69737465,2),1,2,"finir_liste",2) /* begin sub 2 */ put_y_value(3,0) put_y_value(2,1) call(Pred_Name(X66696E69725F6C69737465,2),1,3,"finir_liste",2) /* begin sub 3 */ put_y_unsafe_value(1,0) put_y_value(0,1) deallocate execute(Pred_Name(X66696E69725F6C69737465,2),1,"finir_liste",2) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "decouper1" #define PRED X6465636F7570657231 #define ARITY 9 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_x_value(1,5) get_x_value(2,6) get_x_value(3,7) get_x_value(4,8) proceed label(3) trust_me_else_fail label(4) allocate(9) get_list(0) unify_x_variable(0) unify_y_variable(8) get_structure(X636C,3,0,"cl") unify_x_variable(13) unify_x_variable(0) unify_void(1) get_x_variable(12,1) get_x_variable(11,2) get_x_variable(10,3) get_x_variable(9,4) get_y_variable(3,5) get_y_variable(2,6) get_y_variable(1,7) get_y_variable(0,8) put_x_value(13,1) put_x_value(12,2) put_x_value(11,3) put_x_value(10,4) put_x_value(9,5) put_y_variable(7,6) put_y_variable(6,7) put_y_variable(5,8) put_y_variable(4,9) call(Pred_Name(X6465636F7570657232,10),1,1,"decouper2",10) /* begin sub 1 */ put_y_value(8,0) put_y_unsafe_value(7,1) put_y_unsafe_value(6,2) put_y_unsafe_value(5,3) put_y_unsafe_value(4,4) put_y_value(3,5) put_y_value(2,6) put_y_value(1,7) put_y_value(0,8) deallocate execute(Pred_Name(X6465636F7570657231,9),1,"decouper1",9) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "decouper2" #define PRED X6465636F7570657232 #define ARITY 10 Begin_Private_Pred switch_on_term(G_label(3),fail,fail,fail,G_label(1)) label(1) switch_on_structure(1,"[(/ /2,2)]") label(2) try(4,1) /* begin sub 1 */ retry(6,2) /* begin sub 2 */ trust(8) label(3) try_me_else(5) label(4) allocate(7) get_structure(X2F,2,0,"/") unify_y_variable(6) unify_integer(0) get_y_variable(5,1) get_y_variable(4,2) get_y_variable(3,3) get_y_variable(2,6) get_y_variable(1,7) get_x_value(4,8) get_x_value(5,9) put_y_value(6,0) put_y_variable(0,1) call(Pred_Name(X747970655F61746F6D6963,2),0,3,"type_atomic",2) /* begin sub 3 */ put_y_value(6,0) put_y_value(5,1) put_y_value(4,2) put_y_value(3,3) put_y_value(2,4) put_y_value(1,5) put_y_unsafe_value(0,6) deallocate execute(Pred_Name(X6465636F75706572325F246175783133,7),1,"decouper2_$aux13",7) label(5) retry_me_else(7) label(6) get_structure(X2F,2,0,"/") unify_constant(X2E,".") unify_integer(2) get_structure(X61,2,4,"a") unify_x_variable(4) unify_x_variable(0) get_list(4) unify_x_local_value(1) unify_x_variable(1) get_x_value(2,6) get_x_value(3,7) get_structure(X61,2,8,"a") unify_x_value(1) unify_x_value(0) get_x_value(5,9) proceed label(7) trust_me_else_fail label(8) get_structure(X2F,2,0,"/") unify_x_variable(12) unify_x_variable(11) get_x_variable(10,1) get_x_value(2,6) get_x_value(3,7) get_x_value(4,8) put_x_value(5,0) put_structure(X2F,2,1,"/") unify_x_value(12) unify_x_value(11) put_x_value(10,2) put_x_value(9,3) execute(Pred_Name(X616A6F75745F656E5F6C69737465,4),1,"ajout_en_liste",4) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "decouper2_$aux13" #define PRED X6465636F75706572325F246175783133 #define ARITY 7 Begin_Private_Pred try_me_else(1) allocate(2) get_x_variable(8,0) get_x_variable(7,1) get_y_variable(0,3) get_y_variable(1,5) put_structure(X637374,1,0,"cst") unify_x_local_value(8) builtin_2(term_eq,6,0) neck_cut put_x_value(2,0) put_x_value(8,1) put_x_value(7,2) put_x_value(4,3) call(Pred_Name(X616A6F75745F656E5F6C69737465,4),1,1,"ajout_en_liste",4) /* begin sub 1 */ put_y_value(1,0) get_y_value(0,0) deallocate proceed label(1) trust_me_else_fail allocate(2) get_x_variable(8,0) get_x_variable(7,1) get_y_variable(0,2) get_y_variable(1,4) put_x_value(3,0) put_x_value(8,1) put_x_value(7,2) put_x_value(5,3) call(Pred_Name(X616A6F75745F656E5F6C69737465,4),1,2,"ajout_en_liste",4) /* begin sub 2 */ put_y_value(1,0) get_y_value(0,0) deallocate proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "ajout_en_liste" #define PRED X616A6F75745F656E5F6C69737465 #define ARITY 4 Begin_Private_Pred switch_on_term(G_label(2),G_label(3),fail,G_label(1),fail) label(1) try(5,1) /* begin sub 1 */ trust(7) label(2) try_me_else(4) label(3) get_nil(0) get_list(3) unify_x_variable(0) unify_nil get_structure(X61,3,0,"a") unify_x_local_value(1) unify_x_variable(0) unify_x_variable(1) get_list(1) unify_x_local_value(2) unify_x_value(0) proceed label(4) retry_me_else(6) label(5) get_list(0) unify_x_variable(0) unify_x_variable(6) get_structure(X61,3,0,"a") unify_x_variable(5) unify_x_variable(4) unify_x_variable(0) get_list(4) unify_x_variable(7) unify_x_variable(4) get_x_value(5,1) get_x_value(7,2) get_list(3) unify_x_variable(1) unify_x_value(6) get_structure(X61,3,1,"a") unify_x_value(5) unify_x_value(4) unify_x_value(0) proceed label(6) trust_me_else_fail label(7) get_list(0) unify_x_variable(4) unify_x_variable(0) get_list(3) unify_x_value(4) unify_x_variable(3) execute(Pred_Name(X616A6F75745F656E5F6C69737465,4),1,"ajout_en_liste",4) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "finir_liste" #define PRED X66696E69725F6C69737465 #define ARITY 2 Begin_Private_Pred switch_on_term(G_label(1),G_label(2),fail,G_label(4),fail) label(1) try_me_else(3) label(2) get_nil(0) get_nil(1) proceed label(3) trust_me_else_fail label(4) get_list(0) unify_x_variable(2) unify_x_variable(0) get_structure(X61,3,2,"a") unify_x_variable(3) unify_nil unify_x_variable(2) get_list(1) unify_x_variable(4) unify_x_variable(1) get_structure(X61,2,4,"a") unify_x_value(3) unify_x_value(2) execute(Pred_Name(X66696E69725F6C69737465,2),1,"finir_liste",2) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "gen_switch" #define PRED X67656E5F737769746368 #define ARITY 5 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(3,4) proceed label(3) trust_me_else_fail label(4) get_list(0) unify_x_variable(0) unify_nil get_structure(X61,2,0,"a") unify_void(1) unify_x_variable(0) get_list(0) unify_x_variable(0) unify_nil get_x_value(0,2) get_x_value(3,4) proceed label(5) trust_me_else_fail allocate(5) get_y_variable(4,1) get_y_variable(3,2) get_list(4) unify_x_variable(2) unify_x_variable(1) get_structure(X6C6162656C,1,2,"label") unify_y_local_value(3) get_list(1) unify_y_variable(2) unify_x_variable(4) put_y_variable(1,1) put_y_variable(0,2) call(Pred_Name(X637265655F6C697374655F737769746368,5),1,1,"cree_liste_switch",5) /* begin sub 1 */ put_y_value(4,0) put_y_value(3,1) put_y_value(2,2) put_y_unsafe_value(1,3) put_y_unsafe_value(0,4) deallocate execute(Pred_Name(X67656E5F7377697463685F246175783134,5),1,"gen_switch_$aux14",5) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "gen_switch_$aux14" #define PRED X67656E5F7377697463685F246175783134 #define ARITY 5 Begin_Private_Pred try_me_else(1) put_constant(X6D6F64655F63,6,"mode_c") put_constant(X74,5,"t") builtin_2(g_read,6,5) neck_cut put_list(5) unify_x_local_value(4) unify_nil put_list(4) unify_x_local_value(3) unify_x_value(5) put_list(3) unify_x_local_value(1) unify_x_value(4) put_list(1) unify_x_local_value(0) unify_x_value(3) builtin_2(term_univ,2,1) proceed label(1) trust_me_else_fail put_list(1) unify_x_local_value(4) unify_nil put_list(4) unify_x_local_value(3) unify_x_value(1) put_list(1) unify_x_local_value(0) unify_x_value(4) builtin_2(term_univ,2,1) proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "cree_liste_switch" #define PRED X637265655F6C697374655F737769746368 #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_integer(0,1) get_nil(2) get_x_value(3,4) proceed label(3) trust_me_else_fail label(4) allocate(6) get_list(0) unify_x_variable(0) unify_y_variable(5) get_structure(X61,2,0,"a") unify_x_variable(5) unify_x_variable(0) get_y_variable(1,1) get_list(2) unify_x_variable(1) unify_y_variable(4) get_structure(X2C,2,1,",") unify_x_value(5) unify_x_variable(1) get_y_variable(3,3) put_y_variable(2,2) put_x_value(4,3) call(Pred_Name(X67656E5F6C69737465,4),1,1,"gen_liste",4) /* begin sub 1 */ put_y_value(5,0) put_y_variable(0,1) put_y_value(4,2) put_y_value(3,3) put_y_value(2,4) call(Pred_Name(X637265655F6C697374655F737769746368,5),1,2,"cree_liste_switch",5) /* begin sub 2 */ math_load_y_value(0,0) function_1(inc,0,0) get_y_value(1,0) deallocate proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "gen_liste" #define PRED X67656E5F6C69737465 #define ARITY 4 Begin_Private_Pred switch_on_term(G_label(2),G_label(3),fail,G_label(1),fail) label(1) try(5,1) /* begin sub 1 */ trust(7) label(2) try_me_else(4) label(3) get_nil(0) get_x_value(2,3) proceed label(4) retry_me_else(6) label(5) get_list(0) unify_x_variable(0) unify_nil get_x_value(0,1) get_x_value(2,3) proceed label(6) trust_me_else_fail label(7) get_list(0) unify_x_variable(4) unify_x_variable(0) get_x_variable(5,1) get_x_variable(1,2) get_list(3) unify_x_variable(3) unify_x_variable(2) get_structure(X6C6162656C,1,3,"label") unify_x_local_value(5) get_list(2) unify_x_variable(3) unify_x_variable(2) get_structure(X747279,1,3,"try") unify_x_value(4) execute(Pred_Name(X67656E5F6C6973746531,3),1,"gen_liste1",3) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "gen_liste1" #define PRED X67656E5F6C6973746531 #define ARITY 3 Begin_Private_Pred switch_on_term(G_label(2),fail,fail,G_label(1),fail) label(1) try(3,1) /* begin sub 1 */ trust(5) label(2) try_me_else(4) label(3) get_list(0) unify_x_variable(0) unify_nil get_list(2) unify_x_variable(2) unify_x_local_value(1) get_structure(X7472757374,1,2,"trust") unify_x_value(0) proceed label(4) trust_me_else_fail label(5) get_list(0) unify_x_variable(3) unify_x_variable(0) get_list(2) unify_x_variable(4) unify_x_variable(2) get_structure(X7265747279,1,4,"retry") unify_x_value(3) execute(Pred_Name(X67656E5F6C6973746531,3),1,"gen_liste1",3) End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "gen_insts" #define PRED X67656E5F696E737473 #define ARITY 3 Begin_Private_Pred switch_on_term(G_label(2),fail,fail,G_label(1),fail) label(1) try(3,1) /* begin sub 1 */ trust(5) label(2) try_me_else(4) label(3) get_list(0) unify_x_variable(0) unify_nil get_structure(X636C,3,0,"cl") unify_x_variable(0) unify_void(1) unify_x_variable(3) get_x_value(0,1) get_list(2) unify_x_variable(1) unify_x_value(3) get_structure(X6C6162656C,1,1,"label") unify_x_value(0) proceed label(4) trust_me_else_fail label(5) allocate(6) get_list(0) unify_x_variable(3) unify_x_variable(0) get_structure(X636C,3,3,"cl") unify_y_variable(2) unify_void(1) unify_y_variable(1) get_y_variable(4,1) get_y_variable(5,2) put_y_variable(3,1) put_y_variable(0,2) call(Pred_Name(X67656E5F696E73747331,3),1,2,"gen_insts1",3) /* begin sub 2 */ put_y_value(5,0) get_list(0) unify_x_variable(1) unify_x_variable(0) get_structure(X6C6162656C,1,1,"label") unify_y_local_value(4) get_list(0) unify_x_variable(1) unify_x_variable(0) get_structure(X7472795F6D655F656C7365,1,1,"try_me_else") unify_y_local_value(3) get_list(0) unify_x_variable(1) unify_x_variable(0) get_structure(X6C6162656C,1,1,"label") unify_y_value(2) get_list(0) unify_y_value(1) unify_y_local_value(0) deallocate proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "gen_insts1" #define PRED X67656E5F696E73747331 #define ARITY 3 Begin_Private_Pred switch_on_term(G_label(2),fail,fail,G_label(1),fail) label(1) try(3,1) /* begin sub 1 */ trust(5) label(2) try_me_else(4) label(3) get_list(0) unify_x_variable(0) unify_nil get_structure(X636C,3,0,"cl") unify_x_variable(0) unify_void(1) unify_x_variable(3) get_list(2) unify_x_variable(4) unify_x_variable(2) get_structure(X6C6162656C,1,4,"label") unify_x_local_value(1) get_list(2) unify_constant(X74727573745F6D655F656C73655F6661696C,"trust_me_else_fail") unify_x_variable(1) get_list(1) unify_x_variable(1) unify_x_value(3) get_structure(X6C6162656C,1,1,"label") unify_x_value(0) proceed label(4) trust_me_else_fail label(5) allocate(6) get_list(0) unify_x_variable(3) unify_x_variable(0) get_structure(X636C,3,3,"cl") unify_y_variable(2) unify_void(1) unify_y_variable(1) get_y_variable(4,1) get_y_variable(5,2) put_y_variable(3,1) put_y_variable(0,2) call(Pred_Name(X67656E5F696E73747331,3),1,2,"gen_insts1",3) /* begin sub 2 */ put_y_value(5,0) get_list(0) unify_x_variable(1) unify_x_variable(0) get_structure(X6C6162656C,1,1,"label") unify_y_local_value(4) get_list(0) unify_x_variable(1) unify_x_variable(0) get_structure(X72657472795F6D655F656C7365,1,1,"retry_me_else") unify_y_local_value(3) get_list(0) unify_x_variable(1) unify_x_variable(0) get_structure(X6C6162656C,1,1,"label") unify_y_value(2) get_list(0) unify_y_value(1) unify_y_local_value(0) deallocate proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY #define ASCII_PRED "alloc_labels" #define PRED X616C6C6F635F6C6162656C73 #define ARITY 3 Begin_Private_Pred try_me_else(7) switch_on_term(G_label(1),G_label(2),fail,G_label(4),G_label(6)) label(1) try_me_else(3) label(2) get_nil(0) get_x_value(1,2) proceed label(3) retry_me_else(5) label(4) allocate(3) get_list(0) unify_x_variable(0) unify_y_variable(2) get_y_variable(0,2) put_y_variable(1,2) call(Pred_Name(X616C6C6F635F6C6162656C73,3),1,1,"alloc_labels",3) /* begin sub 1 */ put_y_value(2,0) put_y_unsafe_value(1,1) put_y_value(0,2) deallocate execute(Pred_Name(X616C6C6F635F6C6162656C73,3),1,"alloc_labels",3) label(5) trust_me_else_fail label(6) get_structure(X6C6162656C,1,0,"label") unify_x_variable(0) get_x_value(0,1) math_load_x_value(0,0) function_1(inc,0,0) get_x_value(2,0) proceed label(7) trust_me_else_fail get_x_value(1,2) proceed End_Pred #undef ASCII_PRED #undef PRED #undef ARITY Begin_Init_Tables(wamcc6) Define_Atom(X5B5D,"[]") Define_Atom(X696E6465786174696F6E,"indexation") Define_Atom(X66,"f") Define_Atom(X696E6465786174696F6E31,"indexation1") Define_Atom(X6C6162656C,"label") Define_Atom(X636865726368655F766172,"cherche_var") Define_Atom(X636C,"cl") Define_Atom(X636865726368655F7661725F2461757831,"cherche_var_$aux1") Define_Atom(X636865726368655F7661725F2461757832,"cherche_var_$aux2") Define_Atom(X696E6465786572,"indexer") Define_Atom(X74,"t") Define_Atom(X72657472795F6D655F656C7365,"retry_me_else") Define_Atom(X74727573745F6D655F656C73655F6661696C,"trust_me_else_fail") Define_Atom(X7377697463685F6F6E5F636F6E7374616E74,"switch_on_constant") Define_Atom(X7377697463685F6F6E5F696E7465676572,"switch_on_integer") Define_Atom(X7377697463685F6F6E5F737472756374757265,"switch_on_structure") Define_Atom(X696E64657865725F2461757833,"indexer_$aux3") Define_Atom(X7472795F6D655F656C7365,"try_me_else") Define_Atom(X696E64657865725F2461757834,"indexer_$aux4") Define_Atom(X696E64657865725F2461757835,"indexer_$aux5") Define_Atom(X696E64657865725F2461757836,"indexer_$aux6") Define_Atom(X696E64657865725F246175783132,"indexer_$aux12") Define_Atom(X6661696C,"fail") Define_Atom(X696E64657865725F246175783131,"indexer_$aux11") Define_Atom(X696E64657865725F246175783130,"indexer_$aux10") Define_Atom(X696E64657865725F2461757839,"indexer_$aux9") Define_Atom(X696E64657865725F2461757838,"indexer_$aux8") Define_Atom(X696E64657865725F2461757837,"indexer_$aux7") Define_Atom(X7377697463685F6F6E5F7465726D,"switch_on_term") Define_Atom(X6465636F75706572,"decouper") Define_Atom(X61,"a") Define_Atom(X6465636F7570657231,"decouper1") Define_Atom(X6465636F7570657232,"decouper2") Define_Atom(X2F,"/") Define_Atom(X2E,".") Define_Atom(X6465636F75706572325F246175783133,"decouper2_$aux13") Define_Atom(X637374,"cst") Define_Atom(X616A6F75745F656E5F6C69737465,"ajout_en_liste") Define_Atom(X66696E69725F6C69737465,"finir_liste") Define_Atom(X67656E5F737769746368,"gen_switch") Define_Atom(X67656E5F7377697463685F246175783134,"gen_switch_$aux14") Define_Atom(X6D6F64655F63,"mode_c") Define_Atom(X637265655F6C697374655F737769746368,"cree_liste_switch") Define_Atom(X2C,",") Define_Atom(X67656E5F6C69737465,"gen_liste") Define_Atom(X747279,"try") Define_Atom(X67656E5F6C6973746531,"gen_liste1") Define_Atom(X7472757374,"trust") Define_Atom(X7265747279,"retry") Define_Atom(X67656E5F696E737473,"gen_insts") Define_Atom(X67656E5F696E73747331,"gen_insts1") Define_Atom(X616C6C6F635F6C6162656C73,"alloc_labels") Define_Pred(X696E6465786174696F6E,2,1) Define_Pred(X696E6465786174696F6E31,4,0) Define_Pred(X636865726368655F766172,5,0) Define_Pred(X636865726368655F7661725F2461757831,2,0) Define_Pred(X636865726368655F7661725F2461757832,2,0) Define_Pred(X696E6465786572,6,0) Define_Pred(X696E64657865725F2461757833,3,0) Define_Pred(X696E64657865725F2461757834,3,0) Define_Pred(X696E64657865725F2461757835,3,0) Define_Pred(X696E64657865725F2461757836,3,0) Define_Pred(X696E64657865725F246175783132,4,0) Define_Pred(X696E64657865725F246175783131,4,0) Define_Pred(X696E64657865725F246175783130,4,0) Define_Pred(X696E64657865725F2461757839,4,0) Define_Pred(X696E64657865725F2461757838,4,0) Define_Pred(X696E64657865725F2461757837,8,0) Define_Pred(X6465636F75706572,5,0) Define_Pred(X6465636F7570657231,9,0) Define_Pred(X6465636F7570657232,10,0) Define_Switch_STC_Table(Swt_Table_Name(X6465636F7570657232,10,1,stc),1) Define_Switch_STC(X2F,2,Label_Pred_Name(X6465636F7570657232,10,2)) Define_Pred(X6465636F75706572325F246175783133,7,0) Define_Pred(X616A6F75745F656E5F6C69737465,4,0) Define_Pred(X66696E69725F6C69737465,2,0) Define_Pred(X67656E5F737769746368,5,0) Define_Pred(X67656E5F7377697463685F246175783134,5,0) Define_Pred(X637265655F6C697374655F737769746368,5,0) Define_Pred(X67656E5F6C69737465,4,0) Define_Pred(X67656E5F6C6973746531,3,0) Define_Pred(X67656E5F696E737473,3,0) Define_Pred(X67656E5F696E73747331,3,0) Define_Pred(X616C6C6F635F6C6162656C73,3,0) Init_Usr_File End_Init_Tables Begin_Exec_Directives(wamcc6) End_Exec_Directives