PIPS
|
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include <errno.h>
#include <sys/types.h>
#include <sys/wait.h>
#include <sys/stat.h>
#include <fcntl.h>
#include "genC.h"
#include "linear.h"
#include "ri.h"
#include "ri-util.h"
#include "parser_private.h"
#include "resources.h"
#include "database.h"
#include "misc.h"
#include "pipsdbm.h"
Go to the source code of this file.
Functions | |
char * | f95split (char *dir_name, char *file_name, FILE **out) |
f95split_file.c More... | |
char* f95split | ( | char * | dir_name, |
char * | file_name, | ||
FILE ** | out | ||
) |
printf(stderr, "\n-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+\n" "+ Starting gfc parser in PIPS. -\n" "-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+\n" );
string source_filename = strdup( concatenate( dir, "/", db_get_file_resource( DBR_SOURCE_FILE, module, true ), NULL ) );
dump_parse_tree is the gfc pass that have been hacked to call the gfc2pips stuff
we may have non-standard file extensions (e.g. .f_initial) and gfortran will not be able to know what it is so we force the language input
I don't know what the following stuff is ...
-fcray-pointer",
This debug_off() occurs too late since pipsdbm has been called before. Initially, the parser was designed to parse more than one subroutine/function/program at a time.
dir_name | ir_name |
file_name | ile_name |
out | ut |
Definition at line 56 of file f95split_file.c.
References debug_off, debug_on, entity_domain, exit, EXIT_SUCCESS, file_name, fprintf(), free(), gen_read_tabulated(), gen_write_tabulated(), get_resource_file_name(), gfc2pips_args(), ifdebug, out, pips_debug, pips_user_error, safe_fclose(), and safe_fopen().
Referenced by pips_split_file().