Added new word

NODE
which allows nodes to be written to texinfo files.

diff --git a/bfd/doc/doc.str b/bfd/doc/doc.str
new file mode 100644 (file)
index 0000000..9474d34
--- /dev/null
+++ b/bfd/doc/doc.str
@@ -0,0 +1,112 @@
+: ENDDD
+       skip_past_newline
+       ;
+
+: EXAMPLE
+       skip_past_newline       
+
+       get_stuff_in_command kill_bogus_lines translatecomments 
+       courierize catstr
+
+       ;
+
+: NODE 
+       "@node " catstr skip_past_newline copy_past_newline catstr 
+       ;
+
+: CODE_FRAGMENT
+       EXAMPLE 
+       ;
+
+: 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 
+       kill_bogus_lines
+       do_fancy_stuff
+       bulletize
+       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 ;
+
+

diff --git a/bfd/doc/proto.str b/bfd/doc/proto.str
new file mode 100644 (file)
index 0000000..967c85c
--- /dev/null
+++ b/bfd/doc/proto.str
@@ -0,0 +1,37 @@
+
+: SYNOPSIS
+       skip_past_newline
+       get_stuff_in_command    
+       exfunstuff
+       indent
+       maybecatstr
+;
+
+: ignore
+       skip_past_newline 
+       get_stuff_in_command
+       outputdots
+       maybecatstr
+       ;
+
+: CODE_FRAGMENT
+       ignore ;
+
+: external
+       0 internalmode ignore ;
+
+: internal 
+       1 internalmode ignore ;
+
+: ENDDD external ;
+: SECTION ignore ;
+: SUBSECTION ignore ;
+: SUBSUBSECTION ignore ;
+: INTERNAL_DEFINITION internal ;
+: DESCRIPTION ignore ;
+: FUNCTION external ;
+: RETURNS ignore ;
+: TYPEDEF external ;
+: INTERNAL_FUNCTION internal ;
+: INTERNAL internal ;
+: NODE ignore ;