Re: [OpenBIOS] Concatenating strings

[Programmingkid]

On Sep 1, 2010, at 6:00 AM, [e-mail] wrote:
> Message: 5
> Date: Tue, 31 Aug 2010 20:11:30 -0400
> From: Tarl Neustaedter 
> To: The OpenBIOS Mailinglist 
> Subject: Re: [OpenBIOS] Concatenating strings
> Message-ID: 
> 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>
> ;

Thank you very much Tarl. This word should be added to OpenBIOS.