git.gag.com Git - debian/pforth/blob - fth/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, David Rosenboom
   6 \
   7 \ Permission to use, copy, modify, and/or distribute this
   8 \ software for any purpose with or without fee is hereby granted.
   9 \
  10 \ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
  11 \ WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
  12 \ WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
  13 \ THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR
  14 \ CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
  15 \ FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
  16 \ CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  17 \ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  18
  19 include? forget  forget.fth
  20 include? >number numberio.fth
  21 include? task-misc1.fth   misc1.fth
  22 include? case    case.fth
  23 include? $=      strings.fth
  24 include? privatize   private.fth
  25 include? (local) ansilocs.fth
  26 include? {       locals.fth
  27 include? fm/mod  math.fth
  28 include? task-misc2.fth misc2.fth
  29 include? [if]    condcomp.fth
  30 include? save-input save-input.fth
  31 include? read-line  file.fth
  32 include? require    require.fth
  33 include? s\"     slashqt.fth
  34
  35 \ load floating point support if basic support is in kernel
  36 exists? F*
  37    [IF]  include? task-floats.fth floats.fth
  38    [THEN]
  39
  40 \ useful but optional stuff follows --------------------
  41
  42 include? task-member.fth   member.fth
  43 include? :struct c_struct.fth
  44 include? smif{   smart_if.fth
  45 include? file?   filefind.fth
  46 include? see     see.fth
  47 include? words.like wordslik.fth
  48 include? trace   trace.fth
  49 include? ESC[    termio.fth
  50 include? HISTORY history.fth
  51
  52 map