version 1.13, 2011/01/01 14:22:47
|
version 1.14, 2011/01/09 20:04:15
|
Line 17
|
Line 17
|
\ You should have received a copy of the GNU General Public License |
\ You should have received a copy of the GNU General Public License |
\ along with this program. If not, see http://www.gnu.org/licenses/. |
\ along with this program. If not, see http://www.gnu.org/licenses/. |
|
|
|
[IFUNDEF] $! |
: delete ( buffer size n -- ) \ gforth-string |
: delete ( buffer size n -- ) \ gforth-string |
\G deletes the first @var{n} bytes from a buffer and fills the |
\G deletes the first @var{n} bytes from a buffer and fills the |
\G rest at the end with blanks. |
\G rest at the end with blanks. |
Line 81
|
Line 82
|
>r >r |
>r >r |
$@ BEGIN dup WHILE r@ $split i' -rot >r >r execute r> r> |
$@ BEGIN dup WHILE r@ $split i' -rot >r >r execute r> r> |
REPEAT 2drop rdrop rdrop ; |
REPEAT 2drop rdrop rdrop ; |
|
[THEN] |
|
|