Alexander_KS/SAPFOR
4
2
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added method for unparsing an expression in Fortran or C

Browse Source
This commit is contained in:
ALEXks
2024-04-09 10:36:46 +03:00
parent aa0a464ead
commit 82de4d6f03
7 changed files with 40 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
dvm/fdvm/trunk/Sage/lib/include/ext_low.h
View File

@@ -263,6 +263,7 @@ extern void updateTypeAndSymbolInStmts();
extern void updateTypesAndSymbolsInBodyOfRoutine();
extern PTR_SYMB duplicateSymbolOfRoutine();
extern char* UnparseBif_Char();
char *UnparseLLnode_Char();
extern void UnparseProgram_ThroughAllocBuffer();

3
dvm/fdvm/trunk/Sage/lib/include/extcxx_low.h
View File

@@ -266,6 +266,7 @@ extern "C" {
void updateTypeAndSymbolInStmts(...);
void updateTypesAndSymbolsInBodyOfRoutine(...);
char* UnparseBif_Char(...);
char *UnparseLLND_Char(...);
char *UnparseLLND_Char(...);
char *UnparseLLnode_Char(...);
void UnparseProgram_ThroughAllocBuffer(...);
}

6
dvm/fdvm/trunk/Sage/lib/include/libSage++.h
View File

@@ -382,6 +382,7 @@ public:
inline SgExpression &copy();
inline SgExpression *copyPtr();
char *unparse();
inline char *unparse(int lang); //0 - Fortran, 1 - C
std::string sunparse();
inline void unparsestdout();
inline SgExpression *IsSymbolInExpression(SgSymbol &symbol);
@@ -3819,6 +3820,11 @@ inline char* SgExpression::unparse()
{
return UnparseLLND_Char(thellnd);
}
// podd 08.04.24
inline char* SgExpression::unparse(int lang) //0 - Fortran, 1 - C
{
return UnparseLLnode_Char(thellnd,lang);
}
inline void SgExpression::unparsestdout()
{