2016-08-20 15:09:19 -05:00
|
|
|
$ErrorActionPreference = "Stop"
|
|
|
|
|
|
|
|
|
|
Import-Module $PSScriptRoot/reader.psm1
|
|
|
|
|
Import-Module $PSScriptRoot/printer.psm1
|
|
|
|
|
|
2016-08-21 17:14:01 -05:00
|
|
|
# READ
|
2016-08-20 15:09:19 -05:00
|
|
|
function READ([String] $str) {
|
|
|
|
|
return read_str($str)
|
|
|
|
|
}
|
|
|
|
|
|
2016-08-21 17:14:01 -05:00
|
|
|
# EVAL
|
2016-08-20 15:09:19 -05:00
|
|
|
function EVAL($ast, $env) {
|
|
|
|
|
return $ast
|
|
|
|
|
}
|
|
|
|
|
|
2016-08-21 17:14:01 -05:00
|
|
|
# PRINT
|
2016-08-20 15:09:19 -05:00
|
|
|
function PRINT($exp) {
|
|
|
|
|
return pr_str $exp $true
|
|
|
|
|
}
|
|
|
|
|
|
2016-08-21 17:14:01 -05:00
|
|
|
# REPL
|
|
|
|
|
function REP([String] $str) {
|
2016-08-20 15:09:19 -05:00
|
|
|
return PRINT (EVAL (READ $str) @{})
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
while ($true) {
|
|
|
|
|
Write-Host "user> " -NoNewline
|
|
|
|
|
$line = [Console]::ReadLine()
|
|
|
|
|
if ($line -eq $null) {
|
|
|
|
|
break
|
|
|
|
|
}
|
|
|
|
|
try {
|
2016-08-21 17:14:01 -05:00
|
|
|
Write-Host (REP($line))
|
2016-08-20 15:09:19 -05:00
|
|
|
} catch {
|
|
|
|
|
Write-Host "Exception: $($_.Exception.Message)"
|
|
|
|
|
}
|
|
|
|
|
}
|
