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

   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
  16 s $array s