Subversion Repositories or1k

: 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
        ;