Add command line arguments and make time printing nicer

This patch adds the following arguments:

1. `--dump-ast` or `-d`: This dumps the Abstract Syntax Tree
2. `--dont-emit-llvm` or `-L`: This skips the LLVM generation step only
   parsing and type checking. Useful for debugging.

Besides this, formatting of the time each compiler step took is also
improved and easier to read now.

Signed-off-by: Slendi <slendi@socopon.com>

Makefile

@@ -2,5 +2,5 @@ LLVMC=llvm-config
 LLVM_LINKER=-lc++ $(shell ${LLVMC} --libs core --cxxflags --ldflags --system-libs|tr '\n' ' ')
 
 all:
-	odin run src -o:none -debug -out:speedcat -extra-linker-flags:"${LLVM_LINKER}" -- pong.cat && \
+	odin run src -o:none -debug -out:speedcat -extra-linker-flags:"${LLVM_LINKER}" -- ${COMP_ARGS} pong.cat && \
 	clang -I/opt/local/include -L/opt/local/lib -lraylib -lm  -framework Cocoa -framework OpenGL -framework IOKit pong.ll -o raylib

pong.cat

@@ -1,193 +1,193 @@
-enum MyEnum {
+\enum MyEnum {
-	EnumItem1,
+\	EnumItem1,
-	EnumItem2 = 1,
+\	EnumItem2 = 1,
-	EnumItem3,
+\	EnumItem3,
-	EnumItem4,
+\	EnumItem4,
-}
+\}
-
+\
-enum MyTypedEnum : i8 {
+\enum MyTypedEnum : i8 {
-	EnumItem1,
+\	EnumItem1,
-	EnumItem2,
+\	EnumItem2,
-	EnumItem3 = 105,
+\	EnumItem3 = 105,
-	EnumItem4,
+\	EnumItem4,
-}
+\}
 
 struct Vec2 {
 	x y: f32,
 }
 
-\struct Rect {
+struct Rect {
-\	pos size: Vec2,
+	pos size: Vec2,
-\}
+}
-\
+
 let CONSTPOS :: .Vec2 {20.0 20.0}
