Return to wordsets.fs CVS log

Up to [gforth] / gforth

updated copyright year after changing license notice

    1: \ WORDSETS.STR  All the words of the Wordsets           03may93jaw
    2: 
    3: \ Copyright (C) 1995,2003,2007 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 3
   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, see http://www.gnu.org/licenses/.
   19: 
   20: 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: ^ M*/ ^ M+
   61: 
   62: WS DOUBLE-EXT
   63: 
   64: ^ 2ROT ^ DU<
   65: 
   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: ^ F. ^ FABS ^ FACOS ^ FACOSH ^ FALOG ^ FASIN ^ FASINH ^ FATAN
  104: ^ FATAN2 ^ FATANH ^ FCOS ^ FCOSH ^ FE. ^ FEXP ^ FEXPM1
  105: ^ FLN ^ FLNP1 ^ FLOG ^ FS. ^ FSIN ^ FSINCOS ^ FSINH
  106: ^ FSQRT ^ FTAN ^ FTANH ^ F~ ^ PRECISION ^ SET-PRECISION
  107: ^ SF! ^ SF@ ^ SFALIGN ^ SFALIGNED ^ SFLOAT+ ^ SFLOATS
  108: 
  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: