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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help