Diff for /gforth/wf.fs between versions 1.55 and 1.57

version 1.55, 2008/07/15 16:11:49 version 1.57, 2008/10/06 19:31:36
Line 380  Create do-words  $100 0 [DO] ' .text , [ Line 380  Create do-words  $100 0 [DO] ' .text , [
 : >tag '\ parse type '\ parse tag ;  : >tag '\ parse type '\ parse tag ;
   
 char>tag * b  char>tag * b
   char>tag / i
 char>tag _ em  char>tag _ em
 char>tag # code  char>tag # code
 :noname  '~ parse .type '~ parse .type ; '~ cells do-words + !  :noname  '~ parse .type '~ parse .type ; '~ cells do-words + !
Line 531  true Value toc-image Line 532  true Value toc-image
     IF  -env cr s" p" >env  THEN ;      IF  -env cr s" p" >env  THEN ;
   
 : print-toc ( -- ) toc-index off cr  : print-toc ( -- ) toc-index off cr
     toc-image IF  s" img-menu"  ELSE  s" menu"  THEN id=      toc-image IF  s" img-menu"  ELSE  s" menu"  THEN class=
     s" div" >env cr s" p" >env      s" div" >env cr s" p" >env
     0 parse      0 parse
     dup 0= IF  toc-name $! 0  ELSE      dup 0= IF  toc-name $! 0  ELSE
Line 579  longtags set-current Line 580  longtags set-current
 : p<< s" p" >env ;  : p<< s" p" >env ;
 : <<  +env ;  : <<  +env ;
 : <*  s" center" class= ;  : <*  s" center" class= ;
 : <red  s" p" >env s" #ff0000" s" color" opt s" font" >env parse-par ;  : <red  s" red" class= s" p" >env parse-par ;
 : red> -env -env ;  : red> -env ;
 : >>  -env ;  : >>  -env ;
 : *> ;  : *> ;
 : ::  interpret ;  : ::  interpret ;

Removed from v.1.55  
changed lines
  Added in v.1.57


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