#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>
#include <string.h>
#include "genC.h"
#include "text.h"
#include "misc.h"
#include "arithmetique.h"
#include "text-util.h"

Include dependency graph for print.c:

Functions
void	print_sentence (FILE *fd, sentence s)
	FI: just to make sure that text.h is built; pips-makemake -l does not tale into account a library whose modules do not use the library header. More...

void	dump_sentence (sentence s)

void	print_text (FILE *fd, text t)

void	dump_text (text t)
	FI: print_text() should be fprint_text() and dump_text(), print_text() More...

string	words_to_string (cons *lw)

string	sentence_to_string (sentence sen)
	SG: moved here from icfdg. More...

string	text_to_string (text t)
	SG: moved here from ricedg. More...

void	dump_words (list lw)

void	dump_strings (list sl)
	print a list of strings More...

void	print_words (FILE fd, cons lw)

Function Documentation

◆ dump_sentence()

void dump_sentence ( sentence s )

Definition at line 190 of file print.c.

 {
     print_sentence(stderr, s);
 }

References print_sentence().

Here is the call graph for this function:

◆ dump_strings()

void dump_strings ( list sl )

print a list of strings

Definition at line 257 of file print.c.

 {
   dump_words(sl);
 }

References dump_words().

Here is the call graph for this function:

◆ dump_text()

void dump_text ( text t )

FI: print_text() should be fprint_text() and dump_text(), print_text()

Definition at line 205 of file print.c.

 {
     print_text(stderr, t);
 }

References print_text().

Referenced by get_semantic_text(), and text_transformer().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ dump_words()

void dump_words ( list lw )

Parameters

lw w

Definition at line 251 of file print.c.

 {
     print_words(stderr, lw);
 }

References print_words().

Referenced by dump_strings(), print_qualifiers(), and print_type().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ print_sentence()

void print_sentence	(	FILE *	fd,
		sentence	s
	)

FI: just to make sure that text.h is built; pips-makemake -l does not tale into account a library whose modules do not use the library header.

cproto-generated files

print_sentence:

FI: I had to change this module to handle string longer than the space available on one line; I tried to preserve as much as I could of the previous behavior to avoid pseudo-hyphenation at the wrong place and to avoid extensicve problems with validate; the resulting code is lousy, of course; FI, 15 March 1993

RK: the print_sentence could print lower case letter according to a property... 17/12/1993.

FI/FC: Why on earth?!? (void) putc((islower((int) c) ? (char) toupper((int) c) : c), fd);

if the string fits on the current line: no problem

if the string fits on one line: use the 88 algorithm to break as few syntactic constructs as possible

complete current line

start a new line with its prefix

Special label for Cray directives

if the string has to be broken in at least two lines: new algorithmic part to avoid line overflow (FI, March 1993)

complete the current line

start a new line with its prefix but no indentation since string constants may be broken onto two lines

Special label for Cray directives

Parameters

fd d

