You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
78 lines
2.5 KiB
78 lines
2.5 KiB
3 years ago
|
Forth
|
||
|
|
=====
|
||
|
|
|
||
|
|
This is a new implementation of Forth 2012 in C.
|
||
|
|
|
||
|
|
Building & use
|
||
|
|
--------------
|
||
|
|
|
||
|
|
Use cmake or `build.sh`. It probably needs GCC with `--std=gnu99`.
|
||
|
|
|
||
|
|
You get a binary with the forth runtime. Run it to get a prompt. Use `-h` for help.
|
||
|
|
|
||
|
|
Goals
|
||
|
|
-----
|
||
|
|
|
||
|
|
- Comfy to use and extend
|
||
|
|
- No dynamic allocation where possible
|
||
|
|
- Compact and embeddable so it can be ported to ARM-CortexM or similar later
|
||
|
|
- Implement the CORE and CORE-EXT word sets, for a start
|
||
|
|
- Pass the [Forth2012 test suite](https://github.com/gerryjackson/forth2012-test-suite), at least for the word sets that are implemented
|
||
|
|
- Maybe eventually have some terminal-based implementation of a subset of the Facility word set, like AT-XY and keyboard input
|
||
|
|
- Try to keep added custom words and quirks at a minimum
|
||
|
|
- Comment stuff, maybe
|
||
|
|
|
||
|
|
Non-Goals
|
||
|
|
---------
|
||
|
|
|
||
|
|
- I don't really care about implementing some of the word sets
|
||
|
|
- Performance is not so critical for a hobby Forth like this
|
||
|
|
- Probably won't accept merge requests, this is my Forth
|
||
|
|
- I also don't care about someone telling me to add a license file
|
||
|
|
|
||
|
|
Custom words
|
||
|
|
------------
|
||
|
|
- `.\"` - like `."` but allows escaping, this is essentially `S\" blah" TYPE`, but without allocation (unless compiled)
|
||
|
|
- `??` - debug dump of the stacks
|
||
|
|
- `reset` - everything should become like if you restarted the program
|
||
|
|
- `debug ( flag -- )` - enable or disable verbose logging
|
||
|
|
|
||
|
|
For debug, there is `see ( "word" -- )` that lets you inspect and disassemble dictionary entries.
|
||
|
|
|
||
|
|
Implementation status
|
||
|
|
---------------------
|
||
|
|
|
||
|
|
*(this section may be outdated)*
|
||
|
|
|
||
|
|
Implemented:
|
||
|
|
|
||
|
|
```
|
||
|
|
CORE:
|
||
|
|
! ' ( * */ */MOD + +! +LOOP , - . ." / /mod 0< 0= 1+ 1- 2! 2* 2/ 2@ 2DROP 2DUP 2OVER 2SWAP
|
||
|
|
: ; < = > >IN >R ?DUP @ ABORT ABS ALIGN ALIGNED ALLOT AND BASE BEGIN BL CELL CELL+ CELLS CHAR CHAR+
|
||
|
|
CHARS CONSTANT COUNT CR CREATE DECIMAL DEPTH DO DROP DUP ELSE EMIT ENVIRONMENT? EXECUTE EXIT FIND
|
||
|
|
HERE I IF IMMEDIATE INVERT J LEAVE LITERAL LOOP MOD NEGATE OR OVER POSTPONE QUIT R> R@ RECURSE
|
||
|
|
REPEAT ROT S" SOURCE SPACE SWAP THEN TYPE U< UNTIL VARIABLE WHILE WORD XOR [ ['] [CHAR] ]
|
||
|
|
|
||
|
|
CORE-EXT:
|
||
|
|
.( 0<> 0> 2>R 2R> 2R@ <> ?DO AGAIN FALSE HEX NIP PAD PICK ROLL S\" TO TRUE TUCK U.R U> UNUSED VALUE
|
||
|
|
\
|
||
|
|
|
||
|
|
Other sets:
|
||
|
|
FORGET SEE BYE
|
||
|
|
```
|
||
|
|
|
||
|
|
Missing:
|
||
|
|
|
||
|
|
```
|
||
|
|
CORE:
|
||
|
|
# #> #S <# >BODY >NUMBER ABORT" ACCEPT C! C, C@ DOES> EVALUATE FILL FM/MOD HOLD KEY LSHIFY M* MAX
|
||
|
|
MIN MOVE RSHIFT S>D SIGN SM/REM SPACES STATE U. UM* UM/MOD UNLOOP
|
||
|
|
|
||
|
|
CORE-EXT:
|
||
|
|
.R :NONAME ACTION-OF BUFFER: C" CASE COMPILE, DEFER DEFER! DEFER@ ENDCASE ENDOF ERASE HOLDS IS
|
||
|
|
MARKER OFPARSE PARSE-NAME REFILL RESTORE-INPUT SAVE-INPUT SOURCE-IDWITHIN [COMPILE]
|
||
|
|
```
|
||
|
|
|
||
|
|
.
|