public static void RunScript(string pth)
{
var basedir = Path.GetDirectoryName(pth);
Interpreter.CreateSymbolTableDelegate extension = _ => new Dictionary <Symbol, object>()
{
// generic stuff
{ Symbol.FromString("sprintf"), NativeProcedure.Create <string, List <object>, string>((fmt, parts) => Sprintf(fmt, parts)) },
// roughgrep stuff
{ Symbol.FromString("make-runner"), NativeProcedure.Create <string, string, string, object>((bin, arg, workdir) => MakeRunner(bin, arg, workdir)) },
{ Symbol.FromString("add-command"), NativeProcedure.Create <string, CmdRunner, object>((pat, cmspec) => AddCommand(pat, cmspec)) },
{ Symbol.FromString("path-rel"), NativeProcedure.Create <string, string>(s => Path.Combine(basedir, s)) },
{ Symbol.FromString("set-arg"), NativeProcedure.Create <string, object>(s => SetArg(s)) },
{ Symbol.FromString("set-tutorial"), NativeProcedure.Create <string, object>(s => SetTutorial(s)) },
};
var interpreter = new Interpreter(new[] { extension }, new ReadOnlyFileSystemAccessor());
using (Stream script = File.OpenRead(pth))
using (TextReader reader = new StreamReader(script))
{
var res = interpreter.Evaluate(reader);
if (res.Error != null)
{
Logic.Tutorial = res.Error.Message;
}
}
}
static void Main(string[] args)
{
Interpreter.CreateSymbolTableDelegate extension = _ => new Dictionary <Symbol, object>()
{
{ Symbol.FromString("get-current-os"), NativeProcedure.Create(() => GetCurrentSystem()) },
{ Symbol.FromString("chain"), new NativeProcedure(funcs => new Function(input => funcs.Cast <Function>().Select(b => input = b(input)).Last())) },
{ Symbol.FromString("say-hi"), NativeProcedure.Create <Function>(() => name => $"Hello {name}!") },
{ Symbol.FromString("man-freebsd"), NativeProcedure.Create <Function>(() => cmd => GetUrl($"https://www.freebsd.org/cgi/man.cgi?query={cmd}&format=ascii")) },
{ Symbol.FromString("man-linux"), NativeProcedure.Create <Function>(() => cmd => GetUrl($"http://man7.org/linux/man-pages/man1/{cmd}.1.html")) },
{ Symbol.FromString("truncate-string"), NativeProcedure.Create <int, Function>(len => input => ((string)input).Substring(0, len)) },
};
var interpreter = new Interpreter(new[] { extension }, new ReadOnlyFileSystemAccessor());
if (args.Contains("--repl")) // start the REPL with all implemented functions
{
interpreter.REPL(Console.In, Console.Out);
return;
}
else
{
// starts a TCP server that receives request (cmd <data>) and sends response back.
var engines = new Dictionary <string, Function>();
foreach (var fn in Directory.GetFiles(Path.GetDirectoryName(Assembly.GetEntryAssembly().Location), "*.ss"))
{
Console.WriteLine($"Loading file {fn}");
LoadScript(interpreter, fn);
engines[Path.GetFileNameWithoutExtension(fn)] = (Function)interpreter.Environment[Symbol.FromString("EXECUTE")];
}
string ip = "127.0.0.1"; int port = 8080;
var server = new TcpListener(IPAddress.Parse(ip), port);
server.Start();
Console.WriteLine($"Server started at {ip}:{port}");
try
{
using (var c = server.AcceptTcpClient())
using (var cs = c.GetStream())
using (var sr = new StreamReader(cs))
using (var sw = new StreamWriter(cs))
{
Console.WriteLine($"Client accepted at {c.Client.RemoteEndPoint}");
while (!sr.EndOfStream)
{
string line = sr.ReadLine();
string[] parsed = line.Split(new[] { ' ' }, 2);
if (parsed.Length != 2)
{
sw.WriteLine($"cannot parse {line}");
sw.Flush();
}
else
{
string engine = parsed[0], request = parsed[1];
if (!engines.ContainsKey(engine))
{
sw.WriteLine($"engine not found: {engine}");
sw.Flush();
}
else
{
string output = (string)(engines[engine](request));
sw.WriteLine(output);
sw.Flush();
}
}
}
}
}
catch (IOException) { }
}
}
public static Interpreter CreateItpl()
{
Interpreter.CreateSymbolTableDelegate appExt = _ => new Dictionary <Symbol, object>()
{
{ Symbol.FromString("repl"), NativeProcedure.Create(() => { RunRepl(); return(None.Instance); }) },
{ Symbol.FromString("os-system"), NativeProcedure.Create <string, string, Process>((cmd, arg) =>
ConvenienceRun(cmd, arg, null)) },
{ Symbol.FromString("unzip"), NativeProcedure.Create <string, string, None>((zipfile, targetdir) =>
{
ZipFile.ExtractToDirectory(zipfile, targetdir);
return(None.Instance);
}) },
{ Symbol.FromString("wget"), NativeProcedure.Create <string, string, None>((url, fname) =>
{
new WebClient().DownloadFile(url, fname);
return(None.Instance);
}) },
{ Symbol.FromString("ps-wait"), NativeProcedure.Create <Process, int>(p => {
p.WaitForExit();
return(p.ExitCode);
}) },
{ Symbol.FromString("print"), NativeProcedure.Create <object, object>(o => {
Console.WriteLine(Schemy.Utils.PrintExpr(o));
return(None.Instance);
}) },
{ Symbol.FromString("os-exit"), NativeProcedure.Create <int, object>(exitCode => {
System.Environment.Exit(exitCode);
return(None.Instance);
}) },
{ Symbol.FromString("cd"), NativeProcedure.Create <string, None>(path => {
System.Environment.CurrentDirectory = path;
return(None.Instance);
}) },
{ Symbol.FromString("pwd"), NativeProcedure.Create(() => System.Environment.CurrentDirectory) },
{ Sym("getenv"), NativeProcedure.Create <string, string>((s) => System.Environment.GetEnvironmentVariable(s)) },
{ Sym("path-join"), NativeProcedure.Create <List <object>, string> (parts => Path.Combine(parts.Cast <string>().ToArray())) },
{ Sym("path-tempfile"), NativeProcedure.Create(() => Path.GetTempFileName()) },
{ Sym("path-temppath"), NativeProcedure.Create(() => Path.GetTempPath()) },
{ Sym("path-random"), NativeProcedure.Create(() => Path.GetRandomFileName()) },
{ Sym("path-remove"), NativeProcedure.Create <string, None>(pth => {
File.Delete(pth);
return(None.Instance);
}) },
{ Sym("s-format"), NativeProcedure.Create <string, List <object>, string>((formatString, args) =>
String.Format(formatString, args.ToArray())) },
{ Sym("help"), NativeProcedure.Create(() => AppInterpreter.Environment.store.Keys.Select(k => k.AsString).Cast <object>().ToList()) },
{ Symbol.FromString("s-join"), NativeProcedure.Create <string, List <object>, string> ((sep, strings) => String.Join(sep, strings.Cast <string>().ToArray())) },
{ Symbol.FromString("guess-file"), NativeProcedure.Create <string, List <object>, string>((defaultName, l) =>
{
var found = l.Cast <string>().FirstOrDefault(e => File.Exists(e));
return(found == null ? defaultName : found);
}) },
};
var itpl = new Interpreter(new[] { appExt });
return(itpl);
}