mirror of https://github.com/japl-lang/japl.git
143 lines
4.5 KiB
Nim
143 lines
4.5 KiB
Nim
# Copyright 2020 Mattia Giambirtone
|
|
#
|
|
# Licensed under the Apache License, Version 2.0 (the "License");
|
|
# you may not use this file except in compliance with the License.
|
|
# You may obtain a copy of the License at
|
|
#
|
|
# http://www.apache.org/licenses/LICENSE-2.0
|
|
#
|
|
# Unless required by applicable law or agreed to in writing, software
|
|
# distributed under the License is distributed on an "AS IS" BASIS,
|
|
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
# See the License for the specific language governing permissions and
|
|
# limitations under the License.
|
|
|
|
## Main entry point for the JAPL language
|
|
|
|
|
|
import strformat
|
|
import parseopt
|
|
import os
|
|
|
|
import config
|
|
import vm
|
|
import types/japlNil
|
|
import types/typeutils
|
|
import types/methods
|
|
|
|
import jale/editor
|
|
import jale/templates
|
|
import jale/plugin/defaults
|
|
import jale/plugin/history
|
|
import jale/plugin/editor_history
|
|
|
|
proc getLineEditor: LineEditor =
|
|
result = newLineEditor()
|
|
result.prompt = "=> "
|
|
result.populateDefaults() # setup default keybindings
|
|
let hist = result.plugHistory() # create history object
|
|
result.bindHistory(hist) # set default history keybindings
|
|
|
|
proc repl(bytecodeVM: VM) =
|
|
var bytecodeVM = bytecodeVM
|
|
if bytecodeVM == nil:
|
|
bytecodeVM = initVM()
|
|
echo JAPL_VERSION_STRING
|
|
let nimDetails = &"[Nim {NimVersion} on {hostOs} ({hostCPU})]"
|
|
echo nimDetails
|
|
var source = ""
|
|
let lineEditor = getLineEditor()
|
|
var keep = true
|
|
lineEditor.bindEvent(jeQuit):
|
|
keep = false
|
|
while keep:
|
|
source = lineEditor.read()
|
|
if source == "//clear" or source == "// clear":
|
|
echo "\x1Bc" & JAPL_VERSION_STRING
|
|
echo nimDetails
|
|
continue
|
|
elif source == "//exit" or source == "// exit":
|
|
echo "Goodbye!"
|
|
echo JAPL_VERSION_STRING
|
|
echo nimDetails
|
|
break
|
|
elif source != "":
|
|
discard bytecodeVM.interpret(source, "stdin")
|
|
if not bytecodeVM.lastPop.isNil():
|
|
echo stringify(bytecodeVM.lastPop)
|
|
bytecodeVM.lastPop = cast[ptr Nil](bytecodeVM.cached[2])
|
|
bytecodeVM.freeVM()
|
|
|
|
|
|
proc main(file: var string = "", fromString: bool = false, interactive: bool = false) =
|
|
var source: string
|
|
if file == "" and not fromString:
|
|
repl(nil)
|
|
return # We exit after the REPL has ran
|
|
if not fromString:
|
|
var sourceFile: File
|
|
try:
|
|
sourceFile = open(filename=file)
|
|
except IOError:
|
|
echo &"Error: '{file}' could not be opened, probably the file doesn't exist or you don't have permission to read it"
|
|
return
|
|
try:
|
|
source = readAll(sourceFile)
|
|
except IOError:
|
|
echo &"Error: '{file}' could not be read, probably you don't have the permission to read it"
|
|
else:
|
|
source = file
|
|
file = "<string>"
|
|
var bytecodeVM = initVM()
|
|
discard bytecodeVM.interpret(source, file)
|
|
if interactive:
|
|
repl(bytecodeVM)
|
|
bytecodeVM.freeVM()
|
|
|
|
|
|
when isMainModule:
|
|
var optParser = initOptParser(commandLineParams())
|
|
var file: string = ""
|
|
var fromString: bool = false
|
|
var interactive: bool = false
|
|
for kind, key, value in optParser.getopt():
|
|
case kind:
|
|
of cmdArgument:
|
|
file = key
|
|
of cmdLongOption:
|
|
case key:
|
|
of "help":
|
|
echo HELP_MESSAGE
|
|
quit()
|
|
of "version":
|
|
echo JAPL_VERSION_STRING
|
|
quit()
|
|
of "string":
|
|
file = key
|
|
fromString = true
|
|
of "interactive":
|
|
interactive = true
|
|
else:
|
|
echo &"error: unkown option '{key}'"
|
|
quit()
|
|
of cmdShortOption:
|
|
case key:
|
|
of "h":
|
|
echo HELP_MESSAGE
|
|
quit()
|
|
of "v":
|
|
echo JAPL_VERSION_STRING
|
|
quit()
|
|
of "s":
|
|
file = key
|
|
fromString = true
|
|
of "i":
|
|
interactive = true
|
|
else:
|
|
echo &"error: unkown option '{key}'"
|
|
quit()
|
|
else:
|
|
echo "usage: japl [options] [filename.jpl]"
|
|
quit()
|
|
main(file, fromString, interactive)
|