Definition at line 53 of file print.c.

 {
     if (sentence_formatted_p(s)) {
         string ps = sentence_formatted(s);
         while (*ps) {
             char c = *ps++;
             /* FI/FC: Why on earth?!?
                (void) putc((islower((int) c) ? (char) toupper((int) c) : c), fd);
                */
             (void) putc( c, fd);
         }
     }
     else {
         unformatted u = sentence_unformatted(s);
         int col;
         int i;
         int line_num = 1;
         string label = unformatted_label(u);
         int em = unformatted_extra_margin(u);
         int n = unformatted_number(u);
         cons *lw = unformatted_words(u);
  
         if (label != (char *) NULL) {
             fprintf(fd, "%-5s ", label);
         }
         else if(prettyprint_language_is_fortran_p())
             fputs("      ", fd);
         }
  
  
         for (i = 0; i < em; i++) 
             putc(' ', fd);
         col = 7+em;
  
         pips_assert("print_sentence", col <= MAX_LINE_LENGTH);
  
         while (lw) {
             string w = STRING(CAR(lw));
  
             STRING(CAR(lw)) = NULL;
             lw = CDR(lw);
  
             /* if the string fits on the current line: no problem */
             if (col + strlen(w) <= 70) {
                 (void) fprintf(fd, "%s", w);
                 col += strlen(w);
             }
             /* if the string fits on one line: 
              * use the 88 algorithm to break as few
              * syntactic constructs as possible */
             else if(strlen(w) < 70-7-em) {
                 if (col + strlen(w) > 70) {
                     /* complete current line */
                     if (n > 0) {
                         for (i = col; i <= MAX_LINE_LENGTH; i++) putc(' ', fd);
                         fprintf(fd, "%04d", n);
                     }
  
                     /* start a new line with its prefix */
                     putc('\n', fd);
  
                     if(label != (char *) NULL 
                        && (strcmp(label,"CDIR$")==0
                            || strcmp(label,"CDIR@")==0
                            || strcmp(label,"CMIC$")==0)) {
                         /* Special label for Cray directives */
                         fputs(label, fd);
                         fprintf(fd, "%d", (++line_num)%10);
                     }
                     else
                         fputs("     &", fd);
  
                     for (i = 0; i < em; i++)
                         putc(' ', fd);
  
                     col = 7+em;
                 }
                 (void) fprintf(fd, "%s", w);
                 col += strlen(w);
             }
             /* if the string has to be broken in at least two lines: 
              * new algorithmic part
              * to avoid line overflow (FI, March 1993) */
             else {
                 char * line = w;
                 int ncar;
  
                 /* complete the current line */
                 ncar = MAX_LINE_LENGTH - col + 1;
                 fprintf(fd,"%.*s", ncar, line);
                 line += ncar;
                 col = 73;
  
                 /*
                 if (n > 0) {
                     for (i = col; i <= 72; i++) putc(' ', fd);
                     fprintf(fd, "%04d", n);
                 }
                 */
  
                 while(strlen(line)!=0) {
                     ncar = MIN(MAX_LINE_LENGTH - 7 +1, strlen(line));
  
                     /* start a new line with its prefix but no indentation
                      * since string constants may be broken onto two lines */
                     putc('\n', fd);
  
                     if(label != (char *) NULL 
                        && (strcmp(label,"CDIR$")==0
                            || strcmp(label,"CDIR@")==0
                            || strcmp(label,"CMIC$")==0)) {
                         /* Special label for Cray directives */
                         fputs(label, fd);
                         (void) fprintf(fd, "%d", (++line_num)%10);
                     }
                     else
                         fputs("     &", fd);
  
                     col = 7 ;
                     (void) fprintf(fd,"%.*s", ncar, line);
                     line += ncar;
                     col += ncar;
                 }
             }
             free(w);
         }
  
         pips_assert("print_sentence", col <= MAX_LINE_LENGTH);
  
         if (n > 0) {
             for (i = col; i <= MAX_LINE_LENGTH; i++) putc(' ', fd);
             fprintf(fd, "%04d", n);
         }
         putc('\n', fd);
     }

References CAR, CDR, fprintf(), free(), line, MAX_LINE_LENGTH, MIN, pips_assert, prettyprint_language_is_fortran_p(), sentence_formatted, sentence_formatted_p, sentence_unformatted, STRING, unformatted_extra_margin, unformatted_label, unformatted_number, and unformatted_words.

Referenced by dump_sentence(), make_emulated_shared_variable(), print_text(), and set_dimensions_of_local_variable_family().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ print_text()

void print_text	(	FILE *	fd,
		text	t
	)

Parameters

fd d

Definition at line 195 of file print.c.

 {
   FOREACH(SENTENCE, s, text_sentences(t))
     print_sentence(fd, s);
 }

References FOREACH, print_sentence(), SENTENCE, and text_sentences.

Referenced by add_new_compilation_unit(), add_new_module_from_text(), callgraph_module_name(), compilation_unit_text(), do_recompile_module(), dprint(), dump_text(), ensure_comment_consistency(), fprint_statement(), fprint_statement_complexity(), generate_hpf_remapping_file(), hpfc_print_code(), hpfc_print_common(), init_host_and_node_entities(), make_movements_loop_body_wp65(), make_text_resource(), outliner_independent(), print_loops(), print_loops_list(), print_pointer_value(), print_points_to_list(), print_points_to_relation(), statement_rwt(), step_compile_analysed_module(), stub_text(), text_area_included(), text_block_else(), text_block_elseif(), text_block_if(), text_block_ifthen(), text_logical_if(), text_test(), text_unstructured(), and wp65_debug_print_module().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ print_words()

