Fix nat-archive-tool for tink_syntaxhub
This commit is contained in:
@@ -1,14 +1,7 @@
|
|||||||
package nat;
|
package nat;
|
||||||
|
|
||||||
import kiss.Prelude;
|
class CLI {
|
||||||
import kiss.List;
|
static function main() {
|
||||||
import sys.FileSystem;
|
CLI_.main();
|
||||||
import nat.ArchiveController;
|
}
|
||||||
import nat.systems.PlaygroundSystem;
|
}
|
||||||
import nat.components.*;
|
|
||||||
import haxe.ds.Option;
|
|
||||||
|
|
||||||
using StringTools;
|
|
||||||
|
|
||||||
@:build(kiss.Kiss.build())
|
|
||||||
class CLI implements ArchiveUI {}
|
|
||||||
|
@@ -1,3 +1,11 @@
|
|||||||
|
(import sys.FileSystem)
|
||||||
|
(import nat.ArchiveController)
|
||||||
|
(import nat.systems.PlaygroundSystem)
|
||||||
|
(importAll nat.components)
|
||||||
|
(import haxe.ds.Option)
|
||||||
|
|
||||||
|
(implements nat.ArchiveUI)
|
||||||
|
|
||||||
// External programs can load Lib.kiss with (loadFrom "nat-archive-tool" "src/nat/Lib.kiss")
|
// External programs can load Lib.kiss with (loadFrom "nat-archive-tool" "src/nat/Lib.kiss")
|
||||||
(load "Lib.kiss")
|
(load "Lib.kiss")
|
||||||
|
|
||||||
@@ -6,7 +14,7 @@
|
|||||||
(let [controller
|
(let [controller
|
||||||
(new ArchiveController
|
(new ArchiveController
|
||||||
(new Archive archiveDir)
|
(new Archive archiveDir)
|
||||||
(new CLI))]
|
(new CLI_))]
|
||||||
(loop
|
(loop
|
||||||
(Sys.print ">> ")
|
(Sys.print ">> ")
|
||||||
(let [command
|
(let [command
|
@@ -20,10 +20,10 @@
|
|||||||
(#extern String python
|
(#extern String python
|
||||||
(object
|
(object
|
||||||
hxmlFile "extern-files/python/args.hxml"
|
hxmlFile "extern-files/python/args.hxml"
|
||||||
importHxFile "extern-files/python/import.hx"
|
|
||||||
langProjectFile "extern-files/python/requirements.txt")
|
langProjectFile "extern-files/python/requirements.txt")
|
||||||
[:Map<String,Array<String>> params _ :String mediaWikiUrl _ :String maxLag (if maxLag (Std.string maxLag) "1") :Map<String,String> headers _]
|
[:Map<String,Array<String>> params _ :String mediaWikiUrl _ :String maxLag (if maxLag (Std.string maxLag) "1") :Map<String,String> headers _]
|
||||||
|
|
||||||
|
(import requests_externs.Requests)
|
||||||
(print "extern query call $params")
|
(print "extern query call $params")
|
||||||
(let [response
|
(let [response
|
||||||
(Requests.get mediaWikiUrl
|
(Requests.get mediaWikiUrl
|
||||||
|
@@ -10,7 +10,6 @@
|
|||||||
(object
|
(object
|
||||||
hxmlFile "extern-files/js/args.hxml"
|
hxmlFile "extern-files/js/args.hxml"
|
||||||
skipHaxelibInstall true
|
skipHaxelibInstall true
|
||||||
importHxFile "extern-files/js/import.hx"
|
|
||||||
langProjectFile "extern-files/js/package.json")
|
langProjectFile "extern-files/js/package.json")
|
||||||
[]
|
[]
|
||||||
(print "extern hello world!")))
|
(print "extern hello world!")))
|
||||||
|
@@ -1,14 +1,7 @@
|
|||||||
package test;
|
package test;
|
||||||
|
|
||||||
import kiss.Kiss;
|
class TestMain {
|
||||||
import kiss.Prelude;
|
static function main() {
|
||||||
import nat.BoolExpInterp;
|
TestMain_.main();
|
||||||
import nat.Archive;
|
}
|
||||||
import nat.ArchiveController;
|
}
|
||||||
import nat.Lib;
|
|
||||||
import nat.components.*;
|
|
||||||
import nat.systems.*;
|
|
||||||
import uuid.Uuid;
|
|
||||||
|
|
||||||
@:build(kiss.Kiss.build())
|
|
||||||
class TestMain {}
|
|
||||||
|
@@ -1,3 +1,11 @@
|
|||||||
|
(import nat.BoolExpInterp)
|
||||||
|
(import nat.Archive)
|
||||||
|
(import nat.ArchiveController)
|
||||||
|
(import nat.Lib)
|
||||||
|
(importAll nat.components)
|
||||||
|
(importAll nat.systems)
|
||||||
|
(import uuid.Uuid)
|
||||||
|
|
||||||
// External programs can load Lib.kiss with (loadFrom "nat-archive-tool" "src/nat/Lib.kiss")
|
// External programs can load Lib.kiss with (loadFrom "nat-archive-tool" "src/nat/Lib.kiss")
|
||||||
(load "../nat/Lib.kiss")
|
(load "../nat/Lib.kiss")
|
||||||
|
|
Reference in New Issue
Block a user