Lines Matching refs:Put
59 void Unparse(const std::string &x) { Put(x); } in Unparse()
60 void Unparse(int x) { Put(std::to_string(x)); } in Unparse()
61 void Unparse(unsigned int x) { Put(std::to_string(x)); } in Unparse()
62 void Unparse(long x) { Put(std::to_string(x)); } in Unparse()
63 void Unparse(unsigned long x) { Put(std::to_string(x)); } in Unparse()
64 void Unparse(long long x) { Put(std::to_string(x)); } in Unparse()
65 void Unparse(unsigned long long x) { Put(std::to_string(x)); } in Unparse()
66 void Unparse(char x) { Put(x); } in Unparse()
75 template <typename T> void Post(const Statement<T> &) { Put('\n'); } in Post()
86 Put(x.ToString()); in Unparse()
91 Put("**"); in Unparse()
94 Put('*'); in Unparse()
97 Put('/'); in Unparse()
100 Put('+'); in Unparse()
103 Put('-'); in Unparse()
106 Put("//"); in Unparse()
109 Put('<'); in Unparse()
112 Put("<="); in Unparse()
115 Put("=="); in Unparse()
118 Put("/="); in Unparse()
121 Put(">="); in Unparse()
124 Put('>'); in Unparse()
127 Put('.'), Word(DefinedOperator::EnumToString(x)), Put('.'); in Unparse()
130 void Post(const Star &) { Put('*'); } // R701 &c. in Post()
131 void Post(const TypeParamValue::Deferred &) { Put(':'); } // R701 in Post()
133 Word("TYPE("), Walk(x.derived), Put(')'); in Unparse()
136 Word("CLASS("), Walk(x.derived), Put(')'); in Unparse()
141 Word("RECORD/"), Walk(x.v), Put('/'); in Unparse()
162 Put('('), Word("KIND="), Walk(y), Put(')'); in Unparse()
164 [&](const KindSelector::StarSize &y) { Put('*'), Walk(y.v); }, in Unparse()
169 Put(std::get<CharBlock>(x.t).ToString()); in Unparse()
173 Put(std::get<CharBlock>(x.t).ToString()); in Unparse()
177 Put(x == Sign::Negative ? '-' : '+'); in Unparse()
180 Put(x.real.source.ToString()), Walk("_", x.kind); in Unparse()
183 Put('('), Walk(x.t, ","), Put(')'); in Unparse()
186 Put('('), Word("KIND="), Walk(x.kind); in Unparse()
187 Walk(", LEN=", x.length), Put(')'); in Unparse()
192 Put('('), Word("LEN="), Walk(y), Put(')'); in Unparse()
194 [&](const CharLength &y) { Put('*'), Walk(y); }, in Unparse()
201 [&](const TypeParamValue &y) { Put('('), Walk(y), Put(')'); }, in Unparse()
209 Walk(*k), Put('_'); in Unparse()
216 Put('H'); in Unparse()
220 Put(encoded.buffer[j]); in Unparse()
225 Put(std::get<bool>(x.t) ? ".TRUE." : ".FALSE."); in Unparse()
230 Put(" :: "), Walk(std::get<Name>(x.t)); in Unparse()
239 Word("EXTENDS("), Walk(x.v), Put(')'); in Unparse()
249 Put(", "), Walk(std::get<common::TypeParamAttr>(x.t)); in Unparse()
250 Put(" :: "), Walk(std::get<std::list<TypeParamDecl>>(x.t), ", "); in Unparse()
272 Put(" ::"); in Unparse()
274 Put(' '), Walk(decls, ", "); in Unparse()
291 [&](const CoarraySpec &) { Put(']'); }, in Post()
292 [&](const ComponentArraySpec &) { Put(')'); }, in Post()
313 Walk(std::get<std::optional<ProcInterface>>(x.t)), Put(')'); in Unparse()
315 Put(" :: "), Walk(std::get<std::list<ProcDecl>>(x.t), ", "); in Unparse()
323 [&](const ConstantExpr &y) { Put(" = "), Walk(y); }, in Unparse()
324 [&](const NullInit &y) { Put(" => "), Walk(y); }, in Unparse()
325 [&](const InitialDataTarget &y) { Put(" => "), Walk(y); }, in Unparse()
337 Put(" :: "), Walk(x.declarations, ", "); in Unparse()
340 Word("PROCEDURE("), Walk(x.interfaceName), Put("), "); in Unparse()
342 Put(" :: "), Walk(x.bindingNames, ", "); in Unparse()
350 Put(" :: "), Walk(std::get<common::Indirection<GenericSpec>>(x.t)); in Unparse()
351 Put(" => "), Walk(std::get<std::list<Name>>(x.t), ", "); in Unparse()
368 Put('('), Walk(std::get<std::list<ComponentSpec>>(x.t), ", "), Put(')'); in Unparse()
388 Put(x.v); in Unparse()
391 Walk(std::get<0>(x.t)), Put(':'), Walk(std::get<1>(x.t)); in Unparse()
395 Put('['), Walk(x.v), Put(']'); in Unparse()
401 Walk(x.name), Put('='), Walk(x.lower), Put(','), Walk(x.upper); in Unparse()
405 Put('('), Walk(std::get<std::list<AcValue>>(x.t), ", "); in Unparse()
406 Put(", "), Walk(std::get<AcImpliedDoControl>(x.t)), Put(')'); in Unparse()
464 Put(" ::"); in Unparse()
466 Put(' '), Walk(std::get<std::list<EntityDecl>>(x.t), ", "); in Unparse()
478 [&](const CoarraySpec &) { Put(']'); }, in Post()
479 [&](const ArraySpec &) { Put(')'); }, in Post()
495 Word("BIND(C"), Walk(", NAME=", x.v), Put(')'); in Unparse()
506 Put(':'); in Unparse()
508 Put(','); in Unparse()
514 Walk(std::get<std::optional<SpecificationExpr>>(x.t), ":"), Put('*'); in Unparse()
531 void Post(const AssumedShapeSpec &) { Put(':'); } // R819 in Post()
534 Put(':'); in Unparse()
536 Put(','); in Unparse()
542 Put('*'); in Unparse()
551 void Post(const AssumedRankSpec &) { Put(".."); } // R825 in Post()
563 Word("INTENT("), Walk(x.v), Put(")"); in Unparse()
586 Put(slash), Walk(std::get<Name>(x.t)), Put(slash); in Unparse()
593 Put('['), Walk(std::get<CoarraySpec>(x.t)), Put(']'); in Unparse()
603 Put('/'), Walk(std::get<std::list<DataStmtValue>>(x.t), ", "), Put('/'); in Unparse()
606 Put('('), Walk(std::get<std::list<DataIDoObject>>(x.t), ", "), Put(','); in Unparse()
608 Walk(std::get<DataImpliedDo::Bounds>(x.t)), Put(')'); in Unparse()
619 Put('('), Walk(std::get<ArraySpec>(x.t)), Put(')'); in Unparse()
628 Word("PARAMETER("), Walk(x.v, ", "), Put(')'); in Unparse()
650 Put(slash), Walk(std::get<Name>(x.t)), Put(slash); in Unparse()
673 Put('('), Walk(std::get<std::list<LetterSpec>>(x.t), ", "), Put(')'); in Unparse()
676 Put(*std::get<const char *>(x.t)); in Unparse()
679 Put('-'), Put(**second); in Unparse()
689 Put(", "), Word("ONLY: "); in Unparse()
704 Put('/'), Walk(std::get<Name>(x.t)), Put('/'); in Unparse()
711 Put(separator), Put('('), Walk(y), Put(')'); in Unparse()
730 Put('('), Walk(std::get<SubstringRange>(x.t)), Put(')'); in Unparse()
734 Put('('), Walk(std::get<SubstringRange>(x.t)), Put(')'); in Unparse()
748 Put('.'); in Unparse()
750 Put('%'); in Unparse()
756 Put('('), Walk(x.subscripts, ","), Put(')'); in Unparse()
759 Walk(std::get<0>(x.t)), Put(':'), Walk(std::get<1>(x.t)); in Unparse()
763 Put('['), Walk(std::get<std::list<Cosubscript>>(x.t), ","); in Unparse()
764 Walk(",", std::get<std::list<ImageSelectorSpec>>(x.t), ","), Put(']'); in Unparse()
779 Walk(", ", std::get<std::list<AllocOpt>>(x.t), ", "), Put(')'); in Unparse()
800 Walk(std::get<std::optional<BoundExpr>>(x.t), ":"), Put('*'); in Unparse()
803 Word("NULLIFY("), Walk(x.v, ", "), Put(')'); in Unparse()
808 Walk(", ", std::get<std::list<StatOrErrmsg>>(x.t), ", "), Put(')'); in Unparse()
828 void Unparse(const Expr::Parentheses &x) { Put('('), Walk(x.v), Put(')'); } in Unparse()
829 void Before(const Expr::UnaryPlus &) { Put("+"); } in Before()
830 void Before(const Expr::Negate &) { Put("-"); } in Before()
833 Word("%LOC("), Walk(x.v), Put(')'); in Unparse()
852 Put('('), Walk(x.t, ","), Put(')'); in Unparse()
864 Put(' '); in Unparse()
866 Put('\n'); in Unparse()
873 Put(' '); in Unparse()
875 Put('\n'); in Unparse()
881 Put('('), Walk(y), Put(')'); in Unparse()
886 Put(" => "), Walk(std::get<Expr>(x.t)); in Unparse()
890 Put(':'); in Post()
900 Word("WHERE ("), Walk(std::get<LogicalExpr>(x.t)), Put(')'); in Unparse()
905 Word("ELSEWHERE ("), Walk(std::get<LogicalExpr>(x.t)), Put(')'); in Unparse()
930 Walk(std::get<std::list<Association>>(x.t), ", "), Put(')'), Indent(); in Unparse()
948 Walk(", ", std::get<std::list<StatOrErrmsg>>(x.t), ", "), Put(')'); in Unparse()
957 Put(')'), Walk(" ", std::get<std::optional<Name>>(x.t)); in Unparse()
962 Put(')'), Indent(); in Unparse()
984 Word("WHILE ("), Walk(y), Put(')'); in Unparse()
991 Put('('), Walk(std::get<std::optional<IntegerTypeSpec>>(x.t), "::"); in Unparse()
993 Walk(", ", std::get<std::optional<ScalarLogicalExpr>>(x.t)), Put(')'); in Unparse()
996 Walk(std::get<Name>(x.t)), Put('='), Walk(std::get<1>(x.t)); in Unparse()
997 Put(':'), Walk(std::get<2>(x.t)); in Unparse()
1004 Word("LOCAL("), Walk(x.v, ", "), Put(')'); in Unparse()
1007 Word("LOCAL_INIT("), Walk(x.v, ", "), Put(')'); in Unparse()
1010 Word("SHARED("), Walk(x.v, ", "), Put(')'); in Unparse()
1022 Put(") "), Word("THEN"), Indent(); in Unparse()
1026 Walk(std::get<ScalarLogicalExpr>(x.t)), Put(") "), Word("THEN"); in Unparse()
1041 Walk(std::get<Scalar<Expr>>(x.t)), Put(')'), Indent(); in Unparse()
1053 Put('('), Walk(y), Put(')'); in Unparse()
1060 Walk(x.lower), Put(':'), Walk(x.upper); in Unparse()
1065 Walk(std::get<Selector>(x.t)), Put(')'), Indent(); in Unparse()
1071 Put('('), Walk(y), Put(')'); in Unparse()
1073 [&](const Star &) { Put("(*)"); }, in Unparse()
1082 Walk(std::get<Selector>(x.t)), Put(')'), Indent(); in Unparse()
1091 [&](const TypeSpec &y) { Word("TYPE IS ("), Walk(y), Put(')'); }, in Unparse()
1093 Word("CLASS IS ("), Walk(y), Put(')'); in Unparse()
1122 Word("SYNC ALL ("), Walk(x.v, ", "), Put(')'); in Unparse()
1127 Walk(", ", std::get<std::list<StatOrErrmsg>>(x.t), ", "), Put(')'); in Unparse()
1130 Word("SYNC MEMORY ("), Walk(x.v, ", "), Put(')'); in Unparse()
1134 Walk(", ", std::get<std::list<StatOrErrmsg>>(x.t), ", "), Put(')'); in Unparse()
1138 Walk(", ", std::get<std::list<StatOrErrmsg>>(x.t), ", "), Put(')'); in Unparse()
1150 Put(')'); in Unparse()
1154 Put(','), Walk(std::get<TeamVariable>(x.t)); in Unparse()
1156 Put(')'); in Unparse()
1168 Put(')'); in Unparse()
1181 Put(')'); in Unparse()
1185 Word("OPEN ("), Walk(x.v, ", "), Put(')'); in Unparse()
1229 Word("CLOSE ("), Walk(x.v, ", "), Put(')'); in Unparse()
1244 Put('('), Walk(x.iounit); in Unparse()
1246 Put(", "), Walk(x.format); in Unparse()
1249 Put(')'); in Unparse()
1253 Put(", "); in Unparse()
1256 Put('('), Walk(x.controls, ", "), Put(')'); in Unparse()
1265 Put(", "), Walk(x.format); in Unparse()
1271 Put(')'), Walk(" ", x.items, ", "); in Unparse()
1339 Put('('), Walk(std::get<std::list<InputItem>>(x.t), ", "), Put(", "); in Unparse()
1340 Walk(std::get<IoImpliedDoControl>(x.t)), Put(')'); in Unparse()
1343 Put('('), Walk(std::get<std::list<OutputItem>>(x.t), ", "), Put(", "); in Unparse()
1344 Walk(std::get<IoImpliedDoControl>(x.t)), Put(')'); in Unparse()
1347 Word("WAIT ("), Walk(x.v, ", "), Put(')'); in Unparse()
1362 Word("BACKSPACE ("), Walk(x.v, ", "), Put(')'); in Unparse()
1365 Word("ENDFILE ("), Walk(x.v, ", "), Put(')'); in Unparse()
1368 Word("REWIND ("), Walk(x.v, ", "), Put(')'); in Unparse()
1380 Word("FLUSH ("), Walk(x.v, ", "), Put(')'); in Unparse()
1389 [&](const std::list<InquireSpec> &y) { Walk(y, ", "), Put(')'); }, in Unparse()
1431 Put('('), Walk("", x.items, ",", x.unlimitedItems.empty() ? "" : ","); in Unparse()
1432 Walk("*(", x.unlimitedItems, ",", ")"), Put(')'); in Unparse()
1452 Put(#x); \ in Unparse()
1474 Put('"'), Put(x.type), Put('"'); in Unparse()
1502 Put('/'); in Unparse()
1505 Put(':'); in Unparse()
1513 Put(#x); \ in Unparse()
1530 Put('$'); in Unparse()
1533 Put('\\'); in Unparse()
1556 Word("USE"), Walk(", ", x.nature), Put(" :: "), Walk(x.moduleName); in Unparse()
1567 Word("OPERATOR("), Walk(y.t, ") => OPERATOR("), Put(")"); in Unparse()
1632 [&](const DefinedOperator &) { Put(')'); }, in Post()
1639 Put(" :: "), Walk(std::get<GenericSpec>(x.t)), Put(" => "); in Unparse()
1647 Put(')'), Walk(", ", std::get<std::list<ProcAttrSpec>>(x.t), ", "); in Unparse()
1648 Put(" :: "), Walk(std::get<std::list<ProcDecl>>(x.t), ", "); in Unparse()
1659 Put('('), Walk(std::get<std::list<ActualArgSpec>>(x.v.t), ", "), Put(')'); in Unparse()
1663 Put(' '); in Unparse()
1665 Put('\n'); in Unparse()
1672 Put("()"); // pgf90 crashes on CALL to tbp without parentheses in Unparse()
1684 Word("%REF("), Walk(x.v), Put(')'); in Unparse()
1687 Word("%VAL("), Walk(x.v), Put(')'); in Unparse()
1690 Put('*'); in Before()
1700 Word("FUNCTION "), Walk(std::get<Name>(x.t)), Put("("); in Unparse()
1701 Walk(std::get<std::list<Name>>(x.t), ", "), Put(')'); in Unparse()
1706 Word("RESULT("), Walk(x.resultName), Put(')'); in Unparse()
1738 Word("ENTRY "), Walk(std::get<Name>(x.t)), Put("("); in Unparse()
1739 Walk(std::get<std::list<DummyArg>>(x.t), ", "), Put(")"); in Unparse()
1751 Walk(std::get<Name>(x.t)), Put('('); in Unparse()
1752 Walk(std::get<std::list<Name>>(x.t), ", "), Put(") = "); in Unparse()
1769 Put('\n'); in Unparse()
1774 Put("("); in Unparse()
1776 Put(*tkr); in Unparse()
1778 Put(") "); in Unparse()
1791 Put("\n"); in Unparse()
1794 Put("\n"); in Unparse()
1803 Put("\n"); in Unparse()
1813 Put("\n"); in Unparse()
1823 Put("\n"); in Unparse()
1845 Put("NONE"); in Unparse()
1848 Put("PRESENT"); in Unparse()
1861 Put("\n"); in Unparse()
1867 Put("\n"); in Unparse()
1874 Put("\n"); in Unparse()
1887 Put("\n"); in Unparse()
1895 Put("\n"); in Unparse()
1902 Put("\n"); in Unparse()
1915 Put("\n"); in Unparse()
1921 [&](const Name &y) { Put("/"), Walk(y), Put("/"); }, in Unparse()
1931 Put(":"); in Unparse()
1939 Put(")"); in Unparse()
1940 Put("\n"); in Unparse()
1953 Put(")"); in Unparse()
1954 Put("\n"); in Unparse()
1962 [&](const Name &y) { Put("/"), Walk(y), Put("/"); }, in Unparse()
1971 Put(") "); in Unparse()
1982 Put(")"); in Unparse()
1987 Put(") "); in Unparse()
1994 Put(") "); in Unparse()
1999 Put(")"); in Unparse()
2002 Word("LINEAR("), Walk(x.modifier), Put("("), Walk(x.names, ","), Put(")"); in Unparse()
2004 Put(")"); in Unparse()
2009 Put(":"); in Unparse()
2011 Put(")"); in Unparse()
2017 Put(")"); in Unparse()
2028 Put("("); in Unparse()
2030 Put(":"); in Unparse()
2032 Put(")"); in Unparse()
2043 Put(")"); in Pre()
2057 void Post(const OmpDefaultClause &) { Put(")"); } in Post()
2062 void Post(const OmpProcBindClause &) { Put(")"); } in Post()
2074 Put(")"); in Unparse()
2229 Put("\n"); in Unparse()
2242 Put("\n"); in Unparse()
2245 Put("\n"); in Unparse()
2257 Put("\n"); in Unparse()
2270 Put("\n"); in Unparse()
2283 Put("\n"); in Unparse()
2295 Put("\n"); in Unparse()
2302 Put("\n"); in Unparse()
2311 Put("("), Walk(x.v), Put(")"); in Unparse()
2316 Put(")"); in Unparse()
2324 Put("()"); in Unparse()
2331 Put("("); in Unparse()
2332 Walk(std::get<OmpReductionOperator>(x.t)), Put(" : "); in Unparse()
2333 Walk(std::get<std::list<DeclarationTypeSpec>>(x.t), ","), Put(" : "); in Unparse()
2335 Put(")"); in Unparse()
2350 Put("\n"); in Pre()
2366 Put("\n"); in Post()
2370 Put(")\n"); in Post()
2389 Put("\n"); in Unparse()
2398 Put("\n"); in Unparse()
2404 Put("\n"); in Unparse()
2411 Put("\n"); in Unparse()
2419 Put("\n"); in Unparse()
2428 Put("\n"); in Unparse()
2436 Put("\n"); in Unparse()
2445 Put("\n"); in Unparse()
2452 Put("\n"); in Unparse()
2458 Put("\n"); in Unparse()
2465 Put("\n"); in Unparse()
2471 Put('('), Walk(std::get<0>(x.t)), Put(","), Walk(std::get<1>(x.t)); in Unparse()
2472 Walk("(", std::get<std::optional<ArraySpec>>(x.t), ")"), Put(')'); in Unparse()
2486 Put('/'), Walk(std::get<Name>(x.t)), Put('/'); in Unparse()
2505 Word("IF ("), Walk(std::get<Expr>(x.t)), Put(") "); in Unparse()
2506 Walk(std::get<1>(x.t)), Put(", "); in Unparse()
2507 Walk(std::get<2>(x.t)), Put(", "); in Unparse()
2549 void Put(char);
2550 void Put(const char *);
2551 void Put(const std::string &);
2641 void UnparseVisitor::Put(char ch) { in Put() function in Fortran::parser::UnparseVisitor
2678 void UnparseVisitor::Put(const char *str) { in Put() function in Fortran::parser::UnparseVisitor
2680 Put(*str); in Put()
2684 void UnparseVisitor::Put(const std::string &str) { in Put() function in Fortran::parser::UnparseVisitor
2686 Put(ch); in Put()
2693 Put(QuoteCharacterLiteral(encoded, backslashEscapes_)); in PutNormalized()
2698 Put(ToUpperCaseLetter(ch)); in PutKeywordLetter()
2700 Put(ToLowerCaseLetter(ch)); in PutKeywordLetter()