Commit | Line | Data |
---|---|---|
8e9db35f PB |
1 | \ @(#) loadp4th.fth 98/01/28 1.3 |
2 | \ Load various files needed by PForth | |
3 | \ | |
4 | \ Author: Phil Burk | |
1a088514 | 5 | \ Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom |
8e9db35f | 6 | \ |
1f99f95d S |
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. | |
8e9db35f PB |
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 | |
08689895 | 30 | include? save-input save-input.fth |
593eb738 | 31 | include? read-line file.fth |
5a305613 | 32 | include? require require.fth |
8e9db35f PB |
33 | |
34 | \ load floating point support if basic support is in kernel | |
35 | exists? F* | |
36 | [IF] include? task-floats.fth floats.fth | |
37 | [THEN] | |
38 | ||
39 | \ useful but optional stuff follows -------------------- | |
40 | ||
41 | include? task-member.fth member.fth | |
42 | include? :struct c_struct.fth | |
43 | include? smif{ smart_if.fth | |
1139ec72 | 44 | include? file? filefind.fth |
8e9db35f PB |
45 | include? see see.fth |
46 | include? words.like wordslik.fth | |
47 | include? trace trace.fth | |
48 | include? ESC[ termio.fth | |
49 | include? HISTORY history.fth | |
50 | ||
51 | map |