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 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 #3
0
File: csv.c Project: 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;
}
Example #4
0
File: csv.c Project: 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;
}
Example #5
0
File: string.c Project: agsamek/nl
ImmT string0ord0ptr(int _num, ImmT *_tab){
c_rt_lib0func_num_args(_num, 1, "string0ord");
return string0ord(_tab[0]);}