File:
[gforth] /
gforth /
kernel /
getdoers.fs
Revision
1.3:
download - view:
text,
annotated -
select for diffs
Tue Mar 23 20:24:25 1999 UTC (25 years, 1 month ago) by
crook
Branches:
MAIN
CVS tags:
HEAD
Makefile.in
-- changes to make documentation build with moofglos.fs
rather than with mini-oof.fs (since the former contains glossary
entries and the latter does not)
assert.fs blocks.fs debug.fs environ.fs errors.fs extend.fs float.fs
glocals.fs moofglos.fs prim search.fs struct.fs stuff.fs vt100.fs
kernel/args.fs kernel/basics.fs kernel/comp.fs kernel/cond.fs
kernel/files.fs kernel/getdoers.fs kernel/int.fs kernel/io.fs
kernel/nio.fs kernel/paths.fs kernel/require.fs kernel/special.fs
kernel/tools.fs kernel/toolsext.fs kernel/vars.fs
-- many small changes to glossary entries.. I think most are done
now, so I hope to change far fewer files next time!
doc/gforth.ds
-- many, many small changes and a few large ones. Moved some sections
around, fixed typos and formatting errors, added new section on
exception handling, rearranged 'files' section.
\
\ Copyright (C) 1996, 1998 Free Software Foundation, Inc.
\ This file is part of Gforth.
\ Gforth is free software; you can redistribute it and/or
\ modify it under the terms of the GNU General Public License
\ as published by the Free Software Foundation; either version 2
\ of the License, or (at your option) any later version.
\ This program is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\ GNU General Public License for more details.
\ You should have received a copy of the GNU General Public License
\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
doer? :docon [IF]
: docon: ( -- addr ) \ gforth
\G The code address of a @code{CONSTANT}.
['] bl >code-address ;
[THEN]
: docol: ( -- addr ) \ gforth
\G The code address of a colon definition.
['] on >code-address ;
\ !! mark on
doer? :dovar [IF]
: dovar: ( -- addr ) \ gforth
\G The code address of a @code{CREATE}d word.
\ in rom-applications variable might be implemented with constant
\ use really a created word!
['] ??? >code-address ;
[THEN]
doer? :douser [IF]
: douser: ( -- addr ) \ gforth
\G The code address of a @code{USER} variable.
['] sp0 >code-address ;
[THEN]
doer? :dodefer [IF]
: dodefer: ( -- addr ) \ gforth
\G The code address of a @code{defer}ed word.
['] source >code-address ;
[THEN]
doer? :dofield [IF]
: dofield: ( -- addr ) \ gforth
\G The code address of a @code{field}.
['] reveal-method >code-address ;
[THEN]
has? prims 0= [IF]
: dodoes: ( -- addr ) \ gforth
\G The code address of a @code{field}???
['] spaces >code-address ;
[THEN]
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>