swapforth

1
set -e
2

3
# tput clear ; python fill.py `tput cols` `tput lines` ; exit
4
# python draw.py ; exit
5
if [ `uname` = "Darwin" ]
6
then
7
  nasm -f macho64 -l lst nuc.asm
8
else
9
  # nasm -D CELL=4 -f elf32 -l lst nuc.asm
10
  nasm -D CELL=8 -f elf64 -l lst nuc.asm
11
fi
12

13
python expand.py swapforth.fs runtests.fs > 1
14

15
gcc -Wall main.c nuc.o 
16

17
# gobjdump -D a.out | less
18
# echo "false false parse-name 66x >number .x .x .x .x" | ./a.out
19
# echo "parse-name HELLO_WORLD type space 16 base ! abcdef12345678abcdef. 10000 um/mod .x .x cr words" | ./a.out
20
# echo "16 base ! : foo2 41 emit 21 emit ; foo2 foo2 foo2 " | ./a.out
21

22
./a.out < 1 | tail -24
23

24
# python expand.py swapforth.fs > 0 ; cat 0 - | ./a.out
25
# ./bench
26
# /usr/bin/time gforth-fast 8080.fs -e bye
27

28
nasm -D CELL=4 -f elf32 -l lst nuc.asm
29
gcc -m32 -Wall main.c nuc.o
30
./a.out < 1 | tail -24
31