Lines Matching defs:Put
68 void Unparse(const std::string &x) { Put(x); }
69 void Unparse(int x) { Put(std::to_string(x)); }
70 void Unparse(unsigned int x) { Put(std::to_string(x)); }
71 void Unparse(long x) { Put(std::to_string(x)); }
72 void Unparse(unsigned long x) { Put(std::to_string(x)); }
73 void Unparse(long long x) { Put(std::to_string(x)); }
74 void Unparse(unsigned long long x) { Put(std::to_string(x)); }
75 void Unparse(char x) { Put(x); }
84 template <typename T> void Post(const Statement<T> &) { Put('\n'); }
95 Put(x.ToString());
100 Put("**");
103 Put('*');
106 Put('/');
109 Put('+');
112 Put('-');
115 Put("//");
118 Put('<');
121 Put("<=");
124 Put("==");
127 Put("/=");
130 Put(">=");
133 Put('>');
136 Put('.'), Word(DefinedOperator::EnumToString(x)), Put('.');
139 void Post(const Star &) { Put('*'); } // R701 &c.
140 void Post(const TypeParamValue::Deferred &) { Put(':'); } // R701
142 Word("TYPE("), Walk(x.derived), Put(')');
145 Word("CLASS("), Walk(x.derived), Put(')');
150 Word("RECORD/"), Walk(x.v), Put('/');
166 void Post(const IntrinsicVectorTypeSpec &) { Put(')'); }
180 Put('('), Word("KIND="), Walk(y), Put(')');
182 [&](const KindSelector::StarSize &y) { Put('*'), Walk(y.v); },
187 Put(std::get<CharBlock>(x.t).ToString());
191 Put(std::get<CharBlock>(x.t).ToString());
195 Put(x == Sign::Negative ? '-' : '+');
198 Put(x.real.source.ToString()), Walk("_", x.kind);
201 Put('('), Walk(x.t, ","), Put(')');
204 Put('('), Word("KIND="), Walk(x.kind);
205 Walk(", LEN=", x.length), Put(')');
210 Put('('), Word("LEN="), Walk(y), Put(')');
212 [&](const CharLength &y) { Put('*'), Walk(y); },
219 [&](const TypeParamValue &y) { Put('('), Walk(y), Put(')'); },
227 Walk(*k), Put('_');
234 Put('H');
238 Put(encoded.buffer[j]);
243 Put(std::get<bool>(x.t) ? ".TRUE." : ".FALSE.");
248 Put(" :: "), Walk(std::get<Name>(x.t));
257 Word("EXTENDS("), Walk(x.v), Put(')');
267 Put(", "), Walk(std::get<common::TypeParamAttr>(x.t));
268 Put(" :: "), Walk(std::get<std::list<TypeParamDecl>>(x.t), ", ");
297 Put(" ::");
299 Put(' '), Walk(decls, ", ");
316 [&](const CoarraySpec &) { Put(']'); },
317 [&](const ComponentArraySpec &) { Put(')'); },
330 Put("%FILL");
344 Walk(std::get<std::optional<ProcInterface>>(x.t)), Put(')');
346 Put(" :: "), Walk(std::get<std::list<ProcDecl>>(x.t), ", ");
355 [&](const ConstantExpr &y) { Put(" = "), Walk(y); },
356 [&](const NullInit &y) { Put(" => "), Walk(y); },
357 [&](const InitialDataTarget &y) { Put(" => "), Walk(y); },
369 Put(" :: "), Walk(x.declarations, ", ");
372 Word("PROCEDURE("), Walk(x.interfaceName), Put("), ");
374 Put(" :: "), Walk(x.bindingNames, ", ");
382 Put(" :: "), Walk(std::get<common::Indirection<GenericSpec>>(x.t));
383 Put(" => "), Walk(std::get<std::list<Name>>(x.t), ", ");
400 Put('('), Walk(std::get<std::list<ComponentSpec>>(x.t), ", "), Put(')');
420 Put(x.v);
423 Walk(std::get<0>(x.t)), Put(':'), Walk(std::get<1>(x.t));
427 Put('['), Walk(x.v), Put(']');
433 Walk(x.name), Put('='), Walk(x.lower), Put(','), Walk(x.upper);
437 Put('('), Walk(std::get<std::list<AcValue>>(x.t), ", ");
438 Put(", "), Walk(std::get<AcImpliedDoControl>(x.t)), Put(')');
496 Put(" ::");
498 Put(' '), Walk(std::get<std::list<EntityDecl>>(x.t), ", ");
510 [&](const CoarraySpec &) { Put(']'); },
511 [&](const ArraySpec &) { Put(')'); },
533 Put(')');
544 Put(':');
546 Put(',');
552 Walk(std::get<std::optional<SpecificationExpr>>(x.t), ":"), Put('*');
570 void Post(const AssumedShapeSpec &) { Put(':'); } // R819
573 Put(':');
575 Put(',');
581 Put('*');
590 void Post(const AssumedRankSpec &) { Put(".."); } // R825
602 Word("INTENT("), Walk(x.v), Put(")");
625 Put(slash), Walk(std::get<Name>(x.t)), Put(slash);
632 Put('['), Walk(std::get<CoarraySpec>(x.t)), Put(']');
642 Put('/'), Walk(std::get<std::list<DataStmtValue>>(x.t), ", "), Put('/');
645 Put('('), Walk(std::get<std::list<DataIDoObject>>(x.t), ", "), Put(',');
647 Walk(std::get<DataImpliedDo::Bounds>(x.t)), Put(')');
658 Put('('), Walk(std::get<ArraySpec>(x.t)), Put(')');
667 Word("PARAMETER("), Walk(x.v, ", "), Put(')');
689 Put(slash), Walk(std::get<Name>(x.t)), Put(slash);
713 Put('('), Walk(std::get<std::list<LetterSpec>>(x.t), ", "), Put(')');
716 Put(*std::get<const char *>(x.t));
719 Put('-'), Put(**second);
729 Put(", "), Word("ONLY: ");
744 Put('/'), Walk(std::get<Name>(x.t)), Put('/');
751 Put(separator), Put('('), Walk(y), Put(')');
770 Put('('), Walk(std::get<SubstringRange>(x.t)), Put(')');
774 Put('('), Walk(std::get<SubstringRange>(x.t)), Put(')');
778 Put(x.source.end()[-1] == 'n' ? "%LEN" : "%KIND");
792 Put('.');
794 Put('%');
800 Put('('), Walk(x.subscripts, ","), Put(')');
803 Walk(std::get<0>(x.t)), Put(':'), Walk(std::get<1>(x.t));
807 Put('['), Walk(std::get<std::list<Cosubscript>>(x.t), ",");
808 Walk(",", std::get<std::list<ImageSelectorSpec>>(x.t), ","), Put(']');
823 Walk(", ", std::get<std::list<AllocOpt>>(x.t), ", "), Put(')');
846 Walk(std::get<std::optional<BoundExpr>>(x.t), ":"), Put('*');
849 Word("NULLIFY("), Walk(x.v, ", "), Put(')');
854 Walk(", ", std::get<std::list<StatOrErrmsg>>(x.t), ", "), Put(')');
865 void Unparse(const Expr::Parentheses &x) { Put('('), Walk(x.v), Put(')'); }
866 void Before(const Expr::UnaryPlus &) { Put("+"); }
867 void Before(const Expr::Negate &) { Put("-"); }
870 Word("%LOC("), Walk(x.v), Put(')');
889 Put('('), Walk(x.t, ","), Put(')');
901 Put(' ');
903 Put('\n');
910 Put(' ');
912 Put('\n');
918 Put('('), Walk(y), Put(')');
923 Put(" => "), Walk(std::get<Expr>(x.t));
927 Put(':');
937 Word("WHERE ("), Walk(std::get<LogicalExpr>(x.t)), Put(')');
942 Word("ELSEWHERE ("), Walk(std::get<LogicalExpr>(x.t)), Put(')');
967 Walk(std::get<std::list<Association>>(x.t), ", "), Put(')'), Indent();
985 Walk(", ", std::get<std::list<StatOrErrmsg>>(x.t), ", "), Put(')');
994 Put(')'), Walk(" ", std::get<std::optional<Name>>(x.t));
999 Put(')'), Indent();
1022 Word("WHILE ("), Walk(y), Put(')');
1029 Put('('), Walk(std::get<std::optional<IntegerTypeSpec>>(x.t), "::");
1031 Walk(", ", std::get<std::optional<ScalarLogicalExpr>>(x.t)), Put(')');
1034 Walk(std::get<Name>(x.t)), Put('='), Walk(std::get<1>(x.t));
1035 Put(':'), Walk(std::get<2>(x.t));
1042 Word("LOCAL("), Walk(x.v, ", "), Put(')');
1045 Word("LOCAL_INIT("), Walk(x.v, ", "), Put(')');
1052 Word("SHARED("), Walk(x.v, ", "), Put(')');
1064 Put(") "), Word("THEN"), Indent();
1068 Walk(std::get<ScalarLogicalExpr>(x.t)), Put(") "), Word("THEN");
1083 Walk(std::get<Scalar<Expr>>(x.t)), Put(')'), Indent();
1095 Put('('), Walk(y), Put(')');
1102 Walk(x.lower), Put(':'), Walk(x.upper);
1107 Walk(std::get<Selector>(x.t)), Put(')'), Indent();
1113 Put('('), Walk(y), Put(')');
1115 [&](const Star &) { Put("(*)"); },
1124 Walk(std::get<Selector>(x.t)), Put(')'), Indent();
1133 [&](const TypeSpec &y) { Word("TYPE IS ("), Walk(y), Put(')'); },
1135 Word("CLASS IS ("), Walk(y), Put(')');
1166 Put(')');
1169 Word("SYNC ALL ("), Walk(x.v, ", "), Put(')');
1174 Walk(", ", std::get<std::list<StatOrErrmsg>>(x.t), ", "), Put(')');
1177 Word("SYNC MEMORY ("), Walk(x.v, ", "), Put(')');
1181 Walk(", ", std::get<std::list<StatOrErrmsg>>(x.t), ", "), Put(')');
1185 Walk(", ", std::get<std::list<StatOrErrmsg>>(x.t), ", "), Put(')');
1197 Put(')');
1201 Put(','), Walk(std::get<TeamVariable>(x.t));
1203 Put(')');
1215 Put(')');
1228 Put(')');
1232 Word("OPEN ("), Walk(x.v, ", "), Put(')');
1276 Word("CLOSE ("), Walk(x.v, ", "), Put(')');
1291 Put('('), Walk(x.iounit);
1293 Put(", "), Walk(x.format);
1296 Put(')');
1300 Put(", ");
1303 Put('('), Walk(x.controls, ", "), Put(')');
1312 Put(", "), Walk(x.format);
1318 Put(')'), Walk(" ", x.items, ", ");
1386 Put('('), Walk(std::get<std::list<InputItem>>(x.t), ", "), Put(", ");
1387 Walk(std::get<IoImpliedDoControl>(x.t)), Put(')');
1390 Put('('), Walk(std::get<std::list<OutputItem>>(x.t), ", "), Put(", ");
1391 Walk(std::get<IoImpliedDoControl>(x.t)), Put(')');
1394 Word("WAIT ("), Walk(x.v, ", "), Put(')');
1409 Word("BACKSPACE ("), Walk(x.v, ", "), Put(')');
1412 Word("ENDFILE ("), Walk(x.v, ", "), Put(')');
1415 Word("REWIND ("), Walk(x.v, ", "), Put(')');
1427 Word("FLUSH ("), Walk(x.v, ", "), Put(')');
1436 [&](const std::list<InquireSpec> &y) { Walk(y, ", "), Put(')'); },
1478 Put('('), Walk("", x.items, ",", x.unlimitedItems.empty() ? "" : ",");
1479 Walk("*(", x.unlimitedItems, ",", ")"), Put(')');
1499 Put(#x); \
1521 Put('"'), Put(x.type), Put('"');
1549 Put('/');
1552 Put(':');
1560 Put(#x); \
1577 Put('$');
1580 Put('\\');
1603 Word("USE"), Walk(", ", x.nature), Put(" :: "), Walk(x.moduleName);
1616 Put(")");
1681 [&](const DefinedOperator &) { Put(')'); },
1688 Put(" :: "), Walk(std::get<GenericSpec>(x.t)), Put(" => ");
1696 Put(')'), Walk(", ", std::get<std::list<ProcAttrSpec>>(x.t), ", ");
1697 Put(" :: "), Walk(std::get<std::list<ProcDecl>>(x.t), ", ");
1721 Put('('), Walk(std::get<std::list<ActualArgSpec>>(x.v.t), ", "), Put(')');
1725 Put(' ');
1727 Put('\n');
1735 Put("()"); // pgf90 crashes on CALL to tbp without parentheses
1747 Word("%REF("), Walk(x.v), Put(')');
1750 Word("%VAL("), Walk(x.v), Put(')');
1753 Put('*');
1772 Word("FUNCTION "), Walk(std::get<Name>(x.t)), Put("(");
1773 Walk(std::get<std::list<Name>>(x.t), ", "), Put(')');
1778 Word("RESULT("), Walk(x.resultName), Put(')');
1810 Word("ENTRY "), Walk(std::get<Name>(x.t)), Put("(");
1811 Walk(std::get<std::list<DummyArg>>(x.t), ", "), Put(")");
1823 Walk(std::get<Name>(x.t)), Put('(');
1824 Walk(std::get<std::list<Name>>(x.t), ", "), Put(") = ");
1860 Put('\n');
1865 Put("(");
1867 Put(*tkr);
1869 Put(") ");
1879 Put(":");
1887 Put("\n");
1890 Put("\n");
1899 Put("\n");
1909 Put("\n");
1919 Put("\n");
1945 Put("NONE");
1948 Put("PRESENT");
1956 Put("*");
1971 Put("FORCE:");
1979 Put("\n");
1985 Put("\n");
1992 Put("\n");
2005 Put("\n");
2013 Put("\n");
2020 Put("\n");
2033 Put("\n");
2039 [&](const Name &y) { Put("/"), Walk(y), Put("/"); },
2046 Put(":");
2054 Put(")");
2055 Put("\n");
2068 Put(")");
2069 Put("\n");
2084 Put(")");
2089 Put("(");
2091 Put(")");
2098 Put("(");
2101 Put(")");
2105 Put("={");
2107 Put("}");
2114 [&](const Name &y) { Put("/"), Walk(y), Put("/"); },
2123 Put(" = ");
2129 Put(")");
2134 Put(")");
2181 Put(")");
2200 Put(",");
2213 Put("(");
2217 Put(")");
2221 Put(": ");
2226 Put(",");
2259 Put(")");
2265 Put(")");
2524 Put("\n");
2537 Put("\n");
2540 Put("\n");
2552 Put("\n");
2562 Put("\n");
2575 Put("\n");
2588 Put("\n");
2608 Put("\n");
2615 Put(" (");
2617 Put(")");
2619 Put("\n");
2625 Put("\n");
2632 Put("\n");
2644 Put("\n");
2651 Put("\n");
2660 Put("("), Walk(x.v), Put(")");
2665 Put(")");
2673 Put("()");
2682 Put("(");
2683 Walk(std::get<OmpReductionIdentifier>(x.t)), Put(" : ");
2684 Walk(std::get<std::list<DeclarationTypeSpec>>(x.t), ","), Put(" : ");
2686 Put(")");
2697 Put(":");
2700 Put("::");
2702 Put(")");
2705 Put("\n");
2713 Put("\n");
2720 Put("\n");
2727 Put("\n");
2734 Put(")\n");
2745 Put("\n");
2749 Put("\n");
2754 Put("\n");
2758 Put("\n");
2776 Put("\n");
2787 Put("\n");
2793 Put("\n");
2800 Put("\n");
2808 Put("\n");
2814 Put(")");
2829 Put("\n");
2835 Put("(");
2837 Put(") ");
2839 Put("\n");
2847 Put("\n");
2855 Put("\n");
2864 Put("\n");
2871 Put("\n");
2877 Put("\n");
2884 Put("\n");
2890 Put('('), Walk(std::get<0>(x.t)), Put(","), Walk(std::get<1>(x.t));
2891 Walk("(", std::get<std::optional<ArraySpec>>(x.t), ")"), Put(')');
2926 Word("IF ("), Walk(std::get<Expr>(x.t)), Put(") ");
2927 Walk(std::get<1>(x.t)), Put(", ");
2928 Walk(std::get<2>(x.t)), Put(", ");
3063 void Put(char);
3064 void Put(const char *);
3065 void Put(const std::string &);
3156 void UnparseVisitor::Put(char ch) {
3193 void UnparseVisitor::Put(const char *str) {
3195 Put(*str);
3199 void UnparseVisitor::Put(const std::string &str) {
3201 Put(ch);
3208 Put(QuoteCharacterLiteral(encoded, backslashEscapes_));
3213 Put(ToUpperCaseLetter(ch));
3215 Put(ToLowerCaseLetter(ch));