URL https://opencores.org/ocsvn/open8_urisc/open8_urisc/trunk

Subversion Repositories open8_urisc

[/] [open8_urisc/] [trunk/] [gnu/] [binutils/] [bfd/] [doc/] [proto.str] - Blame information for rev 241

Go to most recent revision | Details | Compare with Previous | View Log


 
: SYNOPSIS
        skip_past_newline
        get_stuff_in_command
        paramstuff
        indent
        maybecatstr
;
 
: ignore
        skip_past_newline
        get_stuff_in_command
        outputdots
        maybecatstr
        ;
 
: CODE_FRAGMENT
        ignore ;
 
: external
 
 
: internal
        1 internalmode ignore ;
 
- input stack { a b } output b if internal, a if external
: ifinternal
        "" swap 1 internalmode maybecatstr
        swap
        "" swap 0 internalmode maybecatstr
        catstr
        ;
 
- Put note in output string, regardless of internal mode.
: COMMENT
        skip_past_newline
        get_stuff_in_command
        translatecomments
        catstr
        ;
 
- SENUM    enum-type-name
- ENUM     enum-name
- ENUMX    addl-enum-name
- ENUMDOC  doc for preceding enums
- ENDSENUM max-enum-name
 
: make_enum_header
        dup
        "enum " swap catstr
        " {\n" catstr
        swap "  _dummy_first_" swap catstr catstr
        ",\n" catstr
        ;
: make_string_table_header
        dup
        "#ifdef _BFD_MAKE_TABLE_" swap catstr swap
        "\n\nstatic const char *const " swap catstr catstr
        "_names[] = { \"@@uninitialized@@\",\n" catstr
        ;
: SENUM
        skip_past_newline
        copy_past_newline
        remchar
        dup
        make_enum_header
        swap
        make_string_table_header
        ifinternal
        catstr
        get_stuff_in_command catstr
        translatecomments ;
: ENDSENUM
        skip_past_newline
        copy_past_newline strip_trailing_newlines
        dup
        "  " swap catstr " };\n" catstr swap
        " \"@@overflow: " swap catstr "@@\",\n};\n#endif\n\n" catstr
        ifinternal
        catstr
        ;
: make_enumerator
        "  " swap catstr
        ",\n" catstr
        ;
: make_enumerator_string
        "  \"" swap catstr
        "\",\n" catstr
        ;
: ENUM
        skip_past_newline
        copy_past_newline
        remchar
        dup
        make_enumerator
        swap
        make_enumerator_string
        ifinternal
        ;
: ENUMX ENUM catstr ;
: ENUMEQ
        skip_past_newline
        "#define "
        copy_past_newline remchar
        catstr
        " "
        catstr
        copy_past_newline
        catstr
        "" swap 0 internalmode maybecatstr
        ;
: ENUMEQX ENUMEQ catstr ;
: ENUMDOC
        skip_past_newline
        get_stuff_in_command
        strip_trailing_newlines
        "\n{* " swap catstr "  *}\n" catstr
        translatecomments
        - discard it if we're doing internal mode
        "" swap 0 internalmode maybecatstr
        swap
        catstr catstr
        ;
: ENDDD external ;
: SECTION ignore ;
: SUBSECTION ignore ;
: SUBSUBSECTION ignore ;
: INTERNAL_DEFINITION internal ;
: DESCRIPTION ignore ;
: FUNCTION external ;
: RETURNS ignore ;
: TYPEDEF external ;
: INTERNAL_FUNCTION internal ;
: INTERNAL internal ;
: INODE ignore ;

