git.gag.com Git - debian/pforth/blob - loadp4th.fth

   1 \ @(#) loadp4th.fth 98/01/28 1.3
   2 \ Load various files needed by PForth
   3 \
   4 \ Author: Phil Burk
   5 \ Copyright 1994 3DO, Phil Burk, Larry Polansky, Devid Rosenboom
   6 \
   7 \ The pForth software code is dedicated to the public domain,
   8 \ and any third party may reproduce, distribute and modify
   9 \ the pForth software code or any derivative works thereof
  10 \ without any compensation or license.  The pForth software
  11 \ code is provided on an "as is" basis without any warranty
  12 \ of any kind, including, without limitation, the implied
  13 \ warranties of merchantability and fitness for a particular
  14 \ purpose and their equivalents under the laws of any jurisdiction.
  15
  16 include? forget  forget.fth
  17 include? >number numberio.fth
  18 include? task-misc1.fth   misc1.fth
  19 include? case    case.fth
  20 include? $=      strings.fth
  21 include? privatize   private.fth
  22 include? (local) ansilocs.fth
  23 include? {       locals.fth
  24 include? fm/mod  math.fth
  25 include? task-misc2.fth misc2.fth
  26 include? catch   catch.fth
  27 include? task-quit.fth quit.fth
  28
  29 \ useful but optional stuff follows --------------------
  30
  31 include? [if]    condcomp.fth
  32
  33 \ load floating point support if basic support is in kernel
  34 exists? F*
  35    [IF]  include? task-floats.fth floats.fth
  36    [THEN]
  37
  38 include? task-member.fth   member.fth
  39 include? :struct c_struct.fth
  40 include? smif{   smart_if.fth
  41 include? file?   filefind.fth
  42 include? see     see.fth
  43 include? words.like wordslik.fth
  44 include? trace   trace.fth
  45
  46 map
  47