reader.c File Reference

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include "genC.h"
#include "parser_private.h"
#include "linear.h"
#include "ri.h"
#include "misc.h"
#include "ri-util.h"
#include "syntax.h"
#include "keywtbl.h"
#include "properties.h"

Include dependency graph for reader.c:

Go to the source code of this file.

Data Structures
struct	Skeyword

Macros
#define	IS_QUOTED(c)   (c>=256)
#define	QUOTE(c)   (c+256)
#define	UNQUOTE(c)   (IS_QUOTED(c) ? (c)-256 : (c))
#define	LOCAL   static
#define	UNDEF   -2
#define	FIRST_LINE   100
#define	CONTINUATION_LINE   101
#define	EOF_LINE   102
#define	INITIAL_BUFFER_SIZE   (128)
	Comm contains the comments for the current statement in ReadStmt(). More...
#define	SIZE_UNDEF   ((size_t) UNDEF)
#define	NONINQUOTES   1
#define	INQUOTES   2
#define	INQUOTEQUOTE   3
#define	INQUOTEBACKSLASH   4

Functions
static void	init_comment_buffers (void)
	lazy initialization of the comment buffer More...
static void	resize_comment_buffers (void)
static void	init_getchar_buffer (void)
	number of elements in the array More...
static void	resize_getchar_buffer (void)
static void	init_stmt_buffer (void)
static void	resize_stmt_buffer (void)
static void	init_line_buffer (void)
static void	resize_line_buffer (void)
void	append_data_current_stmt_buffer_to_declarations (void)
void	parser_reset_all_reader_buffers (void)
void	init_parser_reader_properties ()
void	CheckParenthesis ()
void	FindIf ()
void	FindAutre ()
void	FindPoints ()
int	syn_wrap (void)
void	ScanNewFile (void)
	La fonction a appeler pour l'analyse d'un nouveau fichier. More...
int	IsCapKeyword (char *s)
	Fonction appelee par sslex sur la reduction de la regle de reconnaissance des mot clefs. More...
int	PipsGetc (FILE *fp)
	Routine de lecture pour l'analyseur lexical, lex ou flex. More...
int	GetChar (FILE *fp)
	Routine de lecture physique. More...
int	ReadLine (FILE *fp)
	All physical lines of a statement are put together in a unique buffer called "line_buffer". More...
int	ReadStmt (FILE *fp)
	regroupement des lignes du statement en une unique ligne sans continuation More...
int	FindDoWhile (void)
	This function is redundant with FindDo() but much easier to understand. More...
int	FindDo (void)
int	FindImplicit (void)
int	FindIfArith (void)
int	FindAssign (void)
size_t	FindProfZero (int c)
size_t	FindMatchingPar (size_t i)
int	StmtEqualString (char *s, int i)
int	CapitalizeStmt (char s[], int i)
int	NeedKeyword (void)
void	dump_current_statement ()
int	get_statement_number ()
	eturn the line number of the statement being parsed More...

Variables
char *	Comm = NULL
	reader.c More...
char *	PrevComm = NULL
char *	CurrComm
int	iComm = 0
int	iPrevComm = 0
int	iCurrComm = 0
static int	CommSize = 0
static int	EofSeen = false
static int *	getchar_buffer = NULL
static int	getchar_buffer_size = 0
static int	i_getchar = UNDEF
static int	l_getchar = UNDEF
static int *	stmt_buffer = NULL
	le buffer contenant le statement courant, l'indice courant et la longueur. More...
static size_t	stmt_buffer_size = 0
static size_t	iStmt = 0
	indexes in the buffer... More...
static size_t	lStmt = 0
static int *	line_buffer = NULL
	le buffer contenant la ligne que l'on doit lire en avance pour se rendre compte qu'on a finit de lire un statement, l'indice courant et la longueur. More...
static int	line_buffer_size = 0
static int	iLine = 0
static int	lLine = 0
static int	EtatQuotes
LOCAL int	LineNumber
LOCAL int	Column
LOCAL int	StmtLineNumber
LOCAL int	ProfZeroVirg
LOCAL int	ProfZeroEgal
static char *	OperateurPoints []
	La table des operateurs du type '.XX. More...
static int	keywidx [26]
	Une table pour accelerer les recherche des keywords. More...
static int	tmp_b_I
	Variables qui serviront a mettre a jour les numeros de la premiere et de la derniere ligne de commentaire, et les numeros de la premiere et de la derniere ligne du statement. More...
static int	tmp_e_I
static int	tmp_b_C
static int	tmp_e_C
static char	tmp_lab_I [6]
static bool	parser_warn_for_columns_73_80 = true
	memoization des properties More...
int	line_b_I
	Indicates where the current instruction (in fact statement) starts and ends in the input file and gives its label. More...
int	line_e_I
int	line_b_C
int	line_e_C
char	lab_I []

Macro Definition Documentation

CONTINUATION_LINE

#define CONTINUATION_LINE   101

Definition at line 135 of file reader.c.

EOF_LINE

#define EOF_LINE   102

Definition at line 136 of file reader.c.

FIRST_LINE

#define FIRST_LINE   100

Definition at line 134 of file reader.c.

INITIAL_BUFFER_SIZE

#define INITIAL_BUFFER_SIZE   (128)

Comm contains the comments for the current statement in ReadStmt().

---

PrevComm contains the comments for the previous statement in ReadStmt(), which is currently being parsed. CurrComm contains the comments attached to the current line in ReadLine()

Definition at line 151 of file reader.c.

INQUOTEBACKSLASH

#define INQUOTEBACKSLASH   4

Definition at line 360 of file reader.c.

INQUOTEQUOTE

#define INQUOTEQUOTE   3

Definition at line 359 of file reader.c.

INQUOTES

#define INQUOTES   2

Definition at line 358 of file reader.c.

IS_QUOTED

#define IS_QUOTED

(

c

)

(c>=256)

---

Definition at line 122 of file reader.c.

LOCAL

#define LOCAL   static

---

Definition at line 130 of file reader.c.

NONINQUOTES

#define NONINQUOTES   1

Definition at line 357 of file reader.c.

QUOTE

#define QUOTE

(

c

)

(c+256)

Definition at line 123 of file reader.c.

SIZE_UNDEF

#define SIZE_UNDEF   ((size_t) UNDEF)

Definition at line 244 of file reader.c.

UNDEF

#define UNDEF   -2

Definition at line 132 of file reader.c.

UNQUOTE

#define UNQUOTE

(

c

)

(IS_QUOTED(c) ? (c)-256 : (c))

Definition at line 124 of file reader.c.

Function Documentation

append_data_current_stmt_buffer_to_declarations()

void append_data_current_stmt_buffer_to_declarations

(

void

)

int[]

Definition at line 276 of file reader.c.

{
    size_t i=0, j=0, column=6;
    char * tmp = (char*) malloc(lStmt+200), * ndecls, * odecls;
    code c = EntityCode(get_current_module_entity());
 
    for (; i<lStmt; i++, j++, column++) 
    {
      if (column==71) 
      {
        tmp[j++] = '\n';
        tmp[j++] = ' ';
        tmp[j++] = ' ';
        tmp[j++] = ' ';
        tmp[j++] = ' ';
        tmp[j++] = ' ';
        tmp[j++] = 'x';
        tmp[j++] = ' ';
        tmp[j++] = ' ';
        tmp[j++] = ' ';
        tmp[j++] = ' ';
        tmp[j++] = ' ';
        column = 10;
      }
      tmp[j] = (char) stmt_buffer[i]; /* int[] */
    }
    stmt_buffer[i]='\0';
    tmp[j] = '\0';
 
    odecls = code_decls_text(c);
    ndecls = strdup(concatenate(odecls, "! moved up...\n      DATA ", 
                                tmp+4, 0));
    free(odecls);
    free(tmp);
    code_decls_text(c) = ndecls;
}

