analyse.h File Reference

Go to the source code of this file.

Functions
int	analyse_get_datas (int name_id, int *nb_int, int **tab_int, int *nb_float, float **tab_float)
void	analyse_quit (void)
void	analyse_write_f (char *message)
void	analyse_stack_float (float r)
void	analyse_stack_int (int i)
void	analyse_call_error (int type, int id, int mode)
void	analyse_call_check (int id)

Function Documentation

analyse_call_check()

void analyse_call_check

(

int

id

)

Definition at line 802 of file analyse.c.

{
  if (id == -1)
    {
      analyse_check_file_write(analyse_check_list, analyse_check_group_list, LANGUAGE);
    }
  else
    {
      analyse_tree_enter(AN_CHECK); 
      analyse_check_store(analyse_check_list, LANGUAGE, id);
      analyse_tree_close(AN_CHECK);
    }
}

analyse_call_error()

void analyse_call_error	(	int	type,
		int	id,
		int	mode )

Definition at line 580 of file analyse.c.

{
  int nb_int;
  int *tab_int=NULL;
 
  int nb_int_line;
  int *tab_int_line=NULL;
 
  char *title;
  char *description;
  
  int nb_err, nb_warn;
 
  char stop_message[]="\n\n %s STOPPED due to INPUT ERROR";
  char gene_message[]="\n******************************\n%s stopped with :\n    %d Error(s)\n    %d Warning(s)\n******************************\n";
  
  char error_id_message[]="ERROR id : %d";
  char warning_id_message[]="WARNING id : %d";
  char info_id_message[]="INFO id : %d";
  char unknown_id_message[]="??? id : %d";
 
  char id_message_real[20];
  char *message;
 
  /* Get tab for a new line */
  analyse_convert_string_to_int("\n", &nb_int_line, &tab_int_line);
 
 
  /* ADD ERROR in IERR */
  if (type == AN_ERROR)
    {
      anaderr();
      analyse_tree_enter(AN_ERROR);
      analyse_error_return_message(analyse_error_list, AN_ERROR, LANGUAGE, id, &title, &description, NULL);
    }
  else if (type == AN_WARNING)
    {
      anadwar();
      analyse_tree_enter(AN_WARNING);
      analyse_error_return_message(analyse_error_list, AN_WARNING, LANGUAGE, id, &title, &description, NULL);
    }
  else
    {
      analyse_tree_enter(AN_INFO);
      analyse_error_return_message(analyse_error_list, AN_INFO, LANGUAGE, id, &title, &description, NULL);
    }
 
  /* Count Error */
  analyse_error_cnt(analyse_error_list, id);
 
  /* Print Error Id + Title */
  if (type == AN_ERROR)
    sprintf(id_message_real, error_id_message, id);
  else if (type == AN_WARNING)
    sprintf(id_message_real, warning_id_message, id);
  else if (type == AN_INFO)
    sprintf(id_message_real, info_id_message, id);
  else
    sprintf(id_message_real, unknown_id_message, id);
 
   analyse_GUI_add_error_message(id_message_real);
   analyse_GUI_add_error_message(title);
 
  switch(mode)
    {
    case ANSTOP:
    case ANINFO: /* title+description on screen, title+description in file */
    case ANINFO_BLIND_1: /* only title on screen, title + description in file */
      /* Id */
      analyse_convert_string_to_int(id_message_real, &nb_int, &tab_int);
 
      wiout(&nb_int_line, tab_int_line);
      /* wistdo(&nb_int_line, tab_int_line); */
 
      wiout(&nb_int, tab_int);
      if (mode == ANINFO ) 
      wistdo(&nb_int, tab_int);
      
      analyse_free(tab_int);
 
      /* Title */
      analyse_convert_string_to_int(title, &nb_int, &tab_int);
      wistdo(&nb_int, tab_int);
      wiout(&nb_int, tab_int);
 
      analyse_free(tab_int);
      break;
      
    case ANINFO_BLIND_2: /* nothing on screen, title + description in file */
    case ANINFO_BLIND_3: /* nothing on screen, title in file */
 
      /* Id */
      analyse_convert_string_to_int(id_message_real, &nb_int, &tab_int);
 
      wiout(&nb_int_line, tab_int_line);
      wiout(&nb_int, tab_int);
 
      analyse_free(tab_int);
 
      /* Title */
      analyse_convert_string_to_int(title, &nb_int, &tab_int);
      wiout(&nb_int, tab_int);
 
      analyse_free(tab_int);
      break;
 
 
    case ANINFO_BLIND_4: /* nothing on screen, nothing in file */
    default :
      break;
    }
  analyse_free(title);
 
 
  /* Print Error Description */
  analyse_GUI_add_error_message(description);  
 
  switch(mode)
    {
    case ANSTOP:
    case ANINFO: /* title+description on screen, title+description in file */     
      analyse_convert_string_to_int(description, &nb_int, &tab_int);
 
      wiout(&nb_int, tab_int);
      wistdo(&nb_int, tab_int);
 
      wiout(&nb_int_line, tab_int_line);
      /* wistdo(&nb_int_line, tab_int_line); */
 
      analyse_free(tab_int);
      break;
 
    case ANINFO_BLIND_1: /* only title on screen, title + description in file */
      analyse_convert_string_to_int(description, &nb_int, &tab_int);
      
      wiout(&nb_int, tab_int);
 
      wiout(&nb_int_line, tab_int_line);
      /* wistdo(&nb_int_line, tab_int_line); */
 
      analyse_free(tab_int);
      break;
 
    case ANINFO_BLIND_2: /* nothing on screen, title + description in file */
      analyse_convert_string_to_int(description, &nb_int, &tab_int);
 
      wiout(&nb_int, tab_int);
 
      wiout(&nb_int_line, tab_int_line);
 
      analyse_free(tab_int);
      break;
 
    case ANINFO_BLIND_3: /* nothing on screen, title in file */
      wiout(&nb_int_line, tab_int_line);
      break;
 
    case ANINFO_BLIND_4: /* nothing on screen, nothing in file */
    default :
      break;
    }
  analyse_free(description);
  
 
  /* Error Management */
  switch(mode)
    {
    case ANSTOP:
      /* Stopped due to Input Errors */
      message = (char *)analyse_malloc((strlen(analyse_tree->info.calling_name)+strlen(stop_message)+1)*sizeof(char));
      sprintf(message,stop_message,analyse_tree->info.calling_name);
 
      /* Print Stop Message On SCREEN, IN L00 FILE and in GUI*/
      analyse_convert_string_to_int(message, &nb_int, &tab_int);
 
      wistdo(&nb_int, tab_int);
      wiout(&nb_int, tab_int);
  
      analyse_free(tab_int);
 
      analyse_GUI_add_error_message(message);
      analyse_free(message);
 
      /* Prepare GUI Message and start GUI*/
      angetnb(&nb_err, &nb_warn);
      message = (char *)analyse_malloc((strlen(analyse_tree->info.calling_name)+strlen(gene_message)+ 10+10+1)*sizeof(char));
      sprintf(message,gene_message,analyse_tree->info.calling_name, nb_err, nb_warn);
 
      analyse_GUI_add_error_message(message);
      analyse_free(message);
         
      analyse_GUI_start_loop();
  
      /* quit Program */
      analyse_quit();
      break;
      
    case ANINFO:
    case ANINFO_BLIND_1:
    case ANINFO_BLIND_2:
    case ANINFO_BLIND_3:
    case ANINFO_BLIND_4:
      if (type == AN_ERROR)
    analyse_tree_close(AN_ERROR);
      else if (type == AN_WARNING)
    analyse_tree_close(AN_WARNING);
      else
    analyse_tree_close(AN_INFO);
      break;
      
    default :
      break;
    }
  
  analyse_free(tab_int_line);
}

