25 #include "pips_config.h"
42 #include "resources.h"
83 pips_assert(
"Label name is at most 5 characters long", strlen(ln)<=5);
185 user_error(
f,
"Parser error between lines %d and %d\n%s\n",
210 static bool called =
false;
bool db_resource_p(const char *rname, const char *oname)
true if exists and in loaded or stored state.
entity DynamicArea
These global variables are declared in ri-util/util.c.
void CleanLocalEntities(entity function)
Fortran version.
void reset_common_size_map_on_error()
void ResetChains()
undefine chains between two successives calls to parser
FILE * safe_fopen(const char *filename, const char *what)
int safe_fclose(FILE *stream, const char *filename)
entity get_current_module_entity(void)
Get the entity of the current module.
#define NIL
The empty list (nil in Lisp)
void parser_init_macros_support(void)
next available chunk
#define pips_assert(what, predicate)
common macros, two flavors depending on NDEBUG
#define pips_internal_error
#define user_error(fn,...)
#define TOP_LEVEL_MODULE_NAME
Module containing the global variables in Fortran and C.
string concatenate(const char *,...)
Return the concatenation of the given strings.
#define same_string_p(s1, s2)
int f(int off1, int off2, int n, float r[n], float a[n], float b[n])
#define db_get_file_resource
string db_get_current_workspace_directory(void)
void parser_reset_all_reader_buffers(void)
void ScanNewFile(void)
La fonction a appeler pour l'analyse d'un nouveau fichier.
void init_parser_reader_properties()
void error_reset_current_module_entity(void)
To be called by an error management routine only.
#define code_declarations(x)
#define code_decls_text(x)
#define entity_initial(x)
The structure used to build lists in NewGen.
FILE * syn_in
lex yacc interface
void set_current_label_string(string ln)
char * CurrentFN
Pre-parser for Fortran syntax idiosyncrasy.
static void reset_parser_recursive_call()
Safety for recursive calls of parser required to process entries.
cons * FormalParameters
the current function
bool InParserError
Parser error handling.
static bool the_actual_parser(string module, string dbr_file)
parse "module.dbr_file"
static void set_parser_recursive_call()
int line_b_I
Indicates where the current instruction (in fact statement) starts and ends in the input file and giv...
void BeginingOfParsing()
this function is called for each new file (FI: once?) FI: I do not understand how this works.
string get_current_label_string()
bool empty_current_label_string_p()
char FormatValue[FORMATLENGTH]
a string that will contain the value of the format in case of format statement
bool ParserError(const char *f, const char *m)
void init_parser_properties(void)
bool hpfc_parser(const string module)
parser for HPFC.
void reset_current_label_string()
static bool parser_recursive_call
const char * CurrentPackage
the name of the current package, i.e.
bool parser(const string module)
void soft_reset_alternate_returns()
ParserError() cannot guess if it has been performed or not, because it is reinitialized before and af...
void SubstituteAlternateReturns(const char *option)
return.c
void uses_alternate_return(bool use)
void ResetReturnCodeVariable()
void parser_reset_StmtHeap_buffer(void)
statement.c