[gforth] / gforth / startup.fs  

gforth: gforth/startup.fs


1 : anton 1.1 \ startup file
2 :    
3 : anton 1.37 \ Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc.
4 : anton 1.12
5 :     \ This file is part of Gforth.
6 :    
7 :     \ Gforth is free software; you can redistribute it and/or
8 :     \ modify it under the terms of the GNU General Public License
9 :     \ as published by the Free Software Foundation; either version 2
10 :     \ of the License, or (at your option) any later version.
11 :    
12 :     \ This program is distributed in the hope that it will be useful,
13 :     \ but WITHOUT ANY WARRANTY; without even the implied warranty of
14 :     \ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 :     \ GNU General Public License for more details.
16 :    
17 :     \ You should have received a copy of the GNU General Public License
18 :     \ along with this program; if not, write to the Free Software
19 : anton 1.38 \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
20 : anton 1.12
21 : anton 1.36 \ don't require except.fs, because except.fs is not in included-files
22 :     \ (see exboot.fs)
23 : jwilke 1.41 [IFUNDEF] try
24 :     require except.fs \ included on command line
25 :     [THEN]
26 : pazsan 1.35
27 : anton 1.1 warnings off
28 : jwilke 1.23 include search.fs
29 :     include environ.fs
30 : jwilke 1.24 include envos.fs
31 : pazsan 1.21 include errors.fs
32 :     include extend.fs \ load core-extended
33 : jwilke 1.23 include hash.fs
34 : pazsan 1.21
35 : pazsan 1.19 \ require interpretation.fs
36 : pazsan 1.6 \ include float.fs
37 : anton 1.22 \ include search.fs
38 : anton 1.39 include glocals.fs
39 : anton 1.28 require stuff.fs
40 : anton 1.1 include wordinfo.fs
41 : pazsan 1.2 include vt100.fs
42 : anton 1.1 \ include colorize.fs
43 :     include see.fs
44 : pazsan 1.21 include see-ext.fs
45 : anton 1.40 require simp-see.fs
46 : anton 1.1 include bufio.fs
47 :     include debug.fs
48 : pazsan 1.7 include history.fs
49 : pazsan 1.26 s" os-class" environment? dup [IF] drop s" unix" compare 0= [THEN]
50 : jwilke 1.24 [IF]
51 : pazsan 1.26 include vt100key.fs
52 :     [ELSE]
53 : jwilke 1.24 include doskey.fs
54 :     [THEN]
55 : anton 1.22 require debugs.fs
56 : anton 1.9 require assert.fs
57 : anton 1.10 require blocks.fs
58 : anton 1.20 require intcomp.fs
59 : anton 1.22 require savesys.fs
60 : anton 1.25 require table.fs
61 : pazsan 1.42 s" os-class" environment? dup [IF] drop s" unix" compare 0= [THEN]
62 :     [IF]
63 : anton 1.30 require ekey.fs
64 : pazsan 1.42 [ELSE]
65 :     require dosekey.fs
66 :     [THEN]
67 : pazsan 1.34 require backtrac.fs
68 : anton 1.33 require code.fs
69 : anton 1.1
70 : anton 1.10 \ define the environmental queries for all the loaded wordsets
71 :     \ since the blocks wordset is loaded in a single file, its queries
72 :     \ are defined there
73 :     \ queries for other things than presence of a wordset are answered
74 :     \ in environ.fs
75 :     get-current environment-wordlist set-current
76 :     true constant double
77 :     true constant double-ext
78 :     true constant exception
79 :     true constant exception-ext
80 :     true constant facility
81 :     \ !! facility-ext
82 :     true constant file
83 :     true constant file-ext
84 :     true constant floating
85 :     true constant floating-ext
86 :     true constant locals
87 :     true constant locals-ext
88 :     true constant memory-alloc
89 :     true constant memory-alloc-ext
90 :     true constant tools
91 :     \ !! tools-ext
92 :     true constant search-order
93 :     true constant search-order-ext
94 :     true constant string
95 :     true constant string-ext
96 :     set-current
97 : anton 1.1
98 :     warnings on
99 : anton 1.13
100 : anton 1.22 require siteinit.fs

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help