コード例 #1
0
ファイル: string.c プロジェクト: agsamek/nl
ImmT string0gt(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 82
c_rt_lib0move(&___nl__2, string0compare(___nl__0, ___nl__1));
#line 82
c_rt_lib0move(&___nl__3,___get_global_const(1));
#line 82
c_rt_lib0move(&___nl__2, c_rt_lib0gt(___nl__2, ___nl__3));
#line 82
c_rt_lib0clear(&___nl__3);
#line 82
c_rt_lib0clear(&___nl__0);
#line 82
c_rt_lib0clear(&___nl__1);
#line 82
return ___nl__2;
#line 82
c_rt_lib0clear(&___nl__2);
#line 82
c_rt_lib0clear(&___nl__0);
#line 82
c_rt_lib0clear(&___nl__1);
#line 82
return NULL;
}
コード例 #2
0
ファイル: string_utils.c プロジェクト: agsamek/nl
ImmT string_utils0is_float(ImmT ___nl__0) {
c_rt_lib0arg_val(___nl__0);
string_utils_priv0__const__init();
ImmT ___nl__1 = NULL;
ImmT ___nl__2 = NULL;
ImmT ___nl__3 = NULL;
ImmT ___nl__4 = NULL;
ImmT ___nl__5 = NULL;
ImmT ___nl__6 = NULL;
ImmT ___nl__7 = NULL;
#line 24
c_rt_lib0move(&___nl__1,___get_global_const(0));
#line 24
c_rt_lib0move(&___nl__1, c_rt_lib0concat_new(___nl__0, ___nl__1));
#line 25
c_rt_lib0move(&___nl__2, string0length(___nl__1));
#line 26
c_rt_lib0move(&___nl__3,___get_global_const(941));
#line 26
c_rt_lib0move(&___nl__3, c_rt_lib0lt(___nl__2, ___nl__3));
#line 26
c_rt_lib0move(&___nl__3, c_rt_lib0not(___nl__3));
#line 26
if(c_rt_lib0check_true_native(___nl__3)){ goto label_2;}
#line 26
c_rt_lib0move(&___nl__4, c_rt_lib0get_false());
#line 26
c_rt_lib0clear(&___nl__0);
#line 26
c_rt_lib0clear(&___nl__1);
#line 26
c_rt_lib0clear(&___nl__2);
#line 26
c_rt_lib0clear(&___nl__3);
#line 26
return ___nl__4;
#line 26
c_rt_lib0clear(&___nl__4);
#line 26
goto label_2;
#line 26
label_2:
#line 26
c_rt_lib0clear(&___nl__3);
#line 27
c_rt_lib0move(&___nl__3,___get_global_const(1));
#line 28
c_rt_lib0move(&___nl__5,___get_global_const(2));
#line 28
c_rt_lib0move(&___nl__4, string0substr(___nl__1, ___nl__3, ___nl__5));
#line 28
c_rt_lib0clear(&___nl__5);
#line 28
c_rt_lib0move(&___nl__5,___get_global_const(245));
#line 28
c_rt_lib0move(&___nl__4, c_rt_lib0eq(___nl__4, ___nl__5));
#line 28
c_rt_lib0clear(&___nl__5);
#line 28
c_rt_lib0move(&___nl__4, c_rt_lib0not(___nl__4));
#line 28
if(c_rt_lib0check_true_native(___nl__4)){ goto label_4;}
#line 28
c_rt_lib0move(&___nl__5,___get_global_const(2));
#line 28
c_rt_lib0move(&___nl__3, c_rt_lib0add_mod(___nl__3, ___nl__5));
#line 28
c_rt_lib0clear(&___nl__5);
#line 28
goto label_4;
#line 28
label_4:
#line 28
c_rt_lib0clear(&___nl__4);
#line 29
c_rt_lib0copy(&___nl__3, ___nl__3);
#line 29
label_6:
#line 29
c_rt_lib0move(&___nl__4, c_rt_lib0lt(___nl__3, ___nl__2));
#line 29
c_rt_lib0move(&___nl__4, c_rt_lib0not(___nl__4));
#line 29
if(c_rt_lib0check_true_native(___nl__4)){ goto label_5;}
#line 30
c_rt_lib0move(&___nl__7,___get_global_const(2));
#line 30
c_rt_lib0move(&___nl__6, string0substr(___nl__1, ___nl__3, ___nl__7));
#line 30
c_rt_lib0clear(&___nl__7);
#line 30
c_rt_lib0move(&___nl__5, string0is_digit(___nl__6));
#line 30
c_rt_lib0clear(&___nl__6);
#line 30
c_rt_lib0move(&___nl__5, c_rt_lib0not(___nl__5));
#line 30
c_rt_lib0move(&___nl__5, c_rt_lib0not(___nl__5));
#line 30
if(c_rt_lib0check_true_native(___nl__5)){ goto label_9;}
#line 30
c_rt_lib0clear(&___nl__5);
#line 30
goto label_5;
#line 30
goto label_9;
#line 30
label_9:
#line 30
c_rt_lib0clear(&___nl__5);
#line 30
c_rt_lib0move(&___nl__5,___get_global_const(2));
#line 30
c_rt_lib0move(&___nl__3, c_rt_lib0add_mod(___nl__3, ___nl__5));
#line 30
c_rt_lib0clear(&___nl__5);
#line 31
goto label_6;
#line 31
label_5:
#line 31
c_rt_lib0clear(&___nl__4);
#line 32
c_rt_lib0move(&___nl__4,___get_global_const(2));
#line 32
c_rt_lib0move(&___nl__4, c_rt_lib0lt(___nl__3, ___nl__4));
#line 32
if(c_rt_lib0check_true_native(___nl__4)){ goto label_12;}
#line 32
c_rt_lib0move(&___nl__4,___get_global_const(137));
#line 32
c_rt_lib0move(&___nl__4, c_rt_lib0add(___nl__3, ___nl__4));
#line 32
c_rt_lib0move(&___nl__4, c_rt_lib0gt(___nl__4, ___nl__2));
#line 32
label_12:
#line 32
c_rt_lib0move(&___nl__4, c_rt_lib0not(___nl__4));
#line 32
if(c_rt_lib0check_true_native(___nl__4)){ goto label_11;}
#line 32
c_rt_lib0move(&___nl__5, c_rt_lib0get_false());
#line 32
c_rt_lib0clear(&___nl__0);
#line 32
c_rt_lib0clear(&___nl__1);
#line 32
c_rt_lib0clear(&___nl__2);
#line 32
c_rt_lib0clear(&___nl__3);
#line 32
c_rt_lib0clear(&___nl__4);
#line 32
return ___nl__5;
#line 32
c_rt_lib0clear(&___nl__5);
#line 32
goto label_11;
#line 32
label_11:
#line 32
c_rt_lib0clear(&___nl__4);
#line 33
c_rt_lib0move(&___nl__5,___get_global_const(2));
#line 33
c_rt_lib0move(&___nl__4, string0substr(___nl__1, ___nl__3, ___nl__5));
#line 33
c_rt_lib0clear(&___nl__5);
#line 33
c_rt_lib0move(&___nl__5,___get_global_const(81));
#line 33
c_rt_lib0move(&___nl__4, c_rt_lib0eq(___nl__4, ___nl__5));
#line 33
c_rt_lib0clear(&___nl__5);
#line 33
c_rt_lib0move(&___nl__4, c_rt_lib0not(___nl__4));
#line 33
c_rt_lib0move(&___nl__4, c_rt_lib0not(___nl__4));
#line 33
if(c_rt_lib0check_true_native(___nl__4)){ goto label_14;}
#line 33
c_rt_lib0move(&___nl__5, c_rt_lib0get_false());
#line 33
c_rt_lib0clear(&___nl__0);
#line 33
c_rt_lib0clear(&___nl__1);
#line 33
c_rt_lib0clear(&___nl__2);
#line 33
c_rt_lib0clear(&___nl__3);
#line 33
c_rt_lib0clear(&___nl__4);
#line 33
return ___nl__5;
#line 33
c_rt_lib0clear(&___nl__5);
#line 33
goto label_14;
#line 33
label_14:
#line 33
c_rt_lib0clear(&___nl__4);
#line 34
c_rt_lib0move(&___nl__4,___get_global_const(2));
#line 34
c_rt_lib0move(&___nl__3, c_rt_lib0add_mod(___nl__3, ___nl__4));
#line 34
c_rt_lib0clear(&___nl__4);
#line 34
label_16:
#line 34
c_rt_lib0move(&___nl__4, c_rt_lib0lt(___nl__3, ___nl__2));
#line 34
c_rt_lib0move(&___nl__4, c_rt_lib0not(___nl__4));
#line 34
if(c_rt_lib0check_true_native(___nl__4)){ goto label_15;}
#line 35
c_rt_lib0move(&___nl__7,___get_global_const(2));
#line 35
c_rt_lib0move(&___nl__6, string0substr(___nl__1, ___nl__3, ___nl__7));
#line 35
c_rt_lib0clear(&___nl__7);
#line 35
c_rt_lib0move(&___nl__5, string0is_digit(___nl__6));
#line 35
c_rt_lib0clear(&___nl__6);
#line 35
c_rt_lib0move(&___nl__5, c_rt_lib0not(___nl__5));
#line 35
c_rt_lib0move(&___nl__5, c_rt_lib0not(___nl__5));
#line 35
if(c_rt_lib0check_true_native(___nl__5)){ goto label_19;}
#line 35
c_rt_lib0move(&___nl__6, c_rt_lib0get_false());
#line 35
c_rt_lib0clear(&___nl__0);
#line 35
c_rt_lib0clear(&___nl__1);
#line 35
c_rt_lib0clear(&___nl__2);
#line 35
c_rt_lib0clear(&___nl__3);
#line 35
c_rt_lib0clear(&___nl__4);
#line 35
c_rt_lib0clear(&___nl__5);
#line 35
return ___nl__6;
#line 35
c_rt_lib0clear(&___nl__6);
#line 35
goto label_19;
#line 35
label_19:
#line 35
c_rt_lib0clear(&___nl__5);
#line 35
c_rt_lib0move(&___nl__5,___get_global_const(2));
#line 35
c_rt_lib0move(&___nl__3, c_rt_lib0add_mod(___nl__3, ___nl__5));
#line 35
c_rt_lib0clear(&___nl__5);
#line 36
goto label_16;
#line 36
label_15:
#line 36
c_rt_lib0clear(&___nl__4);
#line 37
c_rt_lib0move(&___nl__4, c_rt_lib0get_true());
#line 37
c_rt_lib0clear(&___nl__0);
#line 37
c_rt_lib0clear(&___nl__1);
#line 37
c_rt_lib0clear(&___nl__2);
#line 37
c_rt_lib0clear(&___nl__3);
#line 37
return ___nl__4;
#line 37
c_rt_lib0clear(&___nl__4);
#line 37
c_rt_lib0clear(&___nl__1);
#line 37
c_rt_lib0clear(&___nl__2);
#line 37
c_rt_lib0clear(&___nl__3);
#line 37
c_rt_lib0clear(&___nl__0);
#line 37
return NULL;
}
コード例 #3
0
ファイル: array.c プロジェクト: nianiolang/nl
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;
}