Lines Matching refs:Put
68 void Unparse(const std::string &x) { Put(x); } in Unparse()
69 void Unparse(int x) { Put(std::to_string(x)); } in Unparse()
70 void Unparse(unsigned int x) { Put(std::to_string(x)); } in Unparse()
71 void Unparse(long x) { Put(std::to_string(x)); } in Unparse()
72 void Unparse(unsigned long x) { Put(std::to_string(x)); } in Unparse()
73 void Unparse(long long x) { Put(std::to_string(x)); } in Unparse()
74 void Unparse(unsigned long long x) { Put(std::to_string(x)); } in Unparse()
75 void Unparse(char x) { Put(x); } in Unparse()
84 template <typename T> void Post(const Statement<T> &) { Put('\n'); } in Post()
95 Put(x.ToString()); 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("/="); in Unparse()
130 Put(">="); in Unparse()
133 Put('>'); in Unparse()
136 Put('.'), Word(DefinedOperator::EnumToString(x)), Put('.'); in Unparse()
139 void Post(const Star &) { Put('*'); } // R701 &c. in Post()
140 void Post(const TypeParamValue::Deferred &) { Put(':'); } // R701 in Post()
142 Word("TYPE("), Walk(x.derived), Put(')'); in Unparse()
145 Word("CLASS("), Walk(x.derived), Put(')'); in Unparse()
150 Word("RECORD/"), Walk(x.v), Put('/'); in Unparse()
171 Put('('), Word("KIND="), Walk(y), Put(')'); in Unparse()
173 [&](const KindSelector::StarSize &y) { Put('*'), Walk(y.v); }, in Unparse()
178 Put(std::get<CharBlock>(x.t).ToString()); in Unparse()
182 Put(std::get<CharBlock>(x.t).ToString()); in Unparse()
186 Put(x == Sign::Negative ? '-' : '+'); in Unparse()
189 Put(x.real.source.ToString()), Walk("_", x.kind); in Unparse()
192 Put('('), Walk(x.t, ","), Put(')'); in Unparse()
195 Put('('), Word("KIND="), Walk(x.kind); in Unparse()
196 Walk(", LEN=", x.length), Put(')'); in Unparse()
201 Put('('), Word("LEN="), Walk(y), Put(')'); in Unparse()
203 [&](const CharLength &y) { Put('*'), Walk(y); }, in Unparse()
210 [&](const TypeParamValue &y) { Put('('), Walk(y), Put(')'); }, in Unparse()
218 Walk(*k), Put('_'); in Unparse()
225 Put('H'); in Unparse()
229 Put(encoded.buffer[j]); in Unparse()
234 Put(std::get<bool>(x.t) ? ".TRUE." : ".FALSE."); in Unparse()
239 Put(" :: "), Walk(std::get<Name>(x.t)); in Unparse()
248 Word("EXTENDS("), Walk(x.v), Put(')'); in Unparse()
258 Put(", "), Walk(std::get<common::TypeParamAttr>(x.t)); in Unparse()
259 Put(" :: "), Walk(std::get<std::list<TypeParamDecl>>(x.t), ", "); in Unparse()
288 Put(" ::"); in Unparse()
290 Put(' '), Walk(decls, ", "); in Unparse()
307 [&](const CoarraySpec &) { Put(']'); }, in Post()
308 [&](const ComponentArraySpec &) { Put(')'); }, in Post()
321 Put("%FILL"); in Unparse()
335 Walk(std::get<std::optional<ProcInterface>>(x.t)), Put(')'); in Unparse()
337 Put(" :: "), Walk(std::get<std::list<ProcDecl>>(x.t), ", "); in Unparse()
346 [&](const ConstantExpr &y) { Put(" = "), Walk(y); }, in Unparse()
347 [&](const NullInit &y) { Put(" => "), Walk(y); }, in Unparse()
348 [&](const InitialDataTarget &y) { Put(" => "), Walk(y); }, in Unparse()
360 Put(" :: "), Walk(x.declarations, ", "); in Unparse()
363 Word("PROCEDURE("), Walk(x.interfaceName), Put("), "); in Unparse()
365 Put(" :: "), Walk(x.bindingNames, ", "); in Unparse()
373 Put(" :: "), Walk(std::get<common::Indirection<GenericSpec>>(x.t)); in Unparse()
374 Put(" => "), Walk(std::get<std::list<Name>>(x.t), ", "); in Unparse()
391 Put('('), Walk(std::get<std::list<ComponentSpec>>(x.t), ", "), Put(')'); in Unparse()
411 Put(x.v); in Unparse()
414 Walk(std::get<0>(x.t)), Put(':'), Walk(std::get<1>(x.t)); in Unparse()
418 Put('['), Walk(x.v), Put(']'); in Unparse()
424 Walk(x.name), Put('='), Walk(x.lower), Put(','), Walk(x.upper); in Unparse()
428 Put('('), Walk(std::get<std::list<AcValue>>(x.t), ", "); in Unparse()
429 Put(", "), Walk(std::get<AcImpliedDoControl>(x.t)), Put(')'); in Unparse()
487 Put(" ::"); in Unparse()
489 Put(' '), Walk(std::get<std::list<EntityDecl>>(x.t), ", "); in Unparse()
501 [&](const CoarraySpec &) { Put(']'); }, in Post()
502 [&](const ArraySpec &) { Put(')'); }, in Post()
518 Word("BIND(C"), Walk(", NAME=", x.v), Put(')'); in Unparse()
529 Put(':'); in Unparse()
531 Put(','); in Unparse()
537 Walk(std::get<std::optional<SpecificationExpr>>(x.t), ":"), Put('*'); in Unparse()
555 void Post(const AssumedShapeSpec &) { Put(':'); } // R819 in Post()
558 Put(':'); in Unparse()
560 Put(','); in Unparse()
566 Put('*'); in Unparse()
575 void Post(const AssumedRankSpec &) { Put(".."); } // R825 in Post()
587 Word("INTENT("), Walk(x.v), Put(")"); in Unparse()
610 Put(slash), Walk(std::get<Name>(x.t)), Put(slash); in Unparse()
617 Put('['), Walk(std::get<CoarraySpec>(x.t)), Put(']'); in Unparse()
627 Put('/'), Walk(std::get<std::list<DataStmtValue>>(x.t), ", "), Put('/'); in Unparse()
630 Put('('), Walk(std::get<std::list<DataIDoObject>>(x.t), ", "), Put(','); in Unparse()
632 Walk(std::get<DataImpliedDo::Bounds>(x.t)), Put(')'); in Unparse()
643 Put('('), Walk(std::get<ArraySpec>(x.t)), Put(')'); in Unparse()
652 Word("PARAMETER("), Walk(x.v, ", "), Put(')'); in Unparse()
674 Put(slash), Walk(std::get<Name>(x.t)), Put(slash); in Unparse()
698 Put('('), Walk(std::get<std::list<LetterSpec>>(x.t), ", "), Put(')'); in Unparse()
701 Put(*std::get<const char *>(x.t)); in Unparse()
704 Put('-'), Put(**second); in Unparse()
714 Put(", "), Word("ONLY: "); in Unparse()
729 Put('/'), Walk(std::get<Name>(x.t)), Put('/'); in Unparse()
736 Put(separator), Put('('), Walk(y), Put(')'); in Unparse()
755 Put('('), Walk(std::get<SubstringRange>(x.t)), Put(')'); in Unparse()
759 Put('('), Walk(std::get<SubstringRange>(x.t)), Put(')'); in Unparse()
763 Put(x.source.end()[-1] == 'n' ? "%LEN" : "%KIND"); in Unparse()
777 Put('.'); in Unparse()
779 Put('%'); in Unparse()
785 Put('('), Walk(x.subscripts, ","), Put(')'); in Unparse()
788 Walk(std::get<0>(x.t)), Put(':'), Walk(std::get<1>(x.t)); in Unparse()
792 Put('['), Walk(std::get<std::list<Cosubscript>>(x.t), ","); in Unparse()
793 Walk(",", std::get<std::list<ImageSelectorSpec>>(x.t), ","), Put(']'); in Unparse()
808 Walk(", ", std::get<std::list<AllocOpt>>(x.t), ", "), Put(')'); in Unparse()
829 Walk(std::get<std::optional<BoundExpr>>(x.t), ":"), Put('*'); in Unparse()
832 Word("NULLIFY("), Walk(x.v, ", "), Put(')'); in Unparse()
837 Walk(", ", std::get<std::list<StatOrErrmsg>>(x.t), ", "), Put(')'); in Unparse()
848 void Unparse(const Expr::Parentheses &x) { Put('('), Walk(x.v), Put(')'); } in Unparse()
849 void Before(const Expr::UnaryPlus &) { Put("+"); } in Before()
850 void Before(const Expr::Negate &) { Put("-"); } in Before()
853 Word("%LOC("), Walk(x.v), Put(')'); in Unparse()
872 Put('('), Walk(x.t, ","), Put(')'); in Unparse()
884 Put(' '); in Unparse()
886 Put('\n'); in Unparse()
893 Put(' '); in Unparse()
895 Put('\n'); in Unparse()
901 Put('('), Walk(y), Put(')'); in Unparse()
906 Put(" => "), Walk(std::get<Expr>(x.t)); in Unparse()
910 Put(':'); in Post()
920 Word("WHERE ("), Walk(std::get<LogicalExpr>(x.t)), Put(')'); in Unparse()
925 Word("ELSEWHERE ("), Walk(std::get<LogicalExpr>(x.t)), Put(')'); in Unparse()
950 Walk(std::get<std::list<Association>>(x.t), ", "), Put(')'), Indent(); in Unparse()
968 Walk(", ", std::get<std::list<StatOrErrmsg>>(x.t), ", "), Put(')'); in Unparse()
977 Put(')'), Walk(" ", std::get<std::optional<Name>>(x.t)); in Unparse()
982 Put(')'), Indent(); in Unparse()
1004 Word("WHILE ("), Walk(y), Put(')'); in Unparse()
1011 Put('('), Walk(std::get<std::optional<IntegerTypeSpec>>(x.t), "::"); in Unparse()
1013 Walk(", ", std::get<std::optional<ScalarLogicalExpr>>(x.t)), Put(')'); in Unparse()
1016 Walk(std::get<Name>(x.t)), Put('='), Walk(std::get<1>(x.t)); in Unparse()
1017 Put(':'), Walk(std::get<2>(x.t)); in Unparse()
1024 Word("LOCAL("), Walk(x.v, ", "), Put(')'); in Unparse()
1027 Word("LOCAL_INIT("), Walk(x.v, ", "), Put(')'); in Unparse()
1030 Word("SHARED("), Walk(x.v, ", "), Put(')'); in Unparse()
1042 Put(") "), Word("THEN"), Indent(); in Unparse()
1046 Walk(std::get<ScalarLogicalExpr>(x.t)), Put(") "), Word("THEN"); in Unparse()
1061 Walk(std::get<Scalar<Expr>>(x.t)), Put(')'), Indent(); in Unparse()
1073 Put('('), Walk(y), Put(')'); in Unparse()
1080 Walk(x.lower), Put(':'), Walk(x.upper); in Unparse()
1085 Walk(std::get<Selector>(x.t)), Put(')'), Indent(); in Unparse()
1091 Put('('), Walk(y), Put(')'); in Unparse()
1093 [&](const Star &) { Put("(*)"); }, in Unparse()
1102 Walk(std::get<Selector>(x.t)), Put(')'), Indent(); in Unparse()
1111 [&](const TypeSpec &y) { Word("TYPE IS ("), Walk(y), Put(')'); }, in Unparse()
1113 Word("CLASS IS ("), Walk(y), Put(')'); in Unparse()
1142 Word("SYNC ALL ("), Walk(x.v, ", "), Put(')'); in Unparse()
1147 Walk(", ", std::get<std::list<StatOrErrmsg>>(x.t), ", "), Put(')'); in Unparse()
1150 Word("SYNC MEMORY ("), Walk(x.v, ", "), Put(')'); in Unparse()
1154 Walk(", ", std::get<std::list<StatOrErrmsg>>(x.t), ", "), Put(')'); in Unparse()
1158 Walk(", ", std::get<std::list<StatOrErrmsg>>(x.t), ", "), Put(')'); in Unparse()
1170 Put(')'); in Unparse()
1174 Put(','), Walk(std::get<TeamVariable>(x.t)); in Unparse()
1176 Put(')'); in Unparse()
1188 Put(')'); in Unparse()
1201 Put(')'); in Unparse()
1205 Word("OPEN ("), Walk(x.v, ", "), Put(')'); in Unparse()
1249 Word("CLOSE ("), Walk(x.v, ", "), Put(')'); in Unparse()
1264 Put('('), Walk(x.iounit); in Unparse()
1266 Put(", "), Walk(x.format); in Unparse()
1269 Put(')'); in Unparse()
1273 Put(", "); in Unparse()
1276 Put('('), Walk(x.controls, ", "), Put(')'); in Unparse()
1285 Put(", "), Walk(x.format); in Unparse()
1291 Put(')'), Walk(" ", x.items, ", "); in Unparse()
1359 Put('('), Walk(std::get<std::list<InputItem>>(x.t), ", "), Put(", "); in Unparse()
1360 Walk(std::get<IoImpliedDoControl>(x.t)), Put(')'); in Unparse()
1363 Put('('), Walk(std::get<std::list<OutputItem>>(x.t), ", "), Put(", "); in Unparse()
1364 Walk(std::get<IoImpliedDoControl>(x.t)), Put(')'); in Unparse()
1367 Word("WAIT ("), Walk(x.v, ", "), Put(')'); in Unparse()
1382 Word("BACKSPACE ("), Walk(x.v, ", "), Put(')'); in Unparse()
1385 Word("ENDFILE ("), Walk(x.v, ", "), Put(')'); in Unparse()
1388 Word("REWIND ("), Walk(x.v, ", "), Put(')'); in Unparse()
1400 Word("FLUSH ("), Walk(x.v, ", "), Put(')'); in Unparse()
1409 [&](const std::list<InquireSpec> &y) { Walk(y, ", "), Put(')'); }, in Unparse()
1451 Put('('), Walk("", x.items, ",", x.unlimitedItems.empty() ? "" : ","); in Unparse()
1452 Walk("*(", x.unlimitedItems, ",", ")"), Put(')'); in Unparse()
1472 Put(#x); \ in Unparse()
1494 Put('"'), Put(x.type), Put('"'); in Unparse()
1522 Put('/'); in Unparse()
1525 Put(':'); in Unparse()
1533 Put(#x); \ in Unparse()
1550 Put('$'); in Unparse()
1553 Put('\\'); in Unparse()
1576 Word("USE"), Walk(", ", x.nature), Put(" :: "), Walk(x.moduleName); in Unparse()
1589 Put(")"); in Unparse()
1654 [&](const DefinedOperator &) { Put(')'); }, in Post()
1661 Put(" :: "), Walk(std::get<GenericSpec>(x.t)), Put(" => "); in Unparse()
1669 Put(')'), Walk(", ", std::get<std::list<ProcAttrSpec>>(x.t), ", "); in Unparse()
1670 Put(" :: "), Walk(std::get<std::list<ProcDecl>>(x.t), ", "); in Unparse()
1681 Put('('), Walk(std::get<std::list<ActualArgSpec>>(x.v.t), ", "), Put(')'); in Unparse()
1685 Put(' '); in Unparse()
1687 Put('\n'); in Unparse()
1694 Put("()"); // pgf90 crashes on CALL to tbp without parentheses in Unparse()
1706 Word("%REF("), Walk(x.v), Put(')'); in Unparse()
1709 Word("%VAL("), Walk(x.v), Put(')'); in Unparse()
1712 Put('*'); in Before()
1722 Word("FUNCTION "), Walk(std::get<Name>(x.t)), Put("("); in Unparse()
1723 Walk(std::get<std::list<Name>>(x.t), ", "), Put(')'); in Unparse()
1728 Word("RESULT("), Walk(x.resultName), Put(')'); in Unparse()
1760 Word("ENTRY "), Walk(std::get<Name>(x.t)), Put("("); in Unparse()
1761 Walk(std::get<std::list<DummyArg>>(x.t), ", "), Put(")"); in Unparse()
1773 Walk(std::get<Name>(x.t)), Put('('); in Unparse()
1774 Walk(std::get<std::list<Name>>(x.t), ", "), Put(") = "); in Unparse()
1791 Put('\n'); in Unparse()
1796 Put("("); in Unparse()
1798 Put(*tkr); in Unparse()
1800 Put(") "); in Unparse()
1813 Put("\n"); in Unparse()
1816 Put("\n"); in Unparse()
1825 Put("\n"); in Unparse()
1835 Put("\n"); in Unparse()
1845 Put("\n"); in Unparse()
1866 [&](const Name &y) { Put('('), Walk(y), Put(')'); }, in Unparse()
1868 Put('('), Walk(y), Put(')'); in Unparse()
1876 Put("NONE"); in Unparse()
1879 Put("PRESENT"); in Unparse()
1892 Put("\n"); in Unparse()
1898 Put("\n"); in Unparse()
1905 Put("\n"); in Unparse()
1918 Put("\n"); in Unparse()
1926 Put("\n"); in Unparse()
1933 Put("\n"); in Unparse()
1946 Put("\n"); in Unparse()
1952 [&](const Name &y) { Put("/"), Walk(y), Put("/"); }, in Unparse()
1962 Put(":"); in Unparse()
1970 Put(")"); in Unparse()
1971 Put("\n"); in Unparse()
1984 Put(")"); in Unparse()
1985 Put("\n"); in Unparse()
1993 [&](const Name &y) { Put("/"), Walk(y), Put("/"); }, in Unparse()
2024 Walk(x.modifier), Put("("), Walk(x.names, ","), Put(")"); in Unparse()
2029 Put(":"); in Unparse()
2034 Put(":"); in Unparse()
2039 Put(":"); in Unparse()
2051 Put("("); in Unparse()
2053 Put(":"); in Unparse()
2055 Put(")"); in Unparse()
2067 Put(")"); in Pre()
2234 Put("\n"); in Unparse()
2247 Put("\n"); in Unparse()
2250 Put("\n"); in Unparse()
2262 Put("\n"); in Unparse()
2275 Put("\n"); in Unparse()
2288 Put("\n"); in Unparse()
2300 Put("\n"); in Unparse()
2307 Put(" ("); in Unparse()
2309 Put(")"); in Unparse()
2311 Put("\n"); in Unparse()
2319 Put("\n"); in Unparse()
2326 Put("\n"); in Unparse()
2335 Put("("), Walk(x.v), Put(")"); in Unparse()
2340 Put(")"); in Unparse()
2348 Put("()"); in Unparse()
2355 Put("("); in Unparse()
2356 Walk(std::get<OmpReductionOperator>(x.t)), Put(" : "); in Unparse()
2357 Walk(std::get<std::list<DeclarationTypeSpec>>(x.t), ","), Put(" : "); in Unparse()
2359 Put(")"); in Unparse()
2370 Put(")"); in Pre()
2372 Put("\n"); in Pre()
2384 Put("\n"); in Pre()
2400 Put("\n"); in Post()
2404 Put(")\n"); in Post()
2423 Put("\n"); in Unparse()
2434 Put("\n"); in Unparse()
2440 Put("\n"); in Unparse()
2447 Put("\n"); in Unparse()
2455 Put("\n"); in Unparse()
2471 Put("\n"); in Unparse()
2479 Put("\n"); in Unparse()
2488 Put("\n"); in Unparse()
2495 Put("\n"); in Unparse()
2501 Put("\n"); in Unparse()
2508 Put("\n"); in Unparse()
2514 Put('('), Walk(std::get<0>(x.t)), Put(","), Walk(std::get<1>(x.t)); in Unparse()
2515 Walk("(", std::get<std::optional<ArraySpec>>(x.t), ")"), Put(')'); in Unparse()
2546 Word("IF ("), Walk(std::get<Expr>(x.t)), Put(") "); in Unparse()
2547 Walk(std::get<1>(x.t)), Put(", "); in Unparse()
2548 Walk(std::get<2>(x.t)), Put(", "); in Unparse()
2590 void Put(char);
2591 void Put(const char *);
2592 void Put(const std::string &);
2682 void UnparseVisitor::Put(char ch) { in Put() function in Fortran::parser::UnparseVisitor
2719 void UnparseVisitor::Put(const char *str) { in Put() function in Fortran::parser::UnparseVisitor
2721 Put(*str); in Put()
2725 void UnparseVisitor::Put(const std::string &str) { in Put() function in Fortran::parser::UnparseVisitor
2727 Put(ch); in Put()
2734 Put(QuoteCharacterLiteral(encoded, backslashEscapes_)); in PutNormalized()
2739 Put(ToUpperCaseLetter(ch)); in PutKeywordLetter()
2741 Put(ToLowerCaseLetter(ch)); in PutKeywordLetter()