[gforth] / gforth / xwords.fs  

gforth: gforth/xwords.fs


1 : anton 1.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
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., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
20 :    
21 :    
22 :     \ xword name extension
23 :    
24 :     \ X:deferred
25 :     xword DEFER X:deferred
26 :     xword IS X:deferred
27 :     xword DEFER@ X:deferred
28 :     xword DEFER! X:deferred
29 :     xword ACTION-OF X:deferred
30 :    
31 :     \ X:extension-query no new words
32 :    
33 :     \ X:parse-name
34 :    
35 :     xword PARSE-NAME X:parse-name
36 :    
37 :     \ X:defined
38 :    
39 :     xword [defined] X:defined
40 :     xword [undefined] X:defined
41 :    
42 :     \ X:required
43 :    
44 :     xword REQUIRED X:required
45 :     xword REQUIRE X:required
46 :     xword INCLUDE X:required
47 :    
48 :     \ X:ekeys
49 :    
50 :     xword EKEY>FKEY X:ekeys
51 :     xword K-LEFT X:ekeys
52 :     xword K-RIGHT X:ekeys
53 :     xword K-UP X:ekeys
54 :     xword K-DOWN X:ekeys
55 :     xword K-HOME X:ekeys
56 :     xword K-END X:ekeys
57 :     xword K-PRIOR X:ekeys
58 :     xword K-NEXT X:ekeys
59 :     xword K-INSERT X:ekeys
60 :     xword K-DELETE X:ekeys
61 :     xword K-F1 X:ekeys
62 :     xword K-F2 X:ekeys
63 :     xword K-F3 X:ekeys
64 :     xword K-F4 X:ekeys
65 :     xword K-F5 X:ekeys
66 :     xword K-F6 X:ekeys
67 :     xword K-F7 X:ekeys
68 :     xword K-F8 X:ekeys
69 :     xword K-F9 X:ekeys
70 :     xword K-F10 X:ekeys
71 :     xword K-F11 X:ekeys
72 :     xword K-F12 X:ekeys
73 :     xword K-SHIFT-MASK X:ekeys
74 :     xword K-CTRL-MASK X:ekeys
75 :     xword K-ALT-MASK X:ekeys
76 :    
77 :     \ X:fp-stack no new words

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help