Ismael-VC

/*******************************************************************************
*
* A minimal Forth compiler in C
* By Leif Bruder <[email protected]> http://defineanswer42.wordpress.com
* Release 2014-04-04
*
* Based on Richard W.M. Jones' excellent Jonesforth sources/tutorial
*
* PUBLIC DOMAIN
*

Ismael-VC

( usage: uxncli terminal-cli.rom )

|10 @Console &vector $2 &read $1 $5 &write $1

|0a @enter

|100

@on-reset ( -> )
        ;on-console .Console/vector DEO2

Ismael-VC

%d { #010e DEO }

|20 @SP   |0a @CR   |06 @morse-align


|100
    ;ascii-str print-ascii>morse
BRK

Ismael-VC

%d { #010e DEO }

|20 @SP   |0a @CR   |06 @morse-align


|100
    ;ascii-str print-ascii>morse
BRK

Ismael-VC

const { exec } = require('child_process');
const gulp = require('gulp');


async function build() {
	exec(
		'clear && uxnasm test.tal test.rom && uxncli test.rom',
		(error, stdout, stderr) => {
			if (!(stdout.length === 0)) {
				console.log(`${stdout}`);

Ismael-VC

{
    "colorcolumn": 80,
    "diffgutter": true,
    "hlsearch": true,
    "indentchar": "⋅",
    "rmtrailingws": true,
    "scrollbar": true,
    "softwrap": true,
    "tabmovement": true,
    "tabsize": 2,

Ismael-VC

( pong.tal )
    

( devices )
|00 @System [ 
    &vector $2 
    &pad $6  
    &r $2  
    &g $2  
    &b $2 

Ismael-VC

(
QWERTY from G2 to G5:

     2 3   5 6 7   9 0   =    |                    C#4  D#4       F#4  G#4  A#4       C#5  D#5       F#5
    q w e r t y u i o p [ ]   |                  C4   D4   E4   F4   G4   A4   B4   C5   D5   E5   F5   G5
     s d   g h   k l ;        |     G#2  A#2       C#3  D#3       F#3  G#3  A#3
    z x c v b n m , . /       |   G2   A2   B2   C3   D3   E3   F3   G3   A3   B3 
)

	.Controller/key DEI

Ismael-VC

|10 @Console &vector $2 &read $1 &pad $5 &write $1 &error $1

|0100 @on-reset ( -> )

        #03 #00
        &for
                ( send ) ;hello-word print-text
                ( loop ) INC GTHk ?&for
        POP2

Ismael-VC

diff --git a/build.sh b/build.sh
index 28682b5..88076e8 100755
--- a/build.sh
+++ b/build.sh
@@ -67,7 +67,7 @@ fi

 mkdir -p bin
 CC="${CC:-cc}"
-CFLAGS="${CFLAGS:--std=c89 -Wall -Wno-unknown-pragmas}"
+CFLAGS="${CFLAGS:--std=c89 -Wall -Wno-unknown-pragmas -D_DARWIN_C_SOURCE}"