minim.nim
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 |
import streams, tables, parseopt2
import parser, interpreter, primitives
const version* = "0.1.0"
let usage* = " MiNiM v" & version & " - a tiny concatenative programming language" & """
(c) 2014 Fabio Cevasco
Usage:
minim [options] [filename]
Arguments:
filename A minim file to interpret (default: STDIN).
Options:
-e, --evaluate Evaluate a minim program inline
-h, --help Print this help
-v, --version Print the program version
-i, --interactive Starts MiNiM's Read Evel Print Loop"""
proc minimStream(s: PStream, filename: string) =
var i = newMinInterpreter()
i.open(s, filename)
discard i.parser.getToken()
i.interpret()
i.close()
proc handleReplCtrlC() {.noconv.}=
echo "\n-> Exiting..."
quit(0)
proc minimString*(buffer: string) =
minimStream(newStringStream(buffer), "input")
proc minimFile*(filename: string) =
var stream = newFileStream(filename, fmRead)
if stream == nil:
stderr.writeln("Error - Cannot read from file: "& filename)
stderr.flushFile()
minimStream(stream, filename)
proc minimFile*(file: TFile, filename="stdin") =
var stream = newFileStream(stdin)
if stream == nil:
stderr.writeln("Error - Cannot read from "& filename)
stderr.flushFile()
minimStream(stream, filename)
proc minimRepl*() =
var i = newMinInterpreter()
var s = newStringStream("")
i.open(s, "repl")
setControlCHook(handleReplCtrlC)
echo "MiNiM v"&version&" - REPL initialized."
echo "-> Press Ctrl+C to exit."
var pos = 0
var line: string
while true:
stdout.write(": ")
line = stdin.readLine()
s.writeln(line)
i.parser.buf = $i.parser.buf & line
i.parser.bufLen = i.parser.buf.len
discard i.parser.getToken()
i.interpret()
stdout.write "-> "
i.dump
###
var file, str: string = ""
for kind, key, val in getopt():
case kind:
of cmdArgument:
file = key
of cmdLongOption, cmdShortOption:
case key:
of "evaluate", "e":
str = val
of "help", "h":
echo usage
of "version", "v":
echo version
of "interactive", "i":
minimRepl()
quit(0)
else:
discard
if str != "":
minimString(str)
elif file != "":
minimFile file
else:
minimFile stdin
|