TypeScript: setup initial environment

Makefile

@@ -81,7 +81,7 @@ IMPLS = ada awk bash basic c d chuck clojure coffee common-lisp cpp crystal cs d
 	erlang elisp elixir es6 factor forth fsharp go groovy guile haskell \
 	haxe io java julia js kotlin logo lua make mal ocaml matlab miniMAL \
 	nim objc objpascal perl perl6 php pil plpgsql plsql powershell ps \
-	python r racket rpython ruby rust scala skew swift swift3 tcl vb vhdl \
+	python r racket rpython ruby rust scala skew swift swift3 tcl ts vb vhdl \
 	vimscript
 
 EXTENSION = .mal
@@ -210,6 +210,7 @@ skew_STEP_TO_PROG =    skew/$($(1)).js
 swift_STEP_TO_PROG =   swift/$($(1))
 swift3_STEP_TO_PROG =  swift3/$($(1))
 tcl_STEP_TO_PROG =     tcl/$($(1)).tcl
+ts_STEP_TO_PROG =      ts/$($(1)).js
 vb_STEP_TO_PROG =      vb/$($(1)).exe
 vhdl_STEP_TO_PROG =    vhdl/$($(1))
 vimscript_STEP_TO_PROG = vimscript/$($(1)).vim

ts/.gitignore

@@ -0,0 +1,5 @@
+node_modules/
+
+npm-debug.log
+
+*.js

ts/Makefile

@@ -0,0 +1,34 @@
+SOURCES_BASE = types.ts reader.ts printer.ts
+SOURCES_LISP = env.ts core.ts stepA_mal.ts
+SOURCES = $(SOURCES_BASE) $(SOURCES_LISP)
+
+all: node_modules dist
+
+node_modules:
+	npm install
+
+dist: mal.js mal
+
+%.js: %.js
+	./node_modules/.bin/tsc -p ./
+
+mal.js: $(SOURCES)
+	./node_modules/.bin/tsc -p ./
+
+mal: mal.js
+	echo "#!/usr/bin/env node" > $@
+	cat $< >> $@
+	chmod +x $@
+
+clean:
+	rm -f *.js mal
+
+
+.PHONY: stats tests $(TESTS)
+
+stats: $(SOURCES)
+	@wc $^
+	@printf "%5s %5s %5s %s\n" `egrep "^\w*#|^\w*$$" $^ | wc` "[comments/blanks]"
+stats-lisp: $(SOURCES_LISP)
+	@wc $^
+	@printf "%5s %5s %5s %s\n" `egrep "^\w*#|^\w*$$" $^ | wc` "[comments/blanks]"

ts/node_readline.ts

@@ -0,0 +1,45 @@
+import * as path from "path";
+import * as ffi from "ffi";
+import * as fs from "fs";
+
+// IMPORTANT: choose one
+const RL_LIB = "libreadline";  // NOTE: libreadline is GPL
+//var RL_LIB = "libedit";
+
+const HISTORY_FILE = path.join(process.env.HOME, ".mal-history");
+
+const rllib = ffi.Library(RL_LIB, {
+    "readline": ["string", ["string"]],
+    "add_history": ["int", ["string"]],
+});
+
+let rlHistoryLoaded = false;
+
+export function readline(prompt?: string): string | null {
+    prompt = prompt || "user> ";
+
+    if (!rlHistoryLoaded) {
+        rlHistoryLoaded = true;
+        let lines: string[] = [];
+        if (fs.existsSync(HISTORY_FILE)) {
+            lines = fs.readFileSync(HISTORY_FILE).toString().split("\n");
+        }
+        // Max of 2000 lines
+        lines = lines.slice(Math.max(lines.length - 2000, 0));
+        for (let i = 0; i < lines.length; i++) {
+            if (lines[i]) { rllib.add_history(lines[i]); }
+        }
+    }
+
+    const line = rllib.readline(prompt);
+    if (line) {
+        rllib.add_history(line);
+        try {
+            fs.appendFileSync(HISTORY_FILE, line + "\n");
+        } catch (exc) {
+            // ignored
+        }
+    }
+
+    return line;
+};

ts/package.json

@@ -0,0 +1,19 @@
+{
+  "name": "mal",
+  "private": true,
+  "version": "1.0.0",
+  "description": "Make a Lisp (mal) language implemented in TypeScript",
+  "scripts": {
+    "test": "npm run test:step0",
+    "test:step0": "cd .. && make 'test^ts^step0'"
+  },
+  "dependencies": {
+    "ffi": "^2.2.0"
+  },
+  "devDependencies": {
+    "@types/ffi": "0.0.19",
+    "@types/node": "^7.0.5",
+    "typescript": "^2.1.6",
+    "typescript-formatter": "^4.1.1"
+  }
+}

ts/run

@@ -0,0 +1,2 @@
+#!/bin/bash
+exec node $(dirname $0)/${STEP:-stepA_mal}.js "${@}"

ts/tsconfig.json

@@ -0,0 +1,15 @@
+{
+    "compilerOptions": {
+        "module": "commonjs",
+        "target": "es2015",
+        "noImplicitAny": true,
+        "noEmitOnError": true,
+        "noImplicitReturns": true,
+        "noImplicitThis": true,
+        "noUnusedLocals": true,
+        "noUnusedParameters": true,
+        "newLine": "LF",
+        "strictNullChecks": true,
+        "sourceMap": false
+    }
+}