[gforth] / gforth / Attic / startup.dos

gforth: gforth/Attic/startup.dos

1 :	pazsan	1.2	\ startup file
2 :
3 :			warnings off
4 :
5 :			\ include float.fs
6 :			\ include search-order.fs
7 :			include glocals.fs
8 :			include environ.fs
9 :			\ include toolsext.fs
10 :			include wordinfo.fs
11 :			include vt100.fs
12 :			\ include colorize.fs
13 :			include see.fs
14 :			include bufio.fs
15 :			include debug.fs
16 :			include history.fs
17 :			include doskey.fs
18 :			\ include vt100key.fs
19 :			require debugging.fs
20 :			require assert.fs
21 :			require blocks.fs
22 :
23 :			0 Value $?
24 :			: sh '# parse cr system to $? ;
25 :
26 :			\ define the environmental queries for all the loaded wordsets
27 :			\ since the blocks wordset is loaded in a single file, its queries
28 :			\ are defined there
29 :			\ queries for other things than presence of a wordset are answered
30 :			\ in environ.fs
31 :			get-current environment-wordlist set-current
32 :			true constant double
33 :			true constant double-ext
34 :			true constant exception
35 :			true constant exception-ext
36 :			true constant facility
37 :			\ !! facility-ext
38 :			true constant file
39 :			true constant file-ext
40 :			true constant floating
41 :			true constant floating-ext
42 :			true constant locals
43 :			true constant locals-ext
44 :			true constant memory-alloc
45 :			true constant memory-alloc-ext
46 :			true constant tools
47 :			\ !! tools-ext
48 :			true constant search-order
49 :			true constant search-order-ext
50 :			true constant string
51 :			true constant string-ext
52 :			set-current
53 :
54 :
55 :
56 :			warnings on