--- gforth/string.fs	2011/01/09 20:04:15	1.14
+++ gforth/string.fs	2012/08/17 22:24:27	1.16
@@ -1,6 +1,6 @@
 \ dynamic string handling                              10aug99py
 
-\ Copyright (C) 2000,2005,2007,2010 Free Software Foundation, Inc.
+\ Copyright (C) 2000,2005,2007,2010,2011 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -82,4 +82,30 @@
     >r >r
     $@ BEGIN  dup  WHILE  r@ $split i' -rot >r >r execute r> r>
     REPEAT  2drop rdrop rdrop ;
+
+\ string array words
+
+: $[] { n addr -- addr' }
+    addr @ 0= IF  s" " addr $!  THEN
+    addr $@ n cells /string
+    dup cell < IF
+	2drop addr $@len
+	n 1+ cells addr $!len
+	addr $@ rot /string erase
+	addr $@ n cells /string
+    THEN  drop ;
+
+: $[]! ( addr u n $addr -- )  $[] $! ;
+: $[]+! ( addr u n $addr -- )  $[] $+! ;
+: $[]@ ( n $addr -- addr u )  $[] dup @ IF $@ ELSE drop s" " THEN ;
+
+: $over { addr u $addr off -- }
+    \G overwrite string at offset off with addr u
+    $addr @ 0= IF  s" " $addr $!  THEN
+    $addr $@len u off + < IF
+	$addr $@len dup
+	u off + max $addr $!len
+	$addr $@ rot /string bl fill
+    THEN
+    addr $addr $@ off /string u min move ;
 [THEN]
\ No newline at end of file