1: DOCDD 2 skip_past_newline 3 get_stuff_in_command kill_bogus_lines catstr 4 ; 5 6: ENDDD 7 skip_past_newline 8 ; 9 10: EXAMPLE 11 skip_past_newline 12 get_stuff_in_command kill_bogus_lines do_fancy_stuff translatecomments 13 courierize catstr 14 15 ; 16 17: INODE 18 "@node " catstr skip_past_newline copy_past_newline catstr 19 ; 20 21: CODE_FRAGMENT 22 EXAMPLE 23 ; 24 25: COMMENT 26 skip_past_newline 27 get_stuff_in_command 28 drop 29 ; 30 31: SYNOPSIS 32 skip_past_newline 33 "@strong{Synopsis}\n" catstr 34 "@example\n" catstr 35 get_stuff_in_command 36 kill_bogus_lines 37 indent 38 catstr 39 "@end example\n" catstr 40 41 ; 42 43: func 44 "@findex " - a 45 skip_past_newline 46 copy_past_newline 47 dup - a x x 48 "@subsubsection @code{" - a x x b 49 swap 50 remchar 51 "}\n" - a x b x c 52 catstr catstr catstr catstr catstr 53 ; 54 55: FUNCTION 56 "@findex " - a 57 skip_past_newline 58 copy_past_newline 59 dup - a x x 60 "@subsubsection @code{" - a x x b 61 swap 62 remchar 63 "}\n" - a x b x c 64 catstr catstr catstr catstr catstr 65 ; 66 67: bodytext 68 get_stuff_in_command 69 bulletize 70 kill_bogus_lines 71 do_fancy_stuff 72 courierize 73 catstr 74 "\n" catstr 75 ; 76 77: asection 78 skip_past_newline 79 catstr 80 copy_past_newline 81 do_fancy_stuff catstr 82 bodytext 83 ; 84 85: SECTION 86 "@section " asection ; 87 88: SUBSECTION 89 "@subsection " asection ; 90 91: SUBSUBSECTION 92 "@subsubsection " asection ; 93 94: subhead 95 skip_past_newline 96 bodytext 97 ; 98 99 100 101 102: DESCRIPTION 103 "@strong{Description}@*\n" catstr subhead ; 104 105: RETURNS 106 "@strong{Returns}@*\n" catstr subhead ; 107 108: INTERNAL_FUNCTION 109 func ; 110 111 112: INTERNAL_DEFINITION 113 func ; 114 115 116: INTERNAL 117 func ; 118 119: TYPEDEF 120 FUNCTION ; 121 122: SENUM 123 skip_past_newline 124 "Here are the possible values for @code{enum " 125 copy_past_newline remchar catstr 126 "}:\n\n" catstr catstr 127 ; 128: ENUM 129 skip_past_newline 130 "@deffn {} " 131 copy_past_newline catstr catstr 132 ; 133: ENUMX 134 skip_past_newline 135 "@deffnx {} " 136 copy_past_newline catstr 137 catstr 138 ; 139: ENUMEQ 140 skip_past_newline 141 "@deffn {} " 142 copy_past_newline catstr catstr 143 skip_past_newline 144 ; 145: ENUMEQX 146 skip_past_newline 147 "@deffnx {} " 148 copy_past_newline catstr 149 catstr 150 skip_past_newline 151 ; 152: ENUMDOC 153 skip_past_newline 154 get_stuff_in_command 155 strip_trailing_newlines 156 catstr 157 "\n@end deffn\n" catstr 158 ; 159