[gforth] / gforth / float.fs  

gforth: gforth/float.fs

Diff for /gforth/float.fs between version 1.65 and 1.66

version 1.65, Sat May 26 10:20:01 2012 UTC version 1.66, Sat May 26 10:35:35 2012 UTC
Line 131 
Line 131 
 [IFDEF] fp-char  [IFDEF] fp-char
 : sfnumber ( c-addr u -- r true | false )  : sfnumber ( c-addr u -- r true | false )
     fp-char @ >float1 ;      fp-char @ >float1 ;
   
   Create si-prefixes ," PTGMk.munpf"
   si-prefixes count '.' scan drop Constant zero-exp
   
   : prefix-number ( c-addr u -- r true | false )
       si-prefixes count bounds DO
           2dup I c@ scan nip 0<> IF
               I c@ >float1
               dup IF  1000 s>f zero-exp I - s>f f** f*  THEN
               UNLOOP  EXIT  THEN
       LOOP
       sfnumber ;
 [ELSE]  [ELSE]
 : sfnumber ( c-addr u -- r true | false )  : sfnumber ( c-addr u -- r true | false )
     >float ;      >float ;
   : prefix-number  sfnumber ;
 [THEN]  [THEN]
   
 [ifdef] recognizer:  [ifdef] recognizer:
Line 149 
Line 162 
     recognizer: r:fnumber      recognizer: r:fnumber
   
     : fnum-recognizer ( addr u -- float int-table | addr u r:fail )      : fnum-recognizer ( addr u -- float int-table | addr u r:fail )
         2dup sfnumber          2dup prefix-number
         IF          IF
             2drop r:fnumber  EXIT              2drop r:fnumber  EXIT
         THEN          THEN

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help