28 #include "pips_config.h"
38 printf(
"gfc2pips_push_comment \n");
71 if(retour->
l.nextc == l.nextc)
73 retour = retour->
prev;
80 unsigned long retour = 0;
97 if(retour->
gfc == c) {
99 retour = retour->
next;
100 while(retour && retour->
gfc == c) {
102 b = (
char*)
malloc(
sizeof(
char) * (strlen(a) + strlen(retour->
s) + 2));
104 strcpy(b + strlen(b),
"\n");
105 strcpy(b + strlen(b), retour->
s);
108 }
else if(retour->
s) {
111 retour = retour->
next;
114 b = (
char*)
malloc(
sizeof(
char) * (strlen(a) + 2));
116 strcpy(b + strlen(b),
"\n");
123 retour = retour->
next;
153 retour = retour->
prev;
159 if(retour->
done || retour->
num)
162 retour = retour->
prev;
168 while(retour && retour->
done) {
169 retour = retour->
next;
172 unsigned long num_plage = retour->
num;
173 while(retour && retour->
num == num_plage) {
176 retour = retour->
next;
184 bool if_changed =
false;
187 if(retour->
num == old) {
191 retour = retour->
prev;
201 retour = retour->
next;
210 retour = retour->
prev;
235 retour->
gfc = (gfc_code*)curr->
car.
e;
237 retour = retour->
prev;
char * strrcpy(char *dest, __const char *src)
same as strcpy, but begin by the end of the string allowing you to give twice the same string
char * gfc2pips_gfc_char_t2string2(gfc_char_t *c)
translate the <nb> first elements of from a wide integer representation to a char representation
list gfc2pips_list_of_declared_code
gfc2pips_comments gfc2pips_comments_stack_
gfc2pips_comments gfc2pips_comments_stack
list gen_nreverse(list cp)
reverse a list in place
list gen_cons(const void *item, const list next)
list gen_nthcdr(int n, const list lx)
caution: the first item is 0! was: return( (n<=0) ? l : gen_nthcdr( n-1, CDR( l ))) ; if n>gen_length...
#define empty_comments
Empty comments (i.e.
The structure used to build lists in NewGen.
gen_chunk car
The data payload of a list element.
void * e
For externals (foreign objects)