+: 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 translatecomments
+ get_stuff_in_command kill_bogus_lines do_fancy_stuff translatecomments
courierize catstr
;
-: NODE
+: INODE
"@node " catstr skip_past_newline copy_past_newline catstr
;
EXAMPLE
;
+: COMMENT
+ skip_past_newline
+ get_stuff_in_command
+ drop
+ ;
+
: SYNOPSIS
skip_past_newline
"@strong{Synopsis}\n" catstr
: bodytext
get_stuff_in_command
+ bulletize
kill_bogus_lines
do_fancy_stuff
- bulletize
courierize
catstr
- "@*\n" catstr
+ "\n" catstr
;
: asection
: 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
+ ;