version 1.4, 2000/09/23 15:46:59
|
version 1.5, 2005/01/05 16:25:26
|
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 ; |