-\let CONSTSZ :: .Vec2 {100.0 100.0}
+let CONSTSZ :: .Vec2 {100.0 100.0}
-\let CONST :: .Rect {(CONSTPOS) (CONSTSZ)}
+let CONST :: .Rect {(CONSTPOS) (CONSTSZ)}
-\
+
-\\ FIXME: LLVM IR geneartion is borked
+\ FIXME: LLVM IR geneartion is borked
-\\ let CONST :: .Rect { .Vec2 { 20.0 20.0 } .Vec2 { 100.0 100.0 } }
+\ let CONST :: .Rect { .Vec2 { 20.0 20.0 } .Vec2 { 100.0 100.0 } }
-\
+
-\struct Color {
+struct Color {
-\	r g b a: u8,
+	r g b a: u8,
-\}
+}
-\
+
-\let KEY_R :: 82
+let KEY_R :: 82
-\
+
-\fn InitWindow(w h: i32, title: []u8)
+fn InitWindow(w h: i32, title: []u8)
-\fn CloseWindow
+fn CloseWindow
-\fn BeginDrawing
+fn BeginDrawing
-\fn SetTargetFPS(fps: i32)
+fn SetTargetFPS(fps: i32)
-\fn EndDrawing
+fn EndDrawing
-\fn DrawFPS(x y: i32)
+fn DrawFPS(x y: i32)
-\fn WindowShouldClose i32
+fn WindowShouldClose i32
-\fn TextSubtext(text: []u8, start end: i32) []u8
+fn TextSubtext(text: []u8, start end: i32) []u8
-\fn IsKeyPressed(key: i32) u1
+fn IsKeyPressed(key: i32) u1
-\
+
-\struct Rectangle {
+struct Rectangle {
-\	x y w h: f32,
+	x y w h: f32,
-\}
+}
-\
+
-\fn ColorToRaylib(c: Color) u32 {
+fn ColorToRaylib(c: Color) u32 {
-\	ret c.a as u32 << 24 as u32 | c.b as u32 << 16 as u32 | c.g as u32 << 8 as u32 | c.r
+	ret c.a as u32 << 24 as u32 | c.b as u32 << 16 as u32 | c.g as u32 << 8 as u32 | c.r
-\}
+}
-\
+
-\fn ClearBackgroundWrap(c: Color) {
+fn ClearBackgroundWrap(c: Color) {
-\	fn ClearBackground(c: u32)
+	fn ClearBackground(c: u32)
-\	ClearBackground (ColorToRaylib c)
+	ClearBackground (ColorToRaylib c)
-\}
+}
-\
+
-\fn DrawRectangleWrap(x y w h: i32, c: Color) {
+fn DrawRectangleWrap(x y w h: i32, c: Color) {
-\	fn DrawRectangle(x y w h: i32, c: u32)
+	fn DrawRectangle(x y w h: i32, c: u32)
-\	DrawRectangle x y w h (ColorToRaylib c)
+	DrawRectangle x y w h (ColorToRaylib c)
-\}
+}
-\
+
-\fn DrawCircleWrap(x y: i32, r: f32, c: Color) {
+fn DrawCircleWrap(x y: i32, r: f32, c: Color) {
-\	fn DrawCircle(x y: i32, r: f32, c: u32)
+	fn DrawCircle(x y: i32, r: f32, c: u32)
-\	DrawCircle x y r (ColorToRaylib c)
+	DrawCircle x y r (ColorToRaylib c)
-\}
+}
-\
+
-\fn DrawRectangleRecWrap(r: Rectangle, c: Color) {
+fn DrawRectangleRecWrap(r: Rectangle, c: Color) {
-\	fn DrawRectangleRec(r: Rectangle, c: u32)
+	fn DrawRectangleRec(r: Rectangle, c: u32)
-\	DrawRectangleRec r (ColorToRaylib c)
+	DrawRectangleRec r (ColorToRaylib c)
-\}
+}
-\
+
-\fn DrawTextWrap(text: []u8, x y size: i32, c: Color) {
+fn DrawTextWrap(text: []u8, x y size: i32, c: Color) {
-\	fn DrawText(text: []u8, x y size: i32, c: u32)
+	fn DrawText(text: []u8, x y size: i32, c: u32)
-\	DrawText text x y size (ColorToRaylib c)
+	DrawText text x y size (ColorToRaylib c)
-\}
+}
-\
+
-\let WHITE :: .Color {255 255 255 255}
+let WHITE :: .Color {255 255 255 255}
-\let BLACK :: .Color {0 0 0 255}
+let BLACK :: .Color {0 0 0 255}
-\let RED   :: .Color {255 0 0 255}
+let RED   :: .Color {255 0 0 255}
-\let BLUE  :: .Color {0 0 255 255}
+let BLUE  :: .Color {0 0 255 255}
-\
+
-\InitWindow 800 450 Raylib
+InitWindow 800 450 Raylib
-\SetTargetFPS 60
+SetTargetFPS 60
-\
+
-\fn GetScreenWidth i32
+fn GetScreenWidth i32
-\fn GetScreenHeight i32
+fn GetScreenHeight i32
-\
+
-\fn DrawRect(rect: Rect, c: Color) {
+fn DrawRect(rect: Rect, c: Color) {
-\	DrawRectangleWrap (rect.pos.x as i32) (rect.pos.y as i32) (rect.size.x as i32) (rect.size.y as i32) c
+	DrawRectangleWrap (rect.pos.x as i32) (rect.pos.y as i32) (rect.size.x as i32) (rect.size.y as i32) c
-\}
+}
-\
+
-\let logox := GetScreenWidth / 2 - 128
+let logox := GetScreenWidth / 2 - 128
-\let logoy := GetScreenHeight / 2 - 128
+let logoy := GetScreenHeight / 2 - 128
-\
+
-\\ FIXME: Cannot inline
+\ FIXME: Cannot inline
-\let fc := 0
+let fc := 0
-\let lc := 0
+let lc := 0
-\let top_side_rec_width := 16
+let top_side_rec_width := 16
-\let left_side_rec_height := 16
+let left_side_rec_height := 16
-\let bottom_side_rec_width := 16
+let bottom_side_rec_width := 16
-\let right_side_rec_height := 16
+let right_side_rec_height := 16
-\
+
-\let state := 0
+let state := 0
-\let alpha := 1.0
+let alpha := 1.0
-\
+
-\for WindowShouldClose == 0 {
+for WindowShouldClose == 0 {
-\	if state == 0 {
+	if state == 0 {
-\		if ++fc == 120 {
+		if ++fc == 120 {
-\			state = 1
+			state = 1
-\			fc = 0
+			fc = 0
-\		}
+		}
-\	} elif state == 1 {
+	} elif state == 1 {
-\		top_side_rec_width = top_side_rec_width + 4
+		top_side_rec_width = top_side_rec_width + 4
-\		left_side_rec_height = left_side_rec_height + 4
+		left_side_rec_height = left_side_rec_height + 4
-\
+
-\		if top_side_rec_width == 256 {
+		if top_side_rec_width == 256 {
-\			state = 2
+			state = 2
-\		}
+		}
-\	} elif state == 2 {
+	} elif state == 2 {
-\		bottom_side_rec_width = bottom_side_rec_width + 4
+		bottom_side_rec_width = bottom_side_rec_width + 4
-\		right_side_rec_height = right_side_rec_height + 4
+		right_side_rec_height = right_side_rec_height + 4
-\
+
-\		if bottom_side_rec_width == 256 {
+		if bottom_side_rec_width == 256 {
-\			state = 3
+			state = 3
-\		}
+		}
-\	} elif state == 3 {
+	} elif state == 3 {
-\		if ++fc / 12 != 0 {
+		if ++fc / 12 != 0 {
-\			++lc
+			++lc
-\			fc = 0
+			fc = 0
-\		}
+		}
-\
+
-\		if lc >= 10 {
+		if lc >= 10 {
-\			alpha = alpha - 0.01
+			alpha = alpha - 0.01
-\			if alpha <= 0.0 {
+			if alpha <= 0.0 {
-\				alpha = 0.0
+				alpha = 0.0
-\				state = 4
+				state = 4
-\			}
+			}
-\		}
+		}
-\	} elif IsKeyPressed(KEY_R) { \ 
+	} elif IsKeyPressed(KEY_R) { \ 
-\		fc = lc = 0
+		fc = lc = 0
-\		
+		
-\		top_side_rec_width = 16
+		top_side_rec_width = 16
-\		left_side_rec_height = 16
+		left_side_rec_height = 16
-\		bottom_side_rec_width = 16
+		bottom_side_rec_width = 16
-\		right_side_rec_height = 16
+		right_side_rec_height = 16
-\
+
-\		state = 0
+		state = 0
-\		alpha = 1.0
+		alpha = 1.0
-\	}
+	}
-\
+
-\	BeginDrawing
+	BeginDrawing
-\	ClearBackgroundWrap WHITE
+	ClearBackgroundWrap WHITE
-\	DrawFPS 20 20
+	DrawFPS 20 20
-\
+
-\	DrawRect CONST RED
+	DrawRect CONST RED
-\
+
-\	if state == 0 {
+	if state == 0 {
-\		if (fc/15)%2 != 0 {
+		if (fc/15)%2 != 0 {
-\			DrawRectangleWrap logox logoy 16 16 BLACK
+			DrawRectangleWrap logox logoy 16 16 BLACK
-\		}
+		}
-\	} elif state == 1 {
+	} elif state == 1 {
-\		DrawRectangleWrap logox logoy top_side_rec_width 16 BLACK
+		DrawRectangleWrap logox logoy top_side_rec_width 16 BLACK
-\		DrawRectangleWrap logox logoy 16 left_side_rec_height BLACK
+		DrawRectangleWrap logox logoy 16 left_side_rec_height BLACK
-\	} elif state == 2 {
+	} elif state == 2 {
-\		DrawRectangleWrap logox logoy top_side_rec_width 16 BLACK
+		DrawRectangleWrap logox logoy top_side_rec_width 16 BLACK
-\		DrawRectangleWrap logox logoy 16 left_side_rec_height BLACK
+		DrawRectangleWrap logox logoy 16 left_side_rec_height BLACK
-\
+
-\		DrawRectangleWrap logox+240 logoy 16 right_side_rec_height BLACK
+		DrawRectangleWrap logox+240 logoy 16 right_side_rec_height BLACK
-\		DrawRectangleWrap logox logoy+240 bottom_side_rec_width 16 BLACK
+		DrawRectangleWrap logox logoy+240 bottom_side_rec_width 16 BLACK
-\	} elif state == 3 {
+	} elif state == 3 {
-\		let colorw := .Color{255 255 255 (alpha*255.0) as u8}
+		let colorw := .Color{255 255 255 (alpha*255.0) as u8}
-\		let colorb := .Color{0 0 0 (alpha*255.0) as u8}
+		let colorb := .Color{0 0 0 (alpha*255.0) as u8}
-\		\ FIXME: ADD field access assignment
+		\ FIXME: ADD field access assignment
-\		\color.a = (alpha * 255.0) as u8
+		\color.a = (alpha * 255.0) as u8
-\		DrawRectangleWrap logox logoy top_side_rec_width 16 colorb
+		DrawRectangleWrap logox logoy top_side_rec_width 16 colorb
-\		DrawRectangleWrap logox logoy+16 16 left_side_rec_height-32 colorb
+		DrawRectangleWrap logox logoy+16 16 left_side_rec_height-32 colorb
-\
+
-\		DrawRectangleWrap logox+240 logoy+16 16 right_side_rec_height-32 cbolor
+		DrawRectangleWrap logox+240 logoy+16 16 right_side_rec_height-32 cbolor
-\		DrawRectangleWrap logox logoy+240 bottom_side_rec_width 16 colorb
+		DrawRectangleWrap logox logoy+240 bottom_side_rec_width 16 colorb
-\
+
-\		DrawRectangleWrap GetScreenWidth/2-112 GetScreenHeight/2-112 224 224 colorw
+		DrawRectangleWrap GetScreenWidth/2-112 GetScreenHeight/2-112 224 224 colorw
-\
+
-\		DrawTextWrap (TextSubtext raylib 0 lc) GetScreenWidth/2-44 GetScreenHeight/2+48 50 colorb
+		DrawTextWrap (TextSubtext raylib 0 lc) GetScreenWidth/2-44 GetScreenHeight/2+48 50 colorb
-\	} else {
+	} else {
-\		DrawTextWrap "[R] REPLAY" 340 200 20 BLACK
+		DrawTextWrap "[R] REPLAY" 340 200 20 BLACK
-\	}
+	}
-\
+
-\	EndDrawing
+	EndDrawing
-\}
+}
-\CloseWindow
+CloseWindow
-\
+

