main.cxx

Go to the documentation of this file.

// -*-Mode: C++;-*-
// $Header: /Volumes/cvsrep/developer/OpenADFortTk/src/sexp2whirl/main.cxx,v 1.4 2005/01/12 20:01:01 eraxxon Exp $

#include <fcntl.h> // for use in ReadWhirlSexp()
#include <errno.h> // for use in ReadWhirlSexp()

#include <sexp.h>

#include "Open64IRInterface/Open64BasicTypes.h"
#include "cmplrs/rcodes.h" // return codes
#include "tracing.h" // trace routines
#include "ir_reader.h" // fdump_tree
#include "Open64IRInterface/WhirlIO.h"
#include "Open64IRInterface/IFDiagnostics.h"

#include "Diagnostics.h"
#include "Exception.h"

#include "Args.h"
#include "sexp2whirl.h"

static int real_main(int argc, char **argv);

static sexp_t* ReadWhirlSexp(const char* filename);


int
main(int argc, char **argv)
{
 try {
 return real_main(argc, argv);
 }
 catch (CmdLineParser::Exception& e) {
 e.Report(cerr); // fatal error
 exit(1);
 }
 catch (fortTkSupport::BaseException& e) {
 e.Report(cerr);
 exit(1);
 }
 catch (...) {
 cerr << "Unknown exception caught\n";
 exit(1);
 }
 // FIXME: catch badalloc?
}

static int
real_main(int argc, char **argv)
{
 // -------------------------------------------------------
 // 1. Open64 Initialization
 // -------------------------------------------------------
 Handle_Signals();
 MEM_Initialize();
 Init_Error_Handler( 100 );
 Set_Error_Line( ERROR_LINE_UNKNOWN );
 Set_Error_File( NULL );
 Set_Error_Phase("sexp2whirl");
 IR_set_dump_order(TRUE /*pre*/); // pre-order trees when debugging, please!
 
#ifdef Is_True_On
 if (Get_Trace(TKIND_ALLOC, TP_MISC)) {
 MEM_Tracing_Enable();
 }
#endif
 
 Preconfigure(); // from config.cxx...
 Configure(); // needed for WN_lower!
 Configure_Source(NULL); // Most config variables set here

 Init_Operator_To_Opcode_Table(); // FIXME
 
 // -------------------------------------------------------
 // 2. Local initialization (options, etc.)
 // -------------------------------------------------------
 Diag_Init();
 Diag_Set_Max_Diags(100); // Maximum 100 warnings by default
 Diag_Set_Phase("WHIRL to sexp: driver");
 
 Args args(argc, argv);
 fortTkSupport::Diagnostics::setDiagnosticFilterLevel(args.debug);
 
 // -------------------------------------------------------
 // 3. Read S-expressions and Translate into WHIRL
 // -------------------------------------------------------
 
 sexp_t* ir_sexp = ReadWhirlSexp(args.sexpFileNm.c_str());

 PU_Info* ir_whirl = sexp2whirl::TranslateIR(ir_sexp);
 //sexp2whirl::DumpIR(ir_sexp, sexp2whirl::XlateFlags::NONE);
 
 WriteIR(args.whirlFileNm.c_str(), ir_whirl);
 
 destroy_sexp(ir_sexp);
 sexp_cleanup();

 // -------------------------------------------------------
 // 4. Finalization
 // -------------------------------------------------------
 
 // If we've seen errors, note them and terminate
 INT local_ecount, local_wcount;
 if ( Get_Error_Count ( &local_ecount, &local_wcount ) ) {
 Terminate(Had_Internal_Error() ? RC_INTERNAL_ERROR : 
 RC_NORECOVER_USER_ERROR);
 }

 Diag_Exit();
 Cleanup_Files(TRUE, FALSE); // Open64
 
 return RC_OKAY;
}


//***************************************************************************
// 
//***************************************************************************

static sexp_t*
ReadWhirlSexp(const char* filename)
{
 // see readtests.c (FIXME)
 int fd = open(filename, O_RDONLY);
 if (fd < 0) {
 FORTTK_DIE("Error opening " << filename << ": " << strerror(errno));
 }

 sexp_iowrap_t* iow = init_iowrap(fd);
 sexp_t* sexp = read_one_sexp(iow);
 return sexp;
}