Diff for /gforth/ds2texi.fs between versions 1.1 and 1.3

version 1.1, 1994/10/24 19:15:55 version 1.3, 1995/01/10 18:57:41
Line 7 Line 7
 \ The glossary entries are generated from data present in the wordlist  \ The glossary entries are generated from data present in the wordlist
 \ `documentation'. Each word resides there under its own name.  \ `documentation'. Each word resides there under its own name.
   
   script? [IF]
   warnings off
   include search-order.fs
   include struct.fs
   include debugging.fs
   [THEN]
   
 wordlist constant documentation  wordlist constant documentation
   
 struct  struct
Line 34  end-struct doc-entry Line 41  end-struct doc-entry
     drop ;      drop ;
   
 : print-short ( doc-entry -- )  : print-short ( doc-entry -- )
     >r ." @format"      >r ." @format" cr
     ." @code{" r@ doc-name 2@ typetexi ." }       "      ." @code{" r@ doc-name 2@ typetexi ." }       "
     ." @i{" r@ doc-stack-effect 2@ type ." }       "      ." @i{" r@ doc-stack-effect 2@ type ." }       "
     r@ doc-wordset 2@ type ."        ``"      r@ doc-wordset 2@ type ."        ``"
     r@ doc-pronounciation 2@ type ." ''@end format" cr      r@ doc-pronounciation 2@ type ." ''" cr ." @end format" cr
     rdrop ;      rdrop ;
   
 : print-doc ( doc-entry -- )  : print-doc ( doc-entry -- )
Line 92  create docline doclinelength chars allot Line 99  create docline doclinelength chars allot
         docline swap process-line          docline swap process-line
     repeat      repeat
     drop rdrop ;      drop rdrop ;
   
   script? [IF]
   include prims2x.fs
   s" primitives.b" ' register-doc process-file
   s" gforth.ds" r/o open-file throw ds2texi bye
   [THEN]

Removed from v.1.1  
changed lines
  Added in v.1.3


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>