[gforth] / gforth / xwords.fs  

gforth: gforth/xwords.fs


1 : anton 1.1 \ extension words from CfVs on www.forth200x.org
2 :    
3 : anton 1.3 \ Copyright (C) 2006,2007 Free Software Foundation, Inc.
4 : anton 1.1
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 : anton 1.2 \ as published by the Free Software Foundation, either version 3
10 : anton 1.1 \ 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 : anton 1.2 \ along with this program. If not, see http://www.gnu.org/licenses/.
19 : anton 1.1
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 : anton 1.4 \ X:fp-stack no new words
77 :    
78 :     \ X:number-prefixes no new words
79 :    
80 :     \ X:structures
81 :    
82 :     xword +field X:structures
83 :     xword begin-structure X:structures
84 :     xword end-structure X:structures
85 :     xword cfield: X:structures
86 :     xword field: X:structures
87 :     xword 2field: X:structures
88 :     xword ffield: X:structures
89 :     xword sffield: X:structures
90 :     xword dffield: X:structures
91 :    
92 :     \ X:ftrunc
93 :     xword FTRUNC X:ftrunc

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help