References code_decls_text, concatenate(), EntityCode(), free(), get_current_module_entity(), lStmt, malloc(), stmt_buffer, and strdup().

Here is the call graph for this function:

CapitalizeStmt()

int CapitalizeStmt	(	char	s[],
		int	i
	)

la 1ere lettre n'est pas modifiee

Definition at line 1308 of file reader.c.

{
    int l = i+strlen(s);
 
    if ((size_t) l <= lStmt) {
        /* la 1ere lettre n'est pas modifiee */
        i += 1;
        while (i < l) {
            stmt_buffer[i] = tolower(stmt_buffer[i]);
            i += 1;
        }
    }
    else {
        ParserError("CapitalizeStmt",
                    "[scanner] internal error in CapitalizeStmt\n");
    }
 
    return(i);
}

References lStmt, ParserError(), and stmt_buffer.

Referenced by FindAssign(), FindAutre(), FindDo(), FindDoWhile(), FindIf(), FindIfArith(), FindImplicit(), and NeedKeyword().

Here is the call graph for this function:

Here is the caller graph for this function:

CheckParenthesis()

void CheckParenthesis

(

void

)

---

Warning("CheckParenthesis",

Definition at line 1032 of file reader.c.

{
    register size_t i;
    int parenthese = 0;
 
    ProfZeroVirg = ProfZeroEgal = false;
 
    for (i = 0; i < lStmt; i++) {
        if (!IS_QUOTED(stmt_buffer[i])) {
            if (parenthese == 0) {
                if (stmt_buffer[i] == ',')
                        ProfZeroVirg = true;
                else if (stmt_buffer[i] == '=')
                        ProfZeroEgal = true;
            }
            if(stmt_buffer[i] == '(') parenthese ++;
            if(stmt_buffer[i] == ')') parenthese --;
        }
    }
    if(parenthese < 0) {
        for (i=0; i < lStmt; i++)
            (void) putc((char) stmt_buffer[i], stderr);
        /* Warning("CheckParenthesis", */
        ParserError("CheckParenthesis",
                    "unbalanced paranthesis (too many ')')\n"
                    "Due to line truncation at column 72?\n");
    }
    if(parenthese > 0) {
        for (i=0; i < lStmt; i++)
            (void) putc((char) stmt_buffer[i], stderr);
        ParserError("CheckParenthesis",
                    "unbalanced paranthesis (too many '(')\n"
                    "Due to line truncation at column 72?\n");
    }
}

References IS_QUOTED, lStmt, ParserError(), ProfZeroEgal, ProfZeroVirg, and stmt_buffer.

Referenced by PipsGetc().

Here is the call graph for this function:

Here is the caller graph for this function:

dump_current_statement()

void dump_current_statement

(

void

)

Preprocessed statement: Spaces have been eliminated as well as continuation lines, keyword have been emphasized and variables capitalized.

Skip the initial lines

line_b_I, line_e_I

Copy the data lines

Definition at line 1354 of file reader.c.

{
  int i;
  FILE * syn_in = NULL;
 
  /* Preprocessed statement: Spaces have been eliminated as well as
     continuation lines, keyword have been emphasized and variables
     capitalized. */
  /*
  for(i=0; i<lStmt; i++)
    fprintf(stderr, "%c", (char) stmt_buffer[i]);
  fprintf(stderr,"\n");
  */
 
  syn_in = safe_fopen(CurrentFN, "r");
 
  /* Skip the initial lines */
 
  /* line_b_I, line_e_I */
  i = 1;
  while(i<line_b_I) {
    int c;
    if((c = getc(syn_in))==(int) '\n') i++;
    pips_assert("The end of file cannot be reached", c!=EOF);
  }
 
  /* Copy the data lines */
  while(i<=line_e_I) {
    int c;
    if((c = getc(syn_in))==(int) '\n') i++;
    pips_assert("The end of file cannot be reached", c!=EOF);
    putc(c, stderr);
  }
 
  safe_fclose(syn_in, CurrentFN);
}

References CurrentFN, line_b_I, line_e_I, pips_assert, safe_fclose(), safe_fopen(), and syn_in.

Here is the call graph for this function:

FindAssign()

int FindAssign

(

void

)

Definition at line 1197 of file reader.c.

{
    int result = false;
 
    if (!ProfZeroEgal && StmtEqualString("ASSIGN", iStmt)) {
        register size_t i = iStmt+6;
 
        if (isdigit(stmt_buffer[i])) {
            while (i < lStmt && isdigit(stmt_buffer[i]))
                i++;
 
            if (StmtEqualString("TO", i)) {
                (void) CapitalizeStmt("ASSIGN", iStmt);
                (void) CapitalizeStmt("TO", i);
                result = true;
            }
        }
    }
 
    return(result);
}

References CapitalizeStmt(), iStmt, lStmt, ProfZeroEgal, stmt_buffer, and StmtEqualString().

Referenced by PipsGetc().

Here is the call graph for this function:

Here is the caller graph for this function:

FindAutre()

void FindAutre

(

void

)

Definition at line 1169 of file reader.c.

{
    if (!ProfZeroEgal) {
        int i = NeedKeyword();
 
        /*
         * on detecte le cas tordu: INTEGER FUNCTION(...) ou encore
         * plus tordu: CHARACTER*89 FUNCTION(...)
         */
        if (StmtEqualString("Integer", iStmt) ||
            StmtEqualString("Real", iStmt) ||
            StmtEqualString("Character", iStmt) ||
            StmtEqualString("Complex", iStmt) ||
            StmtEqualString("Doubleprecision", iStmt) ||
            StmtEqualString("Logical", iStmt)) {
            if (stmt_buffer[i] == '*' && isdigit(stmt_buffer[i+1])) {
                i += 2;
                while (isdigit(stmt_buffer[i]))
                    i++;
            }
            if (StmtEqualString("FUNCTION", i)) {
                (void) CapitalizeStmt("FUNCTION", i);
            }
        }
    }
}

References CapitalizeStmt(), iStmt, NeedKeyword(), ProfZeroEgal, stmt_buffer, and StmtEqualString().

Referenced by PipsGetc().

Here is the call graph for this function:

Here is the caller graph for this function:

FindDo()

int FindDo

(

void

)

Let's skip a loop label to look for a while construct

Definition at line 1087 of file reader.c.

{
    int result = false;
 
    if(StmtEqualString("DO", iStmt)) {
        if (ProfZeroVirg && ProfZeroEgal) {
            (void) CapitalizeStmt("DO", iStmt);
            result = true;
        }
        else if (!ProfZeroVirg && !ProfZeroEgal) {
            /* Let's skip a loop label to look for a while construct */
            int i = iStmt+2;
            while (isdigit(stmt_buffer[i]))
                i++;
 
            if (StmtEqualString("WHILE", i)) {
                (void) CapitalizeStmt("DO", iStmt);
                (void) CapitalizeStmt("WHILE", i);
                result = true;
            }
        }
    }
 
    return(result);
}

References CapitalizeStmt(), iStmt, ProfZeroEgal, ProfZeroVirg, stmt_buffer, and StmtEqualString().

Referenced by PipsGetc().

Here is the call graph for this function:

Here is the caller graph for this function:

FindDoWhile()

int FindDoWhile

(

void

)

This function is redundant with FindDo() but much easier to understand.

I leave it as documentation. FI.

Definition at line 1073 of file reader.c.

{
    int result = false;
 
    if (!ProfZeroEgal && StmtEqualString("DOWHILE", iStmt)) {
        (void) CapitalizeStmt("DO", iStmt);
        (void) CapitalizeStmt("WHILE", iStmt+2);
        result = true;
    }
 
    return(result);
}

References CapitalizeStmt(), iStmt, ProfZeroEgal, and StmtEqualString().

Here is the call graph for this function:

FindIf()

void FindIf

(

void

)

Definition at line 1150 of file reader.c.

{
    if (StmtEqualString("IF(", iStmt)) {
        int i = FindMatchingPar(iStmt+2)+1;
        if (stmt_buffer[i] != '=') {
            (void) CapitalizeStmt("IF", iStmt);
            iStmt = i;
        }
    }
    else if (StmtEqualString("ELSEIF(", iStmt)) {
        int i = FindMatchingPar(iStmt+6)+1;
        if (stmt_buffer[i] != '=') {
            (void) CapitalizeStmt("ELSEIF", iStmt);
            iStmt = i;
        }
    }
}

References CapitalizeStmt(), FindMatchingPar(), iStmt, stmt_buffer, and StmtEqualString().

Referenced by PipsGetc().

Here is the call graph for this function:

Here is the caller graph for this function:

FindIfArith()

int FindIfArith

(

void

)

Definition at line 1134 of file reader.c.

{
    int result = false;
 
    if (StmtEqualString("IF(", iStmt)) {
        int i = FindMatchingPar(iStmt+2)+1;
        if ('0' <= stmt_buffer[i] && stmt_buffer[i] <= '9') {
            (void) CapitalizeStmt("IF", iStmt);
            result = true;
        }
    }
 
    return(result);
}

References CapitalizeStmt(), FindMatchingPar(), iStmt, stmt_buffer, and StmtEqualString().

Referenced by PipsGetc().

Here is the call graph for this function:

Here is the caller graph for this function:

FindImplicit()

int FindImplicit

(

void

)

Definition at line 1114 of file reader.c.

{
    int result = false;
 
    if (!ProfZeroEgal && StmtEqualString("IMPLICIT", iStmt)) {
        iStmt = CapitalizeStmt("IMPLICIT", iStmt);
        while (iStmt < lStmt) {
            iStmt = NeedKeyword();
            if ((iStmt = FindProfZero((int) ',')) == SIZE_UNDEF)
                iStmt = lStmt;
            else
                iStmt += 1;
        }
        result = true;
    }
 
    return(result);
}

References CapitalizeStmt(), FindProfZero(), iStmt, lStmt, NeedKeyword(), ProfZeroEgal, SIZE_UNDEF, and StmtEqualString().

Referenced by PipsGetc().

Here is the call graph for this function:

Here is the caller graph for this function:

FindMatchingPar()

size_t FindMatchingPar

(

size_t

i

)

Definition at line 1267 of file reader.c.

{
    int parenthese;
 
    pips_assert("FindMatchingPar", 
                stmt_buffer[i] == '(' && !IS_QUOTED(stmt_buffer[i]));
 
    i += 1;
    parenthese = 1;
 
    while (i < lStmt && parenthese > 0) {
        if (!IS_QUOTED(stmt_buffer[i])) {
            if(stmt_buffer[i] == '(') parenthese ++;
            if(stmt_buffer[i] == ')') parenthese --;
        }
        i += 1;
    }
 
    return (i == lStmt) ? SIZE_UNDEF : i-1;
}

References IS_QUOTED, lStmt, pips_assert, SIZE_UNDEF, and stmt_buffer.

Referenced by FindIf(), and FindIfArith().

Here is the caller graph for this function:

FindPoints()

void FindPoints

(

void

)

Definition at line 1220 of file reader.c.

{
    register size_t i = iStmt;
 
    while (i < lStmt) {
        if (stmt_buffer[i] == '.' && isalpha(stmt_buffer[i+1])) {
            register int j = 0;
 
            while (OperateurPoints[j] != NULL) {
                if (StmtEqualString(OperateurPoints[j], i)) {
                    stmt_buffer[i] = '%';
                    i += strlen(OperateurPoints[j]);
                    stmt_buffer[i-1] = '%';
                    break;
                }
                j += 1;
            }
 
            if (OperateurPoints[j] == NULL)
                i += 2;
        }
        else {
            i += 1;
        }
    }
}

References iStmt, lStmt, OperateurPoints, stmt_buffer, and StmtEqualString().

Referenced by PipsGetc().

Here is the call graph for this function:

Here is the caller graph for this function:

FindProfZero()

size_t FindProfZero

(

int

c

)

Definition at line 1248 of file reader.c.

{
    register size_t i;
    int parenthese = 0;
 
    for (i = iStmt; i < lStmt; i++) {
        if (!IS_QUOTED(stmt_buffer[i])) {
            if (parenthese == 0 && stmt_buffer[i] == c)
                break;
 
            if(stmt_buffer[i] == '(') parenthese ++;
            if(stmt_buffer[i] == ')') parenthese --;
        }
    }
 
    return (i == lStmt) ? SIZE_UNDEF : i;
}

References IS_QUOTED, iStmt, lStmt, SIZE_UNDEF, and stmt_buffer.

Referenced by FindImplicit().

Here is the caller graph for this function:

get_statement_number()

int get_statement_number

(

void

)

eturn the line number of the statement being parsed

Definition at line 1392 of file reader.c.

                            {
  return StmtLineNumber - 1;
}

References StmtLineNumber.

Referenced by GenerateReturn(), make_get_rc_statement(), MakeArithmIfInst(), MakeAssignedOrComputedGotoInst(), MakeCallInst(), MakeLogicalIfInst(), MakeNewLabelledStatement(), MakeReturn(), MakeStatement(), and ReuseLabelledStatement().

Here is the caller graph for this function:

GetChar()

int GetChar

(

FILE *

fp

)

Routine de lecture physique.

In case an error occurs, buffer must be emptied. Since i_getchar and l_getchar cannot be touched by the error handling routine, changes of fp are tracked in GetChar() and dynamically tested. Kludge suggested by Fabien Coelho to avoid adding more global variables. (FI)

Empty (or rather invisible) lines made of TAB and SPACE characters are replaced by the string "\n".

This section (probably) is made obsolete by the new function parser_reset_all_reader_buffers(). The user_warning() is replaced by a pips_error(). Test: Cachan/bug10

If a file has just been opened

if the buffer is not empty, which may never occur if previous_fp == NULL, perform a buffer reset

A whole input line is read to process TABs and empty lines

large for expansion

Fortran has a limited character set. See standard section 3.1. This cannot be handled here as you do not know if you are in a string constant or not. You cannot convert the double quote into a simple quote because you may generate an illegal string constant. Maybe the best would be to uncomment the next test. FI, 21 February 1992 if( c == '"') FatalError("GetChar","Illegal double quote character"); "

FI: let's delay and do it in ReadLine: if (islower(c)) c = toupper(c);

for (i = 0; i < (8-Column%8); i++) {

Ignore carriage returns introduced by VMS, MSDOS or MACOS...

buffer[l_getchar++] = (col > 72) ? ' ' : c;

buffer[l_getchar++] = (col > 72) ? '
' : c;

last columns cannot be copied because we might be inside a character string

i_getchar = l_getchar = UNDEF;

LineNumber += 1;

Parameters

fp

p

Definition at line 614 of file reader.c.

{
    int c = UNDEF;
    static int col = 0;
    static FILE * previous_fp = NULL;
 
    init_getchar_buffer();
 
    /* This section (probably) is made obsolete by the new function 
     * parser_reset_all_reader_buffers(). The user_warning() is replaced
     * by a pips_error(). Test: Cachan/bug10
     */
    if( previous_fp != fp ) {
        /* If a file has just been opened */
        if( i_getchar < l_getchar ) {
            /* if the buffer is not empty, which may never occur if 
             * previous_fp == NULL, perform a buffer reset
             */
            i_getchar = l_getchar;
            pips_internal_error("Unexpected buffer reset."
                       "A parser error must have occured previously.\n");
        }
        previous_fp = fp;
    }
 
    /* A whole input line is read to process TABs and empty lines */
    while (i_getchar >= l_getchar && c != EOF) {
        int EmptyBuffer = true;
        int LineTooLong = false;
        bool first_column = true;
        bool in_comment = false;
 
        i_getchar = l_getchar = 0;
 
        while ((c = getc(fp)) != '\n' && c != EOF) {
 
            if (l_getchar>getchar_buffer_size-20) /* large for expansion */
                resize_getchar_buffer();
 
            if(first_column) {
                in_comment = (strchr(START_COMMENT_LINE, (char) c)!= NULL);
                first_column = false;
            }
 
            /* Fortran has a limited character set. See standard section 3.1.
               This cannot be handled here as you do not know if you are
               in a string constant or not. You cannot convert the double
               quote into a simple quote because you may generate an illegal
               string constant. Maybe the best would be to uncomment the
               next test. FI, 21 February 1992 
            if( c == '\"')
                FatalError("GetChar","Illegal double quote character");
                " */
            /* FI: let's delay and do it in ReadLine:
             * if (islower(c)) c = toupper(c);
             */
 
            if (c == '\t') {
                int i;
                int nspace = 8-col%8;
                /* for (i = 0; i < (8-Column%8); i++) { */
                for (i = 0; i < nspace; i++) {
                    col += 1;
                    getchar_buffer[l_getchar++] = ' ';
                }
            } else if (c == '\r') {
                /* Ignore carriage returns introduced by VMS, MSDOS or MACOS...*/
                ;
            }
            else {
                col += 1;
                if(col > 72 && !LineTooLong && !in_comment && 
                   parser_warn_for_columns_73_80 && !(c==' ' || c=='\t')) {
                    user_warning("GetChar",
                                 "Line %d truncated, col=%d and l_getchar=%d\n",
                                 LineNumber, col, l_getchar);
                    LineTooLong = true;
                }
                /* buffer[l_getchar++] = (col > 72) ? ' ' : c; */
                /* buffer[l_getchar++] = (col > 72) ? '\n' : c; */
                if(col <= 72 || in_comment) {
                  /* last columns cannot be copied because we might be 
                   * inside a character string
                   */
                  getchar_buffer[l_getchar++] = c;
                }
                if (c != ' ')
                    EmptyBuffer = false;
            }
        }
                
        if (c == EOF) {
            if (!EmptyBuffer) {
                user_warning("GetChar",
                             "incomplete last line !!!\n");
                c = '\n';
            }
        }
        else {
            if (EmptyBuffer) {
                /* i_getchar = l_getchar = UNDEF; */
                debug(8, "GetChar", "An empty line has been detected\n");
                i_getchar = l_getchar = 0;
                getchar_buffer[l_getchar++] = '\n';
                col = 0;
                /* LineNumber += 1; */
            }
            else {
                col = 0;
                getchar_buffer[l_getchar++] = '\n';
            }
        }
        ifdebug(8) {
            int i;
 
            if(l_getchar==UNDEF) {
                debug(8, "GetChar",
                      "Input line after tab expansion is empty:\n");
            }
            else {
                debug(8, "GetChar",
                      "Input line after tab expansion l_getchar=%d, col=%d:\n",
                      l_getchar, col);
            }
            for (i=0; i < l_getchar; i++) {
                (void) putc((char) getchar_buffer[i], stderr);
            }
            if(l_getchar<=0) {
                (void) putc('\n', stderr);
            }
        }
    }
 
    if (c != EOF) {
        if ((c = getchar_buffer[i_getchar++]) == '\n') {
            Column = 1;
            LineNumber += 1;
        }
        else {
            Column += 1;
        }
    }
 
    return(c);
}

References Column, debug(), getchar_buffer, getchar_buffer_size, i_getchar, ifdebug, init_getchar_buffer(), l_getchar, LineNumber, parser_warn_for_columns_73_80, pips_internal_error, resize_getchar_buffer(), START_COMMENT_LINE, UNDEF, and user_warning.

Referenced by ReadLine().

Here is the call graph for this function:

Here is the caller graph for this function:

init_comment_buffers()

static void init_comment_buffers ( void  )

static

lazy initialization of the comment buffer

if needed

Definition at line 160 of file reader.c.

{
    if (CommSize!=0) return; /* if needed */
    pips_debug(9, "allocating comment buffers\n");
    CommSize = INITIAL_BUFFER_SIZE;
    Comm = (char*) malloc(CommSize);
    PrevComm = (char*) malloc(CommSize);
    CurrComm = (char*) malloc(CommSize);
    pips_assert("malloc ok", Comm && PrevComm && CurrComm);
}

References Comm, CommSize, CurrComm, INITIAL_BUFFER_SIZE, malloc(), pips_assert, pips_debug, and PrevComm.

Referenced by init_parser_reader_properties().

Here is the call graph for this function:

Here is the caller graph for this function:

init_getchar_buffer()

static void init_getchar_buffer ( void  )

static

number of elements in the array

if needed

Definition at line 190 of file reader.c.

{
    if (getchar_buffer_size!=0) return; /* if needed */
    pips_debug(9, "allocating getchar buffer\n");
    getchar_buffer_size = INITIAL_BUFFER_SIZE;
    getchar_buffer = (int*) malloc(sizeof(int)*getchar_buffer_size);
    pips_assert("malloc ok", getchar_buffer);
}

References getchar_buffer, getchar_buffer_size, INITIAL_BUFFER_SIZE, malloc(), pips_assert, and pips_debug.

Referenced by GetChar().

Here is the call graph for this function:

Here is the caller graph for this function:

init_line_buffer()

static void init_line_buffer ( void  )

static

if needed

Definition at line 255 of file reader.c.

{
    if (line_buffer_size!=0) return; /* if needed */
    pips_debug(9, "allocating line buffer\n");
    line_buffer_size = INITIAL_BUFFER_SIZE;
    line_buffer = (int*) malloc(sizeof(int)*line_buffer_size);
    pips_assert("malloc ok", line_buffer);
}

References INITIAL_BUFFER_SIZE, line_buffer, line_buffer_size, malloc(), pips_assert, and pips_debug.

Referenced by ReadLine().

Here is the call graph for this function:

Here is the caller graph for this function:

init_parser_reader_properties()

void init_parser_reader_properties

(

void

)

Definition at line 434 of file reader.c.

{
    parser_warn_for_columns_73_80 = 
        get_bool_property("PARSER_WARN_FOR_COLUMNS_73_80");
    init_comment_buffers();
}

References get_bool_property(), init_comment_buffers(), and parser_warn_for_columns_73_80.

Referenced by init_parser_properties().

Here is the call graph for this function:

Here is the caller graph for this function:

init_stmt_buffer()

static void init_stmt_buffer ( void  )

static

if needed

Definition at line 222 of file reader.c.

{
    if (stmt_buffer_size!=0) return; /* if needed */
    pips_debug(9, "allocating stmt buffer\n");
    stmt_buffer_size = INITIAL_BUFFER_SIZE;
    stmt_buffer = (int*) malloc(sizeof(int)*stmt_buffer_size);
    pips_assert("malloc ok", stmt_buffer);
}

References INITIAL_BUFFER_SIZE, malloc(), pips_assert, pips_debug, stmt_buffer, and stmt_buffer_size.

Referenced by ReadStmt().

Here is the call graph for this function:

Here is the caller graph for this function:

IsCapKeyword()

int IsCapKeyword

(

char *

s

)

Fonction appelee par sslex sur la reduction de la regle de reconnaissance des mot clefs.

Elle recherche si le mot 's' est un mot clef, retourne sa valeur si oui, et indique une erreur si non.

la chaine s est mise en majuscules

just to avoid a gcc warning

OTREACHED

Definition at line 515 of file reader.c.

{
    register int i, c;
    char *kwcour, *t;
    char buffer[32];
 
    debug(9, "IsCapKeyword", "%s\n", s);
    
    pips_assert("not too long keyword", strlen(s)<32);
 
    /* la chaine s est mise en majuscules */
    t = buffer;
    while ( (c = *s++) ) {
        if (islower(c))
            c = toupper(c);
        *t++ = c;
    }
    *t = '\0';
 
    i = keywidx[(int) buffer[0]-'A'];
 
    if (i != UNDEF) {
        while ((kwcour = keywtbl[i].keywstr)!=0 && kwcour[0]==buffer[0]) {
            if (strcmp(buffer, kwcour) == 0) {
                debug(9, "IsCapKeyword", "%s %d\n", kwcour, i);
                return(keywtbl[i].keywval);
            }
 
            i += 1;
        }
    }
 
    user_warning("IsCapKeyword", "[scanner] keyword expected near %s\n",
                 buffer);
    ParserError("IsCapKeyword", "Missing keyword.\n");
    
    return(-1); /* just to avoid a gcc warning */
    /*NOTREACHED*/
}

References buffer, debug(), int, keywidx, keywtbl, ParserError(), pips_assert, UNDEF, and user_warning.

Here is the call graph for this function:

NeedKeyword()

int NeedKeyword

(

void

)

just to avoid a gcc warning

OTREACHED

Definition at line 1329 of file reader.c.

{
    register int i, j;
    char * kwcour;
 
    i = keywidx[(int) stmt_buffer[iStmt]-'A'];
 
    if (i != UNDEF) {
        while ((kwcour = keywtbl[i].keywstr)!=0 && 
               kwcour[0]==stmt_buffer[iStmt]) {
            if (StmtEqualString(kwcour, iStmt) != false) {
                j = CapitalizeStmt(kwcour, iStmt);
                return(j);
            }
            i += 1;
        }
    }
 
    ParserError("NeedKeyword", "[scanner] keyword expected\n");
 
    return(-1); /* just to avoid a gcc warning */
                  
    /*NOTREACHED*/
}

References CapitalizeStmt(), int, iStmt, keywidx, keywtbl, ParserError(), stmt_buffer, StmtEqualString(), and UNDEF.

Referenced by FindAutre(), and FindImplicit().

Here is the call graph for this function:

Here is the caller graph for this function:

parser_reset_all_reader_buffers()

void parser_reset_all_reader_buffers

(

void

)

Definition at line 313 of file reader.c.

{
    iLine = 0, lLine = 0;
    iStmt = 0, lStmt = 0;
    iCurrComm = 0;
    iComm = 0;
    iPrevComm = 0;
    i_getchar = UNDEF, l_getchar = UNDEF;
    EofSeen = false;
}

References EofSeen, i_getchar, iComm, iCurrComm, iLine, iPrevComm, iStmt, l_getchar, lLine, lStmt, and UNDEF.

Referenced by ParserError().

Here is the caller graph for this function:

PipsGetc()

int PipsGetc

(

FILE *

fp

)

Routine de lecture pour l'analyseur lexical, lex ou flex.

Parameters

fp

p

Definition at line 557 of file reader.c.

{
    int eof = false;
    int c;
 
    if (iStmt == SIZE_UNDEF || iStmt >= lStmt) {
        /*
         * le statement est vide. On lit et traite le suivant.
         */
        if (ReadStmt(fp) == EOF) {
            eof = true;
        }
        else {
            /*
             * verifie les parentheses et on recherche les '=' et
             * les ',' de profondeur zero.
             */
            CheckParenthesis();
 
            /*
             * on recherche les operateurs du genre .eq.
             */
            FindPoints();
 
            if (!FindDo()) {
                if (!FindImplicit()) {
                    if (!FindIfArith()) {
                        FindIf();
                                                
                        if (!FindAssign()) {
                            FindAutre();
                        }
                    }
                }
            }
 
            iStmt = 0;
        }
    }
 
    c = stmt_buffer[iStmt++];
    return((eof) ? EOF : UNQUOTE(c));
}

References CheckParenthesis(), FindAssign(), FindAutre(), FindDo(), FindIf(), FindIfArith(), FindImplicit(), FindPoints(), iStmt, lStmt, ReadStmt(), SIZE_UNDEF, stmt_buffer, and UNQUOTE.

Here is the call graph for this function:

ReadLine()

int ReadLine

(

FILE *

fp

)

All physical lines of a statement are put together in a unique buffer called "line_buffer".

Each character in each physical line is retrieved with GetChar().

on entre dans ReadLine avec Column = 1

Read all comment lines you can

Read label

Check continuation character

Keep track of the first and last comment lines and of the first and last statement lines. These two intervals may intersect.

Append current comment CurrComm to Comm if it is a continuation. Save Comm in PrevComm and CurrComm in Comm if it is a first statement line.

FI: this is all wrong

Why destroy comments because there are continuation lines?

tmp_b_C = tmp_e_C = UNDEF;

Read the rest of the line, skipping SPACEs but handling string constants

Parameters

fp

p

Definition at line 765 of file reader.c.

{
    static char QuoteChar = '\000';
    int TypeOfLine;
    int i, c;
    char label[6];
    int ilabel = 0;
 
    /* on entre dans ReadLine avec Column = 1 */
    pips_assert("ReadLine", Column == 1);
 
    init_line_buffer();
 
    /* Read all comment lines you can */
    while (strchr(START_COMMENT_LINE,(c = GetChar(fp))) != NULL) {
        if (tmp_b_C == UNDEF)
            tmp_b_C = (c=='\n')?LineNumber-1:LineNumber;
 
        ifdebug(8) {
            if(c=='\n')
                debug(8, "ReadLine",
                      "Empty comment line detected at line %d "
                      "for comment starting at line %d\n",
                      LineNumber-1, tmp_b_C);
        }
 
        while(c!=EOF) {
            if (iCurrComm >= CommSize-2)
                resize_comment_buffers();
            CurrComm[iCurrComm++] = c;
            if(c=='\n') break;
            c = GetChar(fp);
        }
    }
 
    CurrComm[iCurrComm] = '\0';
 
    pips_debug(7, "comment CurrComm: (%d) --%s--\n", iCurrComm, CurrComm);
 
    if (c != EOF) {
        /* Read label */
        for (i = 0; i < 5; i++) {
            if (c != ' ') {
                if (isdigit(c)) {
                    label[ilabel++] = c;
                }
                else {
                    pips_user_warning("Unexpected character '%c' (0x%x)\n", 
                                 c, (int) c);
                    ParserError("ReadLine",
                                "non numeric character in label!\n");
                }
            }
            c = GetChar(fp);
        }
 
        if (ilabel > 0) {
            label[ilabel] = '\0';
            strcpy(tmp_lab_I, label);
        }
        else
            strcpy(tmp_lab_I, "");
 
        /* Check continuation character */
        TypeOfLine = (c != ' ' && c!= '0') ? CONTINUATION_LINE : FIRST_LINE;
 
        /* Keep track of the first and last comment lines and of the first and
         * last statement lines. These two intervals may intersect.
         *
         * Append current comment CurrComm to Comm if it is a continuation. Save Comm
         * in PrevComm and CurrComm in Comm if it is a first statement line.
         */
        if (TypeOfLine == FIRST_LINE) {
            if(iComm!=0) {
                Comm[iComm] = '\0';
                (void) strcpy(PrevComm, Comm);
                Comm[0] = '\0';
            }
            else {
                PrevComm[0] = '\0';
            }
            iPrevComm = iComm;
 
            (void) strcpy(Comm, CurrComm);
            iComm = iCurrComm;
            iCurrComm = 0;
            CurrComm[0] = '\0';
 
            if (tmp_b_C != UNDEF)
                tmp_e_C = LineNumber - 1;
            tmp_b_I = LineNumber;
        }
        else if (TypeOfLine == CONTINUATION_LINE){
            if (iCurrComm+iComm >= CommSize-2)
                resize_comment_buffers();
            (void) strcat(Comm, CurrComm);
            iComm += iCurrComm;
            iCurrComm = 0;
            CurrComm[0] = '\0';
 
            /* FI: this is all wrong */
            /* Why destroy comments because there are continuation lines? */
            /* tmp_b_C = tmp_e_C = UNDEF; */
        }
 
        pips_debug(7, "comment Comm: (%d) --%s--\n", iComm, Comm);
        pips_debug(7, "comment PrevComm: (%d) --%s--\n", iPrevComm, PrevComm);
 
        /* Read the rest of the line, skipping SPACEs but handling string constants */
 
        while ((c = GetChar(fp)) != '\n') {
            if (c == '\'' || c == '"') {
                if (EtatQuotes == INQUOTES) {
                    if(c == QuoteChar)
                        EtatQuotes = INQUOTEQUOTE;
                    else {
                        if (EtatQuotes == INQUOTEQUOTE)
                            EtatQuotes = NONINQUOTES;
                    }
                }
                else if(EtatQuotes == INQUOTEBACKSLASH) 
                    EtatQuotes = INQUOTES;
                else {
                    EtatQuotes = INQUOTES;
                    QuoteChar = c;
                }
            }
            else {
                if (EtatQuotes == INQUOTEQUOTE)
                    EtatQuotes = NONINQUOTES;
                else if(EtatQuotes == INQUOTES && c == '\\')
                    EtatQuotes = INQUOTEBACKSLASH;
                else if(EtatQuotes == INQUOTEBACKSLASH)
                    EtatQuotes = INQUOTES;
            }
 
            if (lLine>line_buffer_size-5)
                resize_line_buffer();
 
            if (EtatQuotes == NONINQUOTES) {
                if (c != ' ') {
                    line_buffer[lLine++] = islower(c)? toupper(c) : c;
                }
            }
            else {
                line_buffer[lLine++] = QUOTE(c);
            }
                                
        }
 
        if (EtatQuotes == INQUOTEQUOTE)
            EtatQuotes = NONINQUOTES;
    }
    else {
        TypeOfLine = EOF_LINE;
        if (tmp_b_C != UNDEF)
            tmp_e_C = LineNumber - 1;
        tmp_b_I = LineNumber;
 
        if(iComm!=0) {
            Comm[iComm] = '\0';
            (void) strcpy(PrevComm, Comm);
            Comm[0] = '\0';
        }
        else {
            PrevComm[0] = '\0';
        }
        iPrevComm = iComm;
    }
 
    pips_debug(9, "Aggregation of continuation lines: '%s'\n", (char*)line_buffer);
 
    return(TypeOfLine);
}

References Column, Comm, CommSize, CONTINUATION_LINE, CurrComm, debug(), EOF_LINE, EtatQuotes, FIRST_LINE, GetChar(), iComm, iCurrComm, ifdebug, init_line_buffer(), INQUOTEBACKSLASH, INQUOTEQUOTE, INQUOTES, iPrevComm, line_buffer, line_buffer_size, LineNumber, lLine, NONINQUOTES, ParserError(), pips_assert, pips_debug, pips_user_warning, PrevComm, QUOTE, resize_comment_buffers(), resize_line_buffer(), START_COMMENT_LINE, tmp_b_C, tmp_b_I, tmp_e_C, tmp_lab_I, and UNDEF.

Referenced by ReadStmt().

Here is the call graph for this function:

Here is the caller graph for this function:

ReadStmt()

int ReadStmt

(

FILE *

fp

)

regroupement des lignes du statement en une unique ligne sans continuation

It would be nice to move the current comments from Comm to PrevComm, but it is just too late because of the repeat until control structure down: ReadLine() has already been called and read the first line of the next statement. Hence, CurrComm is needed.

Memorize the line number before to find next Statement

Update the current final lines for instruction and comments

Initialize temporary beginning and end line numbers

Parameters

fp

p

Definition at line 942 of file reader.c.

{
    int TypeOfLine;     
    int result;
 
    init_stmt_buffer();
 
    if (EofSeen == true) {
        /*
         * on a rencontre EOF, et on a deja purge le dernier
         * statement. On arrete.
         */
        EofSeen = false;
        result = EOF;
    }
    else {
        /*
         * on a deja lu la 1ere ligne sauf au moment de l'initialisation
         */
        if (lLine == UNDEF) {
            lLine = 0;
 
            tmp_b_I = tmp_e_I = UNDEF;
            tmp_b_C = tmp_e_C = UNDEF;
 
            if ((TypeOfLine = ReadLine(fp)) == CONTINUATION_LINE) {
                ParserError("ReadStmt",
                  "[scanner] incorrect continuation line as first line\n");
            }
            else if (TypeOfLine == FIRST_LINE) {
                /* It would be nice to move the current comments from
                 * Comm to PrevComm, but it is just too late because of
                 * the repeat until control structure down: ReadLine()
                 * has already been called and read the first line of
                 * the next statement. Hence, CurrComm is needed.
                 */
            }
            else if (TypeOfLine == EOF_LINE) {
                result = EOF;
            }
        }
 
        line_b_I = tmp_b_I;
        line_b_C = tmp_b_C;
        strcpy(lab_I, tmp_lab_I);
                
        lStmt = 0;
        /* Memorize the line number before to find next Statement*/
        StmtLineNumber = LineNumber;
        do {
            iLine = 0;
            while (iLine < lLine) {
                if (lStmt>stmt_buffer_size-20)
                    resize_stmt_buffer();
                stmt_buffer[lStmt++] = line_buffer[iLine++];
            }
            lLine = 0;
 
            /* Update the current final lines for instruction and comments */
            line_e_I = tmp_e_I;
            line_e_C = tmp_e_C;
 
            /* Initialize temporary beginning and end line numbers */
             tmp_b_I = tmp_e_I = UNDEF;
             tmp_b_C = tmp_e_C = UNDEF;
 
        } while ((TypeOfLine = ReadLine(fp)) == CONTINUATION_LINE) ;
 
        stmt_buffer[lStmt++] = '\n';
        iStmt = 0;
 
        line_e_I = (tmp_b_C == UNDEF) ? tmp_b_I-1 : tmp_b_C-1;
                
        if (TypeOfLine == EOF_LINE)
            EofSeen = true;
 
        result = 1;
 
        ifdebug(7) {
          size_t i;
          pips_debug(7, "stmt: (%td)\n", lStmt);
          for(i=0; i<lStmt; i++)
            putc((int) stmt_buffer[i], stderr);
        }
    }
 
    return(result);
}

References CONTINUATION_LINE, EOF_LINE, EofSeen, FIRST_LINE, ifdebug, iLine, init_stmt_buffer(), iStmt, lab_I, line_b_C, line_b_I, line_buffer, line_e_C, line_e_I, LineNumber, lLine, lStmt, ParserError(), pips_debug, ReadLine(), resize_stmt_buffer(), stmt_buffer, stmt_buffer_size, StmtLineNumber, tmp_b_C, tmp_b_I, tmp_e_C, tmp_e_I, tmp_lab_I, and UNDEF.

Referenced by PipsGetc().

Here is the call graph for this function:

Here is the caller graph for this function:

resize_comment_buffers()

static void resize_comment_buffers ( void  )

static

Definition at line 172 of file reader.c.

{
    pips_debug(9, "resizing comment buffers\n");
    pips_assert("comment buffer is initialized", CommSize>0);
    CommSize*=2;
    Comm = (char*) realloc(Comm, CommSize);
    PrevComm = (char*) realloc(PrevComm, CommSize);
    CurrComm = (char*) realloc(CurrComm, CommSize);
    pips_assert("realloc ok", Comm && PrevComm && CurrComm);
}

References Comm, CommSize, CurrComm, pips_assert, pips_debug, and PrevComm.

Referenced by ReadLine().

Here is the caller graph for this function:

resize_getchar_buffer()

static void resize_getchar_buffer ( void  )

static

Definition at line 200 of file reader.c.

{
    pips_debug(9, "resizing getchar buffer\n");
    pips_assert("buffer initialized", getchar_buffer_size>0);
    getchar_buffer_size*=2;
    getchar_buffer = (int*) realloc(getchar_buffer, 
                                    sizeof(int)*getchar_buffer_size);
    pips_assert("realloc ok", getchar_buffer);
}

References getchar_buffer, getchar_buffer_size, pips_assert, and pips_debug.

Referenced by GetChar().

Here is the caller graph for this function:

resize_line_buffer()

static void resize_line_buffer ( void  )

static

Definition at line 265 of file reader.c.

{
    pips_debug(9, "resizing line buffer\n");
    pips_assert("buffer initialized", line_buffer_size>0);
    line_buffer_size*=2;
    line_buffer = (int*) realloc(line_buffer, sizeof(int)*line_buffer_size);
    pips_assert("realloc ok", line_buffer);
}

References line_buffer, line_buffer_size, pips_assert, and pips_debug.

Referenced by ReadLine().

Here is the caller graph for this function:

resize_stmt_buffer()

static void resize_stmt_buffer ( void  )

static

Definition at line 232 of file reader.c.

{
    pips_debug(9, "resizing stmt buffer\n");
    pips_assert("buffer initialized", stmt_buffer_size>0);
    stmt_buffer_size*=2;
    stmt_buffer = (int*) realloc(stmt_buffer, sizeof(int)*stmt_buffer_size);
    pips_assert("realloc ok", stmt_buffer);
}

References pips_assert, pips_debug, stmt_buffer, and stmt_buffer_size.

Referenced by ReadStmt().

Here is the caller graph for this function:

ScanNewFile()

void ScanNewFile

(

void

)

La fonction a appeler pour l'analyse d'un nouveau fichier.

on initialise la table keywidx

on met a jour la table keywidx en fonction des keywords

premier keyword commencant par keywcour[0]

on initialise les variables externes locales et non locales

Definition at line 474 of file reader.c.

{
    register int i;
    static int FirstCall = true;
    char letcour, *keywcour;
 
 
    if (FirstCall) {
        FirstCall = false;
 
        /* on initialise la table keywidx */
        for (i = 0; i < 26; i += 1)
            keywidx[i] = UNDEF;
 
        /* on met a jour la table keywidx en fonction des keywords */
        letcour = ' ';
        i = 0;
        while ((keywcour = keywtbl[i].keywstr) != NULL) {
            if (keywcour[0] != letcour) {
                /* premier keyword commencant par keywcour[0] */
                keywidx[(int) keywcour[0]-'A'] = i;
                letcour = keywcour[0];
            }
            i += 1;
        }
    }
 
    /* on initialise les variables externes locales et non locales */
    LineNumber = 1;
    Column = 1;
    StmtLineNumber = 1;
    EtatQuotes = NONINQUOTES;
    iStmt = lStmt = SIZE_UNDEF;
    iLine = lLine = UNDEF;
}

References Column, EtatQuotes, iLine, int, iStmt, keywidx, keywtbl, LineNumber, lLine, lStmt, NONINQUOTES, SIZE_UNDEF, StmtLineNumber, and UNDEF.

Referenced by the_actual_parser().

Here is the caller graph for this function:

StmtEqualString()

int StmtEqualString	(	char *	s,
		int	i
	)

Definition at line 1290 of file reader.c.

{
    int result = false;
 
    if (strlen(s) <= lStmt-i) {
        while (*s)
            if (*s != stmt_buffer[i++])
                break;
            else
                s++;
 
        result = (*s) ? false : i;
    }
 
    return result;
}

References false, lStmt, and stmt_buffer.

Referenced by FindAssign(), FindAutre(), FindDo(), FindDoWhile(), FindIf(), FindIfArith(), FindImplicit(), FindPoints(), and NeedKeyword().

Here is the caller graph for this function:

syn_wrap()

int syn_wrap

(

void

)

Definition at line 466 of file reader.c.

{
        return(1);
}

Variable Documentation

Column

LOCAL int Column

Definition at line 365 of file reader.c.

Referenced by GetChar(), ReadLine(), and ScanNewFile().

Comm

char* Comm = NULL

reader.c

Definition at line 152 of file reader.c.

Referenced by init_comment_buffers(), ReadLine(), and resize_comment_buffers().

CommSize

int CommSize = 0

static

Definition at line 154 of file reader.c.

Referenced by init_comment_buffers(), ReadLine(), and resize_comment_buffers().

CurrComm

char * CurrComm

Definition at line 152 of file reader.c.

Referenced by init_comment_buffers(), ReadLine(), and resize_comment_buffers().

EofSeen

int EofSeen = false

static

Definition at line 155 of file reader.c.

Referenced by parser_reset_all_reader_buffers(), and ReadStmt().

EtatQuotes

int EtatQuotes

static

Definition at line 356 of file reader.c.

Referenced by ReadLine(), and ScanNewFile().

getchar_buffer

int* getchar_buffer = NULL

static

Definition at line 186 of file reader.c.

Referenced by GetChar(), init_getchar_buffer(), and resize_getchar_buffer().

getchar_buffer_size

int getchar_buffer_size = 0

static

Definition at line 187 of file reader.c.

Referenced by GetChar(), init_getchar_buffer(), and resize_getchar_buffer().

i_getchar

int i_getchar = UNDEF

static

Definition at line 211 of file reader.c.

Referenced by GetChar(), and parser_reset_all_reader_buffers().

iComm

int iComm = 0

Definition at line 153 of file reader.c.

Referenced by parser_reset_all_reader_buffers(), and ReadLine().

iCurrComm

int iCurrComm = 0

Definition at line 153 of file reader.c.

Referenced by parser_reset_all_reader_buffers(), and ReadLine().

iLine

int iLine = 0

static

Definition at line 274 of file reader.c.

Referenced by parser_reset_all_reader_buffers(), ReadStmt(), and ScanNewFile().

iPrevComm

int iPrevComm = 0

Definition at line 153 of file reader.c.

Referenced by LinkInstToCurrentBlock(), MakeDataStatement(), MakeElseInst(), MakeEndifInst(), parser_reset_all_reader_buffers(), and ReadLine().

iStmt

size_t iStmt = 0

static

indexes in the buffer...

Definition at line 243 of file reader.c.

Referenced by FindAssign(), FindAutre(), FindDo(), FindDoWhile(), FindIf(), FindIfArith(), FindImplicit(), FindPoints(), FindProfZero(), NeedKeyword(), parser_reset_all_reader_buffers(), PipsGetc(), ReadStmt(), and ScanNewFile().

keywidx

int keywidx[26]

static

Une table pour accelerer les recherche des keywords.

keywidx[X] indique le rang dans keywtbl du premier mot clef commencant par X.

Definition at line 418 of file reader.c.

Referenced by IsCapKeyword(), NeedKeyword(), and ScanNewFile().

l_getchar

int l_getchar = UNDEF

static

Definition at line 211 of file reader.c.

Referenced by GetChar(), and parser_reset_all_reader_buffers().

lab_I

char lab_I[]

extern

Definition at line 69 of file parser.c.

Referenced by ReadStmt().

line_b_C

int line_b_C

Definition at line 452 of file reader.c.

Referenced by ReadStmt().

line_b_I

int line_b_I

extern

Indicates where the current instruction (in fact statement) starts and ends in the input file and gives its label.

---

Temporary versions of these variables are used because of the pipeline existing between the reader and the actual parser. The names of the temporary variables are prefixed with "tmp_". The default and reset values of these variables and their temporary versions (declared in reader.c) must be consistent.

Definition at line 68 of file parser.c.

Referenced by dump_current_statement(), and ReadStmt().

line_buffer

int* line_buffer = NULL

static

le buffer contenant la ligne que l'on doit lire en avance pour se rendre compte qu'on a finit de lire un statement, l'indice courant et la longueur.

Definition at line 251 of file reader.c.

Referenced by init_line_buffer(), ReadLine(), ReadStmt(), resize_line_buffer(), text_pointer_value(), text_pointer_values(), text_points_to_relation(), text_points_to_relations(), and text_region_no_action().

line_buffer_size

int line_buffer_size = 0

static

Definition at line 252 of file reader.c.

Referenced by init_line_buffer(), ReadLine(), and resize_line_buffer().

line_e_C

int line_e_C

Definition at line 452 of file reader.c.

Referenced by ReadStmt().

line_e_I

int line_e_I

Definition at line 452 of file reader.c.

Referenced by dump_current_statement(), and ReadStmt().

LineNumber

LOCAL int LineNumber

Definition at line 365 of file reader.c.

Referenced by GetChar(), ReadLine(), ReadStmt(), and ScanNewFile().

lLine

int lLine = 0

static

Definition at line 274 of file reader.c.

Referenced by parser_reset_all_reader_buffers(), ReadLine(), ReadStmt(), and ScanNewFile().

lStmt

size_t lStmt = 0

static

Definition at line 243 of file reader.c.

Referenced by append_data_current_stmt_buffer_to_declarations(), CapitalizeStmt(), CheckParenthesis(), FindAssign(), FindImplicit(), FindMatchingPar(), FindPoints(), FindProfZero(), parser_reset_all_reader_buffers(), PipsGetc(), ReadStmt(), ScanNewFile(), and StmtEqualString().

OperateurPoints

char* OperateurPoints[]

static

Initial value:

= {
                ".NOT.",
                ".AND.",
                ".OR.",
                ".EQV.",
                ".NEQV.",
                ".LT.",
                ".LE.",
                ".EQ.",
                ".NE.",
                ".GT.",
                ".GE.",
                ".TRUE.",
                ".FALSE.",
                ".INOUT.",
                ".IN.",
                ".OUT.",
                NULL
}

La table des operateurs du type '.XX.

'.

Definition at line 381 of file reader.c.

Referenced by FindPoints().

parser_warn_for_columns_73_80

bool parser_warn_for_columns_73_80 = true

static

memoization des properties

Definition at line 431 of file reader.c.

Referenced by GetChar(), and init_parser_reader_properties().

PrevComm

char * PrevComm = NULL

Definition at line 152 of file reader.c.

Referenced by init_comment_buffers(), LinkInstToCurrentBlock(), MakeDataStatement(), ReadLine(), and resize_comment_buffers().

ProfZeroEgal

LOCAL int ProfZeroEgal

Definition at line 377 of file reader.c.

Referenced by CheckParenthesis(), FindAssign(), FindAutre(), FindDo(), FindDoWhile(), and FindImplicit().

ProfZeroVirg

LOCAL int ProfZeroVirg

Definition at line 377 of file reader.c.

Referenced by CheckParenthesis(), and FindDo().

stmt_buffer

int* stmt_buffer = NULL

static

le buffer contenant le statement courant, l'indice courant et la longueur.

Definition at line 218 of file reader.c.

Referenced by append_data_current_stmt_buffer_to_declarations(), CapitalizeStmt(), CheckParenthesis(), FindAssign(), FindAutre(), FindDo(), FindIf(), FindIfArith(), FindMatchingPar(), FindPoints(), FindProfZero(), init_stmt_buffer(), NeedKeyword(), PipsGetc(), ReadStmt(), resize_stmt_buffer(), and StmtEqualString().

stmt_buffer_size

size_t stmt_buffer_size = 0

static

Definition at line 219 of file reader.c.

Referenced by init_stmt_buffer(), ReadStmt(), and resize_stmt_buffer().

StmtLineNumber

LOCAL int StmtLineNumber

Definition at line 371 of file reader.c.

Referenced by get_statement_number(), ReadStmt(), and ScanNewFile().

tmp_b_C

int tmp_b_C

static

Definition at line 424 of file reader.c.

Referenced by ReadLine(), and ReadStmt().

tmp_b_I

int tmp_b_I

static

Variables qui serviront a mettre a jour les numeros de la premiere et de la derniere ligne de commentaire, et les numeros de la premiere et de la derniere ligne du statement.

Definition at line 424 of file reader.c.

Referenced by ReadLine(), and ReadStmt().

tmp_e_C

int tmp_e_C

static

Definition at line 424 of file reader.c.

Referenced by ReadLine(), and ReadStmt().

tmp_e_I

int tmp_e_I

static

Definition at line 424 of file reader.c.

Referenced by ReadStmt().

tmp_lab_I

char tmp_lab_I[6]

static

Definition at line 425 of file reader.c.

Referenced by ReadLine(), and ReadStmt().