src/argparser.odin

@@ -0,0 +1,52 @@
+package main
+
+Options :: struct {
+	file:           string,
+	dump_ast:       bool,
+	dont_emit_llvm: bool,
+}
+
+parse_args :: proc(args: ^[]string) -> (o: Options) {
+	o.file = "<stdin>"
+	o.dump_ast = false
+	o.dont_emit_llvm = false
+
+	for &arg, idx in args^ {
+		if idx == 0 {
+			continue
+		}
+
+		if len(arg) <= 1 {
+			continue
+		}
+
+		if arg[0] == '-' && arg[1] != '-' {
+			for ch, idx in arg {
+				if idx == 0 {
+					continue
+				}
+
+				switch (ch) {
+				case 'd':
+					o.dump_ast = true
+				case 'L':
+					o.dont_emit_llvm = true
+				case:
+					panic("Invalid command line switch")
+				}
+			}
+		} else if arg[0] == '-' && arg[1] == '-' {
+			switch (arg) {
+			case "--dump-ast":
+				o.dump_ast = true
+			case "--dont-emit-llvm":
+				o.dont_emit_llvm = true
+			case:
+				panic("Invalid command line switch")
+			}
+		} else {
+			o.file = arg
+		}
+	}
+	return
+}

src/main.odin

@@ -5,16 +5,19 @@ import "core:os"
 import "core:time"
 
 main :: proc() {
+	fmt.println("Speedcat bootstrap compiler")
+	fmt.println("===========================")
+
 	handle: os.Handle
-	file_name := "<stdin>"
+	options := parse_args(&os.args)
-	if len(os.args) >= 2 {
+	file_name := options.file
+	if file_name != "<stdin>" {
 		errno: os.Errno
-		handle, errno = os.open(os.args[1])
+		handle, errno = os.open(file_name)
 		if errno != 0 {
 			fmt.printf("Error opening file\n", errno)
 			return
 		}
-		file_name = os.args[1]
 	} else {
 		handle = os.stdin
 	}
@@ -37,7 +40,6 @@ main :: proc() {
 	parser_time_start := time.now()
 	ast := parser_parse(&parser)
 	parser_duration := time.since(parser_time_start)
-	defer fmt.printf("Parsing took:      {}ns\n", time.duration_nanoseconds(parser_duration))
 
 	if len(g_message_list) > 0 {
 		contains_errors := false
@@ -56,7 +58,6 @@ main :: proc() {
 	type_check_start := time.now()
 	type_check(ast, nil)
 	type_check_duration := time.since(type_check_start)
-	defer fmt.printf("Type checker took: {}ns\n", time.duration_nanoseconds(type_check_duration))
 
 	if len(g_message_list) > 0 {
 		contains_errors := false
@@ -71,39 +72,80 @@ main :: proc() {
 		}
 	}
 
-	node_print(ast)
+	if options.dump_ast {
+		node_print(ast)
+	}
 
-	//	name: string
+	fmt.println("Time report")
-	//	if handle == os.stdin {
+	fmt.println("===========")
-	//		name = "stdin"
+	most_printed := 0
-	//	} else {
+	printed := fmt.printf(
-	//		name = os.args[1]
+		"Parsing took:         % 10dns (%.3fms)\n",
-	//	}
+		time.duration_nanoseconds(parser_duration),
-	//	name_dyn := [dynamic]u8{}
+		time.duration_milliseconds(parser_duration),
-	//	for ch in transmute([]u8)name {
+	)
-	//		append(&name_dyn, u8(ch))
+	most_printed = max(printed, most_printed)
-	//	}
+	printed = fmt.printf(
-	//	module_name := parse_use_path2(name_dyn)
+		"Type checker took:    % 10dns (%.3fms)\n",
-	//	module_name = main_module_name_from_filename(module_name)
+		time.duration_nanoseconds(type_check_duration),
-	//	if len(module_name) == 0 {
+		time.duration_milliseconds(type_check_duration),
-	//		clear(&module_name)
+	)
-	//		append(&module_name, 'm')
+	most_printed = max(printed, most_printed)
-	//		append(&module_name, 'a')
+	llvm_duration: time.Duration = 0
-	//		append(&module_name, 'i')
+	defer {
-	//		append(&module_name, 'n')
+		for most_printed > 1 {
-	//	}
+			fmt.printf("-")
-	//	ctx := LLVMContextCreate()
+			most_printed -= 1
-	//	defer LLVMContextDispose(ctx)
+		}
-	//	module := LLVMModuleCreateWithNameInContext(cstring(raw_data(module_name[:])), ctx)
+		fmt.printf(
-	//	defer LLVMDisposeModule(module)
+			"\nTotal time:           % 10dns (%.3fms)\n\n",
-	//	builder := LLVMCreateBuilderInContext(ctx)
+			time.duration_nanoseconds(llvm_duration + type_check_duration + parser_duration),
-	//
+			time.duration_milliseconds(llvm_duration + type_check_duration + parser_duration),
-	//	generate_llvm(ctx, module, builder, ast)
+		)
-	//
+	}
-	//	append(&module_name, '.')
+
-	//	append(&module_name, 'l')
+	if options.dont_emit_llvm {
-	//	append(&module_name, 'l')
+		return
-	//	LLVMPrintModuleToFile(module, cstring(raw_data(module_name[:])), nil)
+	}
+
+	name: string
+	if handle == os.stdin {
+		name = "stdin"
+	} else {
+		name = os.args[1]
+	}
+	name_dyn := [dynamic]u8{}
+	for ch in transmute([]u8)name {
+		append(&name_dyn, u8(ch))
+	}
+	module_name := parse_use_path2(name_dyn)
+	module_name = main_module_name_from_filename(module_name)
+	if len(module_name) == 0 {
+		clear(&module_name)
+		append(&module_name, 'm')
+		append(&module_name, 'a')
+		append(&module_name, 'i')
+		append(&module_name, 'n')
+	}
+	ctx := LLVMContextCreate()
+	defer LLVMContextDispose(ctx)
+	module := LLVMModuleCreateWithNameInContext(cstring(raw_data(module_name[:])), ctx)
+	defer LLVMDisposeModule(module)
+	builder := LLVMCreateBuilderInContext(ctx)
+
+	llvm_start := time.now()
+	generate_llvm(ctx, module, builder, ast)
+	llvm_duration = time.since(llvm_start)
+	printed = fmt.printf(
+		"LLVM generation took: % 10dns (%.3fms)\n",
+		time.duration_nanoseconds(llvm_duration),
+		time.duration_milliseconds(llvm_duration),
+	)
+
+	append(&module_name, '.')
+	append(&module_name, 'l')
+	append(&module_name, 'l')
+	LLVMPrintModuleToFile(module, cstring(raw_data(module_name[:])), nil)
 }
 
 main_module_name_from_filename :: proc(fname: [dynamic]u8) -> (module_name: [dynamic]u8) {

src/type_checker.odin

@@ -675,8 +675,6 @@ type_check :: proc(ast: ^Node, parent_ast: ^Node) {
 			type_check(child, ast)
 		}
 
-		node_print(ast)
-
 		struct_ := find_struct(ast.value.([dynamic]u8))
 		if struct_ == nil {
 			append(
@@ -704,7 +702,6 @@ type_check :: proc(ast: ^Node, parent_ast: ^Node) {
 
 		idx := 0
 		for &child in ast.children {
-			fmt.printf("Comp {} and {} (struct f)\n", child.return_type.kind, struct_.fields[idx].type.kind)
 			ok, cast_required := compare_types(child.return_type, struct_.fields[idx].type)
 			if cast_required {
 				cast_ := node_create_cast({}, child, {})