version 1.4, 2000/09/23 15:46:59
|
version 1.6, 2005/12/31 15:46:10
|
Line 1
|
Line 1
|
\ dynamic string handling 10aug99py |
\ dynamic string handling 10aug99py |
|
|
\ Copyright (C) 2000 Free Software Foundation, Inc. |
\ Copyright (C) 2000,2005 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 22
|
Line 22
|
over min >r r@ - ( left over ) dup 0> |
over min >r r@ - ( left over ) dup 0> |
IF 2dup swap dup r@ + -rot swap move THEN + r> bl fill ; |
IF 2dup swap dup r@ + -rot swap move THEN + r> bl fill ; |
|
|
|
[IFUNDEF] insert |
: insert ( string length buffer size -- ) |
: insert ( string length buffer size -- ) |
rot over min >r r@ - ( left over ) |
rot over min >r r@ - ( left over ) |
over dup r@ + rot move r> move ; |
over dup r@ + rot move r> move ; |
|
[THEN] |
|
|
: $padding ( n -- n' ) |
: $padding ( n -- n' ) |
[ 6 cells ] Literal + [ -4 cells ] Literal and ; |
[ 6 cells ] Literal + [ -4 cells ] Literal and ; |