version 1.3, 2000/09/23 15:06:02
|
version 1.5, 2005/01/05 16:25:26
|
Line 16
|
Line 16
|
|
|
\ 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, write to the Free Software |
\ along with this program; if not, write to the Free Software |
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. |
|
|
: delete ( buffer size count -- ) |
: delete ( buffer size count -- ) |
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 ; |