version 1.64, 2009/10/03 18:25:31
|
version 1.68, 2011/08/10 13:55:02
|
Line 1
|
Line 1
|
\ EXTEND.FS CORE-EXT Word not fully tested! 12may93jaw |
\ EXTEND.FS CORE-EXT Word not fully tested! 12may93jaw |
|
|
\ Copyright (C) 1995,1998,2000,2003,2005,2007 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1998,2000,2003,2005,2007,2009,2010 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 63 decimal
|
Line 63 decimal
|
0 CONSTANT case ( compilation -- case-sys ; run-time -- ) \ core-ext |
0 CONSTANT case ( compilation -- case-sys ; run-time -- ) \ core-ext |
immediate |
immediate |
|
|
|
: ?of ( compilation -- of-sys ; run-time f -- ) \ gforth |
|
1+ >r POSTPONE if r> ; immediate |
|
|
: of ( compilation -- of-sys ; run-time x1 x2 -- |x1 ) \ core-ext |
: of ( compilation -- of-sys ; run-time x1 x2 -- |x1 ) \ core-ext |
\ !! the implementation does not match the stack effect |
\ !! the implementation does not match the stack effect |
1+ >r |
postpone over postpone = postpone ?of postpone drop ; immediate |
postpone over postpone = postpone if postpone drop |
|
r> ; immediate |
|
|
|
: endof ( compilation case-sys1 of-sys -- case-sys2 ; run-time -- ) \ core-ext end-of |
: endof ( compilation case-sys1 of-sys -- case-sys2 ; run-time -- ) \ core-ext end-of |
>r postpone else r> ; immediate |
>r postpone else r> ; immediate |
Line 199 variable span ( -- c-addr ) \ core-ext-o
|
Line 200 variable span ( -- c-addr ) \ core-ext-o
|
\G editing capabilites are available. The length of the string is |
\G editing capabilites are available. The length of the string is |
\G stored in @code{span}; it does not include the <return> |
\G stored in @code{span}; it does not include the <return> |
\G character. OBSOLESCENT: superceeded by @code{accept}. |
\G character. OBSOLESCENT: superceeded by @code{accept}. |
|
everyline |
0 rot over |
0 rot over |
BEGIN ( maxlen span c-addr pos1 ) |
BEGIN ( maxlen span c-addr pos1 ) |
key decode ( maxlen span c-addr pos2 flag ) |
xkey decode ( maxlen span c-addr pos2 flag ) |
>r 2over = r> or |
>r 2over = r> or |
UNTIL |
UNTIL |
2 pick swap /string type |
2 pick swap /string type |