158 lines
2.1 KiB
Text
158 lines
2.1 KiB
Text
: 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
|
|
;
|