[gforth] / gforth / regexp-test.fs  

gforth: gforth/regexp-test.fs

Diff for /gforth/regexp-test.fs between version 1.18 and 1.19

version 1.18, Sun Sep 12 22:14:12 2010 UTC version 1.19, Sun Oct 10 19:34:16 2010 UTC
Line 178 
Line 178 
 ?depth  ?depth
   
 : hms>s,del() ( addr u -- addr' u' )  : hms>s,del() ( addr u -- addr' u' )
   s// {{ ` ( .? .? .? ` ) >> <<" ()"    s// {{ ` ( // ` ) >> <<" ()"
       || \( \d \d \) ` : \( \d \d \) ` : \( \d \d \)        || \( \d \d \) ` : \( \d \d \) ` : \( \d \d \)
          >> \1 s>number drop 60 *           >> \1 s>number drop 60 *
             \2 s>number drop + 60 *              \2 s>number drop + 60 *

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help