12159047fSniklas: DOCDD 22159047fSniklas skip_past_newline 32159047fSniklas get_stuff_in_command kill_bogus_lines catstr 42159047fSniklas ; 52159047fSniklas 62159047fSniklas: ENDDD 72159047fSniklas skip_past_newline 82159047fSniklas ; 92159047fSniklas 102159047fSniklas: EXAMPLE 112159047fSniklas skip_past_newline 122159047fSniklas get_stuff_in_command kill_bogus_lines do_fancy_stuff translatecomments 132159047fSniklas courierize catstr 142159047fSniklas 152159047fSniklas ; 162159047fSniklas 172159047fSniklas: INODE 182159047fSniklas "@node " catstr skip_past_newline copy_past_newline catstr 192159047fSniklas ; 202159047fSniklas 212159047fSniklas: CODE_FRAGMENT 222159047fSniklas EXAMPLE 232159047fSniklas ; 242159047fSniklas 252159047fSniklas: COMMENT 262159047fSniklas skip_past_newline 272159047fSniklas get_stuff_in_command 282159047fSniklas drop 292159047fSniklas ; 302159047fSniklas 312159047fSniklas: SYNOPSIS 322159047fSniklas skip_past_newline 332159047fSniklas "@strong{Synopsis}\n" catstr 342159047fSniklas "@example\n" catstr 352159047fSniklas get_stuff_in_command 362159047fSniklas kill_bogus_lines 372159047fSniklas indent 382159047fSniklas catstr 392159047fSniklas "@end example\n" catstr 402159047fSniklas 412159047fSniklas ; 422159047fSniklas 432159047fSniklas: func 442159047fSniklas "@findex " - a 452159047fSniklas skip_past_newline 462159047fSniklas copy_past_newline 472159047fSniklas dup - a x x 482159047fSniklas "@subsubsection @code{" - a x x b 492159047fSniklas swap 502159047fSniklas remchar 512159047fSniklas "}\n" - a x b x c 522159047fSniklas catstr catstr catstr catstr catstr 532159047fSniklas ; 542159047fSniklas 552159047fSniklas: FUNCTION 562159047fSniklas "@findex " - a 572159047fSniklas skip_past_newline 582159047fSniklas copy_past_newline 592159047fSniklas dup - a x x 602159047fSniklas "@subsubsection @code{" - a x x b 612159047fSniklas swap 622159047fSniklas remchar 632159047fSniklas "}\n" - a x b x c 642159047fSniklas catstr catstr catstr catstr catstr 652159047fSniklas ; 662159047fSniklas 672159047fSniklas: bodytext 682159047fSniklas get_stuff_in_command 692159047fSniklas bulletize 702159047fSniklas kill_bogus_lines 712159047fSniklas do_fancy_stuff 722159047fSniklas courierize 732159047fSniklas catstr 74*f7cc78ecSespie "\n" catstr 752159047fSniklas ; 762159047fSniklas 772159047fSniklas: asection 782159047fSniklas skip_past_newline 792159047fSniklas catstr 802159047fSniklas copy_past_newline 812159047fSniklas do_fancy_stuff catstr 822159047fSniklas bodytext 832159047fSniklas ; 842159047fSniklas 852159047fSniklas: SECTION 862159047fSniklas "@section " asection ; 872159047fSniklas 882159047fSniklas: SUBSECTION 892159047fSniklas "@subsection " asection ; 902159047fSniklas 912159047fSniklas: SUBSUBSECTION 922159047fSniklas "@subsubsection " asection ; 932159047fSniklas 942159047fSniklas: subhead 952159047fSniklas skip_past_newline 962159047fSniklas bodytext 972159047fSniklas ; 982159047fSniklas 992159047fSniklas 1002159047fSniklas 1012159047fSniklas 1022159047fSniklas: DESCRIPTION 1032159047fSniklas "@strong{Description}@*\n" catstr subhead ; 1042159047fSniklas 1052159047fSniklas: RETURNS 1062159047fSniklas "@strong{Returns}@*\n" catstr subhead ; 1072159047fSniklas 1082159047fSniklas: INTERNAL_FUNCTION 1092159047fSniklas func ; 1102159047fSniklas 1112159047fSniklas 1122159047fSniklas: INTERNAL_DEFINITION 1132159047fSniklas func ; 1142159047fSniklas 1152159047fSniklas 1162159047fSniklas: INTERNAL 1172159047fSniklas func ; 1182159047fSniklas 1192159047fSniklas: TYPEDEF 1202159047fSniklas FUNCTION ; 1212159047fSniklas 1222159047fSniklas: SENUM 1232159047fSniklas skip_past_newline 1242159047fSniklas "Here are the possible values for @code{enum " 1252159047fSniklas copy_past_newline remchar catstr 1262159047fSniklas "}:\n\n" catstr catstr 1272159047fSniklas ; 1282159047fSniklas: ENUM 1292159047fSniklas skip_past_newline 1302159047fSniklas "@deffn {} " 1312159047fSniklas copy_past_newline catstr catstr 1322159047fSniklas ; 1332159047fSniklas: ENUMX 1342159047fSniklas skip_past_newline 1352159047fSniklas "@deffnx {} " 1362159047fSniklas copy_past_newline catstr 1372159047fSniklas catstr 1382159047fSniklas ; 1392159047fSniklas: ENUMEQ 1402159047fSniklas skip_past_newline 1412159047fSniklas "@deffn {} " 1422159047fSniklas copy_past_newline catstr catstr 1432159047fSniklas skip_past_newline 1442159047fSniklas ; 1452159047fSniklas: ENUMEQX 1462159047fSniklas skip_past_newline 1472159047fSniklas "@deffnx {} " 1482159047fSniklas copy_past_newline catstr 1492159047fSniklas catstr 1502159047fSniklas skip_past_newline 1512159047fSniklas ; 1522159047fSniklas: ENUMDOC 1532159047fSniklas skip_past_newline 1542159047fSniklas get_stuff_in_command 1552159047fSniklas strip_trailing_newlines 1562159047fSniklas catstr 1572159047fSniklas "\n@end deffn\n" catstr 1582159047fSniklas ; 159