usr/src/common/ficl/test/sarray.fr


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

\ test file for ficl
\ string array...
: $array ( caddr u ... caddr u n -- )
    create 0 ?do , , loop
    does> swap 2* cells + 2@ type
;

: s
    s" string 3"
    s" string 2"
    s" string 1"
    s" string 0"
    4
;

s $array s