gfc2pips-comments.c File Reference

#include "gfc2pips-private.h"
#include <stdio.h>

Include dependency graph for gfc2pips-comments.c:

Go to the source code of this file.

Functions
void	gfc2pips_push_comment (locus l, unsigned long num, char s)
bool	gfc2pips_check_already_done (locus l)
unsigned long	gfc2pips_get_num_of_gfc_code (gfc_code *c)
string	gfc2pips_get_comment_of_code (gfc_code *c)
gfc2pips_comments	gfc2pips_pop_comment (void)
void	gfc2pips_set_last_comments_done (unsigned long nb)
void	gfc2pips_assign_num_to_last_comments (unsigned long nb)
void	gfc2pips_assign_gfc_code_to_last_comments (gfc_code *c)
void	gfc2pips_replace_comments_num (unsigned long old, unsigned long new)
void	gfc2pips_assign_gfc_code_to_num_comments (gfc_code *c, unsigned long num)
bool	gfc2pips_comment_num_exists (unsigned long num)
void	gfc2pips_pop_not_done_comments (void)
void	gfc2pips_shift_comments (void)
	We assign a gfc_code depending to a list of comments if any depending on the number of the statement. More...
void	gfc2pips_push_last_code (gfc_code *c)

Function Documentation

gfc2pips_assign_gfc_code_to_last_comments()

void gfc2pips_assign_gfc_code_to_last_comments

(

gfc_code *

c

)

Definition at line 165 of file gfc2pips-comments.c.

                                                            {
  gfc2pips_comments retour = gfc2pips_comments_stack_;
  if(c) {
    while(retour && retour->done) {
      retour = retour->next;
    }
    if(retour) {
      unsigned long num_plage = retour->num;
      while(retour && retour->num == num_plage) {
        retour->gfc = c;
        retour->done = true;
        retour = retour->next;
      }
    }
  }
}

References _gfc2pips_comments_::done, _gfc2pips_comments_::gfc, gfc2pips_comments_stack_, _gfc2pips_comments_::next, and _gfc2pips_comments_::num.

gfc2pips_assign_gfc_code_to_num_comments()

void gfc2pips_assign_gfc_code_to_num_comments	(	gfc_code *	c,
		unsigned long	num
	)

Definition at line 196 of file gfc2pips-comments.c.

                                                                              {
  gfc2pips_comments retour = gfc2pips_comments_stack_;
  while(retour) {
    if(retour->num == num)
      retour->gfc = c;
    retour = retour->next;
  }
}

References _gfc2pips_comments_::gfc, gfc2pips_comments_stack_, _gfc2pips_comments_::next, num, and _gfc2pips_comments_::num.

Referenced by gfc2pips_code2instruction__TOP().

Here is the caller graph for this function:

gfc2pips_assign_num_to_last_comments()

void gfc2pips_assign_num_to_last_comments

(

unsigned long

nb

)

Definition at line 156 of file gfc2pips-comments.c.

                                                            {
  gfc2pips_comments retour = gfc2pips_comments_stack;
  while(retour) {
    if(retour->done || retour->num)
      return;
    retour->num = nb;
    retour = retour->prev;
  }
}

References _gfc2pips_comments_::done, gfc2pips_comments_stack, _gfc2pips_comments_::num, and _gfc2pips_comments_::prev.

gfc2pips_check_already_done()

bool gfc2pips_check_already_done

(

locus

l

)

Definition at line 68 of file gfc2pips-comments.c.

                                          {
  gfc2pips_comments retour = gfc2pips_comments_stack;
  while(retour) {
    if(retour->l.nextc == l.nextc)
      return true;
    retour = retour->prev;
  }
  return false;
}

References gfc2pips_comments_stack, _gfc2pips_comments_::l, and _gfc2pips_comments_::prev.

Referenced by gfc2pips_push_comment().

Here is the caller graph for this function:

gfc2pips_comment_num_exists()

bool gfc2pips_comment_num_exists

(

unsigned long

num

)

Definition at line 204 of file gfc2pips-comments.c.

                                                    {
  gfc2pips_comments retour = gfc2pips_comments_stack;
  //fprintf(stderr,"gfc2pips_comment_num_exists: %d\n", num );
  while(retour) {
    if(retour->num == num)
      return true;
    retour = retour->prev;
  }
  return false;
}

References gfc2pips_comments_stack, num, _gfc2pips_comments_::num, and _gfc2pips_comments_::prev.

