usr/src/common/ficl/softcore/fileaccess.fr

   1 S" FICL_WANT_FILE" ENVIRONMENT? drop [if]
   2 \ **
   3 \ ** File Access words for ficl
   4 \ ** submitted by Larry Hastings, larry@hastings.org
   5 \ **
   6
   7 : r/o 1 ;
   8 : r/w 3 ;
   9 : w/o 2 ;
  10 : bin 8 or ;
  11
  12 : included
  13     r/o bin open-file 0= if
  14         include-file
  15     else
  16         drop
  17     endif
  18     ;
  19
  20 : include parse-word included ;
  21
  22 [endif]