On Sep 1, 2010, at 6:00 AM, openbios-request@openbios.org wrote:

Message: 5
Date: Tue, 31 Aug 2010 20:11:30 -0400
From: Tarl Neustaedter <tarl-b2@tarl.net>
To: The OpenBIOS Mailinglist <openbios@openbios.org>
Subject: Re: [OpenBIOS] Concatenating strings
Message-ID: <4C7D9A32.2070300@tarl.net>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed

On 2010-8-31 8:06 PM, Programmingkid wrote:

Could someone provide me with a code example on how to combine two strings

together in forth please. Here is my attempt. For some reason it doesn't

work. Any help would be great.

The below takes two strings of the form (addr len), allocates a chunk of
memory for them, and concatenates them into that allocated memory, returning
addr len.

: $cat2 ( $1 $2 -- $3 )
   2 pick over + dup >r alloc-mem >r
   2swap tuck r@ swap move           ( $2 $1-len )
   r@ + swap move                     ( )
   r> r>
;