25 #include "pips_config.h"
164 return c !=
'\0' && c !=
' ' && c !=
'\t';
174 if(sl>0 && *ntl==
'\n') {
191 while(sl>0 && *ntl==
'\n') {
212 while(l>=0 && *(s+l)==
'\n') {
231 while(l>=1 && *(s+l)==
'\n' && *(s+l-1)==
'\n') {
static reference ref
Current stmt (an integer)
const char * module_name(const char *s)
Return the module part of an entity name.
string string_entitiesfilename(const char *s)
string string_predicat_fortranfilename(const char *s)
string string_fortranfilename(const char *s)
string string_pp_fortranfilename(const char *s)
string string_par_codefilename(const char *s)
string string_par_fortranfilename(const char *s)
string string_codefilename(const char *s)
Naming of files in the PIPS database.
static void comment(string_buffer code, spoc_hardware_type hw, dagvtx v, int stage, int side, bool flip)
#define gen_chunk_undefined_p(c)
#define NIL
The empty list (nil in Lisp)
#define CAR(pcons)
Get the value of the first element of a list.
#define CDR(pcons)
Get the list less its first element.
#define pips_debug
these macros use the GNU extensions that allow variadic macros, including with an empty list.
#define pips_assert(what, predicate)
common macros, two flavors depending on NDEBUG
#define pips_internal_error
#define MODULE_SEP_STRING
string concatenate(const char *,...)
Return the concatenation of the given strings.
void * gen_find_tabulated(const char *, int)
int f(int off1, int off2, int n, float r[n], float a[n], float b[n])
const char * entity_local_name(entity e)
entity_local_name modified so that it does not core when used in vect_fprint, since someone thought t...
bool entity_module_p(entity e)
const char * label_local_name(entity e)
END_EOLE.
string module_par_codefilename(entity e)
string module_par_fortranfilename(entity e)
bool ith_parameter_p(entity f, entity v, int i)
returns true if v is the ith formal parameter of function f
string string_remove_trailing_line_feed(string s)
Remove trailing line feed if any.
string string_fuse_final_linefeeds(string s)
Get rid of extra linefeed/newline at the end of a string.
string string_strip_final_linefeeds(string s)
Get rid of linefeed/newline at the end of a string.
string module_fortranfilename(entity e)
string string_remove_trailing_line_feeds(string s)
Remove trailing line feeds.
bool comment_string_p(const string comment)
Test if a string can be a Fortran 77 comment:
string module_predicat_fortranfilename(entity e)
expression reference_ith_index(reference ref, int i)
functions for references
string module_codefilename(entity e)
To find resources (this should be located in workspace-util as it depends both on pipsdbm and ri-util...
string module_entitiesfilename(entity e)
entity find_ith_parameter(entity e, int i)
entity find_label_entity(const char *module_name, const char *label_local_name)
Pot-pourri of utilities for the internal representation.
string module_pp_fortranfilename(entity e)
#define value_undefined_p(x)
#define storage_formal_p(x)
#define entity_storage(x)
#define code_declarations(x)
#define storage_formal(x)
#define EXPRESSION(x)
EXPRESSION.
#define formal_function(x)
#define reference_indices(x)
#define value_reference_p(x)
#define type_variable_p(x)
#define entity_domain
newgen_syntax_domain_defined
#define entity_initial(x)
The structure used to build lists in NewGen.