1: \ run-time code for defining words
2:
3: \ Copyright (C) 1995,1996,1997,1998,1999,2000,2003,2007 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 3
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, see http://www.gnu.org/licenses/.
19:
20:
21: \ If we leave out the compiler we need the runtime code for our defining
22: \ words. This file defines the defining words without the
23: \ interpretative/compiling part.
24:
25: has? compiler 0= [IF]
26:
27: \ fillers for interpreter only mode
28: \D compileddofillers .( Do-Fillers: )
29:
30: : (does>) ;
31:
32: doer? :dofield 0= [IF] \D compileddofillers .( DOFIELD )
33: | : (Field) DOES> @ + ;
34: [THEN]
35:
36: doer? :dodefer 0= [IF] \D compileddofillers .( DODEFER )
37: | : Defer ( "name" -- ) DOES> @ execute ;
38: [THEN]
39:
40: \D compileddofillers .( DO2CON )
41: | : 2Constant ( w1 w2 "name" -- )
42: DOES> ( -- w1 w2 )
43: 2@ ;
44:
45: doer? :docon 0= [IF] \D compileddofillers .( DOCON )
46: | : (Constant) DOES> @ ;
47: [THEN]
48:
49: doer? :douser 0= [IF] \D compileddofillers .( DOUSER )
50: | : User DOES> @ [IFDEF] up@ up@ [ELSE] up @ [THEN] + ;
51: [THEN]
52:
53: doer? :dovar 0= [IF] \D compileddofillers .( DOVAR )
54: | : Create ( "name" -- ) \ core
55: DOES> ;
56:
57: \D compileddofillers .( .)
58: [THEN]
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>