Exemple #1
0
ImmT array0insert(ImmT * ___ref___0,ImmT ___nl__1,ImmT ___nl__2) {
c_rt_lib0arg_val(___nl__1);
c_rt_lib0arg_val(___nl__2);
ImmT ___nl__3 = NULL;
ImmT ___nl__4 = NULL;
ImmT ___nl__5 = NULL;
ImmT ___nl__6 = NULL;
#line 40
c_rt_lib0move(&___nl__4,___get_global_const(0));
#line 40
c_rt_lib0move(&___nl__3, array0subarray(*___ref___0, ___nl__4, ___nl__1));
#line 40
c_rt_lib0clear(&___nl__4);
#line 41
c_rt_lib0delete(array0push(&___nl__3, ___nl__2));
#line 42
c_rt_lib0copy(&___nl__4, ___nl__1);
#line 42
label_5:
#line 42
c_rt_lib0move(&___nl__5, array0len(*___ref___0));
#line 42
c_rt_lib0move(&___nl__5, c_rt_lib0lt(___nl__4, ___nl__5));
#line 42
c_rt_lib0move(&___nl__5, c_rt_lib0not(___nl__5));
#line 42
if(c_rt_lib0check_true_native(___nl__5)){ goto label_17;}
#line 43
c_rt_lib0move(&___nl__6, c_rt_lib0array_get(*___ref___0, ___nl__4));
#line 43
c_rt_lib0delete(array0push(&___nl__3, ___nl__6));
#line 43
c_rt_lib0clear(&___nl__6);
#line 42
c_rt_lib0move(&___nl__6,___get_global_const(1));
#line 42
c_rt_lib0move(&___nl__4, c_rt_lib0add_mod(___nl__4, ___nl__6));
#line 42
c_rt_lib0clear(&___nl__6);
#line 44
goto label_5;
#line 44
label_17:
#line 44
c_rt_lib0clear(&___nl__4);
#line 44
c_rt_lib0clear(&___nl__5);
#line 45
c_rt_lib0copy(___ref___0, ___nl__3);
#line 45
c_rt_lib0clear(&___nl__3);
#line 45
c_rt_lib0clear(&___nl__1);
#line 45
c_rt_lib0clear(&___nl__2);
#line 45
return NULL;
}
Exemple #2
0
ImmT array0remove(ImmT * ___ref___0,ImmT ___nl__1) {
c_rt_lib0arg_val(___nl__1);
ImmT ___nl__2 = NULL;
ImmT ___nl__3 = NULL;
ImmT ___nl__4 = NULL;
ImmT ___nl__5 = NULL;
#line 32
c_rt_lib0move(&___nl__3,___get_global_const(0));
#line 32
c_rt_lib0move(&___nl__2, array0subarray(*___ref___0, ___nl__3, ___nl__1));
#line 32
c_rt_lib0clear(&___nl__3);
#line 33
c_rt_lib0move(&___nl__3,___get_global_const(1));
#line 33
c_rt_lib0move(&___nl__3, c_rt_lib0add(___nl__1, ___nl__3));
#line 33
label_5:
#line 33
c_rt_lib0move(&___nl__4, array0len(*___ref___0));
#line 33
c_rt_lib0move(&___nl__4, c_rt_lib0lt(___nl__3, ___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_17;}
#line 34
c_rt_lib0move(&___nl__5, c_rt_lib0array_get(*___ref___0, ___nl__3));
#line 34
c_rt_lib0delete(array0push(&___nl__2, ___nl__5));
#line 34
c_rt_lib0clear(&___nl__5);
#line 33
c_rt_lib0move(&___nl__5,___get_global_const(1));
#line 33
c_rt_lib0move(&___nl__3, c_rt_lib0add_mod(___nl__3, ___nl__5));
#line 33
c_rt_lib0clear(&___nl__5);
#line 35
goto label_5;
#line 35
label_17:
#line 35
c_rt_lib0clear(&___nl__3);
#line 35
c_rt_lib0clear(&___nl__4);
#line 36
c_rt_lib0copy(___ref___0, ___nl__2);
#line 36
c_rt_lib0clear(&___nl__2);
#line 36
c_rt_lib0clear(&___nl__1);
#line 36
return NULL;
}
Exemple #3
0
ImmT array0subarray0ptr(int _num, ImmT *_tab){
c_rt_lib0func_num_args(_num, 3, "array0subarray");
return array0subarray(_tab[0], _tab[1], _tab[2]);}