Annotation of gforth/xwords.fs, revision 1.2
1.1 anton 1: \ extension words from CfVs on www.forth200x.org
2:
3: \ Copyright (C) 2006 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
1.2 ! anton 9: \ as published by the Free Software Foundation, either version 3
1.1 anton 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
1.2 ! anton 18: \ along with this program. If not, see http://www.gnu.org/licenses/.
1.1 anton 19:
20:
21: \ xword name extension
22:
23: \ X:deferred
24: xword DEFER X:deferred
25: xword IS X:deferred
26: xword DEFER@ X:deferred
27: xword DEFER! X:deferred
28: xword ACTION-OF X:deferred
29:
30: \ X:extension-query no new words
31:
32: \ X:parse-name
33:
34: xword PARSE-NAME X:parse-name
35:
36: \ X:defined
37:
38: xword [defined] X:defined
39: xword [undefined] X:defined
40:
41: \ X:required
42:
43: xword REQUIRED X:required
44: xword REQUIRE X:required
45: xword INCLUDE X:required
46:
47: \ X:ekeys
48:
49: xword EKEY>FKEY X:ekeys
50: xword K-LEFT X:ekeys
51: xword K-RIGHT X:ekeys
52: xword K-UP X:ekeys
53: xword K-DOWN X:ekeys
54: xword K-HOME X:ekeys
55: xword K-END X:ekeys
56: xword K-PRIOR X:ekeys
57: xword K-NEXT X:ekeys
58: xword K-INSERT X:ekeys
59: xword K-DELETE X:ekeys
60: xword K-F1 X:ekeys
61: xword K-F2 X:ekeys
62: xword K-F3 X:ekeys
63: xword K-F4 X:ekeys
64: xword K-F5 X:ekeys
65: xword K-F6 X:ekeys
66: xword K-F7 X:ekeys
67: xword K-F8 X:ekeys
68: xword K-F9 X:ekeys
69: xword K-F10 X:ekeys
70: xword K-F11 X:ekeys
71: xword K-F12 X:ekeys
72: xword K-SHIFT-MASK X:ekeys
73: xword K-CTRL-MASK X:ekeys
74: xword K-ALT-MASK X:ekeys
75:
76: \ X:fp-stack no new words
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>