Example #1
0
File: string.c Project: agsamek/nl 
ImmT string0is_letter(ImmT ___nl__0) {
c_rt_lib0arg_val(___nl__0);
string_priv0__const__init();
ImmT ___nl__1 = NULL;
ImmT ___nl__2 = NULL;
ImmT ___nl__3 = NULL;
#line 69
c_rt_lib0move(&___nl__1, string0ord(___nl__0));
#line 70
c_rt_lib0move(&___nl__2,___get_global_const(900));
#line 70
c_rt_lib0move(&___nl__2, c_rt_lib0ge(___nl__1, ___nl__2));
#line 70
c_rt_lib0move(&___nl__3, c_rt_lib0not(___nl__2));
#line 70
if(c_rt_lib0check_true_native(___nl__3)){ goto label_2;}
#line 70
c_rt_lib0move(&___nl__2,___get_global_const(1000));
#line 70
c_rt_lib0move(&___nl__2, c_rt_lib0le(___nl__1, ___nl__2));
#line 70
label_2:
#line 70
c_rt_lib0clear(&___nl__3);
#line 70
if(c_rt_lib0check_true_native(___nl__2)){ goto label_1;}
#line 70
c_rt_lib0move(&___nl__2,___get_global_const(898));
#line 70
c_rt_lib0move(&___nl__2, c_rt_lib0ge(___nl__1, ___nl__2));
#line 70
c_rt_lib0move(&___nl__3, c_rt_lib0not(___nl__2));
#line 70
if(c_rt_lib0check_true_native(___nl__3)){ goto label_3;}
#line 70
c_rt_lib0move(&___nl__2,___get_global_const(1001));
#line 70
c_rt_lib0move(&___nl__2, c_rt_lib0le(___nl__1, ___nl__2));
#line 70
label_3:
#line 70
c_rt_lib0clear(&___nl__3);
#line 70
label_1:
#line 70
c_rt_lib0clear(&___nl__0);
#line 70
c_rt_lib0clear(&___nl__1);
#line 70
return ___nl__2;
#line 70
c_rt_lib0clear(&___nl__2);
#line 70
c_rt_lib0clear(&___nl__1);
#line 70
c_rt_lib0clear(&___nl__0);
#line 70
return NULL;
}
Example #2
0
File: string.c Project: agsamek/nl 
ImmT string0le(ImmT ___nl__0,ImmT ___nl__1) {
c_rt_lib0arg_val(___nl__0);
c_rt_lib0arg_val(___nl__1);
string_priv0__const__init();
ImmT ___nl__2 = NULL;
ImmT ___nl__3 = NULL;
#line 90
c_rt_lib0move(&___nl__2, string0compare(___nl__0, ___nl__1));
#line 90
c_rt_lib0move(&___nl__3,___get_global_const(1));
#line 90
c_rt_lib0move(&___nl__2, c_rt_lib0le(___nl__2, ___nl__3));
#line 90
c_rt_lib0clear(&___nl__3);
#line 90
c_rt_lib0clear(&___nl__0);
#line 90
c_rt_lib0clear(&___nl__1);
#line 90
return ___nl__2;
#line 90
c_rt_lib0clear(&___nl__2);
#line 90
c_rt_lib0clear(&___nl__0);
#line 90
c_rt_lib0clear(&___nl__1);
#line 90
return NULL;
}
Example #3
0
File: string.c Project: agsamek/nl 
ImmT string0is_digit(ImmT ___nl__0) {
c_rt_lib0arg_val(___nl__0);
string_priv0__const__init();
ImmT ___nl__1 = NULL;
ImmT ___nl__2 = NULL;
ImmT ___nl__3 = NULL;
#line 64
c_rt_lib0move(&___nl__1, string0ord(___nl__0));
#line 65
c_rt_lib0move(&___nl__2,___get_global_const(998));
#line 65
c_rt_lib0move(&___nl__2, c_rt_lib0ge(___nl__1, ___nl__2));
#line 65
c_rt_lib0move(&___nl__3, c_rt_lib0not(___nl__2));
#line 65
if(c_rt_lib0check_true_native(___nl__3)){ goto label_1;}
#line 65
c_rt_lib0move(&___nl__2,___get_global_const(999));
#line 65
c_rt_lib0move(&___nl__2, c_rt_lib0le(___nl__1, ___nl__2));
#line 65
label_1:
#line 65
c_rt_lib0clear(&___nl__3);
#line 65
c_rt_lib0clear(&___nl__0);
#line 65
c_rt_lib0clear(&___nl__1);
#line 65
return ___nl__2;
#line 65
c_rt_lib0clear(&___nl__2);
#line 65
c_rt_lib0clear(&___nl__1);
#line 65
c_rt_lib0clear(&___nl__0);
#line 65
return NULL;
}
Example #4
0
ImmT array_priv0part_sort(ImmT * ___ref___0,ImmT ___nl__1,ImmT ___nl__2,ImmT ___nl__3) {
c_rt_lib0arg_val(___nl__1);
c_rt_lib0arg_val(___nl__2);
c_rt_lib0arg_val(___nl__3);
ImmT ___nl__4 = NULL;
ImmT ___nl__5 = NULL;
ImmT ___nl__6 = NULL;
ImmT ___nl__7 = NULL;
ImmT ___nl__8 = NULL;
ImmT ___nl__9 = NULL;
ImmT ___nl__10 = NULL;
ImmT ___nl__11 = NULL;
ImmT ___nl__12 = NULL;
ImmT ___nl__13 = NULL;
ImmT ___nl__14 = NULL;
#line 126
c_rt_lib0move(&___nl__4, c_rt_lib0sub(___nl__2, ___nl__1));
#line 126
c_rt_lib0move(&___nl__5,___get_global_const(0));
#line 126
c_rt_lib0move(&___nl__4, c_rt_lib0le(___nl__4, ___nl__5));
#line 126
c_rt_lib0clear(&___nl__5);
#line 126
c_rt_lib0move(&___nl__4, c_rt_lib0not(___nl__4));
#line 126
if(c_rt_lib0check_true_native(___nl__4)){ goto label_12;}
#line 126
c_rt_lib0clear(&___nl__1);
#line 126
c_rt_lib0clear(&___nl__2);
#line 126
c_rt_lib0clear(&___nl__3);
#line 126
c_rt_lib0clear(&___nl__4);
#line 126
return NULL;
#line 126
goto label_12;
#line 126
label_12:
#line 126
c_rt_lib0clear(&___nl__4);
#line 127
c_rt_lib0move(&___nl__4, c_rt_lib0sub(___nl__2, ___nl__1));
#line 127
c_rt_lib0move(&___nl__5,___get_global_const(1));
#line 127
c_rt_lib0move(&___nl__4, c_rt_lib0num_eq(___nl__4, ___nl__5));
#line 127
c_rt_lib0clear(&___nl__5);
#line 127
c_rt_lib0move(&___nl__4, c_rt_lib0not(___nl__4));
#line 127
if(c_rt_lib0check_true_native(___nl__4)){ goto label_53;}
#line 128
c_rt_lib0move(&___nl__6, c_rt_lib0array_get(*___ref___0, ___nl__1));
#line 128
c_rt_lib0move(&___nl__7, c_rt_lib0array_get(*___ref___0, ___nl__2));
#line 128
c_rt_lib0move(&___nl__5, array_priv0exec(___nl__3, ___nl__6, ___nl__7));
#line 128
c_rt_lib0clear(&___nl__7);
#line 128
c_rt_lib0clear(&___nl__6);
#line 128
c_rt_lib0move(&___nl__5, c_rt_lib0not(___nl__5));
#line 128
if(c_rt_lib0check_true_native(___nl__5)){ goto label_34;}
#line 128
c_rt_lib0clear(&___nl__1);
#line 128
c_rt_lib0clear(&___nl__2);
#line 128
c_rt_lib0clear(&___nl__3);
#line 128
c_rt_lib0clear(&___nl__4);
#line 128
c_rt_lib0clear(&___nl__5);
#line 128
return NULL;
#line 128
goto label_34;
#line 128
label_34:
#line 128
c_rt_lib0clear(&___nl__5);
#line 129
c_rt_lib0move(&___nl__5, c_rt_lib0array_get(*___ref___0, ___nl__1));
#line 130
c_rt_lib0move(&___nl__6, c_rt_lib0array_get(*___ref___0, ___nl__2));
#line 130
c_rt_lib0copy(&___nl__7, ___nl__6);
#line 130
c_rt_lib0array_set(___ref___0, ___nl__1, ___nl__7);
#line 130
c_rt_lib0clear(&___nl__6);
#line 130
c_rt_lib0clear(&___nl__7);
#line 131
c_rt_lib0copy(&___nl__6, ___nl__5);
#line 131
c_rt_lib0array_set(___ref___0, ___nl__2, ___nl__6);
#line 131
c_rt_lib0clear(&___nl__6);
#line 132
c_rt_lib0clear(&___nl__1);
#line 132
c_rt_lib0clear(&___nl__2);
#line 132
c_rt_lib0clear(&___nl__3);
#line 132
c_rt_lib0clear(&___nl__4);
#line 132
c_rt_lib0clear(&___nl__5);
#line 132
return NULL;
#line 132
c_rt_lib0clear(&___nl__5);
#line 133
goto label_53;
#line 133
label_53:
#line 133
c_rt_lib0clear(&___nl__4);
#line 134
c_rt_lib0move(&___nl__4, c_rt_lib0sub(___nl__2, ___nl__1));
#line 134
c_rt_lib0move(&___nl__5,___get_global_const(1));
#line 134
c_rt_lib0move(&___nl__4, c_rt_lib0add_mod(___nl__4, ___nl__5));
#line 134
c_rt_lib0clear(&___nl__5);
#line 134
c_rt_lib0move(&___nl__5, c_rt_lib0sub(___nl__2, ___nl__1));
#line 134
c_rt_lib0move(&___nl__6,___get_global_const(1));
#line 134
c_rt_lib0move(&___nl__5, c_rt_lib0add_mod(___nl__5, ___nl__6));
#line 134
c_rt_lib0clear(&___nl__6);
#line 134
c_rt_lib0move(&___nl__6,___get_global_const(6));
#line 134
c_rt_lib0move(&___nl__5, c_rt_lib0mod_mod(___nl__5, ___nl__6));
#line 134
c_rt_lib0clear(&___nl__6);
#line 134
c_rt_lib0move(&___nl__4, c_rt_lib0sub_mod(___nl__4, ___nl__5));
#line 134
c_rt_lib0clear(&___nl__5);
#line 134
c_rt_lib0move(&___nl__5,___get_global_const(6));
#line 134
c_rt_lib0move(&___nl__4, c_rt_lib0div_mod(___nl__4, ___nl__5));
#line 134
c_rt_lib0clear(&___nl__5);
#line 134
c_rt_lib0move(&___nl__4, c_rt_lib0add(___nl__1, ___nl__4));
#line 135
c_rt_lib0delete(array_priv0part_sort(___ref___0, ___nl__1, ___nl__4, ___nl__3));
#line 136
c_rt_lib0move(&___nl__5,___get_global_const(1));
#line 136
c_rt_lib0move(&___nl__5, c_rt_lib0add(___nl__4, ___nl__5));
#line 136
c_rt_lib0delete(array_priv0part_sort(___ref___0, ___nl__5, ___nl__2, ___nl__3));
#line 136
c_rt_lib0clear(&___nl__5);
#line 137
c_rt_lib0move(&___nl__5, c_rt_lib0array_mk(0));
#line 138
c_rt_lib0copy(&___nl__6, ___nl__1);
#line 139
c_rt_lib0move(&___nl__7,___get_global_const(1));
#line 139
c_rt_lib0move(&___nl__7, c_rt_lib0add(___nl__4, ___nl__7));
#line 140
label_81:
#line 140
c_rt_lib0move(&___nl__8, c_rt_lib0le(___nl__6, ___nl__4));
#line 140
if(c_rt_lib0check_true_native(___nl__8)){ goto label_85;}
#line 140
c_rt_lib0move(&___nl__8, c_rt_lib0le(___nl__7, ___nl__2));
#line 140
label_85:
#line 140
c_rt_lib0move(&___nl__8, c_rt_lib0not(___nl__8));
#line 140
if(c_rt_lib0check_true_native(___nl__8)){ goto label_135;}
#line 141
c_rt_lib0move(&___nl__9, c_rt_lib0gt(___nl__6, ___nl__4));
#line 141
c_rt_lib0move(&___nl__9, c_rt_lib0not(___nl__9));
#line 141
if(c_rt_lib0check_true_native(___nl__9)){ goto label_98;}
#line 142
c_rt_lib0move(&___nl__10, c_rt_lib0array_get(*___ref___0, ___nl__7));
#line 142
c_rt_lib0delete(array0push(&___nl__5, ___nl__10));
#line 142
c_rt_lib0clear(&___nl__10);
#line 143
c_rt_lib0move(&___nl__10,___get_global_const(1));
#line 143
c_rt_lib0move(&___nl__7, c_rt_lib0add_mod(___nl__7, ___nl__10));
#line 143
c_rt_lib0clear(&___nl__10);
#line 144
goto label_132;
#line 144
label_98:
#line 144
c_rt_lib0move(&___nl__9, c_rt_lib0gt(___nl__7, ___nl__2));
#line 144
c_rt_lib0move(&___nl__9, c_rt_lib0not(___nl__9));
#line 144
if(c_rt_lib0check_true_native(___nl__9)){ goto label_109;}
#line 145
c_rt_lib0move(&___nl__10, c_rt_lib0array_get(*___ref___0, ___nl__6));
#line 145
c_rt_lib0delete(array0push(&___nl__5, ___nl__10));
#line 145
c_rt_lib0clear(&___nl__10);
#line 146
c_rt_lib0move(&___nl__10,___get_global_const(1));
#line 146
c_rt_lib0move(&___nl__6, c_rt_lib0add_mod(___nl__6, ___nl__10));
#line 146
c_rt_lib0clear(&___nl__10);
#line 147
goto label_132;
#line 147
label_109:
#line 147
c_rt_lib0move(&___nl__10, c_rt_lib0array_get(*___ref___0, ___nl__6));
#line 147
c_rt_lib0move(&___nl__11, c_rt_lib0array_get(*___ref___0, ___nl__7));
#line 147
c_rt_lib0move(&___nl__9, array_priv0exec(___nl__3, ___nl__10, ___nl__11));
#line 147
c_rt_lib0clear(&___nl__11);
#line 147
c_rt_lib0clear(&___nl__10);
#line 147
c_rt_lib0move(&___nl__9, c_rt_lib0not(___nl__9));
#line 147
if(c_rt_lib0check_true_native(___nl__9)){ goto label_124;}
#line 148
c_rt_lib0move(&___nl__10, c_rt_lib0array_get(*___ref___0, ___nl__6));
#line 148
c_rt_lib0delete(array0push(&___nl__5, ___nl__10));
#line 148
c_rt_lib0clear(&___nl__10);
#line 149
c_rt_lib0move(&___nl__10,___get_global_const(1));
#line 149
c_rt_lib0move(&___nl__6, c_rt_lib0add_mod(___nl__6, ___nl__10));
#line 149
c_rt_lib0clear(&___nl__10);
#line 150
goto label_132;
#line 150
label_124:
#line 151
c_rt_lib0move(&___nl__10, c_rt_lib0array_get(*___ref___0, ___nl__7));
#line 151
c_rt_lib0delete(array0push(&___nl__5, ___nl__10));
#line 151
c_rt_lib0clear(&___nl__10);
#line 152
c_rt_lib0move(&___nl__10,___get_global_const(1));
#line 152
c_rt_lib0move(&___nl__7, c_rt_lib0add_mod(___nl__7, ___nl__10));
#line 152
c_rt_lib0clear(&___nl__10);
#line 153
goto label_132;
#line 153
label_132:
#line 153
c_rt_lib0clear(&___nl__9);
#line 154
goto label_81;
#line 154
label_135:
#line 154
c_rt_lib0clear(&___nl__8);
#line 155
c_rt_lib0move(&___nl__8, c_rt_lib0sub(___nl__2, ___nl__1));
#line 155
c_rt_lib0move(&___nl__9,___get_global_const(1));
#line 155
c_rt_lib0move(&___nl__8, c_rt_lib0add_mod(___nl__8, ___nl__9));
#line 155
c_rt_lib0clear(&___nl__9);
#line 155
c_rt_lib0move(&___nl__9,___get_global_const(0));
#line 155
c_rt_lib0move(&___nl__10,___get_global_const(1));
#line 155
label_143:
#line 155
c_rt_lib0move(&___nl__11, c_rt_lib0ge(___nl__9, ___nl__8));
#line 155
if(c_rt_lib0check_true_native(___nl__11)){ goto label_155;}
#line 155
c_rt_lib0move(&___nl__12, c_rt_lib0array_get(___nl__5, ___nl__9));
#line 155
c_rt_lib0move(&___nl__14, c_rt_lib0add(___nl__1, ___nl__9));
#line 155
c_rt_lib0copy(&___nl__13, ___nl__12);
#line 155
c_rt_lib0array_set(___ref___0, ___nl__14, ___nl__13);
#line 155
c_rt_lib0clear(&___nl__12);
#line 155
c_rt_lib0clear(&___nl__13);
#line 155
c_rt_lib0clear(&___nl__14);
#line 155
c_rt_lib0move(&___nl__9, c_rt_lib0add_mod(___nl__9, ___nl__10));
#line 155
goto label_143;
#line 155
label_155:
#line 155
c_rt_lib0clear(&___nl__8);
#line 155
c_rt_lib0clear(&___nl__9);
#line 155
c_rt_lib0clear(&___nl__10);
#line 155
c_rt_lib0clear(&___nl__11);
#line 155
c_rt_lib0clear(&___nl__4);
#line 155
c_rt_lib0clear(&___nl__5);
#line 155
c_rt_lib0clear(&___nl__6);
#line 155
c_rt_lib0clear(&___nl__7);
#line 155
c_rt_lib0clear(&___nl__1);
#line 155
c_rt_lib0clear(&___nl__2);
#line 155
c_rt_lib0clear(&___nl__3);
#line 155
return NULL;
}