Change record field syntax

This commit is contained in:
Ginger Bill
2016-12-18 22:23:34 +00:00
parent e370337f97
commit 4c10fbdcd4
11 changed files with 193 additions and 304 deletions
+45 -45
View File
@@ -51,62 +51,62 @@ const SM_CYSCREEN = 1;
const SW_SHOW = 5;
type POINT struct #ordered {
x, y: i32;
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;
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;
hwnd HWND;
message u32;
wparam WPARAM;
lparam LPARAM;
time u32;
pt POINT;
}
type RECT struct #ordered {
left: i32;
top: i32;
right: i32;
bottom: i32;
left i32;
top i32;
right i32;
bottom i32;
}
type FILETIME struct #ordered {
low_date_time, high_date_time: u32;
low_date_time, high_date_time u32;
}
type BY_HANDLE_FILE_INFORMATION struct #ordered {
file_attributes: u32;
file_attributes u32;
creation_time,
last_access_time,
last_write_time: FILETIME;
last_write_time FILETIME;
volume_serial_number,
file_size_high,
file_size_low,
number_of_links,
file_index_high,
file_index_low: u32;
file_index_low u32;
}
type WIN32_FILE_ATTRIBUTE_DATA struct #ordered {
file_attributes: u32;
file_attributes u32;
creation_time,
last_access_time,
last_write_time: FILETIME;
last_write_time FILETIME;
file_size_high,
file_size_low: u32;
file_size_low u32;
}
type GET_FILEEX_INFO_LEVELS i32;
@@ -209,9 +209,9 @@ const HEAP_ZERO_MEMORY = 0x00000008;
// Synchronization
type SECURITY_ATTRIBUTES struct #ordered {
length: u32;
security_descriptor: rawptr;
inherit_handle: BOOL;
length u32;
security_descriptor rawptr;
inherit_handle BOOL;
}
const INFINITE = 0xffffffff;
@@ -242,24 +242,24 @@ 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;
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;
using header BITMAPINFOHEADER;
colors [1]RGBQUAD;
}
type RGBQUAD struct #ordered {
blue, green, red, reserved: byte;
blue, green, red, reserved byte;
}
const BI_RGB = 0;
@@ -315,7 +315,7 @@ type wglCreateContextAttribsARBType proc(hdc HDC, hshareContext rawptr, attribLi
type PIXELFORMATDESCRIPTOR struct #ordered {
size,
version,
flags: u32;
flags u32;
pixel_type,
color_bits,
@@ -336,11 +336,11 @@ type PIXELFORMATDESCRIPTOR struct #ordered {
stencil_bits,
aux_buffers,
layer_type,
reserved: byte;
reserved byte;
layer_mask,
visible_mask,
damage_mask: u32;
damage_mask u32;
}
proc GetDC (h HANDLE) -> HDC #foreign