File:
[gforth] /
gforth /
Attic /
vars.fs
Revision
1.11:
download - view:
text,
annotated -
select for diffs
Sun Jan 7 17:22:16 1996 UTC (28 years, 3 months ago) by
anton
Branches:
MAIN
CVS tags:
HEAD
added more.fs for people with old terminals.
WORDS and SEE now now respect the terminal size.
a lot of reordering in the Makefile, approaching the GNU standards.
factored NAME>STRING out of many words.
use AC_DECL_SYS_SIGLIST test in configure.in.
removed emitcounter (it was not used anyway).
SYSTEM now unpreps and repreps the terminal.
fixed byg in prims2x.fs.
added NEEDS, ?CSP, !CSP.
rewrote ALIAS?.
1: \ VARS.FS Kernal variables
2:
3: \ 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: hex \ everything now hex! 11may93jaw
22:
23: \ important constants 17dec92py
24:
25: \ dpANS6 (sect 3.1.3.1) says
26: \ "a true flag ... [is] a single-cell value with all bits set"
27: \ better definition: 0 0= constant true ( no dependence on 2's compl)
28: -1 Constant true \ see starts looking for
29: \ primitives after this word!
30: 0 Constant false
31:
32: 1 cells Constant cell
33:
34: 20 Constant bl \ used by docon:, must be constant
35:
36: FF Constant /line
37:
38: 40 Constant c/l
39: 10 Constant l/s
40: 400 Constant chars/block
41:
42: \ that's enough so long
43:
44: \ User variables 13feb93py
45:
46: Create main-task 100 cells allot
47: main-task tup H ! minimal
48:
49: Variable udp \ used by dovar:, must be variable
50:
51: AUser next-task main-task next-task !
52: AUser prev-task main-task prev-task !
53: AUser save-task 0 save-task !
54: AUser s0 \ used by douser:, must be user
55: AUser r0
56: AUser f0
57: AUser l0
58: AUser handler
59: \ AUser output
60: \ AUser input
61:
62: AUser errorhandler
63:
64: AUser "error 0 "error !
65:
66: User tibstack
67: User >tib
68: User #tib
69: User >in 0 >in !
70: User blk 0 blk !
71: User loadfile 0 loadfile !
72:
73: User loadfilename# 0 loadfilename# !
74:
75: User loadline \ number of the currently interpreted
76: \ (in TIB) line if the interpretation
77: \ is in a textfile
78: \ the first line is 1
79:
80: 2User linestart \ starting file postition of
81: \ the current interpreted line (in TIB)
82:
83: User base A base !
84: User dpl -1 dpl !
85:
86: User state 0 state !
87: AUser normal-dp \ the usual dictionary pointer
88: AUser dpp normal-dp dpp !
89: \ the pointer to the current dictionary pointer
90: \ ist reset to normal-dp on (doerror)
91: \ (i.e. any throw caught by quit)
92: AUser LastCFA
93: AUser Last
94:
95: User locals-size \ this is the current size of the locals stack
96: \ frame of the current word
97:
98:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>