/****************************************************************************
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
syntax highlighted by Code2HTML, v. 0.9.1