Diff for /gforth/wf.fs between versions 1.45 and 1.50

version 1.45, 2006/03/19 23:27:38 version 1.50, 2006/12/31 13:39:14
Line 1 Line 1
 \ wiki forth  \ wiki forth
   
 \ Copyright (C) 2003,2004,2005 Free Software Foundation, Inc.  \ Copyright (C) 2003,2004,2005,2006 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 43  require string.fs Line 43  require string.fs
         case          case
             '& of  ." &"  endof              '& of  ." &"  endof
             '< of  ." &lt;"   endof              '< of  ." &lt;"   endof
 \           ' of  ." &euro;" endof  \           &164 of  ." &euro;" endof
             dup emit              dup emit
         endcase          endcase
     LOOP ;      LOOP ;
Line 68  s" " default-class $! Line 68  s" " default-class $!
 : tagged ( addr1 u1 addr2 u2 -- )  2dup 2>r tag .type 2r> /tag ;  : tagged ( addr1 u1 addr2 u2 -- )  2dup 2>r tag .type 2r> /tag ;
   
 : opt ( addr u opt u -- )  s"  " tag-option $+!  : opt ( addr u opt u -- )  s"  " tag-option $+!
     tag-option $+! s' ="' tag-option $+! tag-option $+!      tag-option $+! s' ="' tag-option $+!
   \    BEGIN  dup  WHILE  '& $split >r >r tag-option $+! r> r>
   \           dup IF  s" %26" tag-option $+!  THEN
   \    REPEAT  2drop
       tag-option $+!
     s' "' tag-option $+! ;      s' "' tag-option $+! ;
 : n>string ( n -- addr u )  0 <# #S #> ;  : n>string ( n -- addr u )  0 <# #S #> ;
 : xy>string ( x y -- )  swap 0 <# #S 'x hold 2drop 0 #S 's hold #> ;  : xy>string ( x y -- )  swap 0 <# #S 'x hold 2drop 0 #S 's hold #> ;

Removed from v.1.45  
changed lines
  Added in v.1.50


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