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 ( -- ) |