Diff for /gforth/wf.fs between versions 1.36 and 1.39

version 1.36, 2005/06/05 22:11:09 version 1.39, 2005/09/27 13:50:43
Line 42  require string.fs Line 42  require string.fs
         case          case
             '& of  ." &"  endof              '& of  ." &"  endof
             '< of  ." &lt;"   endof              '< of  ." &lt;"   endof
             ' of  ." &euro;" endof  \           ' of  ." &euro;" endof
             dup emit              dup emit
         endcase          endcase
     LOOP ;      LOOP ;
Line 192  Create jfif   $FF c, $D8 c, $FF c, $E0 c Line 192  Create jfif   $FF c, $D8 c, $FF c, $E0 c
   scratch r> 0 max /string 0 max -zeros    scratch r> 0 max /string 0 max -zeros
   dup IF  '. emit  THEN  type ;    dup IF  '. emit  THEN  type ;
   
   12.9e FConstant pixels
   FVariable factor  1e factor f!
   
 : size-does> ( -- )  DOES> ( -- )  : size-does> ( -- )  DOES> ( -- )
     ." img." dup body> >name .name      ." img." dup body> >name .name
     2@ ." { width: "      2@ ." { width: "
     s>d d>f 13.8e f/ f.size ." em; height: "      s>d d>f pixels f/ f.size ." em; height: "
     s>d d>f 13.8e f/ f.size ." em; }" cr ;      s>d d>f pixels f/ f.size ." em; }" cr ;
   
 : size-css ( file< > -- )  : size-css ( file< > -- )
     outfile-id >r      outfile-id >r
Line 214  Create jfif   $FF c, $D8 c, $FF c, $E0 c Line 217  Create jfif   $FF c, $D8 c, $FF c, $E0 c
     2dup img-sizes search-wordlist  IF  drop 2drop      2dup img-sizes search-wordlist  IF  drop 2drop
     ELSE      ELSE
         get-current >r img-sizes set-current          get-current >r img-sizes set-current
         nextname Create 2dup , , size-does>          nextname Create 2dup
           s>d d>f factor f@ f* f>d d>s ,
           s>d d>f factor f@ f* f>d d>s ,
           size-does>
         r> set-current          r> set-current
     THEN ;      THEN ;
   
Line 508  true Value toc-image Line 514  true Value toc-image
                 3  OF  s" down" class=  ENDOF                  3  OF  s" down" class=  ENDOF
             ENDCASE              ENDCASE
         THEN          THEN
         s" a" tagged          s" a" tag parse-string s" a" /tag
     THEN      THEN
     rdrop      rdrop
     1 toc-index +! toc-index @ /toc-line mod 0=      1 toc-index +! toc-index @ /toc-line mod 0=

Removed from v.1.36  
changed lines
  Added in v.1.39


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