21
0 internalmode ignore ;
24
1 internalmode ignore ;
26
- input stack { a b } output b if internal, a if external
28
"" swap 1 internalmode maybecatstr
30
"" swap 0 internalmode maybecatstr
34
- Put note in output string, regardless of internal mode.
42
- SENUM enum-type-name
44
- ENUMX addl-enum-name
45
- ENUMDOC doc for preceding enums
46
- ENDSENUM max-enum-name
52
swap " _dummy_first_" swap catstr catstr
55
: make_string_table_header
57
"#ifdef _BFD_MAKE_TABLE_" swap catstr swap
58
"\n\nstatic const char *const " swap catstr catstr
59
"_names[] = { \"@@uninitialized@@\",\n" catstr
68
make_string_table_header
71
get_stuff_in_command catstr
75
copy_past_newline strip_trailing_newlines
77
" " swap catstr " };\n" catstr swap
78
" \"@@overflow: " swap catstr "@@\",\n};\n#endif\n\n" catstr
86
: make_enumerator_string
97
make_enumerator_string
100
: ENUMX ENUM catstr ;
104
copy_past_newline remchar
110
"" swap 0 internalmode maybecatstr
112
: ENUMEQX ENUMEQ catstr ;
116
strip_trailing_newlines
117
"\n{* " swap catstr " *}\n" catstr
119
- discard it if we're doing internal mode
120
"" swap 0 internalmode maybecatstr
126
: SUBSECTION ignore ;
127
: SUBSUBSECTION ignore ;
128
: INTERNAL_DEFINITION internal ;
129
: DESCRIPTION ignore ;
130
: FUNCTION external ;
133
: INTERNAL_FUNCTION internal ;
134
: INTERNAL internal ;