aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGinger Bill <bill@gingerbill.org>2016-12-20 18:58:17 +0000
committerGinger Bill <bill@gingerbill.org>2016-12-20 18:58:17 +0000
commitd0e1efe622f921fd763f5d88cc5011e940f0c9cd (patch)
treeed171793f3f988e3b64e59958bac0470c88388a4
parent478d63424fb99c368a0cfae88704b2c903956a1d (diff)
Generic (grouped) declarations: var, let, const, type, import, include
-rw-r--r--code/demo.odin39
-rw-r--r--core/_preload.odin158
-rw-r--r--core/atomic.odin2
-rw-r--r--core/fmt.odin8
-rw-r--r--core/math.odin17
-rw-r--r--core/mem.odin31
-rw-r--r--core/opengl.odin4
-rw-r--r--core/os.odin2
-rw-r--r--core/os_windows.odin47
-rw-r--r--core/sync.odin27
-rw-r--r--core/sys/windows.odin545
-rw-r--r--core/utf8.odin56
-rw-r--r--src/checker/checker.c81
-rw-r--r--src/checker/decl.c6
-rw-r--r--src/checker/entity.c17
-rw-r--r--src/checker/expr.c82
-rw-r--r--src/checker/stmt.c30
-rw-r--r--src/parser.c351
-rw-r--r--src/ssa.c48
-rw-r--r--src/tokenizer.c6
20 files changed, 795 insertions, 762 deletions
diff --git a/code/demo.odin b/code/demo.odin
index 409fc3837..6bf3748c0 100644
--- a/code/demo.odin
+++ b/code/demo.odin
@@ -1,36 +1,31 @@
-#import "atomic.odin";
-#import "fmt.odin";
-#import "hash.odin";
-#import "math.odin";
-#import "mem.odin";
-#import "opengl.odin";
-#import "os.odin";
-#import "sync.odin";
-#import "utf8.odin";
-
-type float32 f32;
-const (
- X = iota;
- Y;
- Z;
- A = iota+1;
- B;
- C;
-);
+import (
+ "atomic.odin";
+ "fmt.odin";
+ "hash.odin";
+ "math.odin";
+ "mem.odin";
+ "opengl.odin";
+ "os.odin";
+ "sync.odin";
+ "utf8.odin";
+)
type Byte_Size f64;
const (
_ = iota; // ignore first value by assigning to blank identifier
KB Byte_Size = 1 << (10 * iota);
+ // Because there is no type or expression, the previous one is used but
+ // with `iota` incremented by one
MB;
GB;
TB;
PB;
EB;
-);
+)
proc main() {
- var x = 123;
- fmt.println(x);
+ fmt.println("Here");
+
}
+
diff --git a/core/_preload.odin b/core/_preload.odin
index acf96114f..4bff92a58 100644
--- a/core/_preload.odin
+++ b/core/_preload.odin
@@ -1,8 +1,10 @@
#shared_global_scope;
-#import "os.odin";
-#import "fmt.odin";
-#import "mem.odin";
+import (
+ "os.odin";
+ "fmt.odin";
+ "mem.odin";
+)
// IMPORTANT NOTE(bill): `type_info` & `type_info_val` cannot be used within a
// #shared_global_scope due to the internals of the compiler.
@@ -12,65 +14,67 @@
// IMPORTANT NOTE(bill): Do not change the order of any of this data
// The compiler relies upon this _exact_ order
-type Type_Info_Member struct #ordered {
- name string; // can be empty if tuple
- type_info ^Type_Info;
- offset int; // offsets are not used in tuples
-}
-type Type_Info_Record struct #ordered {
- fields []Type_Info_Member;
- size int; // in bytes
- align int; // in bytes
- packed bool;
- ordered bool;
-}
+type (
+ Type_Info_Member struct #ordered {
+ name string; // can be empty if tuple
+ type_info ^Type_Info;
+ offset int; // offsets are not used in tuples
+ }
+ Type_Info_Record struct #ordered {
+ fields []Type_Info_Member;
+ size int; // in bytes
+ align int; // in bytes
+ packed bool;
+ ordered bool;
+ }
-type Type_Info union {
- Named struct #ordered {
- name string;
- base ^Type_Info; // This will _not_ be a Type_Info.Named
- };
- Integer struct #ordered {
- size int; // in bytes
- signed bool;
- };
- Float struct #ordered {
- size int; // in bytes
- };
- Any struct #ordered {};
- String struct #ordered {};
- Boolean struct #ordered {};
- Pointer struct #ordered {
- elem ^Type_Info; // nil -> rawptr
- };
- Maybe struct #ordered {
- elem ^Type_Info;
- };
- Procedure struct #ordered {
- params ^Type_Info; // Type_Info.Tuple
- results ^Type_Info; // Type_Info.Tuple
- variadic bool;
- };
- Array struct #ordered {
- elem ^Type_Info;
- elem_size int;
- count int;
- };
- Slice struct #ordered {
- elem ^Type_Info;
- elem_size int;
- };
- Vector struct #ordered {
- elem ^Type_Info;
- elem_size int;
- count int;
- align int;
- };
- Tuple Type_Info_Record;
- Struct Type_Info_Record;
- Union Type_Info_Record;
- Raw_Union Type_Info_Record;
-};
+ Type_Info union {
+ Named struct #ordered {
+ name string;
+ base ^Type_Info; // This will _not_ be a Type_Info.Named
+ };
+ Integer struct #ordered {
+ size int; // in bytes
+ signed bool;
+ };
+ Float struct #ordered {
+ size int; // in bytes
+ };
+ Any struct #ordered {};
+ String struct #ordered {};
+ Boolean struct #ordered {};
+ Pointer struct #ordered {
+ elem ^Type_Info; // nil -> rawptr
+ };
+ Maybe struct #ordered {
+ elem ^Type_Info;
+ };
+ Procedure struct #ordered {
+ params ^Type_Info; // Type_Info.Tuple
+ results ^Type_Info; // Type_Info.Tuple
+ variadic bool;
+ };
+ Array struct #ordered {
+ elem ^Type_Info;
+ elem_size int;
+ count int;
+ };
+ Slice struct #ordered {
+ elem ^Type_Info;
+ elem_size int;
+ };
+ Vector struct #ordered {
+ elem ^Type_Info;
+ elem_size int;
+ count int;
+ align int;
+ };
+ Tuple Type_Info_Record;
+ Struct Type_Info_Record;
+ Union Type_Info_Record;
+ Raw_Union Type_Info_Record;
+ }
+)
proc type_info_base(info ^Type_Info) -> ^Type_Info {
if info == nil {
@@ -115,26 +119,24 @@ const (
ALLOCATOR_FREE_ALL;
ALLOCATOR_RESIZE;
);
-type Allocator_Proc proc(allocator_data rawptr, mode Allocator_Mode,
- size, alignment int,
- old_memory rawptr, old_size int, flags u64) -> rawptr;
-
-
-
-type Allocator struct #ordered {
- procedure Allocator_Proc;
- data rawptr;
-}
-
+type (
+ Allocator_Proc proc(allocator_data rawptr, mode Allocator_Mode,
+ size, alignment int,
+ old_memory rawptr, old_size int, flags u64) -> rawptr;
+ Allocator struct #ordered {
+ procedure Allocator_Proc;
+ data rawptr;
+ }
-type Context struct #ordered {
- thread_id int;
+ Context struct #ordered {
+ thread_id int;
- allocator Allocator;
+ allocator Allocator;
- user_data rawptr;
- user_index int;
-}
+ user_data rawptr;
+ user_index int;
+ }
+);
#thread_local var __context Context;
diff --git a/core/atomic.odin b/core/atomic.odin
index 1c2886041..1a8c58490 100644
--- a/core/atomic.odin
+++ b/core/atomic.odin
@@ -1,7 +1,7 @@
// TODO(bill): Use assembly instead here to implement atomics
// Inline vs external file?
-#import win32 "sys/windows.odin" when ODIN_OS == "windows";
+import win32 "sys/windows.odin" when ODIN_OS == "windows";
var _ = compile_assert(ODIN_ARCH == "amd64"); // TODO(bill): x86 version
diff --git a/core/fmt.odin b/core/fmt.odin
index f31a9810a..5119a7195 100644
--- a/core/fmt.odin
+++ b/core/fmt.odin
@@ -1,6 +1,8 @@
-#import "os.odin";
-#import "mem.odin";
-#import "utf8.odin";
+import (
+ "os.odin";
+ "mem.odin";
+ "utf8.odin";
+)
const PRINT_BUF_SIZE = 1<<12;
diff --git a/core/math.odin b/core/math.odin
index 691961ce9..288af0d31 100644
--- a/core/math.odin
+++ b/core/math.odin
@@ -16,16 +16,17 @@ const (
τ = TAU;
π = PI;
-);
+)
-type Vec2 [vector 2]f32;
-type Vec3 [vector 3]f32;
-type Vec4 [vector 4]f32;
-
-type Mat2 [2]Vec2;
-type Mat3 [3]Vec3;
-type Mat4 [4]Vec4;
+type (
+ Vec2 [vector 2]f32;
+ Vec3 [vector 3]f32;
+ Vec4 [vector 4]f32;
+ Mat2 [2]Vec2;
+ Mat3 [3]Vec3;
+ Mat4 [4]Vec4;
+)
proc sqrt32(x f32) -> f32 #foreign "llvm.sqrt.f32"
proc sqrt64(x f64) -> f64 #foreign "llvm.sqrt.f64"
diff --git a/core/mem.odin b/core/mem.odin
index b0347f6b2..2b5963c76 100644
--- a/core/mem.odin
+++ b/core/mem.odin
@@ -1,5 +1,7 @@
-#import "fmt.odin";
-#import "os.odin";
+import (
+ "fmt.odin";
+ "os.odin";
+)
proc set(data rawptr, value i32, len int) -> rawptr #link_name "__mem_set" {
proc llvm_memset_64bit(dst rawptr, val byte, len int, align i32, is_volatile bool) #foreign "llvm.memset.p0i8.i64"
@@ -92,6 +94,7 @@ proc align_forward(ptr rawptr, align int) -> rawptr {
type Allocation_Header struct {
size int;
}
+
proc allocation_header_fill(header ^Allocation_Header, data rawptr, size int) {
header.size = size;
var ptr = (header+1) as ^int;
@@ -113,18 +116,18 @@ proc allocation_header(data rawptr) -> ^Allocation_Header {
// Custom allocators
+type (
+ Arena struct {
+ backing Allocator;
+ memory []byte;
+ temp_count int;
+ }
-type Arena struct {
- backing Allocator;
- memory []byte;
- temp_count int;
-}
-
-type Arena_Temp_Memory struct {
- arena ^Arena;
- original_count int;
-}
-
+ Arena_Temp_Memory struct {
+ arena ^Arena;
+ original_count int;
+ }
+)
@@ -270,7 +273,7 @@ proc align_of_type_info(type_info ^Type_Info) -> int {
proc align_formula(size, align int) -> int {
var result = size + align-1;
return result - result%align;
-};
+}
proc size_of_type_info(type_info ^Type_Info) -> int {
const WORD_SIZE = size_of(int);
diff --git a/core/opengl.odin b/core/opengl.odin
index b0e979188..b5dbd46a3 100644
--- a/core/opengl.odin
+++ b/core/opengl.odin
@@ -1,6 +1,6 @@
#foreign_system_library "opengl32" when ODIN_OS == "windows";
-#import win32 "sys/windows.odin" when ODIN_OS == "windows";
-#include "opengl_constants.odin";
+import win32 "sys/windows.odin" when ODIN_OS == "windows";
+include "opengl_constants.odin";
proc Clear (mask u32) #foreign "glClear"
proc ClearColor (r, g, b, a f32) #foreign "glClearColor"
diff --git a/core/os.odin b/core/os.odin
index 22e2d533c..42e7909a9 100644
--- a/core/os.odin
+++ b/core/os.odin
@@ -1,2 +1,2 @@
-#include "os_windows.odin" when ODIN_OS == "windows"
+include "os_windows.odin" when ODIN_OS == "windows"
diff --git a/core/os_windows.odin b/core/os_windows.odin
index b4686ae3d..139c55cef 100644
--- a/core/os_windows.odin
+++ b/core/os_windows.odin
@@ -1,17 +1,21 @@
-#import win32 "sys/windows.odin";
-#import "fmt.odin";
+import (
+ win32 "sys/windows.odin";
+ "fmt.odin";
+)
-type File_Time u64;
+type (
+ File_Time u64;
-type File_Handle raw_union {
- p rawptr;
- i int;
-}
+ File_Handle raw_union {
+ p rawptr;
+ i int;
+ }
-type File struct {
- handle File_Handle;
- last_write_time File_Time;
-}
+ File struct {
+ handle File_Handle;
+ last_write_time File_Time;
+ }
+)
proc open(name string) -> (File, bool) {
using win32;
@@ -92,16 +96,17 @@ const (
);
// NOTE(bill): Uses startup to initialize it
-var __std_files = [FILE_STANDARD_COUNT]File{
- {handle = win32.GetStdHandle(win32.STD_INPUT_HANDLE) transmute File_Handle },
- {handle = win32.GetStdHandle(win32.STD_OUTPUT_HANDLE) transmute File_Handle },
- {handle = win32.GetStdHandle(win32.STD_ERROR_HANDLE) transmute File_Handle },
-};
-
-var stdin = ^__std_files[FILE_STANDARD_INPUT];
-var stdout = ^__std_files[FILE_STANDARD_OUTPUT];
-var stderr = ^__std_files[FILE_STANDARD_ERROR];
-
+var (
+ __std_files = [FILE_STANDARD_COUNT]File{
+ {handle = win32.GetStdHandle(win32.STD_INPUT_HANDLE) transmute File_Handle },
+ {handle = win32.GetStdHandle(win32.STD_OUTPUT_HANDLE) transmute File_Handle },
+ {handle = win32.GetStdHandle(win32.STD_ERROR_HANDLE) transmute File_Handle },
+ };
+
+ stdin = ^__std_files[FILE_STANDARD_INPUT];
+ stdout = ^__std_files[FILE_STANDARD_OUTPUT];
+ stderr = ^__std_files[FILE_STANDARD_ERROR];
+)
proc read_entire_file(name string) -> ([]byte, bool) {
diff --git a/core/sync.odin b/core/sync.odin
index db2e7a1dc..3d484af41 100644
--- a/core/sync.odin
+++ b/core/sync.odin
@@ -1,17 +1,20 @@
-#import win32 "sys/windows.odin" when ODIN_OS == "windows";
-#import "atomic.odin";
+import (
+ win32 "sys/windows.odin" when ODIN_OS == "windows";
+ "atomic.odin";
+)
-type Semaphore struct {
- handle win32.HANDLE;
-}
-
-type Mutex struct {
- semaphore Semaphore;
- counter i32;
- owner i32;
- recursion i32;
-}
+type (
+ Semaphore struct {
+ handle win32.HANDLE;
+ }
+ Mutex struct {
+ semaphore Semaphore;
+ counter i32;
+ owner i32;
+ recursion i32;
+ }
+)
proc current_thread_id() -> i32 {
return win32.GetCurrentThreadId() as i32;
diff --git a/core/sys/windows.odin b/core/sys/windows.odin
index dca7bce15..d70c11be1 100644
--- a/core/sys/windows.odin
+++ b/core/sys/windows.odin
@@ -1,117 +1,124 @@
#foreign_system_library "user32" when ODIN_OS == "windows";
#foreign_system_library "gdi32" when ODIN_OS == "windows";
-type HANDLE rawptr;
-type HWND HANDLE;
-type HDC HANDLE;
-type HINSTANCE HANDLE;
-type HICON HANDLE;
-type HCURSOR HANDLE;
-type HMENU HANDLE;
-type HBRUSH HANDLE;
-type HGDIOBJ HANDLE;
-type HMODULE HANDLE;
-type WPARAM uint;
-type LPARAM int;
-type LRESULT int;
-type ATOM i16;
-type BOOL i32;
-type WNDPROC proc(hwnd HWND, msg u32, wparam WPARAM, lparam LPARAM) -> LRESULT;
-
-const INVALID_HANDLE_VALUE = (-1 as int) as HANDLE;
-
-const CS_VREDRAW = 0x0001;
-const CS_HREDRAW = 0x0002;
-const CS_OWNDC = 0x0020;
-const CW_USEDEFAULT = -0x80000000;
-
-const WS_OVERLAPPED = 0;
-const WS_MAXIMIZEBOX = 0x00010000;
-const WS_MINIMIZEBOX = 0x00020000;
-const WS_THICKFRAME = 0x00040000;
-const WS_SYSMENU = 0x00080000;
-const WS_CAPTION = 0x00C00000;
-const WS_VISIBLE = 0x10000000;
-const WS_OVERLAPPEDWINDOW = WS_OVERLAPPED|WS_CAPTION|WS_SYSMENU|WS_THICKFRAME|WS_MINIMIZEBOX|WS_MAXIMIZEBOX;
-
-const WM_DESTROY = 0x0002;
-const WM_CLOSE = 0x0010;
-const WM_QUIT = 0x0012;
-const WM_KEYDOWN = 0x0100;
-const WM_KEYUP = 0x0101;
-
-const PM_REMOVE = 1;
-
-const COLOR_BACKGROUND = 1 as HBRUSH;
-const BLACK_BRUSH = 4;
-
-const SM_CXSCREEN = 0;
-const SM_CYSCREEN = 1;
-
-const SW_SHOW = 5;
-
-type POINT struct #ordered {
- x, y i32;
-}
-
-
-type WNDCLASSEXA struct #ordered {
- size, style u32;
- wnd_proc WNDPROC;
- cls_extra, wnd_extra i32;
- instance HINSTANCE;
- icon HICON;
- cursor HCURSOR;
- background HBRUSH;
- menu_name, class_name ^u8;
- sm HICON;
-}
-
-type MSG struct #ordered {
- hwnd HWND;
- message u32;
- wparam WPARAM;
- lparam LPARAM;
- time u32;
- pt POINT;
-}
-
-type RECT struct #ordered {
- left i32;
- top i32;
- right i32;
- bottom i32;
-}
+type (
+ HANDLE rawptr;
+ HWND HANDLE;
+ HDC HANDLE;
+ HINSTANCE HANDLE;
+ HICON HANDLE;
+ HCURSOR HANDLE;
+ HMENU HANDLE;
+ HBRUSH HANDLE;
+ HGDIOBJ HANDLE;
+ HMODULE HANDLE;
+ WPARAM uint;
+ LPARAM int;
+ LRESULT int;
+ ATOM i16;
+ BOOL i32;
+ WNDPROC proc(hwnd HWND, msg u32, wparam WPARAM, lparam LPARAM) -> LRESULT;
+)
-type FILETIME struct #ordered {
- low_date_time, high_date_time u32;
-}
-
-type BY_HANDLE_FILE_INFORMATION struct #ordered {
- file_attributes u32;
- creation_time,
- last_access_time,
- last_write_time FILETIME;
- volume_serial_number,
- file_size_high,
- file_size_low,
- number_of_links,
- file_index_high,
- file_index_low u32;
-}
-
-type WIN32_FILE_ATTRIBUTE_DATA struct #ordered {
- file_attributes u32;
- creation_time,
- last_access_time,
- last_write_time FILETIME;
- file_size_high,
- file_size_low u32;
-}
-
-type GET_FILEEX_INFO_LEVELS i32;
-const GetFileExInfoStandard = 0 as GET_FILEEX_INFO_LEVELS;
-const GetFileExMaxInfoLevel = 1 as GET_FILEEX_INFO_LEVELS;
+const (
+ INVALID_HANDLE_VALUE = (-1 as int) as HANDLE;
+
+ CS_VREDRAW = 0x0001;
+ CS_HREDRAW = 0x0002;
+ CS_OWNDC = 0x0020;
+ CW_USEDEFAULT = -0x80000000;
+
+ WS_OVERLAPPED = 0;
+ WS_MAXIMIZEBOX = 0x00010000;
+ WS_MINIMIZEBOX = 0x00020000;
+ WS_THICKFRAME = 0x00040000;
+ WS_SYSMENU = 0x00080000;
+ WS_CAPTION = 0x00C00000;
+ WS_VISIBLE = 0x10000000;
+ WS_OVERLAPPEDWINDOW = WS_OVERLAPPED|WS_CAPTION|WS_SYSMENU|WS_THICKFRAME|WS_MINIMIZEBOX|WS_MAXIMIZEBOX;
+
+ WM_DESTROY = 0x0002;
+ WM_CLOSE = 0x0010;
+ WM_QUIT = 0x0012;
+ WM_KEYDOWN = 0x0100;
+ WM_KEYUP = 0x0101;
+
+ PM_REMOVE = 1;
+
+ COLOR_BACKGROUND = 1 as HBRUSH;
+ BLACK_BRUSH = 4;
+
+ SM_CXSCREEN = 0;
+ SM_CYSCREEN = 1;
+
+ SW_SHOW = 5;
+)
+
+type (
+ POINT struct #ordered {
+ x, y i32;
+ }
+
+ WNDCLASSEXA struct #ordered {
+ size, style u32;
+ wnd_proc WNDPROC;
+ cls_extra, wnd_extra i32;
+ instance HINSTANCE;
+ icon HICON;
+ cursor HCURSOR;
+ background HBRUSH;
+ menu_name, class_name ^u8;
+ sm HICON;
+ }
+
+ MSG struct #ordered {
+ hwnd HWND;
+ message u32;
+ wparam WPARAM;
+ lparam LPARAM;
+ time u32;
+ pt POINT;
+ }
+
+ RECT struct #ordered {
+ left i32;
+ top i32;
+ right i32;
+ bottom i32;
+ }
+
+ FILETIME struct #ordered {
+ low_date_time, high_date_time u32;
+ }
+
+ BY_HANDLE_FILE_INFORMATION struct #ordered {
+ file_attributes u32;
+ creation_time,
+ last_access_time,
+ last_write_time FILETIME;
+ volume_serial_number,
+ file_size_high,
+ file_size_low,
+ number_of_links,
+ file_index_high,
+ file_index_low u32;
+ }
+
+ WIN32_FILE_ATTRIBUTE_DATA struct #ordered {
+ file_attributes u32;
+ creation_time,
+ last_access_time,
+ last_write_time FILETIME;
+ file_size_high,
+ file_size_low u32;
+ }
+
+ GET_FILEEX_INFO_LEVELS i32;
+)
+const (
+ GetFileExInfoStandard = 0 as GET_FILEEX_INFO_LEVELS;
+ GetFileExMaxInfoLevel = 1 as GET_FILEEX_INFO_LEVELS;
+)
proc GetLastError () -> i32 #foreign #dll_import
proc ExitProcess (exit_code u32) #foreign #dll_import
@@ -176,24 +183,25 @@ proc GetFileSizeEx (file_handle HANDLE, file_size ^i64) -> BOOL #for
proc GetFileAttributesExA (filename ^u8, info_level_id GET_FILEEX_INFO_LEVELS, file_info rawptr) -> BOOL #foreign #dll_import
proc GetFileInformationByHandle(file_handle HANDLE, file_info ^BY_HANDLE_FILE_INFORMATION) -> BOOL #foreign #dll_import
-const FILE_SHARE_READ = 0x00000001;
-const FILE_SHARE_WRITE = 0x00000002;
-const FILE_SHARE_DELETE = 0x00000004;
-const FILE_GENERIC_ALL = 0x10000000;
-const FILE_GENERIC_EXECUTE = 0x20000000;
-const FILE_GENERIC_WRITE = 0x40000000;
-const FILE_GENERIC_READ = 0x80000000;
-
-const STD_INPUT_HANDLE = -10;
-const STD_OUTPUT_HANDLE = -11;
-const STD_ERROR_HANDLE = -12;
+const (
+ FILE_SHARE_READ = 0x00000001;
+ FILE_SHARE_WRITE = 0x00000002;
+ FILE_SHARE_DELETE = 0x00000004;
+ FILE_GENERIC_ALL = 0x10000000;
+ FILE_GENERIC_EXECUTE = 0x20000000;
+ FILE_GENERIC_WRITE = 0x40000000;
+ FILE_GENERIC_READ = 0x80000000;
-const CREATE_NEW = 1;
-const CREATE_ALWAYS = 2;
-const OPEN_EXISTING = 3;
-const OPEN_ALWAYS = 4;
-const TRUNCATE_EXISTING = 5;
+ STD_INPUT_HANDLE = -10;
+ STD_OUTPUT_HANDLE = -11;
+ STD_ERROR_HANDLE = -12;
+ CREATE_NEW = 1;
+ CREATE_ALWAYS = 2;
+ OPEN_EXISTING = 3;
+ OPEN_ALWAYS = 4;
+ TRUNCATE_EXISTING = 5;
+)
@@ -240,31 +248,34 @@ proc ReadBarrier () #foreign
// GDI
+type (
+ BITMAPINFOHEADER struct #ordered {
+ size u32;
+ width, height i32;
+ planes, bit_count i16;
+ compression u32;
+ size_image u32;
+ x_pels_per_meter i32;
+ y_pels_per_meter i32;
+ clr_used u32;
+ clr_important u32;
+ }
+ BITMAPINFO struct #ordered {
+ using header BITMAPINFOHEADER;
+ colors [1]RGBQUAD;
+ }
+
+
+ RGBQUAD struct #ordered {
+ blue, green, red, reserved byte;
+ }
+)
-type BITMAPINFOHEADER struct #ordered {
- size u32;
- width, height i32;
- planes, bit_count i16;
- compression u32;
- size_image u32;
- x_pels_per_meter i32;
- y_pels_per_meter i32;
- clr_used u32;
- clr_important u32;
-}
-type BITMAPINFO struct #ordered {
- using header BITMAPINFOHEADER;
- colors [1]RGBQUAD;
-}
-
-
-type RGBQUAD struct #ordered {
- blue, green, red, reserved byte;
-}
-
-const BI_RGB = 0;
-const DIB_RGB_COLORS = 0x00;
-const SRCCOPY = 0x00cc0020 as u32;
+const (
+ BI_RGB = 0;
+ DIB_RGB_COLORS = 0x00;
+ SRCCOPY = 0x00cc0020 as u32;
+)
proc StretchDIBits(hdc HDC,
x_dst, y_dst, width_dst, height_dst i32,
@@ -284,64 +295,67 @@ proc GetClientRect(hwnd HWND, rect ^RECT) -> BOOL #foreign
// Windows OpenGL
-
-const PFD_TYPE_RGBA = 0;
-const PFD_TYPE_COLORINDEX = 1;
-const PFD_MAIN_PLANE = 0;
-const PFD_OVERLAY_PLANE = 1;
-const PFD_UNDERLAY_PLANE = -1;
-const PFD_DOUBLEBUFFER = 1;
-const PFD_STEREO = 2;
-const PFD_DRAW_TO_WINDOW = 4;
-const PFD_DRAW_TO_BITMAP = 8;
-const PFD_SUPPORT_GDI = 16;
-const PFD_SUPPORT_OPENGL = 32;
-const PFD_GENERIC_FORMAT = 64;
-const PFD_NEED_PALETTE = 128;
-const PFD_NEED_SYSTEM_PALETTE = 0x00000100;
-const PFD_SWAP_EXCHANGE = 0x00000200;
-const PFD_SWAP_COPY = 0x00000400;
-const PFD_SWAP_LAYER_BUFFERS = 0x00000800;
-const PFD_GENERIC_ACCELERATED = 0x00001000;
-const PFD_DEPTH_DONTCARE = 0x20000000;
-const PFD_DOUBLEBUFFER_DONTCARE = 0x40000000;
-const PFD_STEREO_DONTCARE = 0x80000000;
-
-type HGLRC HANDLE;
-type PROC proc();
-type wglCreateContextAttribsARBType proc(hdc HDC, hshareContext rawptr, attribList ^i32) -> HGLRC;
-
-
-type PIXELFORMATDESCRIPTOR struct #ordered {
- size,
- version,
- flags u32;
-
- pixel_type,
- color_bits,
- red_bits,
- red_shift,
- green_bits,
- green_shift,
- blue_bits,
- blue_shift,
- alpha_bits,
- alpha_shift,
- accum_bits,
- accum_red_bits,
- accum_green_bits,
- accum_blue_bits,
- accum_alpha_bits,
- depth_bits,
- stencil_bits,
- aux_buffers,
- layer_type,
- reserved byte;
-
- layer_mask,
- visible_mask,
- damage_mask u32;
-}
+const (
+ PFD_TYPE_RGBA = 0;
+ PFD_TYPE_COLORINDEX = 1;
+ PFD_MAIN_PLANE = 0;
+ PFD_OVERLAY_PLANE = 1;
+ PFD_UNDERLAY_PLANE = -1;
+ PFD_DOUBLEBUFFER = 1;
+ PFD_STEREO = 2;
+ PFD_DRAW_TO_WINDOW = 4;
+ PFD_DRAW_TO_BITMAP = 8;
+ PFD_SUPPORT_GDI = 16;
+ PFD_SUPPORT_OPENGL = 32;
+ PFD_GENERIC_FORMAT = 64;
+ PFD_NEED_PALETTE = 128;
+ PFD_NEED_SYSTEM_PALETTE = 0x00000100;
+ PFD_SWAP_EXCHANGE = 0x00000200;
+ PFD_SWAP_COPY = 0x00000400;
+ PFD_SWAP_LAYER_BUFFERS = 0x00000800;
+ PFD_GENERIC_ACCELERATED = 0x00001000;
+ PFD_DEPTH_DONTCARE = 0x20000000;
+ PFD_DOUBLEBUFFER_DONTCARE = 0x40000000;
+ PFD_STEREO_DONTCARE = 0x80000000;
+)
+
+type (
+ HGLRC HANDLE;
+ PROC proc();
+ wglCreateContextAttribsARBType proc(hdc HDC, hshareContext rawptr, attribList ^i32) -> HGLRC;
+
+
+ PIXELFORMATDESCRIPTOR struct #ordered {
+ size,
+ version,
+ flags u32;
+
+ pixel_type,
+ color_bits,
+ red_bits,
+ red_shift,
+ green_bits,
+ green_shift,
+ blue_bits,
+ blue_shift,
+ alpha_bits,
+ alpha_shift,
+ accum_bits,
+ accum_red_bits,
+ accum_green_bits,
+ accum_blue_bits,
+ accum_alpha_bits,
+ depth_bits,
+ stencil_bits,
+ aux_buffers,
+ layer_type,
+ reserved byte;
+
+ layer_mask,
+ visible_mask,
+ damage_mask u32;
+ }
+)
proc GetDC (h HANDLE) -> HDC #foreign
proc SetPixelFormat (hdc HDC, pixel_format i32, pfd ^PIXELFORMATDESCRIPTOR ) -> BOOL #foreign #dll_import
@@ -349,11 +363,13 @@ proc ChoosePixelFormat(hdc HDC, pfd ^PIXELFORMATDESCRIPTOR) -> i32 #foreign #dll
proc SwapBuffers (hdc HDC) -> BOOL #foreign #dll_import
proc ReleaseDC (wnd HWND, hdc HDC) -> i32 #foreign #dll_import
-const WGL_CONTEXT_MAJOR_VERSION_ARB = 0x2091;
-const WGL_CONTEXT_MINOR_VERSION_ARB = 0x2092;
-const WGL_CONTEXT_PROFILE_MASK_ARB = 0x9126;
-const WGL_CONTEXT_CORE_PROFILE_BIT_ARB = 0x0001;
-const WGL_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB = 0x0002;
+const (
+ WGL_CONTEXT_MAJOR_VERSION_ARB = 0x2091;
+ WGL_CONTEXT_MINOR_VERSION_ARB = 0x2092;
+ WGL_CONTEXT_PROFILE_MASK_ARB = 0x9126;
+ WGL_CONTEXT_CORE_PROFILE_BIT_ARB = 0x0001;
+ WGL_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB = 0x0002;
+)
proc wglCreateContext (hdc HDC) -> HGLRC #foreign #dll_import
proc wglMakeCurrent (hdc HDC, hglrc HGLRC) -> BOOL #foreign #dll_import
@@ -365,60 +381,57 @@ proc wglDeleteContext (hglrc HGLRC) -> BOOL #foreign #dll_import
proc GetKeyState (v_key i32) -> i16 #foreign #dll_import
proc GetAsyncKeyState(v_key i32) -> i16 #foreign #dll_import
-proc is_key_down(key Key_Code) -> bool {
- return GetAsyncKeyState(key as i32) < 0;
-}
+proc is_key_down(key i32) -> bool #inline { return GetAsyncKeyState(key) < 0; }
-type Key_Code i32;
const (
- KEY_LBUTTON Key_Code = 0x01;
- KEY_RBUTTON = 0x02;
- KEY_CANCEL = 0x03;
- KEY_MBUTTON = 0x04;
-
- KEY_BACK = 0x08;
- KEY_TAB = 0x09;
-
- KEY_CLEAR = 0x0C;
- KEY_RETURN = 0x0D;
-
- KEY_SHIFT = 0x10;
- KEY_CONTROL = 0x11;
- KEY_MENU = 0x12;
- KEY_PAUSE = 0x13;
- KEY_CAPITAL = 0x14;
-
- KEY_KANA = 0x15;
- KEY_HANGEUL = 0x15;
- KEY_HANGUL = 0x15;
- KEY_JUNJA = 0x17;
- KEY_FINAL = 0x18;
- KEY_HANJA = 0x19;
- KEY_KANJI = 0x19;
-
- KEY_ESCAPE = 0x1B;
-
- KEY_CONVERT = 0x1C;
- KEY_NONCONVERT = 0x1D;
- KEY_ACCEPT = 0x1E;
- KEY_MODECHANGE = 0x1F;
-
- KEY_SPACE = 0x20;
- KEY_PRIOR = 0x21;
- KEY_NEXT = 0x22;
- KEY_END = 0x23;
- KEY_HOME = 0x24;
- KEY_LEFT = 0x25;
- KEY_UP = 0x26;
- KEY_RIGHT = 0x27;
- KEY_DOWN = 0x28;
- KEY_SELECT = 0x29;
- KEY_PRINT = 0x2A;
- KEY_EXECUTE = 0x2B;
- KEY_SNAPSHOT = 0x2C;
- KEY_INSERT = 0x2D;
- KEY_DELETE = 0x2E;
- KEY_HELP = 0x2F;
+ KEY_LBUTTON = 0x01;
+ KEY_RBUTTON = 0x02;
+ KEY_CANCEL = 0x03;
+ KEY_MBUTTON = 0x04;
+
+ KEY_BACK = 0x08;
+ KEY_TAB = 0x09;
+
+ KEY_CLEAR = 0x0C;
+ KEY_RETURN = 0x0D;
+
+ KEY_SHIFT = 0x10;
+ KEY_CONTROL = 0x11;
+ KEY_MENU = 0x12;
+ KEY_PAUSE = 0x13;
+ KEY_CAPITAL = 0x14;
+
+ KEY_KANA = 0x15;
+ KEY_HANGEUL = 0x15;
+ KEY_HANGUL = 0x15;
+ KEY_JUNJA = 0x17;
+ KEY_FINAL = 0x18;
+ KEY_HANJA = 0x19;
+ KEY_KANJI = 0x19;
+
+ KEY_ESCAPE = 0x1B;
+
+ KEY_CONVERT = 0x1C;
+ KEY_NONCONVERT = 0x1D;
+ KEY_ACCEPT = 0x1E;
+ KEY_MODECHANGE = 0x1F;
+
+ KEY_SPACE = 0x20;
+ KEY_PRIOR = 0x21;
+ KEY_NEXT = 0x22;
+ KEY_END = 0x23;
+ KEY_HOME = 0x24;
+ KEY_LEFT = 0x25;
+ KEY_UP = 0x26;
+ KEY_RIGHT = 0x27;
+ KEY_DOWN = 0x28;
+ KEY_SELECT = 0x29;
+ KEY_PRINT = 0x2A;
+ KEY_EXECUTE = 0x2B;
+ KEY_SNAPSHOT = 0x2C;
+ KEY_INSERT = 0x2D;
+ KEY_DELETE = 0x2E;
+ KEY_HELP = 0x2F;
KEY_NUM0 = '0';
KEY_NUM1 = '1';
@@ -522,5 +535,5 @@ const (
KEY_NONAME = 0xFC;
KEY_PA1 = 0xFD;
KEY_OEM_CLEAR = 0xFE;
-);
+)
diff --git a/core/utf8.odin b/core/utf8.odin
index 1e0b7a72f..3be7bec5b 100644
--- a/core/utf8.odin
+++ b/core/utf8.odin
@@ -14,33 +14,35 @@ type Accept_Range struct {
lo, hi u8;
};
-var accept_ranges = [5]Accept_Range{
- {0x80, 0xbf},
- {0xa0, 0xbf},
- {0x80, 0x9f},
- {0x90, 0xbf},
- {0x80, 0x8f},
-};
-
-var accept_sizes = [256]byte{
- 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, // 0x00-0x0f
- 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, // 0x10-0x1f
- 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, // 0x20-0x2f
- 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, // 0x30-0x3f
- 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, // 0x40-0x4f
- 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, // 0x50-0x5f
- 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, // 0x60-0x6f
- 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, // 0x70-0x7f
-
- 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, // 0x80-0x8f
- 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, // 0x90-0x9f
- 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, // 0xa0-0xaf
- 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, // 0xb0-0xbf
- 0xf1, 0xf1, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, // 0xc0-0xcf
- 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, // 0xd0-0xdf
- 0x13, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x23, 0x03, 0x03, // 0xe0-0xef
- 0x34, 0x04, 0x04, 0x04, 0x44, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, // 0xf0-0xff
-};
+var (
+ accept_ranges = [5]Accept_Range{
+ {0x80, 0xbf},
+ {0xa0, 0xbf},
+ {0x80, 0x9f},
+ {0x90, 0xbf},
+ {0x80, 0x8f},
+ };
+
+ accept_sizes = [256]byte{
+ 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, // 0x00-0x0f
+ 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, // 0x10-0x1f
+ 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, // 0x20-0x2f
+ 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, // 0x30-0x3f
+ 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, // 0x40-0x4f
+ 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, // 0x50-0x5f
+ 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, // 0x60-0x6f
+ 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, 0xf0, // 0x70-0x7f
+
+ 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, // 0x80-0x8f
+ 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, // 0x90-0x9f
+ 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, // 0xa0-0xaf
+ 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, // 0xb0-0xbf
+ 0xf1, 0xf1, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, // 0xc0-0xcf
+ 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, // 0xd0-0xdf
+ 0x13, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x23, 0x03, 0x03, // 0xe0-0xef
+ 0x34, 0x04, 0x04, 0x04, 0x44, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, 0xf1, // 0xf0-0xff
+ };
+)
proc encode_rune(r rune) -> ([4]byte, int) {
var buf [4]byte;
diff --git a/src/checker/checker.c b/src/checker/checker.c
index 705fc54d9..20d1aa149 100644
--- a/src/checker/checker.c
+++ b/src/checker/checker.c
@@ -1137,13 +1137,23 @@ void check_global_collect_entities_from_file(Checker *c, Scope *parent_scope, As
}
AstNodeValueSpec empty_spec_ = {0}, *empty_spec = &empty_spec_;
- AstNodeValueSpec *last = NULL;
+ AstNodeValueSpec *prev_spec = NULL;
for_array(iota, gd->specs) {
AstNode *spec = gd->specs.e[iota];
switch (spec->kind) {
+ case_ast_node(is, ImportSpec, spec);
+ if (!parent_scope->is_file) {
+ // NOTE(bill): _Should_ be caught by the parser
+ // TODO(bill): Better error handling if it isn't
+ continue;
+ }
+ DelayedDecl di = {parent_scope, spec};
+ array_add(&c->delayed_imports, di);
+ case_end;
case_ast_node(vs, ValueSpec, spec);
switch (vs->keyword) {
+ case Token_let:
case Token_var: {
// NOTE(bill): You need to store the entity information here unline a constant declaration
isize entity_count = vs->names.count;
@@ -1168,7 +1178,7 @@ void check_global_collect_entities_from_file(Checker *c, Scope *parent_scope, As
error_node(name, "A declaration's name must be an identifier, got %.*s", LIT(ast_node_strings[name->kind]));
continue;
}
- Entity *e = make_entity_variable(c->allocator, parent_scope, name->Ident, NULL);
+ Entity *e = make_entity_variable(c->allocator, parent_scope, name->Ident, NULL, vs->keyword == Token_let);
e->identifier = name;
entities[entity_index++] = e;
@@ -1189,9 +1199,9 @@ void check_global_collect_entities_from_file(Checker *c, Scope *parent_scope, As
case Token_const: {
if (vs->type != NULL || vs->values.count > 0) {
- last = vs;
- } else if (last == NULL) {
- last = empty_spec;
+ prev_spec = vs;
+ } else if (prev_spec == NULL) {
+ prev_spec = empty_spec;
}
for_array(i, vs->names) {
@@ -1206,36 +1216,42 @@ void check_global_collect_entities_from_file(Checker *c, Scope *parent_scope, As
e->identifier = name;
AstNode *init = NULL;
- if (i < last->values.count) {
- init = last->values.e[i];
+ if (i < prev_spec->values.count) {
+ init = prev_spec->values.e[i];
}
DeclInfo *di = make_declaration_info(c->allocator, e->scope);
- di->type_expr = last->type;
+ di->type_expr = prev_spec->type;
di->init_expr = init;
add_entity_and_decl_info(c, name, e, di);
}
- check_arity_match(c, vs, last);
+ check_arity_match(c, vs, prev_spec);
} break;
}
case_end;
+ case_ast_node(ts, TypeSpec, spec);
+ if (ts->name->kind != AstNode_Ident) {
+ error_node(ts->name, "A declaration's name must be an identifier, got %.*s", LIT(ast_node_strings[ts->name->kind]));
+ continue;
+ }
+ ast_node(n, Ident, ts->name);
+
+ Entity *e = make_entity_type_name(c->allocator, parent_scope, *n, NULL);
+ e->identifier = ts->name;
+ DeclInfo *d = make_declaration_info(c->allocator, e->scope);
+ d->type_expr = ts->type;
+ d->init_expr = ts->type;
+ add_entity_and_decl_info(c, ts->name, e, d);
+ case_end;
+
default:
error(ast_node_token(spec), "Invalid specification in declaration: `%.*s`", LIT(ast_node_strings[spec->kind]));
break;
}
}
case_end;
- case_ast_node(id, ImportDecl, decl);
- if (!parent_scope->is_file) {
- // NOTE(bill): _Should_ be caught by the parser
- // TODO(bill): Better error handling if it isn't
- continue;
- }
- DelayedDecl di = {parent_scope, decl};
- array_add(&c->delayed_imports, di);
- case_end;
case_ast_node(fl, ForeignLibrary, decl);
if (!parent_scope->is_file) {
// NOTE(bill): _Should_ be caught by the parser
@@ -1246,20 +1262,6 @@ void check_global_collect_entities_from_file(Checker *c, Scope *parent_scope, As
DelayedDecl di = {parent_scope, decl};
array_add(&c->delayed_foreign_libraries, di);
case_end;
- case_ast_node(td, TypeDecl, decl);
- if (td->name->kind != AstNode_Ident) {
- error_node(td->name, "A declaration's name must be an identifier, got %.*s", LIT(ast_node_strings[td->name->kind]));
- continue;
- }
- ast_node(n, Ident, td->name);
-
- Entity *e = make_entity_type_name(c->allocator, parent_scope, *n, NULL);
- e->identifier = td->name;
- DeclInfo *d = make_declaration_info(c->allocator, e->scope);
- d->type_expr = td->type;
- d->init_expr = td->type;
- add_entity_and_decl_info(c, td->name, e, d);
- case_end;
case_ast_node(pd, ProcDecl, decl);
if (pd->name->kind != AstNode_Ident) {
error_node(pd->name, "A declaration's name must be an identifier, got %.*s", LIT(ast_node_strings[pd->name->kind]));
@@ -1286,8 +1288,9 @@ void check_global_collect_entities_from_file(Checker *c, Scope *parent_scope, As
void check_import_entities(Checker *c, MapScope *file_scopes) {
for_array(i, c->delayed_imports) {
Scope *parent_scope = c->delayed_imports.e[i].parent;
- AstNode *decl = c->delayed_imports.e[i].decl;
- ast_node(id, ImportDecl, decl);
+ AstNode *spec = c->delayed_imports.e[i].decl;
+ ast_node(id, ImportSpec, spec);
+ Token token = id->relpath;
HashKey key = hash_string(id->fullpath);
Scope **found = map_scope_get(file_scopes, key);
@@ -1296,13 +1299,13 @@ void check_import_entities(Checker *c, MapScope *file_scopes) {
Scope *scope = file_scopes->entries.e[scope_index].value;
gb_printf_err("%.*s\n", LIT(scope->file->tokenizer.fullpath));
}
- gb_printf_err("%.*s(%td:%td)\n", LIT(id->token.pos.file), id->token.pos.line, id->token.pos.column);
+ gb_printf_err("%.*s(%td:%td)\n", LIT(token.pos.file), token.pos.line, token.pos.column);
GB_PANIC("Unable to find scope for file: %.*s", LIT(id->fullpath));
}
Scope *scope = *found;
if (scope->is_global) {
- error(id->token, "Importing a #shared_global_scope is disallowed and unnecessary");
+ error(token, "Importing a #shared_global_scope is disallowed and unnecessary");
continue;
}
@@ -1332,7 +1335,7 @@ void check_import_entities(Checker *c, MapScope *file_scopes) {
if (!previously_added) {
array_add(&parent_scope->imported, scope);
} else {
- warning(id->token, "Multiple #import of the same file within this scope");
+ warning(token, "Multiple #import of the same file within this scope");
}
if (str_eq(id->import_name.string, str_lit("."))) {
@@ -1381,9 +1384,7 @@ void check_import_entities(Checker *c, MapScope *file_scopes) {
if (is_string_an_identifier(filename)) {
import_name = filename;
} else {
- error(id->token,
- "File name, %.*s, cannot be as an import name as it is not a valid identifier",
- LIT(filename));
+ error(token, "File name, %.*s, cannot be as an import name as it is not a valid identifier", LIT(filename));
}
}
diff --git a/src/checker/decl.c b/src/checker/decl.c
index 5266a8bba..be735f3d4 100644
--- a/src/checker/decl.c
+++ b/src/checker/decl.c
@@ -99,7 +99,7 @@ void check_init_variables(Checker *c, Entity **lhs, isize lhs_count, AstNodeArra
}
void check_var_spec_node(Checker *c, AstNodeValueSpec *vs) {
- GB_ASSERT(vs->keyword == Token_var);
+ GB_ASSERT(vs->keyword == Token_var || vs->keyword == Token_let);
isize entity_count = vs->names.count;
isize entity_index = 0;
Entity **entities = gb_alloc_array(c->allocator, Entity *, entity_count);
@@ -116,7 +116,7 @@ void check_var_spec_node(Checker *c, AstNodeValueSpec *vs) {
found = current_scope_lookup_entity(c->context.scope, str);
}
if (found == NULL) {
- entity = make_entity_variable(c->allocator, c->context.scope, token, NULL);
+ entity = make_entity_variable(c->allocator, c->context.scope, token, NULL, vs->keyword == Token_let);
add_entity_definition(&c->info, name, entity);
} else {
TokenPos pos = found->token.pos;
@@ -156,7 +156,7 @@ void check_var_spec_node(Checker *c, AstNodeValueSpec *vs) {
e->type = init_type;
}
-
+ check_arity_match(c, vs, NULL);
check_init_variables(c, entities, entity_count, vs->values, str_lit("variable declaration"));
for_array(i, vs->names) {
diff --git a/src/checker/entity.c b/src/checker/entity.c
index 3eb62db08..7dcee62d0 100644
--- a/src/checker/entity.c
+++ b/src/checker/entity.c
@@ -55,9 +55,9 @@ struct Entity {
ExactValue value;
} Constant;
struct {
- b32 is_let;
- i32 field_index;
- i32 field_src_index;
+ i32 field_index;
+ i32 field_src_index;
+ bool is_let;
} Variable;
i32 TypeName;
struct {
@@ -97,8 +97,9 @@ Entity *alloc_entity(gbAllocator a, EntityKind kind, Scope *scope, Token token,
return entity;
}
-Entity *make_entity_variable(gbAllocator a, Scope *scope, Token token, Type *type) {
+Entity *make_entity_variable(gbAllocator a, Scope *scope, Token token, Type *type, bool is_let) {
Entity *entity = alloc_entity(a, Entity_Variable, scope, token, type);
+ entity->Variable.is_let = is_let;
return entity;
}
@@ -123,7 +124,7 @@ Entity *make_entity_type_name(gbAllocator a, Scope *scope, Token token, Type *ty
}
Entity *make_entity_param(gbAllocator a, Scope *scope, Token token, Type *type, bool anonymous) {
- Entity *entity = make_entity_variable(a, scope, token, type);
+ Entity *entity = make_entity_variable(a, scope, token, type, false);
entity->flags |= EntityFlag_Used;
entity->flags |= EntityFlag_Anonymous*(anonymous != 0);
entity->flags |= EntityFlag_Param;
@@ -131,7 +132,7 @@ Entity *make_entity_param(gbAllocator a, Scope *scope, Token token, Type *type,
}
Entity *make_entity_field(gbAllocator a, Scope *scope, Token token, Type *type, bool anonymous, i32 field_src_index) {
- Entity *entity = make_entity_variable(a, scope, token, type);
+ Entity *entity = make_entity_variable(a, scope, token, type, false);
entity->Variable.field_src_index = field_src_index;
entity->Variable.field_index = field_src_index;
entity->flags |= EntityFlag_Field;
@@ -140,7 +141,7 @@ Entity *make_entity_field(gbAllocator a, Scope *scope, Token token, Type *type,
}
Entity *make_entity_vector_elem(gbAllocator a, Scope *scope, Token token, Type *type, i32 field_src_index) {
- Entity *entity = make_entity_variable(a, scope, token, type);
+ Entity *entity = make_entity_variable(a, scope, token, type, false);
entity->Variable.field_src_index = field_src_index;
entity->Variable.field_index = field_src_index;
entity->flags |= EntityFlag_Field;
@@ -185,6 +186,6 @@ Entity *make_entity_implicit_value(gbAllocator a, String name, Type *type, Impli
Entity *make_entity_dummy_variable(gbAllocator a, Scope *file_scope, Token token) {
token.string = str_lit("_");
- return make_entity_variable(a, file_scope, token, NULL);
+ return make_entity_variable(a, file_scope, token, NULL, false);
}
diff --git a/src/checker/expr.c b/src/checker/expr.c
index 5b50e75a0..8afaed865 100644
--- a/src/checker/expr.c
+++ b/src/checker/expr.c
@@ -128,6 +128,44 @@ void check_local_collect_entities(Checker *c, AstNodeArray nodes, DelayedEntitie
} break;
}
case_end;
+
+ case_ast_node(ts, TypeSpec, spec);
+ if (ts->name->kind != AstNode_Ident) {
+ error_node(ts->name, "A declaration's name must be an identifier, got %.*s", LIT(ast_node_strings[ts->name->kind]));
+ break;
+ }
+
+ Token name_token = ts->name->Ident;
+
+ Entity *e = make_entity_type_name(c->allocator, c->context.scope, name_token, NULL);
+ e->identifier = ts->name;
+
+ DeclInfo *d = make_declaration_info(c->allocator, e->scope);
+ d->type_expr = ts->type;
+
+ add_entity_and_decl_info(c, ts->name, e, d);
+
+ DelayedEntity delay = {ts->name, e, d};
+ array_add(delayed_entities, delay);
+
+
+ if (dof != NULL) {
+ if (str_eq(name_token.string, str_lit("_"))) {
+ dof->other_fields[dof->other_field_index++] = e;
+ } else {
+ HashKey key = hash_string(name_token.string);
+ if (map_entity_get(dof->entity_map, key) != NULL) {
+ // TODO(bill): Scope checking already checks the declaration
+ error(name_token, "`%.*s` is already declared in this record", LIT(name_token.string));
+ } else {
+ map_entity_set(dof->entity_map, key, e);
+ dof->other_fields[dof->other_field_index++] = e;
+ }
+ add_entity(c, c->context.scope, ts->name, e);
+ add_entity_use(c, ts->name, e);
+ }
+ }
+ case_end;
}
}
case_end;
@@ -147,47 +185,6 @@ void check_local_collect_entities(Checker *c, AstNodeArray nodes, DelayedEntitie
check_entity_decl(c, e, d, NULL, NULL);
case_end;
#endif
-
- case_ast_node(td, TypeDecl, node);
- if (!ast_node_expect(td->name, AstNode_Ident)) {
- break;
- }
- if (td->name->kind != AstNode_Ident) {
- error_node(td->name, "A declaration's name must be an identifier, got %.*s", LIT(ast_node_strings[td->name->kind]));
- continue;
- }
-
- Token name_token = td->name->Ident;
-
- Entity *e = make_entity_type_name(c->allocator, c->context.scope, name_token, NULL);
- e->identifier = td->name;
-
- DeclInfo *d = make_declaration_info(c->allocator, e->scope);
- d->type_expr = td->type;
-
- add_entity_and_decl_info(c, td->name, e, d);
-
- DelayedEntity delay = {td->name, e, d};
- array_add(delayed_entities, delay);
-
-
- if (dof != NULL) {
- if (str_eq(name_token.string, str_lit("_"))) {
- dof->other_fields[dof->other_field_index++] = e;
- } else {
- HashKey key = hash_string(name_token.string);
- if (map_entity_get(dof->entity_map, key) != NULL) {
- // TODO(bill): Scope checking already checks the declaration
- error(name_token, "`%.*s` is already declared in this record", LIT(name_token.string));
- } else {
- map_entity_set(dof->entity_map, key, e);
- dof->other_fields[dof->other_field_index++] = e;
- }
- add_entity(c, c->context.scope, td->name, e);
- add_entity_use(c, td->name, e);
- }
- }
- case_end;
}
}
@@ -900,6 +897,9 @@ void check_identifier(Checker *c, Operand *o, AstNode *n, Type *named_type) {
}
#else
o->mode = Addressing_Variable;
+ if (e->Variable.is_let) {
+ o->mode = Addressing_Value;
+ }
#endif
break;
diff --git a/src/checker/stmt.c b/src/checker/stmt.c
index f9ac8cedb..89c68d0f6 100644
--- a/src/checker/stmt.c
+++ b/src/checker/stmt.c
@@ -21,15 +21,27 @@ void check_stmt_list(Checker *c, AstNodeArray stmts, u32 flags) {
bool ft_ok = (flags & Stmt_FallthroughAllowed) != 0;
u32 f = flags & (~Stmt_FallthroughAllowed);
- for_array(i, stmts) {
+ isize max = stmts.count;
+ for (isize i = stmts.count-1; i >= 0; i--) {
+ if (stmts.e[i]->kind != AstNode_EmptyStmt) {
+ break;
+ }
+ max--;
+ }
+ for (isize i = 0; i < max; i++) {
AstNode *n = stmts.e[i];
if (n->kind == AstNode_EmptyStmt) {
continue;
}
u32 new_flags = f;
- if (ft_ok && i+1 == stmts.count) {
+ if (ft_ok && i+1 == max) {
new_flags |= Stmt_FallthroughAllowed;
}
+
+ if (n->kind == AstNode_ReturnStmt && i+1 < max) {
+ error_node(n, "Statements after this `return` are never executed");
+ }
+
check_stmt(c, n, new_flags);
}
@@ -835,7 +847,7 @@ void check_stmt_internal(Checker *c, AstNode *node, u32 flags) {
tt = make_type_pointer(c->allocator, case_type);
add_type_info_type(c, tt);
}
- Entity *tag_var = make_entity_variable(c->allocator, c->context.scope, ms->var->Ident, tt);
+ Entity *tag_var = make_entity_variable(c->allocator, c->context.scope, ms->var->Ident, tt, false);
tag_var->flags |= EntityFlag_Used;
add_entity(c, c->context.scope, ms->var, tag_var);
add_entity_use(c, ms->var, tag_var);
@@ -1078,6 +1090,7 @@ void check_stmt_internal(Checker *c, AstNode *node, u32 flags) {
switch (spec->kind) {
case_ast_node(vs, ValueSpec, spec);
switch (vs->keyword) {
+ case Token_let:
case Token_var: {
isize entity_count = vs->names.count;
isize entity_index = 0;
@@ -1095,7 +1108,7 @@ void check_stmt_internal(Checker *c, AstNode *node, u32 flags) {
found = current_scope_lookup_entity(c->context.scope, str);
}
if (found == NULL) {
- entity = make_entity_variable(c->allocator, c->context.scope, token, NULL);
+ entity = make_entity_variable(c->allocator, c->context.scope, token, NULL, vs->keyword == Token_let);
add_entity_definition(&c->info, name, entity);
} else {
TokenPos pos = found->token.pos;
@@ -1146,10 +1159,15 @@ void check_stmt_internal(Checker *c, AstNode *node, u32 flags) {
} break;
case Token_const:
+ // NOTE(bill): Handled elsewhere
break;
}
case_end;
+ case_ast_node(ts, TypeSpec, spec);
+ // NOTE(bill): Handled elsewhere
+ case_end;
+
default:
error(ast_node_token(spec), "Invalid specification in declaration: `%.*s`", LIT(ast_node_strings[spec->kind]));
break;
@@ -1157,10 +1175,6 @@ void check_stmt_internal(Checker *c, AstNode *node, u32 flags) {
}
case_end;
- case_ast_node(td, TypeDecl, node);
- // NOTE(bill): Handled elsewhere
- case_end;
-
case_ast_node(pd, ProcDecl, node);
// NOTE(bill): Handled elsewhere
#if 1
diff --git a/src/parser.c b/src/parser.c
index f502cc316..21a394c11 100644
--- a/src/parser.c
+++ b/src/parser.c
@@ -231,22 +231,29 @@ AST_NODE_KIND(_SpecBegin, "", i32) \
AstNode * type; \
AstNodeArray values; \
}) \
+ AST_NODE_KIND(TypeSpec, "type specification", struct { \
+ AstNode *name; \
+ AstNode *type; \
+ AstNode *note; \
+ }) \
+ AST_NODE_KIND(ImportSpec, "import specification", struct { \
+ Token relpath; \
+ String fullpath; \
+ Token import_name; \
+ bool is_load; \
+ AstNode *cond; \
+ AstNode *note; \
+ }) \
AST_NODE_KIND(_SpecEnd, "", i32) \
AST_NODE_KIND(_DeclBegin, "", i32) \
AST_NODE_KIND(BadDecl, "bad declaration", struct { Token begin, end; }) \
- AST_NODE_KIND(GenericDecl, "generic declaration", struct { \
+ AST_NODE_KIND(GenericDecl, "declaration", struct { \
Token token; \
Token open, close; \
AstNodeArray specs; \
u64 tags; \
bool is_using; \
}) \
- AST_NODE_KIND(TypeDecl, "type declaration", struct { \
- Token token; \
- AstNode *name; \
- AstNode *type; \
- AstNode *note; \
- }) \
AST_NODE_KIND(ProcDecl, "procedure declaration", struct { \
AstNode *name; \
AstNode *type; \
@@ -256,14 +263,6 @@ AST_NODE_KIND(_DeclBegin, "", i32) \
String link_name; \
AstNode *note; \
}) \
- AST_NODE_KIND(ImportDecl, "import declaration", struct { \
- Token token, relpath; \
- String fullpath; \
- Token import_name; \
- bool is_load; \
- AstNode *cond; \
- AstNode *note; \
- }) \
AST_NODE_KIND(ForeignLibrary, "foreign library", struct { \
Token token, filepath; \
String base_dir; \
@@ -467,15 +466,16 @@ Token ast_node_token(AstNode *node) {
return node->GenericDecl.token;
case AstNode_ProcDecl:
return ast_node_token(node->ProcDecl.name);
- case AstNode_TypeDecl:
- return ast_node_token(node->TypeDecl.name);
- case AstNode_ImportDecl:
- return node->ImportDecl.token;
+
case AstNode_ForeignLibrary:
return node->ForeignLibrary.token;
case AstNode_ValueSpec:
return ast_node_token(node->ValueSpec.names.e[0]);
+ case AstNode_TypeSpec:
+ return ast_node_token(node->TypeSpec.name);
+ case AstNode_ImportSpec:
+ return node->ImportSpec.relpath;
case AstNode_Parameter: {
if (node->Parameter.names.count > 0) {
@@ -992,26 +992,6 @@ AstNode *make_enum_type(AstFile *f, Token token, AstNode *base_type, AstNodeArra
return result;
}
-AstNode *make_type_decl(AstFile *f, Token token, AstNode *name, AstNode *type) {
- AstNode *result = make_node(f, AstNode_TypeDecl);
- result->TypeDecl.token = token;
- result->TypeDecl.name = name;
- result->TypeDecl.type = type;
- return result;
-}
-
-AstNode *make_import_decl(AstFile *f, Token token, Token relpath, Token import_name,
- AstNode *cond,
- bool is_load) {
- AstNode *result = make_node(f, AstNode_ImportDecl);
- result->ImportDecl.token = token;
- result->ImportDecl.relpath = relpath;
- result->ImportDecl.import_name = import_name;
- result->ImportDecl.cond = cond;
- result->ImportDecl.is_load = is_load;
- return result;
-}
-
AstNode *make_foreign_library(AstFile *f, Token token, Token filepath, AstNode *cond, bool is_system) {
AstNode *result = make_node(f, AstNode_ForeignLibrary);
result->ForeignLibrary.token = token;
@@ -1042,6 +1022,22 @@ AstNode *make_value_spec(AstFile *f, TokenKind keyword, AstNodeArray names, AstN
return result;
}
+AstNode *make_type_spec(AstFile *f, AstNode *name, AstNode *type) {
+ AstNode *result = make_node(f, AstNode_TypeSpec);
+ result->TypeSpec.name = name;
+ result->TypeSpec.type = type;
+ return result;
+}
+
+
+AstNode *make_import_spec(AstFile *f, Token relpath, Token import_name, AstNode *cond, bool is_load) {
+ AstNode *result = make_node(f, AstNode_ImportSpec);
+ result->ImportSpec.relpath = relpath;
+ result->ImportSpec.import_name = import_name;
+ result->ImportSpec.cond = cond;
+ result->ImportSpec.is_load = is_load;
+ return result;
+}
bool next_token(AstFile *f) {
@@ -1137,6 +1133,7 @@ void fix_advance_to_next_stmt(AstFile *f) {
return;
case Token_var:
+ case Token_let:
case Token_const:
case Token_type:
case Token_proc:
@@ -1198,20 +1195,29 @@ void expect_semicolon(AstFile *f, AstNode *s) {
return;
}
- if (s != NULL) {
+ if (s != NULL && prev_token.pos.line != f->curr_token.pos.line) {
switch (s->kind) {
case AstNode_ProcDecl:
return;
- case AstNode_TypeDecl:
+ case AstNode_GenericDecl:
+ if (s->GenericDecl.close.kind == Token_CloseParen) {
+ return;
+ } else if (s->GenericDecl.token.kind == Token_type) {
+ if (f->prev_token.kind == Token_CloseBrace) {
+ return;
+ }
+ }
+ break;
+
+ case AstNode_TypeSpec:
if (f->prev_token.kind == Token_CloseBrace) {
return;
}
break;
}
- syntax_error(prev_token, "Expected `;` after %.*s, got %.*s %d %d",
- LIT(ast_node_strings[s->kind]), LIT(token_strings[prev_token.kind]),
- Token_Semicolon, prev_token.kind);
+ syntax_error(prev_token, "Expected `;` after %.*s, got %.*s",
+ LIT(ast_node_strings[s->kind]), LIT(token_strings[prev_token.kind]));
} else {
syntax_error(prev_token, "Expected `;`");
}
@@ -1853,17 +1859,17 @@ AstNodeArray parse_identfier_list(AstFile *f) {
}
void parse_check_name_list_for_reserves(AstFile *f, AstNodeArray names) {
- for_array(i, names) {
- AstNode *name = names.e[i];
- if (name->kind == AstNode_Ident) {
- String n = name->Ident.string;
- // NOTE(bill): Check for reserved identifiers
- if (str_eq(n, str_lit("context"))) {
- syntax_error_node(name, "`context` is a reserved identifier");
- break;
- }
- }
- }
+ // for_array(i, names) {
+ // AstNode *name = names.e[i];
+ // if (name->kind == AstNode_Ident) {
+ // String n = name->Ident.string;
+ // // NOTE(bill): Check for reserved identifiers
+ // if (str_eq(n, str_lit("context"))) {
+ // syntax_error_node(name, "`context` is a reserved identifier");
+ // break;
+ // }
+ // }
+ // }
}
AstNode *parse_type_attempt(AstFile *f) {
@@ -1933,6 +1939,7 @@ PARSE_SPEC_PROC(parse_value_spec) {
switch (keyword) {
case Token_var:
+ case Token_let:
if (type == NULL && values.count == 0 && names.count > 0) {
syntax_error(f->curr_token, "Missing type or initialization");
return make_bad_decl(f, f->curr_token, f->curr_token);
@@ -1953,13 +1960,66 @@ PARSE_SPEC_PROC(parse_value_spec) {
return make_value_spec(f, keyword, names, type, values);
}
-
-
-AstNode *parse_type_decl(AstFile *f) {
- Token token = expect_token(f, Token_type);
+PARSE_SPEC_PROC(parse_type_spec) {
AstNode *name = parse_identifier(f);
AstNode *type = parse_type(f);
- return make_type_decl(f, token, name, type);
+ return make_type_spec(f, name, type);
+}
+PARSE_SPEC_PROC(parse_import_spec) {
+ AstNode *cond = NULL;
+ Token import_name = {0};
+
+ switch (f->curr_token.kind) {
+ case Token_Period:
+ import_name = f->curr_token;
+ import_name.kind = Token_Ident;
+ next_token(f);
+ break;
+ case Token_Ident:
+ import_name = f->curr_token;
+ next_token(f);
+ break;
+ default:
+ import_name.pos = f->curr_token.pos;
+ break;
+ }
+
+ if (str_eq(import_name.string, str_lit("_"))) {
+ syntax_error(import_name, "Illegal import name: `_`");
+ }
+
+ Token file_path = expect_token_after(f, Token_String, "import");
+ if (allow_token(f, Token_when)) {
+ cond = parse_expr(f, false);
+ }
+
+ AstNode *spec = NULL;
+ if (f->curr_proc != NULL) {
+ syntax_error(import_name, "You cannot use `import` within a procedure. This must be done at the file scope");
+ spec = make_bad_decl(f, import_name, file_path);
+ } else {
+ spec = make_import_spec(f, file_path, import_name, cond, false);
+ }
+ return spec;
+}
+PARSE_SPEC_PROC(parse_include_spec) {
+ AstNode *cond = NULL;
+ Token file_path = expect_token_after(f, Token_String, "include");
+ Token import_name = file_path;
+ import_name.string = str_lit(".");
+
+ if (allow_token(f, Token_when)) {
+ cond = parse_expr(f, false);
+ }
+
+ AstNode *spec = NULL;
+ if (f->curr_proc != NULL) {
+ syntax_error(import_name, "You cannot use `include` within a procedure. This must be done at the file scope");
+ spec = make_bad_decl(f, import_name, file_path);
+ } else {
+ spec = make_import_spec(f, file_path, import_name, cond, true);
+ }
+ return spec;
}
AstNode *parse_proc_decl(AstFile *f);
@@ -1967,15 +2027,21 @@ AstNode *parse_proc_decl(AstFile *f);
AstNode *parse_decl(AstFile *f) {
switch (f->curr_token.kind) {
case Token_var:
+ case Token_let:
case Token_const:
return parse_generic_decl(f, f->curr_token.kind, parse_value_spec);
case Token_type:
- return parse_type_decl(f);
+ return parse_generic_decl(f, f->curr_token.kind, parse_type_spec);
case Token_proc:
return parse_proc_decl(f);
+ case Token_import:
+ return parse_generic_decl(f, f->curr_token.kind, parse_import_spec);
+ case Token_include:
+ return parse_generic_decl(f, f->curr_token.kind, parse_include_spec);
+
default: {
Token token = f->curr_token;
syntax_error(token, "Expected a declaration");
@@ -1989,6 +2055,7 @@ AstNode *parse_decl(AstFile *f) {
AstNode *parse_simple_stmt(AstFile *f) {
switch (f->curr_token.kind) {
case Token_var:
+ case Token_let:
case Token_const:
return parse_decl(f);
}
@@ -2276,41 +2343,6 @@ AstNode *parse_identifier_or_type(AstFile *f) {
return make_raw_union_type(f, token, decls, decl_count);
}
- case Token_enum: {
- Token token = expect_token(f, Token_enum);
- AstNode *base_type = NULL;
- Token open, close;
-
- if (f->curr_token.kind != Token_OpenBrace) {
- base_type = parse_type(f);
- }
-
- AstNodeArray fields = make_ast_node_array(f);
-
- open = expect_token_after(f, Token_OpenBrace, "`enum`");
-
- while (f->curr_token.kind != Token_CloseBrace &&
- f->curr_token.kind != Token_EOF) {
- AstNode *name = parse_identifier(f);
- AstNode *value = NULL;
- Token eq = empty_token;
- if (f->curr_token.kind == Token_Eq) {
- eq = expect_token(f, Token_Eq);
- value = parse_value(f);
- }
- AstNode *field = make_field_value(f, name, value, eq);
- array_add(&fields, field);
- if (f->curr_token.kind != Token_Comma) {
- break;
- }
- next_token(f);
- }
-
- close = expect_token(f, Token_CloseBrace);
-
- return make_enum_type(f, token, base_type, fields);
- }
-
case Token_proc:
return parse_proc_type(f);
@@ -2722,9 +2754,6 @@ AstNode *parse_stmt(AstFile *f) {
Token token = f->curr_token;
switch (token.kind) {
// Operands
- case Token_var:
- case Token_const:
-
case Token_Ident:
case Token_Integer:
case Token_Float:
@@ -2740,10 +2769,14 @@ AstNode *parse_stmt(AstFile *f) {
expect_semicolon(f, s);
return s;
+ case Token_var:
+ case Token_let:
+ case Token_const:
case Token_proc:
- return parse_proc_decl(f);
case Token_type:
- s = parse_type_decl(f);
+ case Token_import:
+ case Token_include:
+ s = parse_decl(f);
expect_semicolon(f, s);
return s;
@@ -2775,12 +2808,16 @@ AstNode *parse_stmt(AstFile *f) {
while (e->kind == AstNode_SelectorExpr) {
e = unparen_expr(e->SelectorExpr.selector);
}
- if (e->kind == AstNode_Ident) {
+ if (e->kind == AstNode_Ident) {
valid = true;
}
} break;
case AstNode_GenericDecl:
- valid = node->GenericDecl.token.kind == Token_var;
+ if (node->GenericDecl.token.kind == Token_var) {
+ valid = true;
+ } else if (node->GenericDecl.token.kind == Token_let) {
+ valid = true;
+ }
break;
}
@@ -2861,60 +2898,6 @@ AstNode *parse_stmt(AstFile *f) {
}
expect_semicolon(f, s);
return s;
- } else if (str_eq(tag, str_lit("import"))) {
- AstNode *cond = NULL;
- Token import_name = {0};
-
- switch (f->curr_token.kind) {
- case Token_Period:
- import_name = f->curr_token;
- import_name.kind = Token_Ident;
- next_token(f);
- break;
- case Token_Ident:
- import_name = f->curr_token;
- next_token(f);
- break;
- default:
- import_name.pos = hash_token.pos;
- break;
- }
-
- if (str_eq(import_name.string, str_lit("_"))) {
- syntax_error(token, "Illegal import name: `_`");
- }
-
- Token file_path = expect_token_after(f, Token_String, "#import");
- if (allow_token(f, Token_when)) {
- cond = parse_expr(f, false);
- }
-
- if (f->curr_proc != NULL) {
- syntax_error(token, "You cannot use #import within a procedure. This must be done at the file scope");
- s = make_bad_decl(f, token, file_path);
- } else {
- s = make_import_decl(f, hash_token, file_path, import_name, cond, false);
- }
- expect_semicolon(f, s);
- return s;
- } else if (str_eq(tag, str_lit("include"))) {
- AstNode *cond = NULL;
- Token file_path = expect_token(f, Token_String);
- Token import_name = file_path;
- import_name.string = str_lit(".");
-
- if (allow_token(f, Token_when)) {
- cond = parse_expr(f, false);
- }
-
- if (f->curr_proc == NULL) {
- s = make_import_decl(f, hash_token, file_path, import_name, cond, true);
- } else {
- syntax_error(token, "You cannot use #include within a procedure. This must be done at the file scope");
- s = make_bad_decl(f, token, file_path);
- }
- expect_semicolon(f, s);
- return s;
} else if (str_eq(tag, str_lit("thread_local"))) {
AstNode *decl = parse_simple_stmt(f);
if (decl->kind == AstNode_GenericDecl &&
@@ -3143,35 +3126,41 @@ void parse_setup_file_decls(Parser *p, AstFile *f, String base_dir, AstNodeArray
node->kind != AstNode_EmptyStmt) {
// NOTE(bill): Sanity check
syntax_error_node(node, "Only declarations are allowed at file scope %.*s", LIT(ast_node_strings[node->kind]));
- } else if (node->kind == AstNode_ImportDecl) {
- AstNodeImportDecl *id = &node->ImportDecl;
- String file_str = id->relpath.string;
+ } else if (node->kind == AstNode_GenericDecl) {
+ AstNodeGenericDecl *gd = &node->GenericDecl;
+ for_array(spec_index, gd->specs) {
+ AstNode *spec = gd->specs.e[spec_index];
+ switch (spec->kind) {
+ case_ast_node(is, ImportSpec, spec);
+ String file_str = is->relpath.string;
+
+ if (!is_import_path_valid(file_str)) {
+ if (is->is_load) {
+ syntax_error_node(node, "Invalid #include path: `%.*s`", LIT(file_str));
+ } else {
+ syntax_error_node(node, "Invalid #import path: `%.*s`", LIT(file_str));
+ }
+ // NOTE(bill): It's a naughty name
+ gd->specs.e[spec_index] = make_bad_decl(f, is->relpath, is->relpath);
+ continue;
+ }
- if (!is_import_path_valid(file_str)) {
- if (id->is_load) {
- syntax_error_node(node, "Invalid #include path: `%.*s`", LIT(file_str));
- } else {
- syntax_error_node(node, "Invalid #import path: `%.*s`", LIT(file_str));
- }
- // NOTE(bill): It's a naughty name
- decls.e[i] = make_bad_decl(f, id->token, id->token);
- continue;
- }
+ gbAllocator allocator = heap_allocator(); // TODO(bill): Change this allocator
- gbAllocator allocator = heap_allocator(); // TODO(bill): Change this allocator
+ String rel_path = get_fullpath_relative(allocator, base_dir, file_str);
+ String import_file = rel_path;
+ if (!gb_file_exists(cast(char *)rel_path.text)) { // NOTE(bill): This should be null terminated
+ String abs_path = get_fullpath_core(allocator, file_str);
+ if (gb_file_exists(cast(char *)abs_path.text)) {
+ import_file = abs_path;
+ }
+ }
- String rel_path = get_fullpath_relative(allocator, base_dir, file_str);
- String import_file = rel_path;
- if (!gb_file_exists(cast(char *)rel_path.text)) { // NOTE(bill): This should be null terminated
- String abs_path = get_fullpath_core(allocator, file_str);
- if (gb_file_exists(cast(char *)abs_path.text)) {
- import_file = abs_path;
+ is->fullpath = import_file;
+ try_add_import_path(p, import_file, file_str, ast_node_token(node).pos);
+ case_end;
}
}
-
- id->fullpath = import_file;
- try_add_import_path(p, import_file, file_str, ast_node_token(node).pos);
-
} else if (node->kind == AstNode_ForeignLibrary) {
AstNodeForeignLibrary *fl = &node->ForeignLibrary;
String file_str = fl->filepath.string;
diff --git a/src/ssa.c b/src/ssa.c
index cd09eaf11..46520797a 100644
--- a/src/ssa.c
+++ b/src/ssa.c
@@ -1233,7 +1233,8 @@ ssaValue *ssa_add_local_generated(ssaProcedure *proc, Type *type) {
Entity *e = make_entity_variable(proc->module->allocator,
scope,
empty_token,
- type);
+ type,
+ false);
return ssa_add_local(proc, e);
}
@@ -2603,6 +2604,8 @@ ssaValue *ssa_build_single_expr(ssaProcedure *proc, AstNode *expr, TypeAndValue
// return v;
// }
return ssa_emit_load(proc, v);
+ } else if (e != NULL && e->kind == Entity_Variable) {
+ return ssa_addr_load(proc, ssa_build_addr(proc, expr));
}
return NULL;
case_end;
@@ -3854,6 +3857,7 @@ void ssa_build_stmt_internal(ssaProcedure *proc, AstNode *node) {
switch (vs->keyword) {
case Token_const:
break;
+ case Token_let:
case Token_var: {
ssaModule *m = proc->module;
gbTempArenaMemory tmp = gb_temp_arena_memory_begin(&m->tmp_arena);
@@ -3910,6 +3914,24 @@ void ssa_build_stmt_internal(ssaProcedure *proc, AstNode *node) {
} break;
}
case_end;
+ case_ast_node(ts, TypeSpec, spec);
+ // NOTE(bill): Generate a new name
+ // parent_proc.name-guid
+ String ts_name = ts->name->Ident.string;
+ isize name_len = proc->name.len + 1 + ts_name.len + 1 + 10 + 1;
+ u8 *name_text = gb_alloc_array(proc->module->allocator, u8, name_len);
+ i32 guid = cast(i32)proc->module->members.entries.count;
+ name_len = gb_snprintf(cast(char *)name_text, name_len, "%.*s.%.*s-%d", LIT(proc->name), LIT(ts_name), guid);
+ String name = make_string(name_text, name_len-1);
+
+ Entity **found = map_entity_get(&proc->module->info->definitions, hash_pointer(ts->name));
+ GB_ASSERT(found != NULL);
+ Entity *e = *found;
+ ssaValue *value = ssa_make_value_type_name(proc->module->allocator,
+ name, e->type);
+ map_string_set(&proc->module->type_names, hash_pointer(e->type), name);
+ ssa_gen_global_type_name(proc->module, e, name);
+ case_end;
}
}
case_end;
@@ -3987,26 +4009,6 @@ void ssa_build_stmt_internal(ssaProcedure *proc, AstNode *node) {
}
case_end;
- case_ast_node(td, TypeDecl, node);
-
- // NOTE(bill): Generate a new name
- // parent_proc.name-guid
- String td_name = td->name->Ident.string;
- isize name_len = proc->name.len + 1 + td_name.len + 1 + 10 + 1;
- u8 *name_text = gb_alloc_array(proc->module->allocator, u8, name_len);
- i32 guid = cast(i32)proc->module->members.entries.count;
- name_len = gb_snprintf(cast(char *)name_text, name_len, "%.*s.%.*s-%d", LIT(proc->name), LIT(td_name), guid);
- String name = make_string(name_text, name_len-1);
-
- Entity **found = map_entity_get(&proc->module->info->definitions, hash_pointer(td->name));
- GB_ASSERT(found != NULL);
- Entity *e = *found;
- ssaValue *value = ssa_make_value_type_name(proc->module->allocator,
- name, e->type);
- map_string_set(&proc->module->type_names, hash_pointer(e->type), name);
- ssa_gen_global_type_name(proc->module, e, name);
- case_end;
-
case_ast_node(ids, IncDecStmt, node);
ssa_emit_comment(proc, str_lit("IncDecStmt"));
TokenKind op = ids->op.kind;
@@ -4705,7 +4707,7 @@ void ssa_init_module(ssaModule *m, Checker *c, BuildContext *build_context) {
{
String name = str_lit(SSA_TYPE_INFO_DATA_NAME);
isize count = c->info.type_info_map.entries.count;
- Entity *e = make_entity_variable(m->allocator, NULL, make_token_ident(name), make_type_array(m->allocator, t_type_info, count));
+ Entity *e = make_entity_variable(m->allocator, NULL, make_token_ident(name), make_type_array(m->allocator, t_type_info, count), false);
ssaValue *g = ssa_make_value_global(m->allocator, e, NULL);
g->Global.is_private = true;
ssa_module_add_value(m, e, g);
@@ -4737,7 +4739,7 @@ void ssa_init_module(ssaModule *m, Checker *c, BuildContext *build_context) {
String name = str_lit(SSA_TYPE_INFO_DATA_MEMBER_NAME);
Entity *e = make_entity_variable(m->allocator, NULL, make_token_ident(name),
- make_type_array(m->allocator, t_type_info_member, count));
+ make_type_array(m->allocator, t_type_info_member, count), false);
ssaValue *g = ssa_make_value_global(m->allocator, e, NULL);
ssa_module_add_value(m, e, g);
map_ssa_value_set(&m->members, hash_string(name), g);
diff --git a/src/tokenizer.c b/src/tokenizer.c
index 3e1015038..f87a48b3b 100644
--- a/src/tokenizer.c
+++ b/src/tokenizer.c
@@ -85,9 +85,10 @@ TOKEN_KIND(Token__KeywordBegin, "_KeywordBegin"), \
TOKEN_KIND(Token_type, "type"), \
TOKEN_KIND(Token_proc, "proc"), \
TOKEN_KIND(Token_var, "var"), \
+ TOKEN_KIND(Token_let, "let"), \
TOKEN_KIND(Token_const, "const"), \
- /* TOKEN_KIND(Token_import, "import"), */\
- /* TOKEN_KIND(Token_include, "include"), */\
+ TOKEN_KIND(Token_import, "import"), \
+ TOKEN_KIND(Token_include, "include"), \
TOKEN_KIND(Token_macro, "macro"), \
TOKEN_KIND(Token_match, "match"), \
TOKEN_KIND(Token_break, "break"), \
@@ -106,7 +107,6 @@ TOKEN_KIND(Token__KeywordBegin, "_KeywordBegin"), \
TOKEN_KIND(Token_struct, "struct"), \
TOKEN_KIND(Token_union, "union"), \
TOKEN_KIND(Token_raw_union, "raw_union"), \
- TOKEN_KIND(Token_enum, "enum"), \
TOKEN_KIND(Token_vector, "vector"), \
TOKEN_KIND(Token_using, "using"), \
TOKEN_KIND(Token_asm, "asm"), \