[gforth] / gforth / wordsets.fs  

gforth: gforth/wordsets.fs

1 : pazsan 1.1 \ WORDSETS.STR All the words of the Wordsets 03may93jaw
2 :    
3 : anton 1.5 \ Copyright (C) 1995,2003 Free Software Foundation, Inc.
4 : anton 1.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 : pazsan 1.1 WS CORE
22 :    
23 :     ^ ! ^ # ^ #> ^ #S ^ ' ^ ( ^ * ^ */ ^ */MOD ^ + ^ +! ^ +LOOP
24 :     ^ , ^ - ^ . ^ ." ^ / ^ /MOD ^ 0< ^ 0= ^ 1+ ^ 1- ^ 2! ^ 2* ^ 2/
25 :     ^ 2@ ^ 2DROP ^ 2DUP ^ 2OVER ^ 2SWAP ^ : ^ ; ^ < ^ <# ^ = ^ >
26 :     ^ >BODY ^ >IN ^ >NUMBER ^ >R ^ ?DUP ^ @ ^ ABORT ^ ABORT"
27 :     ^ ABS ^ ACCEPT ^ ALIGN ^ ALIGNED ^ ALLOT ^ AND ^ BASE ^ BEGIN
28 :     ^ BL ^ C! ^ C, ^ C@ ^ CELL+ ^ CELLS ^ CHAR ^ CHAR+ ^ CHARS
29 :     ^ CONSTANT ^ COUNT ^ CR ^ CREATE ^ DECIMAL ^ DEPTH ^ DO ^ DOES>
30 :     ^ DROP ^ DUP ^ ELSE ^ EMIT ^ ENVIRONMENT? ^ EVALUATE ^ EXECUTE
31 :     ^ EXIT ^ FILL ^ FIND ^ FM/MOD ^ HERE ^ HOLD ^ I ^ IF ^ IMMEDIATE
32 :     ^ INVERT ^ J ^ KEY ^ LEAVE ^ LITERAL ^ LOOP ^ LSHIFT ^ M* ^ MAX
33 :     ^ MIN ^ MOD ^ MOVE ^ NEGATE ^ OR ^ OVER ^ POSTPONE ^ QUIT
34 :     ^ R> ^ R@ ^ RECURSE ^ REPEAT ^ ROT ^ RSHIFT ^ S" ^ S>D
35 :     ^ SIGN ^ SM/REM ^ SOURCE ^ SPACE ^ SPACES ^ STATE ^ SWAP
36 :     ^ THEN ^ TYPE ^ U. ^ U< ^ UM* ^ UM/MOD ^ UNLOOP ^ UNTIL ^ VARIABLE
37 :     ^ WHILE ^ WORD ^ XOR ^ [ ^ ['] ^ [CHAR] ^ ]
38 :    
39 :     WS CORE-EXT
40 :    
41 :     ^ #TIB ^ .( ^ .R ^ 0<> ^ 0> ^ 2>R ^ 2R> ^ 2R@ ^ :NONAME ^ <>
42 :     ^ ?DO ^ AGAIN ^ C" ^ CASE ^ COMPILE, ^ CONVERT ^ ENDCASE
43 :     ^ ENDOF ^ ERASE ^ EXPECT ^ FALSE ^ HEX ^ MARKER ^ NIP ^ OF
44 :     ^ PAD ^ PARSE ^ PICK ^ QUERY ^ REFILL ^ RESTORE-INPUT ^ ROLL
45 :     ^ SAVE-INPUT ^ SOURCE-ID ^ SPAN ^ TIB ^ TO ^ TRUE ^ TUCK ^ U.R
46 :     ^ U> ^ UNUSED ^ VALUE ^ WITHIN ^ [COMPILE] ^ \
47 :    
48 :     WS BLOCK
49 :    
50 :     ^ BLK ^ BLOCK ^ BUFFER ^ EVALUATE ^ FLUSH ^ LOAD ^ SAVE-BUFFERS
51 :     ^ UPDATE
52 :    
53 :     WS BLOCK-EXT
54 :    
55 :     ^ EMPTY-BUFFERS ^ LIST ^ REFILL ^ SCR ^ THRU ^ \
56 :    
57 :     WS DOUBLE
58 :    
59 :     ^ 2CONSTANT ^ 2LITERAL ^ 2VARIABLE ^ D+ ^ D- ^ D. ^ D.R ^ D0<
60 :     ^ D0= ^ D2* ^ D2/ ^ D< ^ D= ^ D>S ^ DABS ^ DMAX ^ DMIN ^ DNEGATE
61 : anton 1.3 ^ M*/ ^ M+
62 :    
63 :     WS DOUBLE-EXT
64 :    
65 :     ^ 2ROT ^ DU<
66 : pazsan 1.1
67 :     WS EXEPTION
68 :    
69 :     ^ CATCH ^ THROW
70 :    
71 :     WS EXEPTION-EXT
72 :    
73 :     ^ ABORT ^ ABORT"
74 :    
75 :     WS FACILITY
76 :    
77 :     ^ AT-XY ^ KEY? ^ PAGE
78 :    
79 :     WS FACILITY-EXT
80 :    
81 :     ^ EKEY ^ EKEY>CHAR ^ EKEY? ^ EMIT? ^ MS ^ TIME&DATE
82 :    
83 :     WS FILE
84 :    
85 :     ^ ( ^ BIN ^ CLOSE-FILE ^ CREATE-FILE ^ DELETE-FILE
86 :     ^ FILE-POSITION ^ FILE-SIZE ^ INCLUDE-FILE ^ INCLUDED
87 :     ^ OPEN-FILE ^ R/O ^ R/W ^ READ-FILE ^ READ-LINE ^ REPOSITION-FILE
88 :     ^ RESIZE-FILE ^ S" ^ SOURCE-ID ^ W/O ^ WRITE-FILE ^ WRITE-LINE
89 :    
90 :     WS FILE-EXT
91 :    
92 :     ^ FILE-STATUS ^ FLUSH-FILE ^ REFILL ^ RENAME-FILE
93 :    
94 :     WS FLOAT
95 :    
96 :     ^ >FLOAT ^ D>F ^ F! ^ F* ^ F+ ^ F- ^ F/ ^ F0< ^ F0= ^ F< ^ F>D
97 :     ^ F@ ^ FALIGN ^ FALIGNED ^ FCONSTANT ^ FDEPTH ^ FDROP ^ FDUP
98 :     ^ FLITERAL ^ FLOAT+ ^ FLOATS ^ FLOOR ^ FMAX ^ FMIN ^ FNEGATE
99 :     ^ FOVER ^ FROT ^ FROUND ^ FSWAP ^ FVARIABLE ^ REPRESENT
100 :    
101 :     WS FLOAT-EXT
102 :    
103 :     ^ DF! ^ DF@ ^ DFALIGN ^ DFALIGNED ^ DFLOAT+ ^ DFLOATS ^ F**
104 : pazsan 1.2 ^ F. ^ FABS ^ FACOS ^ FACOSH ^ FALOG ^ FASIN ^ FASINH ^ FATAN
105 : pazsan 1.1 ^ FATAN2 ^ FATANH ^ FCOS ^ FCOSH ^ FE. ^ FEXP ^ FEXPM1
106 :     ^ FLN ^ FLNP1 ^ FLOG ^ FS. ^ FSIN ^ FSINCOS ^ FSINH
107 : pazsan 1.2 ^ FSQRT ^ FTAN ^ FTANH ^ F~ ^ PRECISION ^ SET-PRECISION
108 :     ^ SF! ^ SF@ ^ SFALIGN ^ SFALIGNED ^ SFLOAT+ ^ SFLOATS
109 : pazsan 1.1
110 :     WS LOCAL
111 :    
112 :     ^ (LOCAL) ^ TO
113 :    
114 :     WS LOCAL-EXT
115 :    
116 :     ^ LOCALS|
117 :    
118 :     WS MEMORY
119 :    
120 :     ^ ALLOCATE ^ FREE ^ RESIZE
121 :    
122 :     WS TOOLKIT
123 :    
124 :     ^ .S ^ ? ^ DUMP ^ SEE ^ WORDS
125 :    
126 :     WS TOOLKIT-EXT
127 :    
128 :     ^ ;CODE ^ AHEAD ^ ASSEMBLER ^ BYE ^ CODE ^ CS-PICK ^ CS-ROLL
129 :     ^ EDITOR ^ FORGET ^ STATE ^ [ELSE] ^ [IF] ^ [THEN]
130 :    
131 :     WS SEARCH
132 :    
133 :     ^ DEFINITIONS ^ FIND ^ FORTH-WORDLIST ^ GET-CURRENT ^ GET-ORDER
134 :     ^ SEARCH-WORDLIST ^ SET-CURRENT ^ SET-ORDER ^ WORDLIST
135 :    
136 :     WS SEARCH-EXT
137 :    
138 :     ^ ALSO ^ FORTH ^ ONLY ^ ORDER ^ PREVIOUS
139 :    
140 :     WS STRING
141 :    
142 :     ^ -TRAILING ^ /STRING ^ BLANK ^ CMOVE ^ CMOVE> ^ COMPARE ^ SEARCH
143 :     ^ SLITERAL
144 :    
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help