|
OpenADFortTk (basic)
|
00001 // -*-Mode: C++;-*- 00002 // $Header: /m_home/m_utkej/Argonne/cvs2svn/cvs/OpenADFortTk/src/whirl2sexp/whirl2sexp.h,v 1.5 2007-10-08 18:28:34 utke Exp $ 00003 #ifndef whirl2sexp_h 00004 #define whirl2sexp_h 00005 #include <fstream> 00006 00007 #include "Open64IRInterface/Open64BasicTypes.h" 00008 #include "sexpostream.h" 00009 00010 namespace whirl2sexp { 00011 00012 namespace XlateFlags { 00013 enum Flags { 00014 NONE = 0x00000000, // 00015 00016 FOO1 = 0x00000001, // 00017 FOO2 = 0x00000002, // 00018 FOO3 = 0x00000004, // 00019 FOO4 = 0x00000008 // 00020 }; 00021 } 00022 00023 00024 // Translate the PU forest (should already be in memory) 00025 extern void 00026 TranslateIR(std::ostream& os, PU_Info* pu_forest, int flags = 0); 00027 00028 // Translate PU and any contained PUs (should already be in memory) 00029 extern void 00030 TranslatePUTree(std::ostream& os, PU_Info* pu_tree, int flags = 0); 00031 00032 // Translate only the current PU (should already be in memory) 00033 extern void 00034 TranslatePU(std::ostream& os, PU_Info* pu, int flags = 0); 00035 00036 // Translate the current WHIRL tree (should already be in memory) 00037 extern void 00038 TranslateWN(std::ostream& os, WN* wn, int flags = 0); 00039 00040 // Shortcuts to the above functions, that dump to std::cout 00041 extern void DumpIR(PU_Info* pu_forest, int flags); 00042 extern void DumpPUTree(PU_Info* pu_tree, int flags); 00043 extern void DumpPU(PU_Info* pu, int flags); 00044 extern void DumpWN(WN* wn, int flags); 00045 00046 }; /* namespace whirl2sexp */ 00047 00048 //*************************************************************************** 00049 00050 #endif /* whirl2sexp_h */