1 // Copyright (c) 2018-2019, NVIDIA CORPORATION. All rights reserved. 2 // 3 // Licensed under the Apache License, Version 2.0 (the "License"); 4 // you may not use this file except in compliance with the License. 5 // You may obtain a copy of the License at 6 // 7 // http://www.apache.org/licenses/LICENSE-2.0 8 // 9 // Unless required by applicable law or agreed to in writing, software 10 // distributed under the License is distributed on an "AS IS" BASIS, 11 // WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 12 // See the License for the specific language governing permissions and 13 // limitations under the License. 14 15 #ifndef FORTRAN_PARSER_UNPARSE_H_ 16 #define FORTRAN_PARSER_UNPARSE_H_ 17 18 #include "char-block.h" 19 #include "characters.h" 20 #include <functional> 21 #include <iosfwd> 22 23 namespace Fortran::evaluate { 24 struct GenericExprWrapper; 25 } 26 27 namespace Fortran::parser { 28 29 struct Program; 30 31 // A function called before each Statement is unparsed. 32 using preStatementType = 33 std::function<void(const CharBlock &, std::ostream &, int)>; 34 35 // A function to handle unparsing of evaluate::GenericExprWrapper 36 // rather than original expression parse trees. 37 using TypedExprAsFortran = 38 std::function<void(std::ostream &, const evaluate::GenericExprWrapper &)>; 39 40 // Converts parsed program to out as Fortran. 41 void Unparse(std::ostream &out, const Program &program, 42 Encoding encoding = Encoding::UTF_8, bool capitalizeKeywords = true, 43 bool backslashEscapes = true, preStatementType *preStatement = nullptr, 44 TypedExprAsFortran *expr = nullptr); 45 } 46 47 #endif 48