Command Line Tool Update

Author: Seng-Jik

Example.dgml

@@ -17,24 +17,26 @@
 
 
 ## YukimiScript Command Line Tool
+
 ```
-Usage: ykmc <path-to-scripts> [options]
+Usage:
+    Compile YukimiScript to Lua:
+        ykmc <INPUT_FILE> [--target-<TARGET> <OUTPUT_FILE>] [OPTIONS...]
+    Create diagram:
+        ykmc dgml <INPUT_DIR> <OUTPUT_DGML_FILE> [OPTIONS...]
+    Create charset file:
+        ykmc charset <INPUT_DIR> <OUTPUT_CHARSET_FILE> [OPTIONS...]
 
 Options:
-    --lib <libDir>         Add other library.
-    --dgml <output>        Create the diagram.
-    --target-lua <output>  Compile to lua source code.
-    --charset <charset>    Generate charset file in UTF-8 text.
-
-Examples:
-    Check the scripts:
-        ykmc "./Example" --lib "./api"
-    Create the diagram from scripts:
-        ykmc "./Example" --lib "./api" --dgml "./diagram.dgml"
-    Compiles to Lua source code:
-        ykmc "./Example" --lib "./api" --target-lua "script.lua"
-    Create charset file:
-        ykmc "./Example" --charset "./charset.txt"
+    --lib <LIB_DIR>    Include external libraries.
+
+Targets:
+    lua                Lua 5.1 for Lua Runtime 5.1 or LuaJIT
+
+Example:
+        ykmc ./Example/main.ykm --target-lua ./main.lua --lib ./Example/lib/
+        ykmc dgml ./Example/scenario ./Example.dgml --lib ./Example/lib
+        ykmc charset ./Example/ ./ExampleCharset.txt --lib ./Example/lib
 ```
 
 

Example.lua

@@ -0,0 +1,122 @@
+module YukimiScript.CommandLineTool.Compile
+
+open System.IO
+open YukimiScript.Parser
+
+
+exception FailException
+
+
+let unwrapParseException (errStringing: ErrorStringing.ErrorStringing) fileName =
+    function
+    | Ok x -> x
+    | Error ls ->
+        ls 
+        |> List.iter (fun (lineNumber, err) ->
+            Path.GetFileName(fileName: string) + "(" + string lineNumber + "):" + errStringing err
+            |> stderr.WriteLine)
+
+        raise FailException
+
+
+let unwrapDomException (errorStringing: ErrorStringing.ErrorStringing) =
+    function
+    | Ok x -> x
+    | Error err ->
+        errorStringing err
+        |> stderr.WriteLine
+        raise FailException
+
+
+let private loadDom errStringing src =
+    File.ReadAllLines src
+    |> Parser.parseLines
+    |> unwrapParseException errStringing src
+    |> Dom.analyze src
+    |> unwrapDomException errStringing
+
+
+let private findRepeat (items: (string * Elements.DebugInformation) seq) =
+    Seq.groupBy fst items
+    |> Seq.choose (fun (key, matches) ->
+        if Seq.length matches <= 1 then None
+        else Some (key, matches |> Seq.map snd))
+
+ 
+let checkRepeat errStringing (dom: Dom.Dom) =
+    dom.Externs 
+    |> Seq.map (fun (Elements.ExternCommand (cmd, _), dbg) -> cmd, dbg)
+    |> findRepeat 
+    |> Seq.tryHead
+    |> function
+        | None -> ()
+        | Some x -> 
+            Dom.ExternRepeatException x
+            |> Error
+            |> unwrapDomException errStringing
+
+    dom.Scenes 
+    |> Seq.map (fun (s, _, dbg) -> s.Name, dbg)
+    |> findRepeat 
+    |> Seq.tryHead
+    |> function
+        | None -> ()
+        | Some x -> 
+            Dom.SceneRepeatException x
+            |> Error
+            |> unwrapDomException errStringing
+
+    dom.Macros 
+    |> Seq.map (fun (s, _, dbg) -> s.Name, dbg)
+    |> findRepeat 
+    |> Seq.tryHead
+    |> function
+        | None -> ()
+        | Some x -> 
+            Dom.MacroRepeatException x
+            |> Error
+            |> unwrapDomException errStringing
+
+    dom
+
+
+let getYkmFiles (dir: string) =
+    Directory.EnumerateFiles(dir, "*.ykm", SearchOption.AllDirectories)
+    |> Array.ofSeq
+
+
+let loadLib errStringing libPath =
+    let doms =
+        getYkmFiles libPath
+        |> Array.map (fun srcPath -> 
+            srcPath, loadDom errStringing srcPath)
+
+    doms 
+    |> Array.iter (fun (fileName, dom) ->
+        if Seq.isEmpty dom.Scenes |> not then
+            unwrapDomException errStringing 
+            <| Error (Dom.CannotDefineSceneInLibException fileName))
+
+    doms
+    |> Array.map snd
+    |> Array.fold Dom.merge Dom.empty
+
+
+let loadLibs errStringing libPaths =
+    libPaths
+    |> List.map (loadLib errStringing)
+    |> List.fold Dom.merge Dom.empty
+
+
+let loadSrc errStringing (lib: Dom.Dom) srcPath =
+    Dom.merge lib (loadDom errStringing srcPath)
+    |> Dom.expandTextCommands
+    |> Dom.expandUserMacros lib
+    |> unwrapDomException errStringing
+
+
+let prepareCodegen errStringing dom =
+    Dom.expandSystemMacros dom
+    |> Dom.linkToExternCommands
+    |> unwrapDomException errStringing
+