Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/mpgirro/sbs14w
VU Stackbasierte Sprachen, 2014W, TU Wien, Universal Turing Machine programed in Forth
https://github.com/mpgirro/sbs14w
forth tu-wien
Last synced: about 2 months ago
JSON representation
VU Stackbasierte Sprachen, 2014W, TU Wien, Universal Turing Machine programed in Forth
- Host: GitHub
- URL: https://github.com/mpgirro/sbs14w
- Owner: mpgirro
- Created: 2014-11-14T19:16:52.000Z (about 10 years ago)
- Default Branch: master
- Last Pushed: 2017-03-07T08:11:36.000Z (almost 8 years ago)
- Last Synced: 2024-04-21T03:15:49.630Z (8 months ago)
- Topics: forth, tu-wien
- Language: HTML
- Homepage:
- Size: 71.3 KB
- Stars: 4
- Watchers: 3
- Forks: 2
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
Awesome Lists containing this project
README
# Universal Turing Machine in Forth
by [Theresa Fröschl](https://github.com/theresa77) and [Maximilian Irro](https://github.com/mpgirro)
This is a project for the course [Stackbasierte Sprachen (2014W)](http://www.complang.tuwien.ac.at/anton/lvas/stack.html) (german for "*stack-based languages*") at [TU Wien](http://www.informatik.tuwien.ac.at/english). The [repository is available on GitHub](https://github.com/mpgirro/universal-forth-machine).
We amined to write a Universal Turing Machine using the language Forth. We developed our program for the [Gforth](http://www.complang.tuwien.ac.at/forth/gforth/Docs-html/index.html#Top) interpreter. If used with other Forth interpreters there might be issues (we never tested).
## Name explanation
We call our program *Universal Forth Machine* (UFM), a wordplay between "Universal Turing Machine", being written in Forth, and Forth being a stack machine.
## Usage
ufm.forth /path/to/machine /path/to/tape
## Machine specification format
We provide some example machines in [machines/](machines/) and tapes to test them in [tapes/](tapes/). The basic file format looks like this:
start-state
state-term1 label
state1
sym-read sym-write next-state tape-ptr-move
sym-read sym-write next-state tape ptr-move
state-term2 otherlabel
state-term3 yetanotherlabel
state2
sym-read sym-write next-state tape-ptr-move
sym-read sym-write next-state tape ptr-move
The first line **has** to be the `start-state`. All following lines are state descriptions. A `term-state` (terminal state) is followbed by a `label` which is a string that will be the output of UFM if the machine terminates in this state. A line containing just a `state` token starts the definition of a regular state. All following lines until a new `state` or `state-term` line are the edge dedinitions for this state. An edge line has to consist of:
1. `sym-read`: the symbol read on the tape. If the machine is in the currently defined state, and this symbol is read, the machine will execute the following actions of this line. Think of it as the edge label when picturing the turing machine as a graph.
2. `sym-write`: the symbol to write onto the current tape position.
3. `next-state`: the next state the turing (state-)machine goes to.
4. `tape-ptr-move`: the direction the tape pointer (`tape-ptr`) moves. It can go one step to the left (`-1`) or right (`1`), or just stay (`0`) at its current position.
**Note** that all tokens except the `label` for terminal states support literals only! They will all be converted into numbers. So no strings allowed here.
## Special stack feature
The state transition of the machine is done in a loop calling the `transition` word. This is a word that will be dynamically compiled at runtime just before it's first execution. Therefore the code of `transition` is not hardcoded in the program file, but will be generated by a special compilation word `[compile-transition]` which is `compile-only` and `immediate`. It will compile Forth code into `transition` based on the input machine specification file. Have a look at the colon definition of `transition` in the source code, and at runtime using `see transition`
## Structure of transition word
The code structure of `transition` (which will be compiled depending on the machine-file) looks like this for the [machines/increment.machine](machines/increment.machine):
```forth
: transition ( cur-state sym-read -- next-state flag )
over 1 =
IF cr 4546001056 16 type 4545995737 9 type cr 2drop 0 EXIT
THEN
over 0 =
IF dup 1 =
IF 2drop 1 tape-write 0 tape-ptr-move-right -1 EXIT
THEN
dup 0 =
IF 2drop 1 tape-write 1 tape-ptr-move-stay -1 EXIT
THEN
THEN ; ok
```
The `over = if` sequences will check for the state the machine is currently occupying. The `dup = if` parts then check the current symbol on the tape. With this mechanism it is decided which action the machine will perform next.
## Resources
### Program:
+ [ufm.forth](ufm.forth)
### Machines:
+ [increment.machine](machines/increment.machine) -- increment the amount of `1`-symbols on the tape by one (at the right edge).
+ [multi3.machine](machines/multi3.machine) -- check if tape content holds a multiple of 3 `1`-symbols.
+ [palindrom.machine](machines/palindrom.machine) -- check if tape content is a palindrom. Border markers are `11` (left) and `33` (right).
### Tapes:
+ [increment.tape](tapes/increment.tape)
+ [multi3-yes.tape](tapes/multi3-yes.tape) -- [multi3.machine](machines/multi3.machine) should recognize a multiple of 3 `1`-symbols.
+ [multi3-no.tape](tapes/multi3-no.tape) -- [multi3.machine](machines/multi3.machine) should *not* recognize a multiple of 3 `1`-symbols
+ [palindrom-ok.tape](tapes/palindrom-ok.tape) -- [palindrom.machine](machines/palindrom.machine) should accept a palindrom
+ [palindrom-nok.tape](tapes/palindrom-nok.tape) -- [palindrom.machine](machines/palindrom.machine) should *not* accept a palindrom