gfc2pips_get_comment_of_code()

string gfc2pips_get_comment_of_code

(

gfc_code *

c

)

Definition at line 93 of file gfc2pips-comments.c.

                                                 {
  gfc2pips_comments retour = gfc2pips_comments_stack_;
  char *a, *b;
  while(retour) {
    if(retour->gfc == c) {
      a = retour->s;
      retour = retour->next;
      while(retour && retour->gfc == c) {
        if(a && retour->s) {
          b = (char*)malloc(sizeof(char) * (strlen(a) + strlen(retour->s) + 2));
          strcpy(b, a);
          strcpy(b + strlen(b), "\n");
          strcpy(b + strlen(b), retour->s);
          free(a);
          a = b;
        } else if(retour->s) {
          a = retour->s;
        }
        retour = retour->next;
      }
      if(a) {
        b = (char*)malloc(sizeof(char) * (strlen(a) + 2));
        strcpy(b, a);
        strcpy(b + strlen(b), "\n");
        free(a);
        return b;
      } else {
        return empty_comments;
      }
    }
    retour = retour->next;
  }
  return empty_comments;
}

References empty_comments, free(), _gfc2pips_comments_::gfc, gfc2pips_comments_stack_, malloc(), _gfc2pips_comments_::next, and _gfc2pips_comments_::s.

Referenced by gfc2pips_code2instruction(), and gfc2pips_code2instruction__TOP().

Here is the call graph for this function:

Here is the caller graph for this function:

gfc2pips_get_num_of_gfc_code()

unsigned long gfc2pips_get_num_of_gfc_code

(

gfc_code *

c

)

Definition at line 79 of file gfc2pips-comments.c.

                                                        {
  unsigned long retour = 0;
  gfc2pips_comments curr = gfc2pips_comments_stack_;
  while(curr) {
    if(curr->gfc == c) {
      return retour + 1;
    }
    curr = curr->next;
    retour++;
  }
  if(retour)
    return retour + 1;
  return retour;// 0
}

References _gfc2pips_comments_::gfc, gfc2pips_comments_stack_, and _gfc2pips_comments_::next.

Referenced by gfc2pips_code2instruction__TOP().

Here is the caller graph for this function:

gfc2pips_pop_comment()

gfc2pips_comments gfc2pips_pop_comment

(

void

)

Definition at line 128 of file gfc2pips-comments.c.

                                             {
  if(gfc2pips_comments_stack) {
    gfc2pips_comments retour = gfc2pips_comments_stack;
    gfc2pips_comments_stack = gfc2pips_comments_stack->prev;
    if(gfc2pips_comments_stack) {
      gfc2pips_comments_stack->next = NULL;
    } else {
      gfc2pips_comments_stack_ = NULL;
    }
    return retour;
  } else {
    return NULL;
  }
}

References gfc2pips_comments_stack, gfc2pips_comments_stack_, _gfc2pips_comments_::next, and _gfc2pips_comments_::prev.

Referenced by gfc2pips_pop_not_done_comments().

Here is the caller graph for this function:

gfc2pips_pop_not_done_comments()

void gfc2pips_pop_not_done_comments

(

void

)

Definition at line 215 of file gfc2pips-comments.c.

                                          {
  while(gfc2pips_comments_stack && gfc2pips_comments_stack->done == false) {
    gfc2pips_pop_comment();
  }
}

References _gfc2pips_comments_::done, gfc2pips_comments_stack, and gfc2pips_pop_comment().

Here is the call graph for this function:

gfc2pips_push_comment()

void gfc2pips_push_comment	(	locus	l,
		unsigned long	num,
		char	s
	)

