Exemplo n.º 1
0
Arquivo: string.c Projeto: agsamek/nl
ImmT string0substr2(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 44
c_rt_lib0move(&___nl__3, string0length(___nl__0));
#line 44
c_rt_lib0move(&___nl__3, c_rt_lib0sub_mod(___nl__3, ___nl__1));
#line 44
c_rt_lib0move(&___nl__2, c_std_lib0string_sub(___nl__0, ___nl__1, ___nl__3));
#line 44
c_rt_lib0clear(&___nl__3);
#line 44
c_rt_lib0move(&___nl__3,___get_global_const(0));
#line 44
c_rt_lib0move(&___nl__2, c_rt_lib0concat_add(___nl__2, ___nl__3));
#line 44
c_rt_lib0clear(&___nl__3);
#line 44
c_rt_lib0clear(&___nl__0);
#line 44
c_rt_lib0clear(&___nl__1);
#line 44
return ___nl__2;
#line 44
c_rt_lib0clear(&___nl__2);
#line 44
c_rt_lib0clear(&___nl__0);
#line 44
c_rt_lib0clear(&___nl__1);
#line 44
return NULL;
}
Exemplo n.º 2
0
Arquivo: csv.c Projeto: mcFrax/nl
ImmT csv0load(ImmT ___nl__0) {
c_rt_lib0arg_val(___nl__0);
csv_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;
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;
ImmT ___nl__15 = NULL;
#line 44
c_rt_lib0move(&___nl__1,___get_global_const(155));
#line 45
c_rt_lib0move(&___nl__2, string0tab());
#line 46
c_rt_lib0move(&___nl__3, string0ord(___nl__2));
#line 47
c_rt_lib0move(&___nl__4, c_rt_lib0array_mk(0));
#line 48
c_rt_lib0move(&___nl__5, c_rt_lib0array_mk(0));
#line 49
c_rt_lib0move(&___nl__6, string0length(___nl__0));
#line 50
c_rt_lib0move(&___nl__7,___get_global_const(1));
#line 50
c_rt_lib0move(&___nl__7, c_rt_lib0num_eq(___nl__6, ___nl__7));
#line 50
c_rt_lib0move(&___nl__7, c_rt_lib0not(___nl__7));
#line 50
if(c_rt_lib0check_true_native(___nl__7)){ goto label_2;}
#line 50
c_rt_lib0clear(&___nl__0);
#line 50
c_rt_lib0clear(&___nl__1);
#line 50
c_rt_lib0clear(&___nl__2);
#line 50
c_rt_lib0clear(&___nl__3);
#line 50
c_rt_lib0clear(&___nl__5);
#line 50
c_rt_lib0clear(&___nl__6);
#line 50
c_rt_lib0clear(&___nl__7);
#line 50
return ___nl__4;
#line 50
goto label_2;
#line 50
label_2:
#line 50
c_rt_lib0clear(&___nl__7);
#line 51
c_rt_lib0move(&___nl__9,___get_global_const(2));
#line 51
c_rt_lib0move(&___nl__9, c_rt_lib0sub(___nl__6, ___nl__9));
#line 51
c_rt_lib0move(&___nl__10,___get_global_const(2));
#line 51
c_rt_lib0move(&___nl__8, string0substr(___nl__0, ___nl__9, ___nl__10));
#line 51
c_rt_lib0clear(&___nl__10);
#line 51
c_rt_lib0clear(&___nl__9);
#line 51
c_rt_lib0move(&___nl__7, string0ord(___nl__8));
#line 51
c_rt_lib0clear(&___nl__8);
#line 51
c_rt_lib0move(&___nl__8,___get_global_const(157));
#line 51
c_rt_lib0move(&___nl__7, c_rt_lib0num_eq(___nl__7, ___nl__8));
#line 51
c_rt_lib0clear(&___nl__8);
#line 51
c_rt_lib0move(&___nl__7, c_rt_lib0not(___nl__7));
#line 51
if(c_rt_lib0check_true_native(___nl__7)){ goto label_4;}
#line 52
c_rt_lib0move(&___nl__8,___get_global_const(2));
#line 52
c_rt_lib0move(&___nl__6, c_rt_lib0sub_mod(___nl__6, ___nl__8));
#line 52
c_rt_lib0clear(&___nl__8);
#line 53
c_rt_lib0move(&___nl__10,___get_global_const(2));
#line 53
c_rt_lib0move(&___nl__10, c_rt_lib0sub(___nl__6, ___nl__10));
#line 53
c_rt_lib0move(&___nl__11,___get_global_const(2));
#line 53
c_rt_lib0move(&___nl__9, string0substr(___nl__0, ___nl__10, ___nl__11));
#line 53
c_rt_lib0clear(&___nl__11);
#line 53
c_rt_lib0clear(&___nl__10);
#line 53
c_rt_lib0move(&___nl__8, string0ord(___nl__9));
#line 53
c_rt_lib0clear(&___nl__9);
#line 53
c_rt_lib0move(&___nl__9,___get_global_const(158));
#line 53
c_rt_lib0move(&___nl__8, c_rt_lib0num_eq(___nl__8, ___nl__9));
#line 53
c_rt_lib0clear(&___nl__9);
#line 53
c_rt_lib0move(&___nl__8, c_rt_lib0not(___nl__8));
#line 53
if(c_rt_lib0check_true_native(___nl__8)){ goto label_6;}
#line 53
c_rt_lib0move(&___nl__9,___get_global_const(2));
#line 53
c_rt_lib0move(&___nl__6, c_rt_lib0sub_mod(___nl__6, ___nl__9));
#line 53
c_rt_lib0clear(&___nl__9);
#line 53
goto label_6;
#line 53
label_6:
#line 53
c_rt_lib0clear(&___nl__8);
#line 54
goto label_4;
#line 54
label_4:
#line 54
c_rt_lib0clear(&___nl__7);
#line 55
c_rt_lib0move(&___nl__7,___get_global_const(0));
#line 56
c_rt_lib0move(&___nl__8,___get_global_const(1));
#line 57
label_8:
#line 57
c_rt_lib0move(&___nl__9, c_rt_lib0lt(___nl__8, ___nl__6));
#line 57
c_rt_lib0move(&___nl__9, c_rt_lib0not(___nl__9));
#line 57
if(c_rt_lib0check_true_native(___nl__9)){ goto label_7;}
#line 58
c_rt_lib0move(&___nl__10, csv_priv0get_char(___nl__0, &___nl__8));
#line 59
c_rt_lib0move(&___nl__11, c_rt_lib0eq(___nl__10, ___nl__1));
#line 59
c_rt_lib0move(&___nl__11, c_rt_lib0not(___nl__11));
#line 59
if(c_rt_lib0check_true_native(___nl__11)){ goto label_10;}
#line 60
label_12:
#line 61
c_rt_lib0move(&___nl__12, c_rt_lib0ge(___nl__8, ___nl__6));
#line 61
c_rt_lib0move(&___nl__12, c_rt_lib0not(___nl__12));
#line 61
if(c_rt_lib0check_true_native(___nl__12)){ goto label_14;}
#line 61
c_rt_lib0move(&___nl__13, csv_priv0end(&___nl__4, &___nl__5, ___nl__7));
#line 61
c_rt_lib0clear(&___nl__0);
#line 61
c_rt_lib0clear(&___nl__1);
#line 61
c_rt_lib0clear(&___nl__2);
#line 61
c_rt_lib0clear(&___nl__3);
#line 61
c_rt_lib0clear(&___nl__4);
#line 61
c_rt_lib0clear(&___nl__5);
#line 61
c_rt_lib0clear(&___nl__6);
#line 61
c_rt_lib0clear(&___nl__7);
#line 61
c_rt_lib0clear(&___nl__8);
#line 61
c_rt_lib0clear(&___nl__9);
#line 61
c_rt_lib0clear(&___nl__10);
#line 61
c_rt_lib0clear(&___nl__11);
#line 61
c_rt_lib0clear(&___nl__12);
#line 61
return ___nl__13;
#line 61
c_rt_lib0clear(&___nl__13);
#line 61
goto label_14;
#line 61
label_14:
#line 61
c_rt_lib0clear(&___nl__12);
#line 62
c_rt_lib0move(&___nl__12, csv_priv0get_char(___nl__0, &___nl__8));
#line 62
c_rt_lib0copy(&___nl__10, ___nl__12);
#line 62
c_rt_lib0clear(&___nl__12);
#line 63
c_rt_lib0move(&___nl__12, c_rt_lib0eq(___nl__10, ___nl__1));
#line 63
c_rt_lib0move(&___nl__12, c_rt_lib0not(___nl__12));
#line 63
if(c_rt_lib0check_true_native(___nl__12)){ goto label_16;}
#line 64
c_rt_lib0move(&___nl__13, c_rt_lib0ge(___nl__8, ___nl__6));
#line 64
c_rt_lib0move(&___nl__13, c_rt_lib0not(___nl__13));
#line 64
if(c_rt_lib0check_true_native(___nl__13)){ goto label_18;}
#line 64
c_rt_lib0move(&___nl__14, csv_priv0end(&___nl__4, &___nl__5, ___nl__7));
#line 64
c_rt_lib0clear(&___nl__0);
#line 64
c_rt_lib0clear(&___nl__1);
#line 64
c_rt_lib0clear(&___nl__2);
#line 64
c_rt_lib0clear(&___nl__3);
#line 64
c_rt_lib0clear(&___nl__4);
#line 64
c_rt_lib0clear(&___nl__5);
#line 64
c_rt_lib0clear(&___nl__6);
#line 64
c_rt_lib0clear(&___nl__7);
#line 64
c_rt_lib0clear(&___nl__8);
#line 64
c_rt_lib0clear(&___nl__9);
#line 64
c_rt_lib0clear(&___nl__10);
#line 64
c_rt_lib0clear(&___nl__11);
#line 64
c_rt_lib0clear(&___nl__12);
#line 64
c_rt_lib0clear(&___nl__13);
#line 64
return ___nl__14;
#line 64
c_rt_lib0clear(&___nl__14);
#line 64
goto label_18;
#line 64
label_18:
#line 64
c_rt_lib0clear(&___nl__13);
#line 65
c_rt_lib0move(&___nl__13, csv_priv0get_char(___nl__0, &___nl__8));
#line 65
c_rt_lib0copy(&___nl__10, ___nl__13);
#line 65
c_rt_lib0clear(&___nl__13);
#line 66
c_rt_lib0move(&___nl__13, c_rt_lib0ne(___nl__10, ___nl__1));
#line 66
c_rt_lib0move(&___nl__13, c_rt_lib0not(___nl__13));
#line 66
if(c_rt_lib0check_true_native(___nl__13)){ goto label_20;}
#line 66
c_rt_lib0clear(&___nl__12);
#line 66
c_rt_lib0clear(&___nl__13);
#line 66
goto label_11;
#line 66
goto label_20;
#line 66
label_20:
#line 66
c_rt_lib0clear(&___nl__13);
#line 67
goto label_16;
#line 67
label_16:
#line 67
c_rt_lib0clear(&___nl__12);
#line 68
c_rt_lib0move(&___nl__7, c_rt_lib0concat_add(___nl__7, ___nl__10));
#line 60
goto label_12;
#line 60
label_11:
#line 70
goto label_9;
#line 70
label_10:
#line 71
c_rt_lib0move(&___nl__12, string0ord(___nl__10));
#line 72
label_22:
#line 72
c_rt_lib0move(&___nl__13, c_rt_lib0num_ne(___nl__12, ___nl__3));
#line 72
c_rt_lib0move(&___nl__15, c_rt_lib0not(___nl__13));
#line 72
if(c_rt_lib0check_true_native(___nl__15)){ goto label_24;}
#line 72
c_rt_lib0move(&___nl__13,___get_global_const(157));
#line 72
c_rt_lib0move(&___nl__13, c_rt_lib0num_ne(___nl__12, ___nl__13));
#line 72
label_24:
#line 72
c_rt_lib0clear(&___nl__15);
#line 72
c_rt_lib0move(&___nl__14, c_rt_lib0not(___nl__13));
#line 72
if(c_rt_lib0check_true_native(___nl__14)){ goto label_23;}
#line 72
c_rt_lib0move(&___nl__13,___get_global_const(158));
#line 72
c_rt_lib0move(&___nl__13, c_rt_lib0num_ne(___nl__12, ___nl__13));
#line 72
label_23:
#line 72
c_rt_lib0clear(&___nl__14);
#line 72
c_rt_lib0move(&___nl__13, c_rt_lib0not(___nl__13));
#line 72
if(c_rt_lib0check_true_native(___nl__13)){ goto label_21;}
#line 73
c_rt_lib0move(&___nl__7, c_rt_lib0concat_add(___nl__7, ___nl__10));
#line 74
c_rt_lib0move(&___nl__14, c_rt_lib0ge(___nl__8, ___nl__6));
#line 74
c_rt_lib0move(&___nl__14, c_rt_lib0not(___nl__14));
#line 74
if(c_rt_lib0check_true_native(___nl__14)){ goto label_26;}
#line 74
c_rt_lib0move(&___nl__15, csv_priv0end(&___nl__4, &___nl__5, ___nl__7));
#line 74
c_rt_lib0clear(&___nl__0);
#line 74
c_rt_lib0clear(&___nl__1);
#line 74
c_rt_lib0clear(&___nl__2);
#line 74
c_rt_lib0clear(&___nl__3);
#line 74
c_rt_lib0clear(&___nl__4);
#line 74
c_rt_lib0clear(&___nl__5);
#line 74
c_rt_lib0clear(&___nl__6);
#line 74
c_rt_lib0clear(&___nl__7);
#line 74
c_rt_lib0clear(&___nl__8);
#line 74
c_rt_lib0clear(&___nl__9);
#line 74
c_rt_lib0clear(&___nl__10);
#line 74
c_rt_lib0clear(&___nl__11);
#line 74
c_rt_lib0clear(&___nl__12);
#line 74
c_rt_lib0clear(&___nl__13);
#line 74
c_rt_lib0clear(&___nl__14);
#line 74
return ___nl__15;
#line 74
c_rt_lib0clear(&___nl__15);
#line 74
goto label_26;
#line 74
label_26:
#line 74
c_rt_lib0clear(&___nl__14);
#line 75
c_rt_lib0move(&___nl__14, csv_priv0get_char(___nl__0, &___nl__8));
#line 75
c_rt_lib0copy(&___nl__10, ___nl__14);
#line 75
c_rt_lib0clear(&___nl__14);
#line 76
c_rt_lib0move(&___nl__14, string0ord(___nl__10));
#line 76
c_rt_lib0copy(&___nl__12, ___nl__14);
#line 76
c_rt_lib0clear(&___nl__14);
#line 77
goto label_22;
#line 77
label_21:
#line 77
c_rt_lib0clear(&___nl__13);
#line 77
c_rt_lib0clear(&___nl__12);
#line 78
goto label_9;
#line 78
label_9:
#line 78
c_rt_lib0clear(&___nl__11);
#line 79
c_rt_lib0delete(array0push(&___nl__5, ___nl__7));
#line 80
c_rt_lib0move(&___nl__11,___get_global_const(0));
#line 80
c_rt_lib0copy(&___nl__7, ___nl__11);
#line 80
c_rt_lib0clear(&___nl__11);
#line 81
c_rt_lib0move(&___nl__11, string0ord(___nl__10));
#line 82
c_rt_lib0move(&___nl__12, c_rt_lib0num_eq(___nl__11, ___nl__3));
#line 82
c_rt_lib0move(&___nl__12, c_rt_lib0not(___nl__12));
#line 82
if(c_rt_lib0check_true_native(___nl__12)){ goto label_28;}
#line 82
c_rt_lib0clear(&___nl__10);
#line 82
c_rt_lib0clear(&___nl__11);
#line 82
c_rt_lib0clear(&___nl__12);
#line 82
goto label_8;
#line 82
goto label_28;
#line 82
label_28:
#line 82
c_rt_lib0clear(&___nl__12);
#line 83
c_rt_lib0move(&___nl__12,___get_global_const(158));
#line 83
c_rt_lib0move(&___nl__12, c_rt_lib0num_eq(___nl__11, ___nl__12));
#line 83
c_rt_lib0move(&___nl__12, c_rt_lib0not(___nl__12));
#line 83
if(c_rt_lib0check_true_native(___nl__12)){ goto label_30;}
#line 84
c_rt_lib0move(&___nl__13, csv_priv0get_char(___nl__0, &___nl__8));
#line 84
c_rt_lib0copy(&___nl__10, ___nl__13);
#line 84
c_rt_lib0clear(&___nl__13);
#line 85
c_rt_lib0move(&___nl__13, string0ord(___nl__10));
#line 85
c_rt_lib0copy(&___nl__11, ___nl__13);
#line 85
c_rt_lib0clear(&___nl__13);
#line 86
goto label_30;
#line 86
label_30:
#line 86
c_rt_lib0clear(&___nl__12);
#line 87
c_rt_lib0move(&___nl__12,___get_global_const(157));
#line 87
c_rt_lib0move(&___nl__12, c_rt_lib0num_eq(___nl__11, ___nl__12));
#line 87
c_rt_lib0move(&___nl__12, c_rt_lib0not(___nl__12));
#line 87
if(c_rt_lib0check_true_native(___nl__12)){ goto label_32;}
#line 88
c_rt_lib0delete(array0push(&___nl__4, ___nl__5));
#line 89
c_rt_lib0move(&___nl__13, c_rt_lib0array_mk(0));
#line 89
c_rt_lib0copy(&___nl__5, ___nl__13);
#line 89
c_rt_lib0clear(&___nl__13);
#line 90
c_rt_lib0clear(&___nl__10);
#line 90
c_rt_lib0clear(&___nl__11);
#line 90
c_rt_lib0clear(&___nl__12);
#line 90
goto label_8;
#line 91
goto label_32;
#line 91
label_32:
#line 91
c_rt_lib0clear(&___nl__12);
#line 91
c_rt_lib0clear(&___nl__10);
#line 91
c_rt_lib0clear(&___nl__11);
#line 92
goto label_8;
#line 92
label_7:
#line 92
c_rt_lib0clear(&___nl__9);
#line 93
c_rt_lib0move(&___nl__9, csv_priv0end(&___nl__4, &___nl__5, ___nl__7));
#line 93
c_rt_lib0clear(&___nl__0);
#line 93
c_rt_lib0clear(&___nl__1);
#line 93
c_rt_lib0clear(&___nl__2);
#line 93
c_rt_lib0clear(&___nl__3);
#line 93
c_rt_lib0clear(&___nl__4);
#line 93
c_rt_lib0clear(&___nl__5);
#line 93
c_rt_lib0clear(&___nl__6);
#line 93
c_rt_lib0clear(&___nl__7);
#line 93
c_rt_lib0clear(&___nl__8);
#line 93
return ___nl__9;
#line 93
c_rt_lib0clear(&___nl__9);
#line 93
c_rt_lib0clear(&___nl__1);
#line 93
c_rt_lib0clear(&___nl__2);
#line 93
c_rt_lib0clear(&___nl__3);
#line 93
c_rt_lib0clear(&___nl__4);
#line 93
c_rt_lib0clear(&___nl__5);
#line 93
c_rt_lib0clear(&___nl__6);
#line 93
c_rt_lib0clear(&___nl__7);
#line 93
c_rt_lib0clear(&___nl__8);
#line 93
c_rt_lib0clear(&___nl__0);
#line 93
return NULL;
}
Exemplo n.º 3
0
Arquivo: csv.c Projeto: mcFrax/nl
ImmT csv0save(ImmT ___nl__0) {
c_rt_lib0arg_val(___nl__0);
csv_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;
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;
ImmT ___nl__15 = NULL;
ImmT ___nl__16 = NULL;
ImmT ___nl__17 = NULL;
ImmT ___nl__18 = NULL;
ImmT ___nl__19 = NULL;
ImmT ___nl__20 = NULL;
ImmT ___nl__21 = NULL;
ImmT ___nl__22 = NULL;
#line 10
c_rt_lib0move(&___nl__1,___get_global_const(155));
#line 11
c_rt_lib0move(&___nl__2, string0tab());
#line 12
c_rt_lib0move(&___nl__3, c_rt_lib0concat_new(___nl__1, ___nl__1));
#line 13
c_rt_lib0move(&___nl__4,___get_global_const(0));
#line 14
c_rt_lib0move(&___nl__6,___get_global_const(1));
#line 14
c_rt_lib0move(&___nl__7,___get_global_const(2));
#line 14
c_rt_lib0move(&___nl__8, c_rt_lib0array_len(___nl__0));
#line 14
label_3:
#line 14
c_rt_lib0move(&___nl__9, c_rt_lib0ge(___nl__6, ___nl__8));
#line 14
if(c_rt_lib0check_true_native(___nl__9)){ goto label_1;}
#line 14
c_rt_lib0move(&___nl__5, c_rt_lib0array_get(___nl__0, ___nl__6));
#line 15
c_rt_lib0move(&___nl__10, array0len(___nl__5));
#line 16
c_rt_lib0move(&___nl__11,___get_global_const(1));
#line 16
c_rt_lib0move(&___nl__12,___get_global_const(2));
#line 16
label_6:
#line 16
c_rt_lib0move(&___nl__13, c_rt_lib0ge(___nl__11, ___nl__10));
#line 16
if(c_rt_lib0check_true_native(___nl__13)){ goto label_4;}
#line 17
c_rt_lib0move(&___nl__14, c_rt_lib0array_get(___nl__5, ___nl__11));
#line 18
c_rt_lib0move(&___nl__15, string0length(___nl__14));
#line 19
c_rt_lib0move(&___nl__16, c_rt_lib0get_false());
#line 20
c_rt_lib0move(&___nl__17,___get_global_const(1));
#line 20
c_rt_lib0move(&___nl__18,___get_global_const(2));
#line 20
label_9:
#line 20
c_rt_lib0move(&___nl__19, c_rt_lib0ge(___nl__17, ___nl__15));
#line 20
if(c_rt_lib0check_true_native(___nl__19)){ goto label_7;}
#line 21
c_rt_lib0move(&___nl__21,___get_global_const(2));
#line 21
c_rt_lib0move(&___nl__20, string0substr(___nl__14, ___nl__17, ___nl__21));
#line 21
c_rt_lib0clear(&___nl__21);
#line 22
c_rt_lib0move(&___nl__21, string0ord(___nl__20));
#line 22
c_rt_lib0move(&___nl__22,___get_global_const(156));
#line 22
c_rt_lib0move(&___nl__21, c_rt_lib0lt(___nl__21, ___nl__22));
#line 22
c_rt_lib0clear(&___nl__22);
#line 22
if(c_rt_lib0check_true_native(___nl__21)){ goto label_12;}
#line 22
c_rt_lib0move(&___nl__21, c_rt_lib0eq(___nl__20, ___nl__1));
#line 22
label_12:
#line 22
c_rt_lib0move(&___nl__21, c_rt_lib0not(___nl__21));
#line 22
if(c_rt_lib0check_true_native(___nl__21)){ goto label_11;}
#line 22
c_rt_lib0move(&___nl__22, c_rt_lib0get_true());
#line 22
c_rt_lib0copy(&___nl__16, ___nl__22);
#line 22
c_rt_lib0clear(&___nl__22);
#line 22
goto label_11;
#line 22
label_11:
#line 22
c_rt_lib0clear(&___nl__21);
#line 22
c_rt_lib0clear(&___nl__20);
#line 23
c_rt_lib0move(&___nl__17, c_rt_lib0add_mod(___nl__17, ___nl__18));
#line 23
goto label_9;
#line 23
label_7:
#line 23
c_rt_lib0clear(&___nl__17);
#line 23
c_rt_lib0clear(&___nl__18);
#line 23
c_rt_lib0clear(&___nl__19);
#line 24
c_rt_lib0copy(&___nl__17, ___nl__16);
#line 24
c_rt_lib0move(&___nl__17, c_rt_lib0not(___nl__17));
#line 24
if(c_rt_lib0check_true_native(___nl__17)){ goto label_14;}
#line 24
c_rt_lib0move(&___nl__18, string0replace(___nl__14, ___nl__1, ___nl__3));
#line 24
c_rt_lib0move(&___nl__18, c_rt_lib0concat_new(___nl__1, ___nl__18));
#line 24
c_rt_lib0move(&___nl__18, c_rt_lib0concat_add(___nl__18, ___nl__1));
#line 24
c_rt_lib0copy(&___nl__14, ___nl__18);
#line 24
c_rt_lib0clear(&___nl__18);
#line 24
goto label_14;
#line 24
label_14:
#line 24
c_rt_lib0clear(&___nl__17);
#line 25
c_rt_lib0move(&___nl__4, c_rt_lib0concat_add(___nl__4, ___nl__14));
#line 26
c_rt_lib0move(&___nl__17,___get_global_const(2));
#line 26
c_rt_lib0move(&___nl__17, c_rt_lib0sub(___nl__10, ___nl__17));
#line 26
c_rt_lib0move(&___nl__17, c_rt_lib0num_eq(___nl__11, ___nl__17));
#line 26
c_rt_lib0move(&___nl__17, c_rt_lib0not(___nl__17));
#line 26
c_rt_lib0move(&___nl__17, c_rt_lib0not(___nl__17));
#line 26
if(c_rt_lib0check_true_native(___nl__17)){ goto label_16;}
#line 26
c_rt_lib0move(&___nl__4, c_rt_lib0concat_add(___nl__4, ___nl__2));
#line 26
goto label_16;
#line 26
label_16:
#line 26
c_rt_lib0clear(&___nl__17);
#line 26
c_rt_lib0clear(&___nl__14);
#line 26
c_rt_lib0clear(&___nl__15);
#line 26
c_rt_lib0clear(&___nl__16);
#line 27
c_rt_lib0move(&___nl__11, c_rt_lib0add_mod(___nl__11, ___nl__12));
#line 27
goto label_6;
#line 27
label_4:
#line 27
c_rt_lib0clear(&___nl__11);
#line 27
c_rt_lib0clear(&___nl__12);
#line 27
c_rt_lib0clear(&___nl__13);
#line 28
c_rt_lib0move(&___nl__11, string0lf());
#line 28
c_rt_lib0move(&___nl__4, c_rt_lib0concat_add(___nl__4, ___nl__11));
#line 28
c_rt_lib0clear(&___nl__11);
#line 28
c_rt_lib0clear(&___nl__10);
#line 29
c_rt_lib0move(&___nl__6, c_rt_lib0add_mod(___nl__6, ___nl__7));
#line 29
goto label_3;
#line 29
label_1:
#line 29
c_rt_lib0clear(&___nl__5);
#line 29
c_rt_lib0clear(&___nl__6);
#line 29
c_rt_lib0clear(&___nl__7);
#line 29
c_rt_lib0clear(&___nl__8);
#line 29
c_rt_lib0clear(&___nl__9);
#line 30
c_rt_lib0clear(&___nl__0);
#line 30
c_rt_lib0clear(&___nl__1);
#line 30
c_rt_lib0clear(&___nl__2);
#line 30
c_rt_lib0clear(&___nl__3);
#line 30
return ___nl__4;
#line 30
c_rt_lib0clear(&___nl__1);
#line 30
c_rt_lib0clear(&___nl__2);
#line 30
c_rt_lib0clear(&___nl__3);
#line 30
c_rt_lib0clear(&___nl__4);
#line 30
c_rt_lib0clear(&___nl__0);
#line 30
return NULL;
}
Exemplo n.º 4
0
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;
}
Exemplo n.º 5
0
ImmT string_utils0is_integer(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 10
c_rt_lib0move(&___nl__1,___get_global_const(0));
#line 10
c_rt_lib0move(&___nl__1, c_rt_lib0concat_new(___nl__0, ___nl__1));
#line 11
c_rt_lib0move(&___nl__2, string0length(___nl__1));
#line 12
c_rt_lib0move(&___nl__3,___get_global_const(1));
#line 12
c_rt_lib0move(&___nl__3, c_rt_lib0eq(___nl__1, ___nl__3));
#line 12
c_rt_lib0move(&___nl__3, c_rt_lib0not(___nl__3));
#line 12
if(c_rt_lib0check_true_native(___nl__3)){ goto label_2;}
#line 12
c_rt_lib0move(&___nl__4, c_rt_lib0get_true());
#line 12
c_rt_lib0clear(&___nl__0);
#line 12
c_rt_lib0clear(&___nl__1);
#line 12
c_rt_lib0clear(&___nl__2);
#line 12
c_rt_lib0clear(&___nl__3);
#line 12
return ___nl__4;
#line 12
c_rt_lib0clear(&___nl__4);
#line 12
goto label_2;
#line 12
label_2:
#line 12
c_rt_lib0clear(&___nl__3);
#line 13
c_rt_lib0move(&___nl__3,___get_global_const(1));
#line 14
c_rt_lib0move(&___nl__4,___get_global_const(1));
#line 14
c_rt_lib0move(&___nl__4, c_rt_lib0num_eq(___nl__2, ___nl__4));
#line 14
c_rt_lib0move(&___nl__4, c_rt_lib0not(___nl__4));
#line 14
if(c_rt_lib0check_true_native(___nl__4)){ goto label_4;}
#line 14
c_rt_lib0move(&___nl__5, c_rt_lib0get_false());
#line 14
c_rt_lib0clear(&___nl__0);
#line 14
c_rt_lib0clear(&___nl__1);
#line 14
c_rt_lib0clear(&___nl__2);
#line 14
c_rt_lib0clear(&___nl__3);
#line 14
c_rt_lib0clear(&___nl__4);
#line 14
return ___nl__5;
#line 14
c_rt_lib0clear(&___nl__5);
#line 14
goto label_4;
#line 14
label_4:
#line 14
c_rt_lib0clear(&___nl__4);
#line 15
c_rt_lib0move(&___nl__5,___get_global_const(2));
#line 15
c_rt_lib0move(&___nl__4, string0substr(___nl__1, ___nl__3, ___nl__5));
#line 15
c_rt_lib0clear(&___nl__5);
#line 15
c_rt_lib0move(&___nl__5,___get_global_const(245));
#line 15
c_rt_lib0move(&___nl__4, c_rt_lib0eq(___nl__4, ___nl__5));
#line 15
c_rt_lib0clear(&___nl__5);
#line 15
c_rt_lib0move(&___nl__4, c_rt_lib0not(___nl__4));
#line 15
if(c_rt_lib0check_true_native(___nl__4)){ goto label_6;}
#line 15
c_rt_lib0move(&___nl__5,___get_global_const(2));
#line 15
c_rt_lib0move(&___nl__3, c_rt_lib0add_mod(___nl__3, ___nl__5));
#line 15
c_rt_lib0clear(&___nl__5);
#line 15
goto label_6;
#line 15
label_6:
#line 15
c_rt_lib0clear(&___nl__4);
#line 16
c_rt_lib0move(&___nl__4, c_rt_lib0num_eq(___nl__3, ___nl__2));
#line 16
if(c_rt_lib0check_true_native(___nl__4)){ goto label_9;}
#line 16
c_rt_lib0move(&___nl__5,___get_global_const(2));
#line 16
c_rt_lib0move(&___nl__4, string0substr(___nl__1, ___nl__3, ___nl__5));
#line 16
c_rt_lib0clear(&___nl__5);
#line 16
c_rt_lib0move(&___nl__5,___get_global_const(1));
#line 16
c_rt_lib0move(&___nl__4, c_rt_lib0eq(___nl__4, ___nl__5));
#line 16
c_rt_lib0clear(&___nl__5);
#line 16
label_9:
#line 16
c_rt_lib0move(&___nl__4, c_rt_lib0not(___nl__4));
#line 16
if(c_rt_lib0check_true_native(___nl__4)){ goto label_8;}
#line 16
c_rt_lib0move(&___nl__5, c_rt_lib0get_false());
#line 16
c_rt_lib0clear(&___nl__0);
#line 16
c_rt_lib0clear(&___nl__1);
#line 16
c_rt_lib0clear(&___nl__2);
#line 16
c_rt_lib0clear(&___nl__3);
#line 16
c_rt_lib0clear(&___nl__4);
#line 16
return ___nl__5;
#line 16
c_rt_lib0clear(&___nl__5);
#line 16
goto label_8;
#line 16
label_8:
#line 16
c_rt_lib0clear(&___nl__4);
#line 17
c_rt_lib0copy(&___nl__3, ___nl__3);
#line 17
label_11:
#line 17
c_rt_lib0move(&___nl__4, c_rt_lib0lt(___nl__3, ___nl__2));
#line 17
c_rt_lib0move(&___nl__4, c_rt_lib0not(___nl__4));
#line 17
if(c_rt_lib0check_true_native(___nl__4)){ goto label_10;}
#line 18
c_rt_lib0move(&___nl__7,___get_global_const(2));
#line 18
c_rt_lib0move(&___nl__6, string0substr(___nl__1, ___nl__3, ___nl__7));
#line 18
c_rt_lib0clear(&___nl__7);
#line 18
c_rt_lib0move(&___nl__5, string0is_digit(___nl__6));
#line 18
c_rt_lib0clear(&___nl__6);
#line 18
c_rt_lib0move(&___nl__5, c_rt_lib0not(___nl__5));
#line 18
c_rt_lib0move(&___nl__5, c_rt_lib0not(___nl__5));
#line 18
if(c_rt_lib0check_true_native(___nl__5)){ goto label_14;}
#line 18
c_rt_lib0move(&___nl__6, c_rt_lib0get_false());
#line 18
c_rt_lib0clear(&___nl__0);
#line 18
c_rt_lib0clear(&___nl__1);
#line 18
c_rt_lib0clear(&___nl__2);
#line 18
c_rt_lib0clear(&___nl__3);
#line 18
c_rt_lib0clear(&___nl__4);
#line 18
c_rt_lib0clear(&___nl__5);
#line 18
return ___nl__6;
#line 18
c_rt_lib0clear(&___nl__6);
#line 18
goto label_14;
#line 18
label_14:
#line 18
c_rt_lib0clear(&___nl__5);
#line 18
c_rt_lib0move(&___nl__5,___get_global_const(2));
#line 18
c_rt_lib0move(&___nl__3, c_rt_lib0add_mod(___nl__3, ___nl__5));
#line 18
c_rt_lib0clear(&___nl__5);
#line 19
goto label_11;
#line 19
label_10:
#line 19
c_rt_lib0clear(&___nl__4);
#line 20
c_rt_lib0move(&___nl__4, c_rt_lib0get_true());
#line 20
c_rt_lib0clear(&___nl__0);
#line 20
c_rt_lib0clear(&___nl__1);
#line 20
c_rt_lib0clear(&___nl__2);
#line 20
c_rt_lib0clear(&___nl__3);
#line 20
return ___nl__4;
#line 20
c_rt_lib0clear(&___nl__4);
#line 20
c_rt_lib0clear(&___nl__1);
#line 20
c_rt_lib0clear(&___nl__2);
#line 20
c_rt_lib0clear(&___nl__3);
#line 20
c_rt_lib0clear(&___nl__0);
#line 20
return NULL;
}
Exemplo n.º 6
0
Arquivo: string.c Projeto: agsamek/nl
ImmT string0length0ptr(int _num, ImmT *_tab){
c_rt_lib0func_num_args(_num, 1, "string0length");
return string0length(_tab[0]);}