Powered by ViewCVS 1.0-dev
| 1 : | pazsan | 1.1 | \ run-time routine headers |
| 2 : | |||
| 3 : | \ Copyright (C) 1997 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., 675 Mass Ave, Cambridge, MA 02139, USA. | ||
| 20 : | |||
| 21 : | -2 Alias: :docol | ||
| 22 : | -3 Alias: :docon | ||
| 23 : | -4 Alias: :dovar | ||
| 24 : | -5 Alias: :douser | ||
| 25 : | -6 Alias: :dodefer | ||
| 26 : | -7 Alias: :dofield | ||
| 27 : | -8 Alias: :dodoes | ||
| 28 : | -9 Alias: :doesjump | ||
| 29 : | -10 alias noop | ||
| 30 : | -11 alias lit | ||
| 31 : | -12 alias execute | ||
| 32 : | -13 alias perform | ||
| 33 : | |||
| 34 : | has? glocals [IF] | ||
| 35 : | -14 alias branch-lp+!# | ||
| 36 : | |||
| 37 : | [THEN] | ||
| 38 : | -15 alias branch | ||
| 39 : | -16 alias ?branch | ||
| 40 : | |||
| 41 : | has? glocals [IF] | ||
| 42 : | -17 alias ?branch-lp+!# | ||
| 43 : | |||
| 44 : | [THEN] | ||
| 45 : | |||
| 46 : | has? xconds [IF] | ||
| 47 : | -18 alias ?dup-?branch | ||
| 48 : | -19 alias ?dup-0=-?branch | ||
| 49 : | |||
| 50 : | [THEN] | ||
| 51 : | -20 alias (next) | ||
| 52 : | |||
| 53 : | has? glocals [IF] | ||
| 54 : | -21 alias (next)-lp+!# | ||
| 55 : | |||
| 56 : | [THEN] | ||
| 57 : | -22 alias (loop) | ||
| 58 : | |||
| 59 : | has? glocals [IF] | ||
| 60 : | -23 alias (loop)-lp+!# | ||
| 61 : | |||
| 62 : | [THEN] | ||
| 63 : | -24 alias (+loop) | ||
| 64 : | |||
| 65 : | has? glocals [IF] | ||
| 66 : | -25 alias (+loop)-lp+!# | ||
| 67 : | |||
| 68 : | [THEN] | ||
| 69 : | |||
| 70 : | has? xconds [IF] | ||
| 71 : | -26 alias (-loop) | ||
| 72 : | |||
| 73 : | has? glocals [IF] | ||
| 74 : | -27 alias (-loop)-lp+!# | ||
| 75 : | |||
| 76 : | [THEN] | ||
| 77 : | -28 alias (s+loop) | ||
| 78 : | |||
| 79 : | has? glocals [IF] | ||
| 80 : | -29 alias (s+loop)-lp+!# | ||
| 81 : | |||
| 82 : | [THEN] | ||
| 83 : | |||
| 84 : | [THEN] | ||
| 85 : | -30 alias unloop | ||
| 86 : | -31 alias (for) | ||
| 87 : | -32 alias (do) | ||
| 88 : | -33 alias (?do) | ||
| 89 : | |||
| 90 : | has? xconds [IF] | ||
| 91 : | -34 alias (+do) | ||
| 92 : | -35 alias (u+do) | ||
| 93 : | -36 alias (-do) | ||
| 94 : | -37 alias (u-do) | ||
| 95 : | |||
| 96 : | [THEN] | ||
| 97 : | -38 alias i | ||
| 98 : | -39 alias i' | ||
| 99 : | -40 alias j | ||
| 100 : | -41 alias k | ||
| 101 : | -42 alias move | ||
| 102 : | -43 alias cmove | ||
| 103 : | -44 alias cmove> | ||
| 104 : | -45 alias fill | ||
| 105 : | -46 alias compare | ||
| 106 : | -47 alias -text | ||
| 107 : | -48 alias toupper | ||
| 108 : | -49 alias capscomp | ||
| 109 : | -50 alias -trailing | ||
| 110 : | -51 alias /string | ||
| 111 : | -52 alias + | ||
| 112 : | -53 alias under+ | ||
| 113 : | -54 alias - | ||
| 114 : | -55 alias negate | ||
| 115 : | -56 alias 1+ | ||
| 116 : | -57 alias 1- | ||
| 117 : | -58 alias max | ||
| 118 : | -59 alias min | ||
| 119 : | -60 alias abs | ||
| 120 : | -61 alias * | ||
| 121 : | -62 alias / | ||
| 122 : | -63 alias mod | ||
| 123 : | -64 alias /mod | ||
| 124 : | -65 alias 2* | ||
| 125 : | -66 alias 2/ | ||
| 126 : | -67 alias fm/mod | ||
| 127 : | -68 alias sm/rem | ||
| 128 : | -69 alias m* | ||
| 129 : | -70 alias um* | ||
| 130 : | -71 alias um/mod | ||
| 131 : | -72 alias m+ | ||
| 132 : | -73 alias d+ | ||
| 133 : | -74 alias d- | ||
| 134 : | -75 alias dnegate | ||
| 135 : | -76 alias d2* | ||
| 136 : | -77 alias d2/ | ||
| 137 : | -78 alias and | ||
| 138 : | -79 alias or | ||
| 139 : | -80 alias xor | ||
| 140 : | -81 alias invert | ||
| 141 : | -82 alias rshift | ||
| 142 : | -83 alias lshift | ||
| 143 : | -84 alias 0= | ||
| 144 : | -85 alias 0<> | ||
| 145 : | -86 alias 0< | ||
| 146 : | -87 alias 0> | ||
| 147 : | -88 alias 0<= | ||
| 148 : | -89 alias 0>= | ||
| 149 : | -90 alias = | ||
| 150 : | -91 alias <> | ||
| 151 : | -92 alias < | ||
| 152 : | -93 alias > | ||
| 153 : | -94 alias <= | ||
| 154 : | -95 alias >= | ||
| 155 : | -96 alias u= | ||
| 156 : | -97 alias u<> | ||
| 157 : | -98 alias u< | ||
| 158 : | -99 alias u> | ||
| 159 : | -100 alias u<= | ||
| 160 : | -101 alias u>= | ||
| 161 : | |||
| 162 : | has? dcomps [IF] | ||
| 163 : | -102 alias d= | ||
| 164 : | -103 alias d<> | ||
| 165 : | -104 alias d< | ||
| 166 : | -105 alias d> | ||
| 167 : | -106 alias d<= | ||
| 168 : | -107 alias d>= | ||
| 169 : | -108 alias d0= | ||
| 170 : | -109 alias d0<> | ||
| 171 : | -110 alias d0< | ||
| 172 : | -111 alias d0> | ||
| 173 : | -112 alias d0<= | ||
| 174 : | -113 alias d0>= | ||
| 175 : | -114 alias du= | ||
| 176 : | -115 alias du<> | ||
| 177 : | -116 alias du< | ||
| 178 : | -117 alias du> | ||
| 179 : | -118 alias du<= | ||
| 180 : | -119 alias du>= | ||
| 181 : | |||
| 182 : | [THEN] | ||
| 183 : | -120 alias within | ||
| 184 : | -121 alias sp@ | ||
| 185 : | -122 alias sp! | ||
| 186 : | -123 alias rp@ | ||
| 187 : | -124 alias rp! | ||
| 188 : | |||
| 189 : | has? floating [IF] | ||
| 190 : | -125 alias fp@ | ||
| 191 : | -126 alias fp! | ||
| 192 : | |||
| 193 : | [THEN] | ||
| 194 : | -127 alias ;s | ||
| 195 : | -128 alias >r | ||
| 196 : | -129 alias r> | ||
| 197 : | -130 alias rdrop | ||
| 198 : | -131 alias 2>r | ||
| 199 : | -132 alias 2r> | ||
| 200 : | -133 alias 2r@ | ||
| 201 : | -134 alias 2rdrop | ||
| 202 : | -135 alias over | ||
| 203 : | -136 alias drop | ||
| 204 : | -137 alias swap | ||
| 205 : | -138 alias dup | ||
| 206 : | -139 alias rot | ||
| 207 : | -140 alias -rot | ||
| 208 : | -141 alias nip | ||
| 209 : | -142 alias tuck | ||
| 210 : | -143 alias ?dup | ||
| 211 : | -144 alias pick | ||
| 212 : | -145 alias 2drop | ||
| 213 : | -146 alias 2dup | ||
| 214 : | -147 alias 2over | ||
| 215 : | -148 alias 2swap | ||
| 216 : | -149 alias 2rot | ||
| 217 : | -150 alias 2nip | ||
| 218 : | -151 alias 2tuck | ||
| 219 : | -152 alias @ | ||
| 220 : | -153 alias ! | ||
| 221 : | -154 alias +! | ||
| 222 : | -155 alias c@ | ||
| 223 : | -156 alias c! | ||
| 224 : | -157 alias 2! | ||
| 225 : | -158 alias 2@ | ||
| 226 : | -159 alias cell+ | ||
| 227 : | -160 alias cells | ||
| 228 : | -161 alias char+ | ||
| 229 : | -162 alias (chars) | ||
| 230 : | -163 alias count | ||
| 231 : | -164 alias (f83find) | ||
| 232 : | |||
| 233 : | has? hash [IF] | ||
| 234 : | -165 alias (hashfind) | ||
| 235 : | -166 alias (tablefind) | ||
| 236 : | -167 alias (hashkey) | ||
| 237 : | -168 alias (hashkey1) | ||
| 238 : | |||
| 239 : | [THEN] | ||
| 240 : | -169 alias (parse-white) | ||
| 241 : | -170 alias aligned | ||
| 242 : | -171 alias faligned | ||
| 243 : | -172 alias >body | ||
| 244 : | |||
| 245 : | has? standard-threading [IF] | ||
| 246 : | -173 alias >code-address | ||
| 247 : | -174 alias >does-code | ||
| 248 : | -175 alias code-address! | ||
| 249 : | -176 alias does-code! | ||
| 250 : | -177 alias does-handler! | ||
| 251 : | -178 alias /does-handler | ||
| 252 : | -179 alias threading-method | ||
| 253 : | |||
| 254 : | [THEN] | ||
| 255 : | |||
| 256 : | has? os [IF] | ||
| 257 : | -180 alias (key) | ||
| 258 : | -181 alias key? | ||
| 259 : | -182 alias stdout | ||
| 260 : | -183 alias stderr | ||
| 261 : | -184 alias form | ||
| 262 : | -185 alias flush-icache | ||
| 263 : | -186 alias (bye) | ||
| 264 : | -187 alias (system) | ||
| 265 : | -188 alias getenv | ||
| 266 : | -189 alias open-pipe | ||
| 267 : | -190 alias close-pipe | ||
| 268 : | -191 alias time&date | ||
| 269 : | -192 alias ms | ||
| 270 : | -193 alias allocate | ||
| 271 : | -194 alias free | ||
| 272 : | -195 alias resize | ||
| 273 : | -196 alias strerror | ||
| 274 : | -197 alias strsignal | ||
| 275 : | -198 alias call-c | ||
| 276 : | |||
| 277 : | [THEN] ( has? os ) has? file [IF] | ||
| 278 : | -199 alias close-file | ||
| 279 : | -200 alias open-file | ||
| 280 : | -201 alias create-file | ||
| 281 : | -202 alias delete-file | ||
| 282 : | -203 alias rename-file | ||
| 283 : | -204 alias file-position | ||
| 284 : | -205 alias reposition-file | ||
| 285 : | -206 alias file-size | ||
| 286 : | -207 alias resize-file | ||
| 287 : | -208 alias read-file | ||
| 288 : | -209 alias read-line | ||
| 289 : | |||
| 290 : | [THEN] has? file [IF] -1 [ELSE] has? os [THEN] [IF] | ||
| 291 : | -210 alias write-file | ||
| 292 : | -211 alias emit-file | ||
| 293 : | |||
| 294 : | [THEN] has? file [IF] | ||
| 295 : | -212 alias flush-file | ||
| 296 : | -213 alias file-status | ||
| 297 : | |||
| 298 : | [THEN] ( has? file ) has? floating [IF] | ||
| 299 : | -214 alias f= | ||
| 300 : | -215 alias f<> | ||
| 301 : | -216 alias f< | ||
| 302 : | -217 alias f> | ||
| 303 : | -218 alias f<= | ||
| 304 : | -219 alias f>= | ||
| 305 : | -220 alias f0= | ||
| 306 : | -221 alias f0<> | ||
| 307 : | -222 alias f0< | ||
| 308 : | -223 alias f0> | ||
| 309 : | -224 alias f0<= | ||
| 310 : | -225 alias f0>= | ||
| 311 : | -226 alias d>f | ||
| 312 : | -227 alias f>d | ||
| 313 : | -228 alias f! | ||
| 314 : | -229 alias f@ | ||
| 315 : | -230 alias df@ | ||
| 316 : | -231 alias df! | ||
| 317 : | -232 alias sf@ | ||
| 318 : | -233 alias sf! | ||
| 319 : | -234 alias f+ | ||
| 320 : | -235 alias f- | ||
| 321 : | -236 alias f* | ||
| 322 : | -237 alias f/ | ||
| 323 : | -238 alias f** | ||
| 324 : | -239 alias fnegate | ||
| 325 : | -240 alias fdrop | ||
| 326 : | -241 alias fdup | ||
| 327 : | -242 alias fswap | ||
| 328 : | -243 alias fover | ||
| 329 : | -244 alias frot | ||
| 330 : | -245 alias fnip | ||
| 331 : | -246 alias ftuck | ||
| 332 : | -247 alias float+ | ||
| 333 : | -248 alias floats | ||
| 334 : | -249 alias floor | ||
| 335 : | -250 alias fround | ||
| 336 : | -251 alias fmax | ||
| 337 : | -252 alias fmin | ||
| 338 : | -253 alias represent | ||
| 339 : | -254 alias >float | ||
| 340 : | -255 alias fabs | ||
| 341 : | -256 alias facos | ||
| 342 : | -257 alias fasin | ||
| 343 : | -258 alias fatan | ||
| 344 : | -259 alias fatan2 | ||
| 345 : | -260 alias fcos | ||
| 346 : | -261 alias fexp | ||
| 347 : | -262 alias fexpm1 | ||
| 348 : | -263 alias fln | ||
| 349 : | -264 alias flnp1 | ||
| 350 : | -265 alias flog | ||
| 351 : | -266 alias falog | ||
| 352 : | -267 alias fsin | ||
| 353 : | -268 alias fsincos | ||
| 354 : | -269 alias fsqrt | ||
| 355 : | -270 alias ftan | ||
| 356 : | -271 alias fsinh | ||
| 357 : | -272 alias fcosh | ||
| 358 : | -273 alias ftanh | ||
| 359 : | -274 alias fasinh | ||
| 360 : | -275 alias facosh | ||
| 361 : | -276 alias fatanh | ||
| 362 : | -277 alias sfloats | ||
| 363 : | -278 alias dfloats | ||
| 364 : | -279 alias sfaligned | ||
| 365 : | -280 alias dfaligned | ||
| 366 : | |||
| 367 : | [THEN] ( has? floats ) has? glocals [IF] | ||
| 368 : | -281 alias @local# | ||
| 369 : | -282 alias @local0 | ||
| 370 : | -283 alias @local1 | ||
| 371 : | -284 alias @local2 | ||
| 372 : | -285 alias @local3 | ||
| 373 : | |||
| 374 : | has? floating [IF] | ||
| 375 : | -286 alias f@local# | ||
| 376 : | -287 alias f@local0 | ||
| 377 : | -288 alias f@local1 | ||
| 378 : | |||
| 379 : | [THEN] | ||
| 380 : | -289 alias laddr# | ||
| 381 : | -290 alias lp+!# | ||
| 382 : | -291 alias lp- | ||
| 383 : | -292 alias lp+ | ||
| 384 : | -293 alias lp+2 | ||
| 385 : | -294 alias lp! | ||
| 386 : | -295 alias >l | ||
| 387 : | |||
| 388 : | has? floating [IF] | ||
| 389 : | -296 alias f>l | ||
| 390 : | |||
| 391 : | [THEN] [THEN] \ has? glocals | ||
| 392 : | |||
| 393 : | has? OS [IF] | ||
| 394 : | -297 alias open-lib | ||
| 395 : | -298 alias lib-sym | ||
| 396 : | -299 alias icall0 | ||
| 397 : | -300 alias icall1 | ||
| 398 : | -301 alias icall2 | ||
| 399 : | -302 alias icall3 | ||
| 400 : | -303 alias icall4 | ||
| 401 : | -304 alias icall5 | ||
| 402 : | -305 alias icall6 | ||
| 403 : | -306 alias icall20 | ||
| 404 : | -307 alias fcall0 | ||
| 405 : | -308 alias fcall1 | ||
| 406 : | -309 alias fcall2 | ||
| 407 : | -310 alias fcall3 | ||
| 408 : | -311 alias fcall4 | ||
| 409 : | -312 alias fcall5 | ||
| 410 : | -313 alias fcall6 | ||
| 411 : | -314 alias fcall20 | ||
| 412 : | |||
| 413 : | [THEN] \ has? OS | ||
| 414 : | -315 alias up! |
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |