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