1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
# TODO: Write documentation for `Flint`
require "option_parser"
require "./util.cr"
require "./brainfuck/*"
require "./brainfuck/parser.cr"
module Flint
VERSION = "0.1.0"
def self.main
execution_mode = :interpret
chosen_language = nil
memory_size = nil
source_file = nil
read_stdin = false
parser = OptionParser.new do |parser|
parser.banner = "Basic usage: flint [LANGUAGE] [OPTIONS] [FILE]"
parser.on("brainfuck", "select brainfuck as the language") do
chosen_language = :brainfuck
memory_size = Brainfuck::DEFAULT_TAPE_SIZE
parser.banner = "Useage: flint brainfuck [OPTIONS] [FILE]"
parser.on("-t CELLS", "--tape-size=CELLS", "specify the number of memory cells in the tape, defaults to 30,000") { nil }
end
parser.on("-h", "--help", "show this help and exit") do
puts parser
exit(0)
end
parser.on("-i", "--interpet", "interpet the provided source code, implied by default, overridden by '-c' or '--compile'") { nil }
parser.on("-c", "--compile", "produce a binary or different source code file instead of interpeting the code, overrides an explicit '-i' or '--intepret' flag") do
execution_mode = :compile
end
parser.on("--stdin", "read source code from STDIN instead of a file") do
read_stdin = true
end
parser.unknown_args do |_args|
source_file = _args[0] unless _args.empty?
end
end
parser.parse
if chosen_language.nil?
puts "ERROR: No language chosen"
puts parser
exit(1)
end
if read_stdin
source_io = STDIN
elsif source_file
# compilier complains without the not_nil!
source_io = File.new(source_file.not_nil!)
else
puts "ERROR: No source file chosen"
puts parser
puts source_file.nil?
puts (!read_stdin)
exit(1)
end
if chosen_language == :brainfuck
bf_parser = Brainfuck::Parser.new(source_io)
program = Brainfuck::Program.new(bf_parser)
end
begin
program.not_nil!.interpret
rescue ex : Util::ParserError
puts "Caught ParserError"
puts ex.message
exit(1)
end
end
end
Flint.main
|
