[gforth] / gforth / wf.fs  

gforth: gforth/wf.fs

Diff for /gforth/wf.fs between version 1.27 and 1.28

version 1.27, Sun Aug 29 20:54:48 2004 UTC version 1.28, Wed Dec 1 10:03:00 2004 UTC
Line 161 
Line 161 
     gif? IF  gif-size  rdrop EXIT  THEN      gif? IF  gif-size  rdrop EXIT  THEN
     jpg? IF  r> jpg-size  EXIT  THEN      jpg? IF  r> jpg-size  EXIT  THEN
     png? IF  png-size  rdrop EXIT  THEN      png? IF  png-size  rdrop EXIT  THEN
     0 0 ;      0 0 rdrop ;
   
 : .img-size ( addr u -- )  : .img-size ( addr u -- )
     r/o open-file IF  drop  EXIT  THEN  >r      r/o open-file IF  drop  EXIT  THEN  >r

Generate output suitable for use with a patch program
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help