Definition at line 37 of file gfc2pips-comments.c.

                                                               {
  printf("gfc2pips_push_comment \n");
  if(gfc2pips_comments_stack) {
    if(gfc2pips_check_already_done(l)) {
      return;
    }
    gfc2pips_comments_stack->next = malloc(sizeof(struct _gfc2pips_comments_));
    gfc2pips_comments_stack->next->prev = gfc2pips_comments_stack;
    gfc2pips_comments_stack->next->next = NULL;
 
    gfc2pips_comments_stack = gfc2pips_comments_stack->next;
  } else {
    gfc2pips_comments_stack = malloc(sizeof(struct _gfc2pips_comments_));
    gfc2pips_comments_stack->prev = NULL;
    gfc2pips_comments_stack->next = NULL;
    gfc2pips_comments_stack_ = gfc2pips_comments_stack;
  }
  //fprintf(stderr,"push comments %d\n",l.lb->location);
 
  gfc2pips_comments_stack->l = l;
  gfc2pips_comments_stack->num = num;
  gfc2pips_comments_stack->gfc = NULL;
  gfc2pips_comments_stack->done = false;
 
  gfc2pips_comments_stack->s = gfc2pips_gfc_char_t2string2(l.nextc);
  gfc2pips_comments_stack->s[strlen(gfc2pips_comments_stack->s) - 2] = '\0';
  strrcpy(gfc2pips_comments_stack->s + 1, gfc2pips_comments_stack->s);
  *gfc2pips_comments_stack->s = s;
  printf("gfc2pips_push_comment : '%s'\n", gfc2pips_comments_stack->s);
}

References _gfc2pips_comments_::done, _gfc2pips_comments_::gfc, gfc2pips_check_already_done(), gfc2pips_comments_stack, gfc2pips_comments_stack_, gfc2pips_gfc_char_t2string2(), _gfc2pips_comments_::l, malloc(), _gfc2pips_comments_::next, num, _gfc2pips_comments_::num, _gfc2pips_comments_::prev, printf(), _gfc2pips_comments_::s, and strrcpy().

Here is the call graph for this function:

gfc2pips_push_last_code()

void gfc2pips_push_last_code

(

gfc_code *

c

)

Definition at line 242 of file gfc2pips-comments.c.

                                          {
  if(gfc2pips_list_of_declared_code == NULL)
    gfc2pips_list_of_declared_code = gen_cons(NULL, NULL);
  //gfc2pips_list_of_declared_code =
  gfc2pips_list_of_declared_code = gen_cons(c, gfc2pips_list_of_declared_code);
}

References gen_cons(), and gfc2pips_list_of_declared_code.

Here is the call graph for this function:

gfc2pips_replace_comments_num()

void gfc2pips_replace_comments_num	(	unsigned long	old,
		unsigned long	new
	)

Definition at line 182 of file gfc2pips-comments.c.

                                                                         {
  gfc2pips_comments retour = gfc2pips_comments_stack;
  bool if_changed = false;
  //fprintf(stderr,"gfc2pips_replace_comments_num: replace %d by %d\n", old, new );
  while(retour) {
    if(retour->num == old) {
      if_changed = true;
      retour->num = new;
    }
    retour = retour->prev;
  }
  //if(if_changed) gfc2pips_nb_of_statements--;
}

References gfc2pips_comments_stack, _gfc2pips_comments_::num, and _gfc2pips_comments_::prev.

Referenced by gfc2pips_code2instruction__TOP().

Here is the caller graph for this function:

gfc2pips_set_last_comments_done()

void gfc2pips_set_last_comments_done

(

unsigned long

nb

)

Definition at line 145 of file gfc2pips-comments.c.

                                                       {
  //printf("gfc2pips_set_last_comments_done\n");
  gfc2pips_comments retour = gfc2pips_comments_stack;
  while(retour) {
    if(retour->done)
      return;
    retour->num = nb;
    retour->done = true;
    retour = retour->prev;
  }
}

References _gfc2pips_comments_::done, gfc2pips_comments_stack, _gfc2pips_comments_::num, and _gfc2pips_comments_::prev.

gfc2pips_shift_comments()

void gfc2pips_shift_comments

(

void

)

We assign a gfc_code depending to a list of comments if any depending on the number of the statement.

Definition at line 225 of file gfc2pips-comments.c.

                                   {
  /*
   *
   */
  gfc2pips_comments retour = gfc2pips_comments_stack;
  list l = gen_nreverse(gfc2pips_list_of_declared_code);
  while(retour) {
 
    list curr = gen_nthcdr(retour->num, l);
    if(curr) {
      retour->gfc = (gfc_code*)curr->car.e;
    }
    retour = retour->prev;
  }
  return;
}

References cons::car, gen_chunk::e, gen_nreverse(), gen_nthcdr(), _gfc2pips_comments_::gfc, gfc2pips_comments_stack, gfc2pips_list_of_declared_code, _gfc2pips_comments_::num, and _gfc2pips_comments_::prev.

Referenced by gfc2pips_namespace().

Here is the call graph for this function:

Here is the caller graph for this function: