[gforth] / gforth / startup.fs  

gforth: gforth/startup.fs


1 : anton 1.1 \ startup file
2 :    
3 : anton 1.12 \ Copyright (C) 1995 Free Software Foundation, Inc.
4 :    
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 :     \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
20 :    
21 : anton 1.1 warnings off
22 :    
23 : pazsan 1.6 \ include float.fs
24 :     \ include search-order.fs
25 :     include glocals.fs
26 : anton 1.3 include environ.fs
27 : anton 1.1 \ include toolsext.fs
28 :     include wordinfo.fs
29 : pazsan 1.2 include vt100.fs
30 : anton 1.1 \ include colorize.fs
31 :     include see.fs
32 :     include bufio.fs
33 :     include debug.fs
34 : pazsan 1.7 include history.fs
35 :     \ include doskey.fs
36 : pazsan 1.8 include vt100key.fs
37 : anton 1.9 require debugging.fs
38 :     require assert.fs
39 : anton 1.10 require blocks.fs
40 : anton 1.1
41 :     0 Value $?
42 :     : sh '# parse cr system to $? ;
43 : anton 1.10
44 :     \ define the environmental queries for all the loaded wordsets
45 :     \ since the blocks wordset is loaded in a single file, its queries
46 :     \ are defined there
47 :     \ queries for other things than presence of a wordset are answered
48 :     \ in environ.fs
49 :     get-current environment-wordlist set-current
50 :     true constant double
51 :     true constant double-ext
52 :     true constant exception
53 :     true constant exception-ext
54 :     true constant facility
55 :     \ !! facility-ext
56 :     true constant file
57 :     true constant file-ext
58 :     true constant floating
59 :     true constant floating-ext
60 :     true constant locals
61 :     true constant locals-ext
62 :     true constant memory-alloc
63 :     true constant memory-alloc-ext
64 :     true constant tools
65 :     \ !! tools-ext
66 :     true constant search-order
67 :     true constant search-order-ext
68 :     true constant string
69 :     true constant string-ext
70 :     set-current
71 :    
72 :    
73 : anton 1.1
74 :     warnings on

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help