gforth/string.fs - diff

Return to string.fs CVS log

Up to [gforth] / gforth

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]