analyse_get_datas()

int analyse_get_datas	(	int	name_id,
		int *	nb_int,
		int **	tab_int,
		int *	nb_float,
		float **	tab_float )

Definition at line 364 of file analyse.c.

{
 
  analyse_node_t *node_scan;
 
  node_scan=search_for_node_with_id(name_id);
 
  if (node_scan == NULL)
    {
      if (nb_int!= NULL) *nb_int=0;
      if (tab_int !=NULL) *tab_int=NULL;
 
      if (nb_float != NULL) *nb_float=0;      
      if (tab_float != NULL) *tab_float=NULL;
 
      return -1;
    }
 
  if (nb_int != NULL) *nb_int=node_scan->info.nb_int_data;
  if (tab_int != NULL) *tab_int = int_stack + node_scan->info.int_data_offset_start;
 
  if (nb_float != NULL) *nb_float=node_scan->info.nb_float_data;
  if (tab_float != NULL) *tab_float = float_stack + node_scan->info.float_data_offset_start;
 
  return 0;
}

analyse_quit()

void analyse_quit

(

void

)

Definition at line 969 of file analyse.c.

{
  anend();
}

analyse_stack_float()

void analyse_stack_float

(

float

r

)

Definition at line 294 of file analyse.c.

{
  if (float_stack_scan == float_stack_size)
    {
      float_stack = (float *)analyse_realloc( (void *)float_stack, (float_stack_size + SIZE_STEP)*sizeof(float));
      
      float_stack_size = float_stack_size + SIZE_STEP;
    }
 
  float_stack[float_stack_scan] = r;
  float_stack_scan ++;
 
  
}

analyse_stack_int()

void analyse_stack_int

(

int

i

)

Definition at line 334 of file analyse.c.

{
  if (int_stack_scan == int_stack_size)
    {
      int_stack = (int *)analyse_realloc( (void *)int_stack, (int_stack_size + SIZE_STEP)*sizeof(int));
      
      int_stack_size = int_stack_size + SIZE_STEP;
    }
  
  int_stack[int_stack_scan] = i;
  int_stack_scan ++;
 
}

analyse_write_f()

void analyse_write_f

(

char *

message

)

Definition at line 1022 of file analyse.c.

{
  int nb_int;
  int *tab_int=NULL;
 
  analyse_convert_string_to_int(message, &nb_int, &tab_int);
 
//  wif(&nb_int, tab_int);
 
  analyse_free(tab_int);
}