[gforth] / gforth / startup.fs  

gforth: gforth/startup.fs


1 : anton 1.1 \ startup file
2 :    
3 : anton 1.60 \ Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005 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 : anton 1.57 [ifundef] xemit
36 :     require kernel/xchars.fs
37 :     [then]
38 : pazsan 1.19 \ require interpretation.fs
39 : pazsan 1.6 \ include float.fs
40 : anton 1.22 \ include search.fs
41 : anton 1.46 require compat/strcomp.fs
42 : anton 1.39 include glocals.fs
43 : anton 1.50 require float.fs
44 : anton 1.28 require stuff.fs
45 : anton 1.1 include wordinfo.fs
46 : pazsan 1.2 include vt100.fs
47 : anton 1.1 \ include colorize.fs
48 :     include bufio.fs
49 : anton 1.58 require utf-8.fs
50 : pazsan 1.7 include history.fs
51 : anton 1.45 s" os-class" environment? dup [IF] drop s" unix" str= [THEN]
52 : jwilke 1.24 [IF]
53 : pazsan 1.26 include vt100key.fs
54 :     [ELSE]
55 : jwilke 1.24 include doskey.fs
56 :     [THEN]
57 : anton 1.22 require debugs.fs
58 : anton 1.9 require assert.fs
59 : anton 1.10 require blocks.fs
60 : anton 1.20 require intcomp.fs
61 : anton 1.22 require savesys.fs
62 : anton 1.25 require table.fs
63 : anton 1.45 s" os-class" environment? dup [IF] drop s" unix" str= [THEN]
64 : pazsan 1.42 [IF]
65 : anton 1.30 require ekey.fs
66 : pazsan 1.42 [ELSE]
67 :     require dosekey.fs
68 :     [THEN]
69 : anton 1.47 require quotes.fs
70 :     require see.fs
71 :     require see-ext.fs
72 : pazsan 1.34 require backtrac.fs
73 : anton 1.47 require simp-see.fs
74 :     require debug.fs
75 : anton 1.33 require code.fs
76 : anton 1.52 require dis-gdb.fs
77 : anton 1.1
78 : anton 1.10 \ define the environmental queries for all the loaded wordsets
79 :     \ since the blocks wordset is loaded in a single file, its queries
80 :     \ are defined there
81 :     \ queries for other things than presence of a wordset are answered
82 :     \ in environ.fs
83 :     get-current environment-wordlist set-current
84 :     true constant double
85 :     true constant double-ext
86 :     true constant exception
87 :     true constant exception-ext
88 :     true constant facility
89 : pazsan 1.43 true constant facility-ext
90 : anton 1.10 true constant file
91 :     true constant file-ext
92 :     true constant floating
93 :     true constant floating-ext
94 :     true constant locals
95 :     true constant locals-ext
96 :     true constant memory-alloc
97 :     true constant memory-alloc-ext
98 :     true constant tools
99 : pazsan 1.43 true constant tools-ext
100 : anton 1.10 true constant search-order
101 :     true constant search-order-ext
102 :     true constant string
103 :     true constant string-ext
104 : anton 1.59 \ extension queries
105 :     ' noop alias X:deferred
106 :     ' noop alias X:extension-query
107 : anton 1.10 set-current
108 : anton 1.1
109 :     warnings on
110 : anton 1.13
111 : anton 1.22 require siteinit.fs

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help