void print_words	(	FILE *	fd,
		cons *	lw
	)

Definition at line 263 of file print.c.

 {
     string s = words_to_string(lw);
     fputs(s, fd);
     free(s);
 }

References free(), and words_to_string().

Referenced by adg_dataflowgraph_with_extremities(), adg_print_graph(), dump_sef(), dump_words(), eval_var(), flint_initialize_statement_def_use_variables(), fprint_expression(), fprint_reference(), prettyprint_conflict(), prettyprint_dependence_graph(), prettyprint_dependence_graph_view(), prettyprint_dot_dependence_graph(), print_syntax(), reference_conversion_expression(), rice_update_dependence_graph(), and TestCoupleOfReferences().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ sentence_to_string()

string sentence_to_string ( sentence sen )

SG: moved here from icfdg.

Parameters

sen en

Definition at line 230 of file print.c.

 {
     if (!sentence_formatted_p(sen))
         return words_to_string(unformatted_words(sentence_unformatted(sen)));
     else
         return sentence_formatted(sen);
 }

References sentence_formatted, sentence_formatted_p, sentence_unformatted, unformatted_words, and words_to_string().

Referenced by print_graph_of_text_to_daVinci(), print_marged_text_from_starting_node(), print_module_icfg(), and text_to_string().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ text_to_string()

string text_to_string ( text t )

SG: moved here from ricedg.

Definition at line 239 of file print.c.

 {
   string str = strdup("");
   string str_new;
   MAP(SENTENCE, sen, {
     str_new = strdup(concatenate(str, sentence_to_string(sen), NULL));
     free(str);
     str = str_new;
   }, text_sentences(t));
   return(str);
 }

References concatenate(), free(), MAP, SENTENCE, sentence_to_string(), strdup(), and text_sentences.

Referenced by concerned_entity_p(), control_graph(), debug_print_effects_list(), insert_impact_description_as_comment(), prettyprint_dot_label(), region_to_statement(), step_compute_CHAINS_DG_remove_summary_regions(), step_print_directives_regions(), step_translate_and_map(), and subtsitute_variable_in_reference().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ words_to_string()

string words_to_string ( cons * lw )

Definition at line 211 of file print.c.

 {
     static char buffer[1024];
  
     buffer[0] = '\0';
     MAPL(pw, {
         string w = STRING(CAR(pw));
         if (strlen(buffer)+strlen(w) > 1023) {
             fprintf(stderr, "[words_to_string] buffer too small\n");
             exit(1);
         }
         (void) strcat(buffer, w);
     }, lw);
  
     return(strdup(buffer));
 }

References buffer, CAR, exit, fprintf(), MAPL, strdup(), and STRING.

Referenced by adg_fprint_dataflow(), adg_fprint_list_of_exp(), can_terapixify_expression_p(), comp_regions_of_syntax(), conflicts_sort_callback(), defs_elim_of_assign_call(), dereferencing_to_sinks(), do_simdizer_init(), effect_reference_first_pointer_dimension_rank(), effect_reference_to_string(), expression_to_string(), extended_source_to_sinks(), fprint_list_of_exp(), generic_reference_to_points_to_matching_list(), generic_transform_sink_cells_from_matching_list(), get_log_buffer(), get_sp_of_call_p(), imprime_special_quast(), insert_common_declaration(), io_filter(), make_bounds(), make_filtered_dg_or_dvdg(), maxima_simplify(), print_call_path(), print_structurals(), print_words(), proper_to_summary_simple_effect(), reference_to_string(), sentence_to_string(), store_sc_text_line(), string_of_type(), task_complexity(), task_time_polynome(), text_complexity(), text_loop_craft(), text_summary_complexity(), type_to_full_string_definition(), words_predicate_to_commentary(), and xml_Argument().

Here is the call graph for this function:

Here is the caller graph for this function:

Functions

Function Documentation

◆ dump_sentence()

◆ dump_strings()

◆ dump_text()

◆ dump_words()

◆ print_sentence()

◆ print_text()

◆ print_words()

◆ sentence_to_string()

◆ text_to_string()

◆ words_to_string()