Line No.	Rev	Author	Line
1	14	khays
2			`: SYNOPSIS`
3			`skip_past_newline`
4			`get_stuff_in_command`
5			`paramstuff`
6			`indent`
7			`maybecatstr`
8			`;`
9
10			`: ignore`
11			`skip_past_newline`
12			`get_stuff_in_command`
13			`outputdots`
14			`maybecatstr`
15			`;`
16
17			`: CODE_FRAGMENT`
18			`ignore ;`
19
20			`: external`
21
22
23			`: internal`
24			`1 internalmode ignore ;`
25
26			`- input stack { a b } output b if internal, a if external`
27			`: ifinternal`
28			`"" swap 1 internalmode maybecatstr`
29			`swap`
30			`"" swap 0 internalmode maybecatstr`
31			`catstr`
32			`;`
33
34			`- Put note in output string, regardless of internal mode.`
35			`: COMMENT`
36			`skip_past_newline`
37			`get_stuff_in_command`
38			`translatecomments`
39			`catstr`
40			`;`
41
42			`- SENUM enum-type-name`
43			`- ENUM enum-name`
44			`- ENUMX addl-enum-name`
45			`- ENUMDOC doc for preceding enums`
46			`- ENDSENUM max-enum-name`
47
48			`: make_enum_header`
49			`dup`
50			`"enum " swap catstr`
51			`" {\n" catstr`
52			`swap " _dummy_first_" swap catstr catstr`
53			`",\n" catstr`
54			`;`
55			`: make_string_table_header`
56			`dup`
57			`"#ifdef _BFD_MAKE_TABLE_" swap catstr swap`
58			`"\n\nstatic const char *const " swap catstr catstr`
59			`"_names[] = { \"@@uninitialized@@\",\n" catstr`
60			`;`
61			`: SENUM`
62			`skip_past_newline`
63			`copy_past_newline`
64			`remchar`
65			`dup`
66			`make_enum_header`
67			`swap`
68			`make_string_table_header`
69			`ifinternal`
70			`catstr`
71			`get_stuff_in_command catstr`
72			`translatecomments ;`
73			`: ENDSENUM`
74			`skip_past_newline`
75			`copy_past_newline strip_trailing_newlines`
76			`dup`
77			`" " swap catstr " };\n" catstr swap`
78			`" \"@@overflow: " swap catstr "@@\",\n};\n#endif\n\n" catstr`
79			`ifinternal`
80			`catstr`
81			`;`
82			`: make_enumerator`
83			`" " swap catstr`
84			`",\n" catstr`
85			`;`
86			`: make_enumerator_string`
87			`" \"" swap catstr`
88			`"\",\n" catstr`
89			`;`
90			`: ENUM`
91			`skip_past_newline`
92			`copy_past_newline`
93			`remchar`
94			`dup`
95			`make_enumerator`
96			`swap`
97			`make_enumerator_string`
98			`ifinternal`
99			`;`
100			`: ENUMX ENUM catstr ;`
101			`: ENUMEQ`
102			`skip_past_newline`
103			`"#define "`
104			`copy_past_newline remchar`
105			`catstr`
106			`" "`
107			`catstr`
108			`copy_past_newline`
109			`catstr`
110			`"" swap 0 internalmode maybecatstr`
111			`;`
112			`: ENUMEQX ENUMEQ catstr ;`
113			`: ENUMDOC`
114			`skip_past_newline`
115			`get_stuff_in_command`
116			`strip_trailing_newlines`
117			`"\n{* " swap catstr " *}\n" catstr`
118			`translatecomments`
119			`- discard it if we're doing internal mode`
120			`"" swap 0 internalmode maybecatstr`
121			`swap`
122			`catstr catstr`
123			`;`
124			`: ENDDD external ;`
125			`: SECTION ignore ;`
126			`: SUBSECTION ignore ;`
127			`: SUBSUBSECTION ignore ;`
128			`: INTERNAL_DEFINITION internal ;`
129			`: DESCRIPTION ignore ;`
130			`: FUNCTION external ;`
131			`: RETURNS ignore ;`
132			`: TYPEDEF external ;`
133			`: INTERNAL_FUNCTION internal ;`
134			`: INTERNAL internal ;`
135			`: INODE ignore ;`

Browse

Tools

Subversion Repositories open8_urisc

[/] [open8_urisc/] [trunk/] [gnu/] [binutils/] [bfd/] [doc/] [proto.str] - Blame information for rev 241