159 lines
2.1 KiB
Plaintext
159 lines
2.1 KiB
Plaintext
|
: DOCDD
|
||
|
skip_past_newline
|
||
|
get_stuff_in_command kill_bogus_lines catstr
|
||
|
;
|
||
|
|
||
|
: ENDDD
|
||
|
skip_past_newline
|
||
|
;
|
||
|
|
||
|
: EXAMPLE
|
||
|
skip_past_newline
|
||
|
get_stuff_in_command kill_bogus_lines do_fancy_stuff translatecomments
|
||
|
courierize catstr
|
||
|
|
||
|
;
|
||
|
|
||
|
: INODE
|
||
|
"@node " catstr skip_past_newline copy_past_newline catstr
|
||
|
;
|
||
|
|
||
|
: CODE_FRAGMENT
|
||
|
EXAMPLE
|
||
|
;
|
||
|
|
||
|
: COMMENT
|
||
|
skip_past_newline
|
||
|
get_stuff_in_command
|
||
|
drop
|
||
|
;
|
||
|
|
||
|
: SYNOPSIS
|
||
|
skip_past_newline
|
||
|
"@strong{Synopsis}\n" catstr
|
||
|
"@example\n" catstr
|
||
|
get_stuff_in_command
|
||
|
kill_bogus_lines
|
||
|
indent
|
||
|
catstr
|
||
|
"@end example\n" catstr
|
||
|
|
||
|
;
|
||
|
|
||
|
: func
|
||
|
"@findex " - a
|
||
|
skip_past_newline
|
||
|
copy_past_newline
|
||
|
dup - a x x
|
||
|
"@subsubsection @code{" - a x x b
|
||
|
swap
|
||
|
remchar
|
||
|
"}\n" - a x b x c
|
||
|
catstr catstr catstr catstr catstr
|
||
|
;
|
||
|
|
||
|
: FUNCTION
|
||
|
"@findex " - a
|
||
|
skip_past_newline
|
||
|
copy_past_newline
|
||
|
dup - a x x
|
||
|
"@subsubsection @code{" - a x x b
|
||
|
swap
|
||
|
remchar
|
||
|
"}\n" - a x b x c
|
||
|
catstr catstr catstr catstr catstr
|
||
|
;
|
||
|
|
||
|
: bodytext
|
||
|
get_stuff_in_command
|
||
|
bulletize
|
||
|
kill_bogus_lines
|
||
|
do_fancy_stuff
|
||
|
courierize
|
||
|
catstr
|
||
|
"\n" catstr
|
||
|
;
|
||
|
|
||
|
: asection
|
||
|
skip_past_newline
|
||
|
catstr
|
||
|
copy_past_newline
|
||
|
do_fancy_stuff catstr
|
||
|
bodytext
|
||
|
;
|
||
|
|
||
|
: SECTION
|
||
|
"@section " asection ;
|
||
|
|
||
|
: SUBSECTION
|
||
|
"@subsection " asection ;
|
||
|
|
||
|
: SUBSUBSECTION
|
||
|
"@subsubsection " asection ;
|
||
|
|
||
|
: subhead
|
||
|
skip_past_newline
|
||
|
bodytext
|
||
|
;
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
: DESCRIPTION
|
||
|
"@strong{Description}@*\n" catstr subhead ;
|
||
|
|
||
|
: RETURNS
|
||
|
"@strong{Returns}@*\n" catstr subhead ;
|
||
|
|
||
|
: INTERNAL_FUNCTION
|
||
|
func ;
|
||
|
|
||
|
|
||
|
: INTERNAL_DEFINITION
|
||
|
func ;
|
||
|
|
||
|
|
||
|
: INTERNAL
|
||
|
func ;
|
||
|
|
||
|
: TYPEDEF
|
||
|
FUNCTION ;
|
||
|
|
||
|
: SENUM
|
||
|
skip_past_newline
|
||
|
"Here are the possible values for @code{enum "
|
||
|
copy_past_newline remchar catstr
|
||
|
"}:\n\n" catstr catstr
|
||
|
;
|
||
|
: ENUM
|
||
|
skip_past_newline
|
||
|
"@deffn {} "
|
||
|
copy_past_newline catstr catstr
|
||
|
;
|
||
|
: ENUMX
|
||
|
skip_past_newline
|
||
|
"@deffnx {} "
|
||
|
copy_past_newline catstr
|
||
|
catstr
|
||
|
;
|
||
|
: ENUMEQ
|
||
|
skip_past_newline
|
||
|
"@deffn {} "
|
||
|
copy_past_newline catstr catstr
|
||
|
skip_past_newline
|
||
|
;
|
||
|
: ENUMEQX
|
||
|
skip_past_newline
|
||
|
"@deffnx {} "
|
||
|
copy_past_newline catstr
|
||
|
catstr
|
||
|
skip_past_newline
|
||
|
;
|
||
|
: ENUMDOC
|
||
|
skip_past_newline
|
||
|
get_stuff_in_command
|
||
|
strip_trailing_newlines
|
||
|
catstr
|
||
|
"\n@end deffn\n" catstr
|
||
|
;
|