示例#1
0
文件: csv.c 项目: 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;
}
示例#2
0
文件: string.c 项目: agsamek/nl
ImmT string0replace0ptr(int _num, ImmT *_tab){
c_rt_lib0func_num_args(_num, 3, "string0replace");
return string0replace(_tab[0], _tab[1], _tab[2]);}