Diff for /gforth/ds2texi.fs between versions 1.27 and 1.30

version 1.27, 2003/03/09 15:16:47 version 1.30, 2005/12/31 15:46:08
Line 1 Line 1
 \ documentation source to texi format converter  \ documentation source to texi format converter
   
 \ Copyright (C) 1995,1996,1997,1998,1999,2003 Free Software Foundation, Inc.  \ Copyright (C) 1995,1996,1997,1998,1999,2003,2005 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 94  create description-buffer 4096 chars all Line 94  create description-buffer 4096 chars all
 : make-doc ( -- )  : make-doc ( -- )
     get-current documentation set-current      get-current documentation set-current
     create      create
         last @ name>string skip-prefix 2,               \ name          latest name>string skip-prefix 2,               \ name
         [char] ) parse save-mem 2,      \ stack-effect          [char] ) parse save-mem 2,      \ stack-effect
         bl sword condition-wordset 2,   \ wordset          bl sword condition-wordset 2,   \ wordset
         bl sword dup    \ pronounciation          bl sword dup    \ pronounciation
         if          if
             condition-pronounciation              condition-pronounciation
         else          else
             2drop last @ name>string skip-prefix              2drop latest name>string skip-prefix
         endif          endif
         2,          2,
         get-description save-mem 2,          get-description save-mem 2,
Line 167  create description-buffer 4096 chars all Line 167  create description-buffer 4096 chars all
     >r dup >r      >r dup >r
     3 pick over str=      3 pick over str=
     if \ addr2 u2 is a prefix of addr1 u1      if \ addr2 u2 is a prefix of addr1 u1
         r> /string documentation search-wordlist          r> /string -trailing documentation search-wordlist
         if \ the rest of addr1 u1 is in documentation          if \ the rest of addr1 u1 is in documentation
             execute r> execute true              execute r> execute true
         else          else

Removed from v.1.27  
changed lines
  Added in v.1.30


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