( Retro Documentation Markup Language )
( ----------------------------------- )
( This is specifically intended to be a simple markup language that )
( can be used for a variety of types of documents. It is our ultimate )
( goal to be able to dump the output into text, manpage, and html )
( formats. )
0 last @
( Metadata )
: \author lnparse 2drop ;
: \title lnparse 2drop ;
: \copyright lnparse 2drop ;
: \comment lnparse 2drop ;
: \format-html ." " cr
." " cr
." " cr
." " cr
." " cr
." " cr ;
: \link ." " wsparse type ." " ;
: \image ." " space ;
: \t lnparse ."
" eval ."
" cr ;
: \p cr ."
" ;
: \end ." " bye ;
: \b ." " wsparse type ." " space ;
: \i ." " wsparse type ." " space ;
: \br ." " cr ;
: \n lnparse type cr ;
: \pre ."
" cr ;
: \-pre ."
" cr ;
: & ." &" space ;
: < ." <" space ;
: > ." >" space ;
: << ." <<" space ;
: >> ." >>" space ;
: if ." >if" space ;
: <>if ." <>if" space ;
: <> ." <>" space ;
: r> ." r>" space ;
: >r ." >r" space ;
here is word? ] type space true ;
here is >number ] false ;
!