Diff for /gforth/regexp-test.fs between versions 1.21 and 1.23

version 1.21, 2010/12/27 22:39:38 version 1.23, 2010/12/31 18:09:02
Line 1 Line 1
 \ regexp test  \ regexp test
   
 \ Copyright (C) 2005,2007,2009 Free Software Foundation, Inc.  \ Copyright (C) 2005,2007,2009,2010 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 211  charclass [*/] '* +char '/ +char Line 211  charclass [*/] '* +char '/ +char
 : underflow3  ( -- )  : underflow3  ( -- )
    ((     ((
       =" /*"        =" /*"
       \( {** {{ [*] -c? || ` * [*/] -c? }}  **} \)        \( {** {{ [*] -c? || ` * [*/] -c? }} **} \)
       {++ ` * ++} ` /        {++ ` * ++} ` /
    )) ;     )) ;
   
 \ this still seems to be too complicated  \ this still seems to be too complicated
 T{ s" /*10203030203030404*/   " underflow3 -> true }T  T{ s" /*10203030203030404*/   " underflow3 .s -> true }T
 \1 type cr  \1 type cr
   
 : underflow4  ( -- )  : underflow4  ( -- )

Removed from v.1.21  
changed lines
  Added in v.1.23


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