xref: /illumos-gate/usr/src/common/ficl/test/sarray.fr (revision 2a6e99a0f1f7d22c0396e8b2ce9b9babbd1056cf)
1\ test file for ficl
2\ string array...
3: $array ( caddr u ... caddr u n -- )
4    create 0 ?do , , loop
5    does> swap 2* cells + 2@ type
6;
7
8: s
9    s" string 3"
10    s" string 2"
11    s" string 1"
12    s" string 0"
13    4
14;
15
16s $array s
17