Add a GUI. Use FAKE to manage the build and paket for dependencies.

[sudokuSolver.git] / SudokuSolver / Program.fs

diff --git a/SudokuSolver/Program.fs b/SudokuSolver/Program.fs
index 3402bc5..b45930f 100644 (file)
--- a/SudokuSolver/Program.fs
+++ b/SudokuSolver/Program.fs
@@ -5,24 +5,37 @@ module Solver = Version1
 open System
 open System.IO
 
 open System
 open System.IO
 

-[<EntryPoint>]
-let main argv = 
-    use fs = new FileStream ("../../../sudokus/mm_22.txt", FileMode.Open, FileAccess.Read)
-    use sr = new StreamReader (fs)
-
-    while sr.Peek () <> -1 do
-        let b = Solver.Board sr
-        b.Show System.Console.Out
-
-        printfn "vvvvvvvvvvv"
+let printUsage () =
+    printfn "Usage: %s <suduko file>" System.AppDomain.CurrentDomain.FriendlyName

 
 

-        let timer = System.Diagnostics.Stopwatch ()
-        timer.Start ()
-
-        if b.Solve () 
-        then b.Show System.Console.Out
-        else printfn "No solution"
-
-        timer.Stop ()
-        printfn "Time: %A ms" timer.ElapsedMilliseconds
-    0
\ No newline at end of file
+[<EntryPoint>]
+let main args =
+    if args.Length = 0 then
+        GUI.showMainWindow ()
+        0
+    elif Array.exists (fun arg -> arg = "-h" || arg = "--help") args then
+        printUsage ()
+        0
+    else
+        for filepath in args do
+            use fs = new FileStream(filepath, FileMode.Open, FileAccess.Read)
+            use sr = new StreamReader(fs)
+
+            printfn "%s" filepath
+            while sr.Peek() <> -1 do
+                let b = Solver.Board sr
+                b.Show System.Console.Out
+
+                printfn "vvvvvvvvvvv"
+
+                let timer = System.Diagnostics.Stopwatch()
+                timer.Start()
+
+                if b.Solve ()
+                then b.Show System.Console.Out
+                else printfn "No solution"
+
+                timer.Stop()
+                printfn "Time: %A ms" timer.ElapsedMilliseconds
+                printfn ""
+        0
\ No newline at end of file