Assembler: initial command line API.

Author: ForNeVeR

Naggum.Assembler/Assembler.fs

@@ -0,0 +1,15 @@
+module Naggum.Assembler.Assembler
+
+open System.Reflection.Emit
+
+open Naggum.Compiler
+
+/// Prepares the source file for assembling. Returns the intermediate
+/// representation of the source code.
+let prepare fileName stream =
+    let forms = Reader.parse fileName stream
+    ()
+
+/// Assembles the source code. Returns a list of assemblies ready for saving.
+let assemble repr : AssemblyBuilder seq =
+    Seq.empty

Naggum.Assembler/Naggum.Assembler.fsproj

@@ -48,9 +48,17 @@
     <Reference Include="System.Numerics" />
   </ItemGroup>
   <ItemGroup>
+    <None Include="App.config" />
     <Compile Include="AssemblyInfo.fs" />
+    <Compile Include="Assembler.fs" />
     <Compile Include="Program.fs" />
-    <None Include="App.config" />
+  </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\Naggum.Compiler\Naggum.Compiler.fsproj">
+      <Name>Naggum.Compiler</Name>
+      <Project>{a4269c5e-e4ac-44bf-a06e-1b45248910ad}</Project>
+      <Private>True</Private>
+    </ProjectReference>
   </ItemGroup>
   <PropertyGroup>
     <MinimumVisualStudioVersion Condition="'$(MinimumVisualStudioVersion)' == ''">11</MinimumVisualStudioVersion>

Naggum.Assembler/Program.fs

@@ -1,12 +1,52 @@
 module Naggum.Assembler.Program
 
+open System
+open System.IO
 open System.Reflection
+open System.Reflection.Emit
+
+type ReturnCode =
+    | Success = 0
+    | Error = 1
+    | InvalidArguments = 2
 
 let printUsage () =
     let version = Assembly.GetExecutingAssembly().GetName().Version
     printfn "Naggum Assembler %A" version
+    printfn "Usage: Naggum.Assembler [one or more file names]"
+
+let printError (error : Exception) =
+    printfn "Error: %s" (error.ToString ())
+
+let save (assembly : AssemblyBuilder) =
+    let name = assembly.FullName
+    assembly.Save name
+    printfn "Assembly %s saved" name
+
+let assemble fileName =
+    use stream = File.OpenRead fileName
+    let repr = Assembler.prepare fileName stream
+    let assemblies = Assembler.assemble repr
+    assemblies |> Seq.iter save
+
+let nga =
+    function 
+    | [| "--help" |] ->
+        printUsage ()
+        ReturnCode.Success
+    | fileNames when fileNames.Length > 0 ->
+        try
+            fileNames |> Array.iter assemble
+            ReturnCode.Success
+        with
+        | error ->
+            printError error
+            ReturnCode.Error
+    | _ ->
+        printUsage ()
+        ReturnCode.InvalidArguments
 
 [<EntryPoint>]
-let main _ = 
-    printUsage ()
-    0
+let main args =
+    let result = nga args
+    int result