25 #include "pips_config.h"
75 if (label != (
char *) NULL) {
83 for (i = 0; i < em; i++)
96 if (
col + strlen(w) <= 70) {
103 else if(strlen(w) < 70-7-em) {
104 if (
col + strlen(w) > 70) {
114 if(label != (
char *) NULL
115 && (strcmp(label,
"CDIR$")==0
116 || strcmp(label,
"CDIR@")==0
117 || strcmp(label,
"CMIC$")==0)) {
120 fprintf(fd,
"%d", (++line_num)%10);
125 for (i = 0; i < em; i++)
153 while(strlen(
line)!=0) {
160 if(label != (
char *) NULL
161 && (strcmp(label,
"CDIR$")==0
162 || strcmp(label,
"CDIR@")==0
163 || strcmp(label,
"CMIC$")==0)) {
166 (void)
fprintf(fd,
"%d", (++line_num)%10);
219 if (strlen(
buffer)+strlen(w) > 1023) {
220 fprintf(stderr,
"[words_to_string] buffer too small\n");
#define MIN(x, y)
minimum and maximum if they are defined somewhere else, they are very likely to be defined the same w...
#define CAR(pcons)
Get the value of the first element of a list.
#define FOREACH(_fe_CASTER, _fe_item, _fe_list)
Apply/map an instruction block on all the elements of a list.
#define CDR(pcons)
Get the list less its first element.
#define MAPL(_map_list_cp, _code, _l)
Apply some code on the addresses of all the elements of a list.
#define MAP(_map_CASTER, _map_item, _map_code, _map_list)
Apply/map an instruction block on all the elements of a list (old fashioned)
bool prettyprint_language_is_fortran_p()
#define pips_assert(what, predicate)
common macros, two flavors depending on NDEBUG
string concatenate(const char *,...)
Return the concatenation of the given strings.
int fprintf()
test sc_min : ce test s'appelle par : programme fichier1.data fichier2.data ...
static int line
FLEX_SCANNER.
The structure used to build lists in NewGen.
#define MAX_LINE_LENGTH
maximum length of a line when prettyprinting...
void dump_sentence(sentence s)
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 who...
string sentence_to_string(sentence sen)
SG: moved here from icfdg.
void print_text(FILE *fd, text t)
string text_to_string(text t)
SG: moved here from ricedg.
string words_to_string(cons *lw)
void dump_text(text t)
FI: print_text() should be fprint_text() and dump_text(), print_text()
void print_words(FILE *fd, cons *lw)
void dump_strings(list sl)
print a list of strings
#define unformatted_number(x)
#define SENTENCE(x)
newgen_unformatted_domain_defined
#define unformatted_extra_margin(x)
#define sentence_unformatted(x)
#define sentence_formatted(x)
#define text_sentences(x)
#define unformatted_words(x)
#define unformatted_label(x)
#define sentence_formatted_p(x)