Add an output file parameter.

src/chalk/compiler.cr

@@ -12,7 +12,7 @@ module Chalk
       def initialize(@config : Ui::Config)
         @logger = Logger.new STDOUT
         @logger.debug("Initialized compiler")
-        @logger.level = Logger::DEBUG
+        @logger.level = @config.loglevel
       end
 
       # Reads a file an extracts instances of
@@ -180,7 +180,7 @@ module Chalk
           all_instructions << Ir::ReturnInstruction.new
         end
 
-        file = File.open("out.ch8", "w")
+        file = File.open(@config.output, "w")
         generate_binary(table, all_instructions, file)
         file.close
       end

src/chalk/config.cr

@@ -22,10 +22,20 @@ module Chalk
       getter mode : OutputMode
       # Sets the mode in which the compiler should operate.
       setter mode : OutputMode
+      # Gets the log level.
+      getter loglevel : Logger::Severity
+      # Sets the log level.
+      setter loglevel : Logger::Severity
+      # Gets the output file destination.
+      getter output : String
+      # Sets the output file destination.
+      setter output : String
 
       # Creates a new configuration.
       def initialize(@file = "",
-                     @mode = OutputMode::Tree)
+                     @mode = OutputMode::Tree,
+                     @loglevel = Logger::Severity::DEBUG,
+                     @output : String = "out.ch8")
       end
 
       # Reads a configuration from the command line options.
@@ -34,20 +44,35 @@ module Chalk
         OptionParser.parse! do |parser|
           parser.banner = "Usage: chalk [arguments]"
           parser.on("-m", "--mode=MODE", "Set the mode of the compiler.") do |mode|
-            case mode.downcase
+            hash = { 
-            when "tree", "t"
+                "tree" => OutputMode::Tree,
-              config.mode = OutputMode::Tree
+                "t" => OutputMode::Tree,
-            when "intermediate", "i"
+                "intermediate" => OutputMode::Intermediate,
-              config.mode = OutputMode::Intermediate
+                "i" => OutputMode::Intermediate,
-            when "binary", "b"
+                "binary" => OutputMode::Binary,
-              config.mode = OutputMode::Binary
+                "b" => OutputMode::Binary
-            else
+            }
-              puts "Invalid mode type. Using default."
+            puts "Invalid mode type. Using default." if !hash.has_key?(mode)
-            end
+            config.mode = hash[mode]? || OutputMode::Tree
           end
           parser.on("-f", "--file=FILE", "Set the input file to compile.") do |file|
             config.file = file
           end
+          parser.on("-o", "--output=OUT", "Sets the output file.") do |out|
+            config.output = out
+          end
+          parser.on("-l", "--log=LOG", "Set the log level of the compiler.") do |log|
+            hash = {
+                "debug" => Logger::Severity::DEBUG,
+                "fatal" => Logger::Severity::FATAL,
+                "error" => Logger::Severity::ERROR,
+                "info" => Logger::Severity::INFO,
+                "unknown" => Logger::Severity::UNKNOWN,
+                "warn" => Logger::Severity::WARN
+            }
+            puts "Invalid log level. Using default." if !hash.has_key?(log)
+            config.loglevel = hash[log]? || Logger::Severity::DEBUG
+          end
           parser.on("-h", "--help", "Show this message.") { puts parser }
         end
         return config