31 #include "pips_config.h"
39 #include <sys/types.h>
50 #include "resources.h"
80 mkdir( program_dirname, S_IRWXU );
81 free( program_dirname );
87 fd = (FILE *)
safe_fopen( (
char *) entities_filename,
"w" );
119 "-I",compiled_dir_name,
140 pid_t child_pid = fork( );
145 if ( child_pid == -1 ) {
149 }
else if ( child_pid == 0 ) {
158 fprintf( stderr,
"execvp : " );
160 fprintf( stderr,
" %s", *arg );
168 " Fortran95 support ?\n");
174 if ( waitpid( child_pid, &statut, 0 ) == -1 ) {
177 return "Erreur in wait pid";
183 fprintf(stderr,
"error code %d\n",statut);
184 return "gfc2pips return an error";
char * f95split(char *dir_name, char *file_name, FILE **out)
f95split_file.c
FILE * safe_fopen(const char *filename, const char *what)
int safe_fclose(FILE *stream, const char *filename)
int gen_write_tabulated(FILE *fd, int domain)
GEN_WRITE_TABULATED writes the tabulated object TABLE on FD.
int gen_read_tabulated(FILE *file, int create_p)
GEN_READ_TABULATED reads FILE to update the Gen_tabulated_ table.
list gfc2pips_args(gfc_namespace *ns)
Retrieve the list of names of every argument of the function, if any.
#define EXIT_SUCCESS
NetBSD 5.0 mis-defines NULL.
string get_resource_file_name(const char *rname, const char *oname)
allocate a full file name for the given resource.
#define pips_debug
these macros use the GNU extensions that allow variadic macros, including with an empty list.
#define entity_domain
newgen_syntax_domain_defined
int fprintf()
test sc_min : ce test s'appelle par : programme fichier1.data fichier2.data ...