ed/Odin
1
0
Fork 0
mirror of https://github.com/Ed94/Odin.git synced 2026-06-20 04:35:00 -07:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'master' into windows-bindings

Browse Source
This commit is contained in:
Josh Engler
2022-06-11 09:48:28 -04:00
parent 762895bc45 c75dd14308
commit 6f80174f84
11 changed files with 1312 additions and 280 deletions
Download Patch File Download Diff File Expand all files Collapse all files
core/fmt/fmt.odin
+254 -239
View File
@@ -28,11 +28,14 @@ Info :: struct {
reordered: bool,
good_arg_index: bool,
ignore_user_formatters: bool,
in_bad: bool,
writer: io.Writer,
arg: any, // Temporary
record_level: int,
optional_len: Maybe(int),
n: int, // bytes written
}
@@ -589,6 +592,10 @@ int_from_arg :: proc(args: []any, arg_index: int) -> (int, int, bool) {
fmt_bad_verb :: proc(using fi: ^Info, verb: rune) {
prev_in_bad := fi.in_bad
defer fi.in_bad = prev_in_bad
fi.in_bad = true
io.write_string(writer, "%!", &fi.n)
io.write_rune(writer, verb, &fi.n)
io.write_byte(writer, '(', &fi.n)
@@ -941,6 +948,14 @@ fmt_float :: proc(fi: ^Info, v: f64, bit_size: int, verb: rune) {
fmt_string :: proc(fi: ^Info, s: string, verb: rune) {
s, verb := s, verb
if ol, ok := fi.optional_len.?; ok {
s = s[:min(len(s), ol)]
}
// if !fi.in_bad && fi.record_level >= 0 && verb == 'v' {
// verb = 'q'
// }
switch verb {
case 's', 'v':
if fi.width_set {
@@ -1247,6 +1262,219 @@ fmt_write_array :: proc(fi: ^Info, array_data: rawptr, count: int, elem_size: in
}
}
@(private)
handle_tag :: proc(data: rawptr, info: reflect.Type_Info_Struct, idx: int, verb: ^rune, optional_len: ^int = nil) -> (do_continue: bool) {
handle_optional_len :: proc(data: rawptr, info: reflect.Type_Info_Struct, field_name: string, optional_len: ^int) {
if optional_len == nil {
return
}
for f, i in info.names {
if f != field_name {
continue
}
ptr := rawptr(uintptr(data) + info.offsets[i])
field := any{ptr, info.types[i].id}
if new_len, iok := reflect.as_int(field); iok {
optional_len^ = max(new_len, 0)
}
break
}
}
tag := info.tags[idx]
if vt, ok := reflect.struct_tag_lookup(reflect.Struct_Tag(tag), "fmt"); ok {
value := strings.trim_space(string(vt))
switch value {
case "": return false
case "-": return true
}
r, w := utf8.decode_rune_in_string(value)
value = value[w:]
if value == "" || value[0] == ',' {
verb^ = r
if len(value) > 0 && value[0] == ',' {
field_name := value[1:]
switch r {
case 's', 'q':
handle_optional_len(data, info, field_name, optional_len)
case 'v':
#partial switch reflect.type_kind(info.types[idx].id) {
case .String, .Multi_Pointer, .Array, .Slice, .Dynamic_Array:
handle_optional_len(data, info, field_name, optional_len)
}
}
}
}
}
return false
}
fmt_struct :: proc(fi: ^Info, v: any, the_verb: rune, info: runtime.Type_Info_Struct, type_name: string) {
if the_verb != 'v' {
fmt_bad_verb(fi, the_verb)
return
}
if info.is_raw_union {
if type_name == "" {
io.write_string(fi.writer, "(raw union)", &fi.n)
} else {
io.write_string(fi.writer, type_name, &fi.n)
io.write_string(fi.writer, "{}", &fi.n)
}
return
}
is_soa := info.soa_kind != .None
io.write_string(fi.writer, type_name, &fi.n)
io.write_byte(fi.writer, '[' if is_soa else '{', &fi.n)
hash := fi.hash; defer fi.hash = hash
indent := fi.indent; defer fi.indent -= 1
do_trailing_comma := hash
// fi.hash = false;
fi.indent += 1
if hash {
io.write_byte(fi.writer, '\n', &fi.n)
}
defer {
if hash {
for in 0..<indent { io.write_byte(fi.writer, '\t', &fi.n) }
}
io.write_byte(fi.writer, ']' if is_soa else '}', &fi.n)
}
if is_soa {
fi.indent += 1
defer fi.indent -= 1
base_type_name: string
if v, ok := info.soa_base_type.variant.(runtime.Type_Info_Named); ok {
base_type_name = v.name
}
actual_field_count := len(info.names)
n := uintptr(info.soa_len)
if info.soa_kind == .Slice {
actual_field_count = len(info.names)-1 // len
n = uintptr((^int)(uintptr(v.data) + info.offsets[actual_field_count])^)
} else if info.soa_kind == .Dynamic {
actual_field_count = len(info.names)-3 // len, cap, allocator
n = uintptr((^int)(uintptr(v.data) + info.offsets[actual_field_count])^)
}
for index in 0..<n {
if !hash && index > 0 { io.write_string(fi.writer, ", ", &fi.n) }
field_count := -1
if !hash && field_count > 0 { io.write_string(fi.writer, ", ", &fi.n) }
io.write_string(fi.writer, base_type_name, &fi.n)
io.write_byte(fi.writer, '{', &fi.n)
defer io.write_byte(fi.writer, '}', &fi.n)
for i in 0..<actual_field_count {
verb := 'v'
name := info.names[i]
field_count += 1
if !hash && field_count > 0 { io.write_string(fi.writer, ", ", &fi.n) }
if hash {
fmt_write_indent(fi)
}
io.write_string(fi.writer, name, &fi.n)
io.write_string(fi.writer, " = ", &fi.n)
if info.soa_kind == .Fixed {
t := info.types[i].variant.(runtime.Type_Info_Array).elem
t_size := uintptr(t.size)
if reflect.is_any(t) {
io.write_string(fi.writer, "any{}", &fi.n)
} else {
data := rawptr(uintptr(v.data) + info.offsets[i] + index*t_size)
fmt_arg(fi, any{data, t.id}, verb)
}
} else {
t := info.types[i].variant.(runtime.Type_Info_Pointer).elem
t_size := uintptr(t.size)
if reflect.is_any(t) {
io.write_string(fi.writer, "any{}", &fi.n)
} else {
field_ptr := (^^byte)(uintptr(v.data) + info.offsets[i])^
data := rawptr(uintptr(field_ptr) + index*t_size)
fmt_arg(fi, any{data, t.id}, verb)
}
}
if hash { io.write_string(fi.writer, ",\n", &fi.n) }
}
}
} else {
field_count := -1
for name, i in info.names {
optional_len: int = -1
verb := 'v'
if handle_tag(v.data, info, i, &verb, &optional_len) {
continue
}
field_count += 1
if optional_len >= 0 {
fi.optional_len = optional_len
}
defer if optional_len >= 0 {
fi.optional_len = nil
}
if !do_trailing_comma && field_count > 0 { io.write_string(fi.writer, ", ") }
if hash {
fmt_write_indent(fi)
}
io.write_string(fi.writer, name, &fi.n)
io.write_string(fi.writer, " = ", &fi.n)
if t := info.types[i]; reflect.is_any(t) {
io.write_string(fi.writer, "any{}", &fi.n)
} else {
data := rawptr(uintptr(v.data) + info.offsets[i])
fmt_arg(fi, any{data, t.id}, verb)
}
if do_trailing_comma { io.write_string(fi.writer, ",\n", &fi.n) }
}
}
}
fmt_array :: proc(fi: ^Info, data: rawptr, n: int, elem_size: int, elem: ^reflect.Type_Info, verb: rune) {
if (verb == 's' || verb == 'q') && reflect.is_byte(elem) {
if data == nil && n > 0 {
io.write_string(fi.writer, "nil")
return
}
s := strings.string_from_ptr((^byte)(data), n)
fmt_string(fi, s, verb)
} else if verb == 'p' {
fmt_pointer(fi, data, 'p')
} else {
if data == nil && n > 0 {
io.write_string(fi.writer, "nil")
return
}
fmt_write_array(fi, data, n, elem_size, elem.id, verb)
}
}
fmt_value :: proc(fi: ^Info, v: any, verb: rune) {
write_padded_number :: proc(fi: ^Info, i: i64, width: int) {
n := width-1
@@ -1413,104 +1641,7 @@ fmt_value :: proc(fi: ^Info, v: any, verb: rune) {
#partial switch b in info.base.variant {
case runtime.Type_Info_Struct:
if verb != 'v' {
fmt_bad_verb(fi, verb)
return
}
if b.is_raw_union {
io.write_string(fi.writer, info.name, &fi.n)
io.write_string(fi.writer, "{}", &fi.n)
return
}
is_soa := b.soa_kind != .None
io.write_string(fi.writer, info.name, &fi.n)
io.write_byte(fi.writer, '[' if is_soa else '{', &fi.n)
hash := fi.hash; defer fi.hash = hash
indent := fi.indent; defer fi.indent -= 1
// fi.hash = false;
fi.indent += 1
if hash {
io.write_byte(fi.writer, '\n', &fi.n)
}
defer {
if hash {
for in 0..<indent { io.write_byte(fi.writer, '\t', &fi.n) }
}
io.write_byte(fi.writer, ']' if is_soa else '}', &fi.n)
}
if is_soa {
fi.indent += 1
defer fi.indent -= 1
base_type_name: string
if v, ok := b.soa_base_type.variant.(runtime.Type_Info_Named); ok {
base_type_name = v.name
}
for index in 0..<uintptr(b.soa_len) {
if !hash && index > 0 { io.write_string(fi.writer, ", ", &fi.n) }
field_count := -1
if !hash && field_count > 0 { io.write_string(fi.writer, ", ", &fi.n) }
io.write_string(fi.writer, base_type_name, &fi.n)
io.write_byte(fi.writer, '{', &fi.n)
defer io.write_byte(fi.writer, '}', &fi.n)
for name, i in b.names {
field_count += 1
if !hash && field_count > 0 { io.write_string(fi.writer, ", ", &fi.n) }
if hash {
fmt_write_indent(fi)
}
io.write_string(fi.writer, name, &fi.n)
io.write_string(fi.writer, " = ", &fi.n)
t := b.types[i].variant.(runtime.Type_Info_Array).elem
t_size := uintptr(t.size)
if reflect.is_any(t) {
io.write_string(fi.writer, "any{}", &fi.n)
} else {
data := rawptr(uintptr(v.data) + b.offsets[i] + index*t_size)
fmt_arg(fi, any{data, t.id}, 'v')
}
if hash { io.write_string(fi.writer, ",\n", &fi.n) }
}
}
} else {
field_count := -1
for name, i in b.names {
field_count += 1
if !hash && field_count > 0 { io.write_string(fi.writer, ", ") }
if hash {
fmt_write_indent(fi)
}
io.write_string(fi.writer, name, &fi.n)
io.write_string(fi.writer, " = ", &fi.n)
if t := b.types[i]; reflect.is_any(t) {
io.write_string(fi.writer, "any{}", &fi.n)
} else {
data := rawptr(uintptr(v.data) + b.offsets[i])
fmt_arg(fi, any{data, t.id}, 'v')
}
if hash { io.write_string(fi.writer, ",\n", &fi.n) }
}
}
fmt_struct(fi, v, verb, b, info.name)
case runtime.Type_Info_Bit_Set:
fmt_bit_set(fi, v)
case:
@@ -1578,6 +1709,11 @@ fmt_value :: proc(fi: ^Info, v: any, verb: rune) {
elem := runtime.type_info_base(info.elem)
if elem != nil {
if n, ok := fi.optional_len.?; ok {
fmt_array(fi, ptr, n, elem.size, elem, verb)
return
}
#partial switch e in elem.variant {
case runtime.Type_Info_Array,
runtime.Type_Info_Slice,
@@ -1613,14 +1749,6 @@ fmt_value :: proc(fi: ^Info, v: any, verb: rune) {
}
fmt_pointer(fi, ptr, verb)
case runtime.Type_Info_Array:
if (verb == 's' || verb == 'q') && reflect.is_byte(info.elem) {
s := strings.string_from_ptr((^byte)(v.data), info.count)
fmt_string(fi, s, verb)
} else {
fmt_write_array(fi, v.data, info.count, info.elem_size, info.elem.id, verb)
}
case runtime.Type_Info_Enumerated_Array:
if fi.hash {
io.write_string(fi.writer, "[\n", &fi.n)
@@ -1670,16 +1798,28 @@ fmt_value :: proc(fi: ^Info, v: any, verb: rune) {
}
}
case runtime.Type_Info_Array:
n := info.count
if ol, ok := fi.optional_len.?; ok {
n = min(n, ol)
}
fmt_array(fi, v.data, n, info.elem_size, info.elem, verb)
case runtime.Type_Info_Slice:
slice := cast(^mem.Raw_Slice)v.data
n := slice.len
if ol, ok := fi.optional_len.?; ok {
n = min(n, ol)
}
fmt_array(fi, slice.data, n, info.elem_size, info.elem, verb)
case runtime.Type_Info_Dynamic_Array:
array := cast(^mem.Raw_Dynamic_Array)v.data
if (verb == 's' || verb == 'q') && reflect.is_byte(info.elem) {
s := strings.string_from_ptr((^byte)(array.data), array.len)
fmt_string(fi, s, verb)
} else if verb == 'p' {
fmt_pointer(fi, array.data, 'p')
} else {
fmt_write_array(fi, array.data, array.len, info.elem_size, info.elem.id, verb)
n := array.len
if ol, ok := fi.optional_len.?; ok {
n = min(n, ol)
}
fmt_array(fi, array.data, n, info.elem_size, info.elem, verb)
case runtime.Type_Info_Simd_Vector:
io.write_byte(fi.writer, '<', &fi.n)
@@ -1692,16 +1832,6 @@ fmt_value :: proc(fi: ^Info, v: any, verb: rune) {
}
case runtime.Type_Info_Slice:
slice := cast(^mem.Raw_Slice)v.data
if (verb == 's' || verb == 'q') && reflect.is_byte(info.elem) {
s := strings.string_from_ptr((^byte)(slice.data), slice.len)
fmt_string(fi, s, verb)
} else if verb == 'p' {
fmt_pointer(fi, slice.data, 'p')
} else {
fmt_write_array(fi, slice.data, slice.len, info.elem_size, info.elem.id, verb)
}
case runtime.Type_Info_Map:
if verb != 'v' {
fmt_bad_verb(fi, verb)
@@ -1738,122 +1868,7 @@ fmt_value :: proc(fi: ^Info, v: any, verb: rune) {
}
case runtime.Type_Info_Struct:
if info.is_raw_union {
io.write_string(fi.writer, "(raw_union)", &fi.n)
return
}
is_soa := info.soa_kind != .None
io.write_byte(fi.writer, '[' if is_soa else '{', &fi.n)
defer io.write_byte(fi.writer, ']' if is_soa else '}', &fi.n)
fi.indent += 1; defer fi.indent -= 1
hash := fi.hash; defer fi.hash = hash
// fi.hash = false;
if hash { io.write_byte(fi.writer, '\n', &fi.n) }
if is_soa {
fi.indent += 1
defer fi.indent -= 1
base_type_name: string
if v, ok := info.soa_base_type.variant.(runtime.Type_Info_Named); ok {
base_type_name = v.name
}
actual_field_count := len(info.names)
n := uintptr(info.soa_len)
if info.soa_kind == .Slice {
actual_field_count = len(info.names)-1 // len
n = uintptr((^int)(uintptr(v.data) + info.offsets[actual_field_count])^)
} else if info.soa_kind == .Dynamic {
actual_field_count = len(info.names)-3 // len, cap, allocator
n = uintptr((^int)(uintptr(v.data) + info.offsets[actual_field_count])^)
}
for index in 0..<n {
if !hash && index > 0 { io.write_string(fi.writer, ", ", &fi.n) }
field_count := -1
if !hash && field_count > 0 { io.write_string(fi.writer, ", ", &fi.n) }
io.write_string(fi.writer, base_type_name, &fi.n)
io.write_byte(fi.writer, '{', &fi.n)
defer io.write_byte(fi.writer, '}', &fi.n)
for i in 0..<actual_field_count {
name := info.names[i]
field_count += 1
if !hash && field_count > 0 { io.write_string(fi.writer, ", ", &fi.n) }
if hash {
fmt_write_indent(fi)
}
io.write_string(fi.writer, name, &fi.n)
io.write_string(fi.writer, " = ", &fi.n)
if info.soa_kind == .Fixed {
t := info.types[i].variant.(runtime.Type_Info_Array).elem
t_size := uintptr(t.size)
if reflect.is_any(t) {
io.write_string(fi.writer, "any{}", &fi.n)
} else {
data := rawptr(uintptr(v.data) + info.offsets[i] + index*t_size)
fmt_arg(fi, any{data, t.id}, 'v')
}
} else {
t := info.types[i].variant.(runtime.Type_Info_Pointer).elem
t_size := uintptr(t.size)
if reflect.is_any(t) {
io.write_string(fi.writer, "any{}", &fi.n)
} else {
field_ptr := (^^byte)(uintptr(v.data) + info.offsets[i])^
data := rawptr(uintptr(field_ptr) + index*t_size)
fmt_arg(fi, any{data, t.id}, 'v')
}
}
if hash { io.write_string(fi.writer, ",\n", &fi.n) }
}
}
} else {
field_count := -1
for name, i in info.names {
field_count += 1
if !hash && field_count > 0 { io.write_string(fi.writer, ", ", &fi.n) }
if hash {
fmt_write_indent(fi)
}
io.write_string(fi.writer, name, &fi.n)
io.write_string(fi.writer, " = ", &fi.n)
if t := info.types[i]; reflect.is_any(t) {
io.write_string(fi.writer, "any{}", &fi.n)
} else {
data := rawptr(uintptr(v.data) + info.offsets[i])
fmt_arg(fi, any{data, t.id}, 'v')
}
if hash {
io.write_string(fi.writer, ",\n", &fi.n)
}
}
}
fmt_struct(fi, v, verb, info, "")
case runtime.Type_Info_Union:
if type_info.size == 0 {
core/slice/sort.odin
+1 -1
View File
@@ -103,7 +103,7 @@ is_sorted_by :: proc(array: $T/[]$E, less: proc(i, j: E) -> bool) -> bool {
is_sorted_by_cmp :: is_sorted_cmp
is_sorted_cmp :: proc(array: $T/[]$E, cmp: proc(i, j: E) -> Ordering) -> bool {
for i := len(array)-1; i > 0; i -= 1 {
if cmp(array[i], array[i-1]) == .Equal {
if cmp(array[i], array[i-1]) == .Less {
return false
}
}
core/sys/windows/advapi32.odin
+50 -1
View File
@@ -70,4 +70,53 @@ foreign advapi32 {
lpStartupInfo: LPSTARTUPINFO,
lpProcessInformation: LPPROCESS_INFORMATION,
) -> BOOL ---
}
RegCreateKeyExW :: proc(
hKey: HKEY,
lpSubKey: LPCWSTR,
Reserved: DWORD,
lpClass: LPWSTR,
dwOptions: DWORD,
samDesired: REGSAM,
lpSecurityAttributes: LPSECURITY_ATTRIBUTES,
phkResult: PHKEY,
lpdwDisposition: LPDWORD,
) -> LSTATUS ---
RegOpenKeyW :: proc(
hKey: HKEY,
lpSubKey: LPCWSTR,
phkResult: PHKEY,
) -> LSTATUS ---
RegOpenKeyExW :: proc(
hKey: HKEY,
lpSubKey: LPCWSTR,
ulOptions: DWORD,
samDesired: REGSAM,
phkResult: PHKEY,
) -> LSTATUS ---
RegCloseKey :: proc(
hKey: HKEY,
) -> LSTATUS ---
RegGetValueW :: proc(
hkey: HKEY,
lpSubKey: LPCWSTR,
lpValue: LPCWSTR,
dwFlags: DWORD,
pdwType: LPDWORD,
pvData: PVOID,
pcbData: LPDWORD,
) -> LSTATUS ---
RegSetValueExW :: proc(
hKey: HKEY,
lpValueName: LPCWSTR,
Reserved: DWORD,
dwType: DWORD,
lpData: ^BYTE,
cbData: DWORD,
) -> LSTATUS ---
}
core/sys/windows/comdlg32.odin
-2
View File
@@ -26,8 +26,6 @@ OPENFILENAMEW :: struct {
lCustData: LPARAM,
lpfnHook: LPOFNHOOKPROC,
lpTemplateName: wstring,
lpEditInfo: rawptr, // LPEDITMENU,
lpstrPrompt: wstring,
pvReserved: rawptr,
dwReserved: DWORD,
FlagsEx: DWORD,
core/sys/windows/gdi32.odin
+11
View File
@@ -7,6 +7,8 @@ foreign import gdi32 "system:Gdi32.lib"
foreign gdi32 {
GetStockObject :: proc(i: c_int) -> HGDIOBJ ---
SelectObject :: proc(hdc: HDC, h: HGDIOBJ) -> HGDIOBJ ---
DeleteObject :: proc(ho: HGDIOBJ) -> BOOL ---
SetBkColor :: proc(hdc: HDC, color: COLORREF) -> COLORREF ---
CreateDIBPatternBrush :: proc(h: HGLOBAL, iUsage: UINT) -> HBRUSH ---
@@ -65,6 +67,15 @@ foreign gdi32 {
SetDCBrushColor :: proc(hdc: HDC, color: COLORREF) -> COLORREF ---
GetDCBrushColor :: proc(hdc: HDC) -> COLORREF ---
PatBlt :: proc(hdc: HDC, x, y, w, h: c_int, rop: DWORD) -> BOOL ---
Rectangle :: proc(hdc: HDC, left, top, right, bottom: c_int) -> BOOL ---
CreateFontW :: proc(
cHeight, cWidth, cEscapement, cOrientation, cWeight: c_int,
bItalic, bUnderline, bStrikeOut, iCharSet, iOutPrecision: DWORD,
iClipPrecision, iQuality, iPitchAndFamily: DWORD,
pszFaceName: LPCWSTR,
) -> HFONT ---
TextOutW :: proc(hdc: HDC, x, y: c_int, lpString: LPCWSTR, c: c_int) -> BOOL ---
}
RGB :: #force_inline proc "contextless" (r, g, b: u8) -> COLORREF {
core/sys/windows/kernel32.odin
-1
View File
@@ -329,7 +329,6 @@ foreign kernel32 {
}
STANDARD_RIGHTS_REQUIRED :: DWORD(0x000F0000)
SECTION_QUERY :: DWORD(0x0001)
SECTION_MAP_WRITE :: DWORD(0x0002)
SECTION_MAP_READ :: DWORD(0x0004)
core/sys/windows/ole32.odin
+21
View File
@@ -11,8 +11,29 @@ COINIT :: enum DWORD {
SPEED_OVER_MEMORY = 0x8,
}
IUnknown :: struct {
using Vtbl: ^IUnknownVtbl,
}
IUnknownVtbl :: struct {
QueryInterface: proc "stdcall" (This: ^IUnknown, riid: REFIID, ppvObject: ^rawptr) -> HRESULT,
AddRef: proc "stdcall" (This: ^IUnknown) -> ULONG,
Release: proc "stdcall" (This: ^IUnknown) -> ULONG,
}
LPUNKNOWN :: ^IUnknown
@(default_calling_convention="stdcall")
foreign Ole32 {
CoInitializeEx :: proc(reserved: rawptr, co_init: COINIT) -> HRESULT ---
CoUninitialize :: proc() ---
CoCreateInstance :: proc(
rclsid: REFCLSID,
pUnkOuter: LPUNKNOWN,
dwClsContext: DWORD,
riid: REFIID,
ppv: ^LPVOID,
) -> HRESULT ---
CoTaskMemFree :: proc(pv: rawptr) ---
}
core/sys/windows/types.odin
+887 -36
View File
@@ -33,11 +33,15 @@ HGDIOBJ :: distinct HANDLE
HBITMAP :: distinct HANDLE
HGLOBAL :: distinct HANDLE
HHOOK :: distinct HANDLE
HKEY :: distinct HANDLE
HDESK :: distinct HANDLE
HFONT :: distinct HANDLE
BOOL :: distinct b32
BYTE :: distinct u8
BOOLEAN :: distinct b8
GROUP :: distinct c_uint
LARGE_INTEGER :: distinct c_longlong
ULARGE_INTEGER :: distinct c_ulonglong
LONG :: c_long
UINT :: c_uint
INT :: c_int
@@ -55,6 +59,7 @@ DWORD_PTR :: ULONG_PTR
LONG_PTR :: int
UINT_PTR :: uintptr
ULONG :: c_ulong
ULONGLONG :: c_ulonglong
UCHAR :: BYTE
NTSTATUS :: c.long
COLORREF :: DWORD
@@ -64,6 +69,8 @@ WPARAM :: UINT_PTR
LRESULT :: LONG_PTR
LPRECT :: ^RECT
LPPOINT :: ^POINT
LSTATUS :: LONG
PHKEY :: ^HKEY
UINT8 :: u8
UINT16 :: u16
@@ -117,6 +124,8 @@ LPWSADATA :: ^WSADATA
LPWSAPROTOCOL_INFO :: ^WSAPROTOCOL_INFO
LPSTR :: ^CHAR
LPWSTR :: ^WCHAR
OLECHAR :: WCHAR
LPOLESTR :: ^OLECHAR
LPFILETIME :: ^FILETIME
LPWSABUF :: ^WSABUF
LPWSAOVERLAPPED :: distinct rawptr
@@ -202,18 +211,11 @@ FILE_DELETE_CHILD : DWORD : 0x00000040
FILE_READ_ATTRIBUTES : DWORD : 0x00000080
FILE_WRITE_ATTRIBUTES : DWORD : 0x00000100
READ_CONTROL: DWORD : 0x00020000
SYNCHRONIZE: DWORD : 0x00100000
GENERIC_READ : DWORD : 0x80000000
GENERIC_WRITE : DWORD : 0x40000000
GENERIC_EXECUTE : DWORD : 0x20000000
GENERIC_ALL : DWORD : 0x10000000
STANDARD_RIGHTS_READ : DWORD : READ_CONTROL
STANDARD_RIGHTS_WRITE : DWORD : READ_CONTROL
STANDARD_RIGHTS_EXECUTE : DWORD : READ_CONTROL
FILE_GENERIC_WRITE: DWORD : STANDARD_RIGHTS_WRITE |
FILE_WRITE_DATA |
FILE_WRITE_ATTRIBUTES |
@@ -284,6 +286,385 @@ REASON_CONTEXT :: struct {
}
PREASON_CONTEXT :: ^REASON_CONTEXT
// RRF - Registry Routine Flags (for RegGetValue)
RRF_RT_REG_NONE :: 0x00000001
RRF_RT_REG_SZ :: 0x00000002
RRF_RT_REG_EXPAND_SZ :: 0x00000004
RRF_RT_REG_BINARY :: 0x00000008
RRF_RT_REG_DWORD :: 0x00000010
RRF_RT_REG_MULTI_SZ :: 0x00000020
RRF_RT_REG_QWORD :: 0x00000040
RRF_RT_DWORD :: (RRF_RT_REG_BINARY | RRF_RT_REG_DWORD)
RRF_RT_QWORD :: (RRF_RT_REG_BINARY | RRF_RT_REG_QWORD)
RRF_RT_ANY :: 0x0000ffff
RRF_NOEXPAND :: 0x10000000
RRF_ZEROONFAILURE :: 0x20000000
ACCESS_MASK :: DWORD
PACCESS_MASK :: ^ACCESS_MASK
REGSAM :: ACCESS_MASK
// Reserved Key Handles.
HKEY_CLASSES_ROOT :: HKEY(uintptr(0x80000000))
HKEY_CURRENT_USER :: HKEY(uintptr(0x80000001))
HKEY_LOCAL_MACHINE :: HKEY(uintptr(0x80000002))
HKEY_USERS :: HKEY(uintptr(0x80000003))
HKEY_PERFORMANCE_DATA :: HKEY(uintptr(0x80000004))
HKEY_PERFORMANCE_TEXT :: HKEY(uintptr(0x80000050))
HKEY_PERFORMANCE_NLSTEXT :: HKEY(uintptr(0x80000060))
HKEY_CURRENT_CONFIG :: HKEY(uintptr(0x80000005))
HKEY_DYN_DATA :: HKEY(uintptr(0x80000006))
HKEY_CURRENT_USER_LOCAL_SETTINGS :: HKEY(uintptr(0x80000007))
// The following are masks for the predefined standard access types
DELETE : DWORD : 0x00010000
READ_CONTROL : DWORD : 0x00020000
WRITE_DAC : DWORD : 0x00040000
WRITE_OWNER : DWORD : 0x00080000
SYNCHRONIZE : DWORD : 0x00100000
STANDARD_RIGHTS_REQUIRED : DWORD : 0x000F0000
STANDARD_RIGHTS_READ : DWORD : READ_CONTROL
STANDARD_RIGHTS_WRITE : DWORD : READ_CONTROL
STANDARD_RIGHTS_EXECUTE : DWORD : READ_CONTROL
STANDARD_RIGHTS_ALL : DWORD : 0x001F0000
SPECIFIC_RIGHTS_ALL : DWORD : 0x0000FFFF
// Registry Specific Access Rights.
KEY_QUERY_VALUE :: 0x0001
KEY_SET_VALUE :: 0x0002
KEY_CREATE_SUB_KEY :: 0x0004
KEY_ENUMERATE_SUB_KEYS :: 0x0008
KEY_NOTIFY :: 0x0010
KEY_CREATE_LINK :: 0x0020
KEY_WOW64_32KEY :: 0x0200
KEY_WOW64_64KEY :: 0x0100
KEY_WOW64_RES :: 0x0300
KEY_READ :: (STANDARD_RIGHTS_READ | KEY_QUERY_VALUE | KEY_ENUMERATE_SUB_KEYS | KEY_NOTIFY) & (~SYNCHRONIZE)
KEY_WRITE :: (STANDARD_RIGHTS_WRITE | KEY_SET_VALUE | KEY_CREATE_SUB_KEY) & (~SYNCHRONIZE)
KEY_EXECUTE :: (KEY_READ) & (~SYNCHRONIZE)
KEY_ALL_ACCESS :: (STANDARD_RIGHTS_ALL |
KEY_QUERY_VALUE |
KEY_SET_VALUE |
KEY_CREATE_SUB_KEY |
KEY_ENUMERATE_SUB_KEYS |
KEY_NOTIFY |
KEY_CREATE_LINK) & (~SYNCHRONIZE)
// Open/Create Options
REG_OPTION_RESERVED :: 0x00000000
REG_OPTION_NON_VOLATILE :: 0x00000000
REG_OPTION_VOLATILE :: 0x00000001
REG_OPTION_CREATE_LINK :: 0x00000002
REG_OPTION_BACKUP_RESTORE :: 0x00000004
REG_OPTION_OPEN_LINK :: 0x00000008
REG_OPTION_DONT_VIRTUALIZE :: 0x00000010
REG_LEGAL_OPTION :: REG_OPTION_RESERVED |
REG_OPTION_NON_VOLATILE |
REG_OPTION_VOLATILE |
REG_OPTION_CREATE_LINK |
REG_OPTION_BACKUP_RESTORE |
REG_OPTION_OPEN_LINK |
REG_OPTION_DONT_VIRTUALIZE
REG_OPEN_LEGAL_OPTION :: REG_OPTION_RESERVED |
REG_OPTION_BACKUP_RESTORE |
REG_OPTION_OPEN_LINK |
REG_OPTION_DONT_VIRTUALIZE
// Key creation/open disposition
REG_CREATED_NEW_KEY :: 0x00000001
REG_OPENED_EXISTING_KEY :: 0x00000002
// hive format to be used by Reg(Nt)SaveKeyEx
REG_STANDARD_FORMAT :: 1
REG_LATEST_FORMAT :: 2
REG_NO_COMPRESSION :: 4
// Key restore & hive load flags
REG_WHOLE_HIVE_VOLATILE :: 0x00000001
REG_REFRESH_HIVE :: 0x00000002
REG_NO_LAZY_FLUSH :: 0x00000004
REG_FORCE_RESTORE :: 0x00000008
REG_APP_HIVE :: 0x00000010
REG_PROCESS_PRIVATE :: 0x00000020
REG_START_JOURNAL :: 0x00000040
REG_HIVE_EXACT_FILE_GROWTH :: 0x00000080
REG_HIVE_NO_RM :: 0x00000100
REG_HIVE_SINGLE_LOG :: 0x00000200
REG_BOOT_HIVE :: 0x00000400
REG_LOAD_HIVE_OPEN_HANDLE :: 0x00000800
REG_FLUSH_HIVE_FILE_GROWTH :: 0x00001000
REG_OPEN_READ_ONLY :: 0x00002000
REG_IMMUTABLE :: 0x00004000
REG_NO_IMPERSONATION_FALLBACK :: 0x00008000
REG_APP_HIVE_OPEN_READ_ONLY :: REG_OPEN_READ_ONLY
// Unload Flags
REG_FORCE_UNLOAD :: 1
REG_UNLOAD_LEGAL_FLAGS :: REG_FORCE_UNLOAD
// Notify filter values
REG_NOTIFY_CHANGE_NAME :: 0x00000001
REG_NOTIFY_CHANGE_ATTRIBUTES :: 0x00000002
REG_NOTIFY_CHANGE_LAST_SET :: 0x00000004
REG_NOTIFY_CHANGE_SECURITY :: 0x00000008
REG_NOTIFY_THREAD_AGNOSTIC :: 0x10000000
REG_LEGAL_CHANGE_FILTER :: REG_NOTIFY_CHANGE_NAME |
REG_NOTIFY_CHANGE_ATTRIBUTES |
REG_NOTIFY_CHANGE_LAST_SET |
REG_NOTIFY_CHANGE_SECURITY |
REG_NOTIFY_THREAD_AGNOSTIC
// Predefined Value Types.
REG_NONE :: 0
REG_SZ :: 1
REG_EXPAND_SZ :: 2
REG_BINARY :: 3
REG_DWORD :: 4
REG_DWORD_LITTLE_ENDIAN :: 4
REG_DWORD_BIG_ENDIAN :: 5
REG_LINK :: 6
REG_MULTI_SZ :: 7
REG_RESOURCE_LIST :: 8
REG_FULL_RESOURCE_DESCRIPTOR :: 9
REG_RESOURCE_REQUIREMENTS_LIST :: 10
REG_QWORD :: 11
REG_QWORD_LITTLE_ENDIAN :: 11
BSMINFO :: struct {
cbSize: UINT,
hdesk: HDESK,
hwnd: HWND,
luid: LUID,
}
PBSMINFO :: ^BSMINFO
// Broadcast Special Message Recipient list
BSM_ALLCOMPONENTS :: 0x00000000
BSM_VXDS :: 0x00000001
BSM_NETDRIVER :: 0x00000002
BSM_INSTALLABLEDRIVERS :: 0x00000004
BSM_APPLICATIONS :: 0x00000008
BSM_ALLDESKTOPS :: 0x00000010
// Broadcast Special Message Flags
BSF_QUERY :: 0x00000001
BSF_IGNORECURRENTTASK :: 0x00000002
BSF_FLUSHDISK :: 0x00000004
BSF_NOHANG :: 0x00000008
BSF_POSTMESSAGE :: 0x00000010
BSF_FORCEIFHUNG :: 0x00000020
BSF_NOTIMEOUTIFNOTHUNG :: 0x00000040
BSF_ALLOWSFW :: 0x00000080
BSF_SENDNOTIFYMESSAGE :: 0x00000100
BSF_RETURNHDESK :: 0x00000200
BSF_LUID :: 0x00000400
BROADCAST_QUERY_DENY :: 0x424D5144
// Special HWND value for use with PostMessage() and SendMessage()
HWND_BROADCAST :: HWND(uintptr(0xffff))
HWND_MESSAGE :: HWND(~uintptr(0) - 2) // -3
// Color Types
CTLCOLOR_MSGBOX :: 0
CTLCOLOR_EDIT :: 1
CTLCOLOR_LISTBOX :: 2
CTLCOLOR_BTN :: 3
CTLCOLOR_DLG :: 4
CTLCOLOR_SCROLLBAR :: 5
CTLCOLOR_STATIC :: 6
CTLCOLOR_MAX :: 7
COLOR_SCROLLBAR :: 0
COLOR_BACKGROUND :: 1
COLOR_ACTIVECAPTION :: 2
COLOR_INACTIVECAPTION :: 3
COLOR_MENU :: 4
COLOR_WINDOW :: 5
COLOR_WINDOWFRAME :: 6
COLOR_MENUTEXT :: 7
COLOR_WINDOWTEXT :: 8
COLOR_CAPTIONTEXT :: 9
COLOR_ACTIVEBORDER :: 10
COLOR_INACTIVEBORDER :: 11
COLOR_APPWORKSPACE :: 12
COLOR_HIGHLIGHT :: 13
COLOR_HIGHLIGHTTEXT :: 14
COLOR_BTNFACE :: 15
COLOR_BTNSHADOW :: 16
COLOR_GRAYTEXT :: 17
COLOR_BTNTEXT :: 18
COLOR_INACTIVECAPTIONTEXT :: 19
COLOR_BTNHIGHLIGHT :: 20
COLOR_3DDKSHADOW :: 21
COLOR_3DLIGHT :: 22
COLOR_INFOTEXT :: 23
COLOR_INFOBK :: 24
COLOR_HOTLIGHT :: 26
COLOR_GRADIENTACTIVECAPTION :: 27
COLOR_GRADIENTINACTIVECAPTION :: 28
COLOR_MENUHILIGHT :: 29
COLOR_MENUBAR :: 30
COLOR_DESKTOP :: COLOR_BACKGROUND
COLOR_3DFACE :: COLOR_BTNFACE
COLOR_3DSHADOW :: COLOR_BTNSHADOW
COLOR_3DHIGHLIGHT :: COLOR_BTNHIGHLIGHT
COLOR_3DHILIGHT :: COLOR_BTNHIGHLIGHT
COLOR_BTNHILIGHT :: COLOR_BTNHIGHLIGHT
// Combo Box Notification Codes
CBN_ERRSPACE :: -1
CBN_SELCHANGE :: 1
CBN_DBLCLK :: 2
CBN_SETFOCUS :: 3
CBN_KILLFOCUS :: 4
CBN_EDITCHANGE :: 5
CBN_EDITUPDATE :: 6
CBN_DROPDOWN :: 7
CBN_CLOSEUP :: 8
CBN_SELENDOK :: 9
CBN_SELENDCANCEL :: 10
// Combo Box styles
CBS_SIMPLE :: 0x0001
CBS_DROPDOWN :: 0x0002
CBS_DROPDOWNLIST :: 0x0003
CBS_OWNERDRAWFIXED :: 0x0010
CBS_OWNERDRAWVARIABLE :: 0x0020
CBS_AUTOHSCROLL :: 0x0040
CBS_OEMCONVERT :: 0x0080
CBS_SORT :: 0x0100
CBS_HASSTRINGS :: 0x0200
CBS_NOINTEGRALHEIGHT :: 0x0400
CBS_DISABLENOSCROLL :: 0x0800
CBS_UPPERCASE :: 0x2000
CBS_LOWERCASE :: 0x4000
// User Button Notification Codes
BN_CLICKED :: 0
BN_PAINT :: 1
BN_HILITE :: 2
BN_UNHILITE :: 3
BN_DISABLE :: 4
BN_DOUBLECLICKED :: 5
BN_PUSHED :: BN_HILITE
BN_UNPUSHED :: BN_UNHILITE
BN_DBLCLK :: BN_DOUBLECLICKED
BN_SETFOCUS :: 6
BN_KILLFOCUS :: 7
// Button Control Styles
BS_PUSHBUTTON :: 0x00000000
BS_DEFPUSHBUTTON :: 0x00000001
BS_CHECKBOX :: 0x00000002
BS_AUTOCHECKBOX :: 0x00000003
BS_RADIOBUTTON :: 0x00000004
BS_3STATE :: 0x00000005
BS_AUTO3STATE :: 0x00000006
BS_GROUPBOX :: 0x00000007
BS_USERBUTTON :: 0x00000008
BS_AUTORADIOBUTTON :: 0x00000009
BS_PUSHBOX :: 0x0000000A
BS_OWNERDRAW :: 0x0000000B
BS_TYPEMASK :: 0x0000000F
BS_LEFTTEXT :: 0x00000020
BS_TEXT :: 0x00000000
BS_ICON :: 0x00000040
BS_BITMAP :: 0x00000080
BS_LEFT :: 0x00000100
BS_RIGHT :: 0x00000200
BS_CENTER :: 0x00000300
BS_TOP :: 0x00000400
BS_BOTTOM :: 0x00000800
BS_VCENTER :: 0x00000C00
BS_PUSHLIKE :: 0x00001000
BS_MULTILINE :: 0x00002000
BS_NOTIFY :: 0x00004000
BS_FLAT :: 0x00008000
BS_RIGHTBUTTON :: BS_LEFTTEXT
// Button Control Messages
BST_UNCHECKED :: 0x0000
BST_CHECKED :: 0x0001
BST_INDETERMINATE :: 0x0002
BST_PUSHED :: 0x0004
BST_FOCUS :: 0x0008
// Static Control Constants
SS_LEFT :: 0x00000000
SS_CENTER :: 0x00000001
SS_RIGHT :: 0x00000002
SS_ICON :: 0x00000003
SS_BLACKRECT :: 0x00000004
SS_GRAYRECT :: 0x00000005
SS_WHITERECT :: 0x00000006
SS_BLACKFRAME :: 0x00000007
SS_GRAYFRAME :: 0x00000008
SS_WHITEFRAME :: 0x00000009
SS_USERITEM :: 0x0000000A
SS_SIMPLE :: 0x0000000B
SS_LEFTNOWORDWRAP :: 0x0000000C
SS_OWNERDRAW :: 0x0000000D
SS_BITMAP :: 0x0000000E
SS_ENHMETAFILE :: 0x0000000F
SS_ETCHEDHORZ :: 0x00000010
SS_ETCHEDVERT :: 0x00000011
SS_ETCHEDFRAME :: 0x00000012
SS_TYPEMASK :: 0x0000001F
SS_REALSIZECONTROL :: 0x00000040
SS_NOPREFIX :: 0x00000080
SS_NOTIFY :: 0x00000100
SS_CENTERIMAGE :: 0x00000200
SS_RIGHTJUST :: 0x00000400
SS_REALSIZEIMAGE :: 0x00000800
SS_SUNKEN :: 0x00001000
SS_EDITCONTROL :: 0x00002000
SS_ENDELLIPSIS :: 0x00004000
SS_PATHELLIPSIS :: 0x00008000
SS_WORDELLIPSIS :: 0x0000C000
SS_ELLIPSISMASK :: 0x0000C000
// Edit Control Styles
ES_LEFT :: 0x0000
ES_CENTER :: 0x0001
ES_RIGHT :: 0x0002
ES_MULTILINE :: 0x0004
ES_UPPERCASE :: 0x0008
ES_LOWERCASE :: 0x0010
ES_PASSWORD :: 0x0020
ES_AUTOVSCROLL :: 0x0040
ES_AUTOHSCROLL :: 0x0080
ES_NOHIDESEL :: 0x0100
ES_OEMCONVERT :: 0x0400
ES_READONLY :: 0x0800
ES_WANTRETURN :: 0x1000
ES_NUMBER :: 0x2000
// Font Weights
FW_DONTCARE :: 0
FW_THIN :: 100
FW_EXTRALIGHT :: 200
FW_LIGHT :: 300
FW_NORMAL :: 400
FW_MEDIUM :: 500
FW_SEMIBOLD :: 600
FW_BOLD :: 700
FW_EXTRABOLD :: 800
FW_HEAVY :: 900
FW_ULTRALIGHT :: FW_EXTRALIGHT
FW_REGULAR :: FW_NORMAL
FW_DEMIBOLD :: FW_SEMIBOLD
FW_ULTRABOLD :: FW_EXTRABOLD
FW_BLACK :: FW_HEAVY
PTIMERAPCROUTINE :: #type proc "stdcall" (lpArgToCompletionRoutine: LPVOID, dwTimerLowValue, dwTimerHighValue: DWORD)
TIMERPROC :: #type proc "stdcall" (HWND, UINT, UINT_PTR, DWORD)
@@ -373,6 +754,8 @@ MSG :: struct {
pt: POINT,
}
LPMSG :: ^MSG
PAINTSTRUCT :: struct {
hdc: HDC,
fErase: BOOL,
@@ -1195,34 +1578,6 @@ STD_ERROR_HANDLE: DWORD : ~DWORD(0) -12 + 1
PROGRESS_CONTINUE: DWORD : 0
ERROR_FILE_NOT_FOUND: DWORD : 2
ERROR_PATH_NOT_FOUND: DWORD : 3
ERROR_ACCESS_DENIED: DWORD : 5
ERROR_NOT_ENOUGH_MEMORY: DWORD : 8
ERROR_INVALID_HANDLE: DWORD : 6
ERROR_NO_MORE_FILES: DWORD : 18
ERROR_SHARING_VIOLATION: DWORD : 32
ERROR_LOCK_VIOLATION: DWORD : 33
ERROR_HANDLE_EOF: DWORD : 38
ERROR_NOT_SUPPORTED: DWORD : 50
ERROR_FILE_EXISTS: DWORD : 80
ERROR_INVALID_PARAMETER: DWORD : 87
ERROR_BROKEN_PIPE: DWORD : 109
ERROR_CALL_NOT_IMPLEMENTED: DWORD : 120
ERROR_INSUFFICIENT_BUFFER: DWORD : 122
ERROR_INVALID_NAME: DWORD : 123
ERROR_BAD_ARGUMENTS: DWORD: 160
ERROR_LOCK_FAILED: DWORD : 167
ERROR_ALREADY_EXISTS: DWORD : 183
ERROR_NO_DATA: DWORD : 232
ERROR_ENVVAR_NOT_FOUND: DWORD : 203
ERROR_OPERATION_ABORTED: DWORD : 995
ERROR_IO_PENDING: DWORD : 997
ERROR_TIMEOUT: DWORD : 0x5B4
ERROR_NO_UNICODE_TRANSLATION: DWORD : 1113
E_NOTIMPL :: HRESULT(-0x7fff_bfff) // 0x8000_4001
INVALID_HANDLE :: HANDLE(~uintptr(0))
INVALID_HANDLE_VALUE :: INVALID_HANDLE
@@ -1551,7 +1906,41 @@ PGUID :: ^GUID
PCGUID :: ^GUID
LPGUID :: ^GUID
LPCGUID :: ^GUID
REFIID :: ^GUID
REFGUID :: GUID
IID :: GUID
CLSID :: GUID
REFCLSID :: ^CLSID
CLSCTX_INPROC_SERVER :: 0x1
CLSCTX_INPROC_HANDLER :: 0x2
CLSCTX_LOCAL_SERVER :: 0x4
CLSCTX_INPROC_SERVER16 :: 0x8
CLSCTX_REMOTE_SERVER :: 0x10
CLSCTX_INPROC_HANDLER16 :: 0x20
CLSCTX_RESERVED1 :: 0x40
CLSCTX_RESERVED2 :: 0x80
CLSCTX_RESERVED3 :: 0x100
CLSCTX_RESERVED4 :: 0x200
CLSCTX_NO_CODE_DOWNLOAD :: 0x400
CLSCTX_RESERVED5 :: 0x800
CLSCTX_NO_CUSTOM_MARSHAL :: 0x1000
CLSCTX_ENABLE_CODE_DOWNLOAD :: 0x2000
CLSCTX_NO_FAILURE_LOG :: 0x4000
CLSCTX_DISABLE_AAA :: 0x8000
CLSCTX_ENABLE_AAA :: 0x10000
CLSCTX_FROM_DEFAULT_CONTEXT :: 0x20000
CLSCTX_ACTIVATE_X86_SERVER :: 0x40000
CLSCTX_ACTIVATE_32_BIT_SERVER :: CLSCTX_ACTIVATE_X86_SERVER
CLSCTX_ACTIVATE_64_BIT_SERVER :: 0x80000
CLSCTX_ENABLE_CLOAKING :: 0x100000
CLSCTX_APPCONTAINER :: 0x400000
CLSCTX_ACTIVATE_AAA_AS_IU :: 0x800000
CLSCTX_RESERVED6 :: 0x1000000
CLSCTX_ACTIVATE_ARM32_SERVER :: 0x2000000
CLSCTX_ALLOW_LOWER_TRUST_REGISTRATION :: 0x4000000
CLSCTX_PS_DLL :: 0x80000000
WSAPROTOCOLCHAIN :: struct {
ChainLen: c_int,
@@ -2398,4 +2787,466 @@ IMAGE_EXPORT_DIRECTORY :: struct {
AddressOfFunctions: DWORD, // RVA from base of image
AddressOfNames: DWORD, // RVA from base of image
AddressOfNameOrdinals: DWORD, // RVA from base of image
}
}
SICHINTF :: DWORD
SHCONTF :: DWORD
SFGAOF :: ULONG
FILEOPENDIALOGOPTIONS :: DWORD
REFPROPERTYKEY :: ^PROPERTYKEY
REFPROPVARIANT :: ^PROPVARIANT
SIGDN :: enum c_int {
NORMALDISPLAY = 0,
PARENTRELATIVEPARSING = -2147385343, // 0x80018001
DESKTOPABSOLUTEPARSING = -2147319808, // 0x80028000
PARENTRELATIVEEDITING = -2147282943, // 0x80031001
DESKTOPABSOLUTEEDITING = -2147172352, // 0x8004c000
FILESYSPATH = -2147123200, // 0x80058000
URL = -2147057664, // 0x80068000
PARENTRELATIVEFORADDRESSBAR = -2146975743, // 0x8007c001
PARENTRELATIVE = -2146959359, // 0x80080001
PARENTRELATIVEFORUI = -2146877439, // 0x80094001
}
SIATTRIBFLAGS :: enum c_int {
AND = 0x1,
OR = 0x2,
APPCOMPAT = 0x3,
MASK = 0x3,
ALLITEMS = 0x4000,
}
FDAP :: enum c_int {
BOTTOM = 0,
TOP = 1,
}
FDE_SHAREVIOLATION_RESPONSE :: enum c_int {
DEFAULT = 0,
ACCEPT = 1,
REFUSE = 2,
}
GETPROPERTYSTOREFLAGS :: enum c_int {
DEFAULT = 0,
HANDLERPROPERTIESONLY = 0x1,
READWRITE = 0x2,
TEMPORARY = 0x4,
FASTPROPERTIESONLY = 0x8,
OPENSLOWITEM = 0x10,
DELAYCREATION = 0x20,
BESTEFFORT = 0x40,
NO_OPLOCK = 0x80,
PREFERQUERYPROPERTIES = 0x100,
EXTRINSICPROPERTIES = 0x200,
EXTRINSICPROPERTIESONLY = 0x400,
VOLATILEPROPERTIES = 0x800,
VOLATILEPROPERTIESONLY = 0x1000,
MASK_VALID = 0x1fff,
}
PROPERTYKEY :: struct {
fmtid: GUID,
pid: DWORD,
}
BIND_OPTS :: struct {
cbStruct: DWORD,
grfFlags: DWORD,
grfMode: DWORD,
dwTickCountDeadline: DWORD,
}
STATSTG :: struct {
pwcsName: LPOLESTR,
type: DWORD,
cbSize: ULARGE_INTEGER,
mtime: FILETIME,
ctime: FILETIME,
atime: FILETIME,
grfMode: DWORD,
grfLocksSupported: DWORD,
clsid: CLSID,
grfStateBits: DWORD,
reserved: DWORD,
}
COMDLG_FILTERSPEC :: struct {
pszName, pszSpec: LPCWSTR,
}
DECIMAL :: struct {
wReserved: USHORT,
_: struct #raw_union {
_: struct {
scale, sign: BYTE,
},
signscale: USHORT,
},
Hi32: ULONG,
_: struct #raw_union {
_: struct {
Lo32, Mid32: ULONG,
},
Lo64: ULONGLONG,
},
}
// NOTE(ftphikari): bigger definition of this struct is ignored
PROPVARIANT :: struct {
decVal: DECIMAL,
}
SICHINT_DISPLAY :: 0
SICHINT_ALLFIELDS :: -2147483648 // 0x80000000
SICHINT_CANONICAL :: 0x10000000
SICHINT_TEST_FILESYSPATH_IF_NOT_EQUAL :: 0x20000000
FOS_OVERWRITEPROMPT :: 0x2
FOS_STRICTFILETYPES :: 0x4
FOS_NOCHANGEDIR :: 0x8
FOS_PICKFOLDERS :: 0x20
FOS_FORCEFILESYSTEM :: 0x40
FOS_ALLNONSTORAGEITEMS :: 0x80
FOS_NOVALIDATE :: 0x100
FOS_ALLOWMULTISELECT :: 0x200
FOS_PATHMUSTEXIST :: 0x800
FOS_FILEMUSTEXIST :: 0x1000
FOS_CREATEPROMPT :: 0x2000
FOS_SHAREAWARE :: 0x4000
FOS_NOREADONLYRETURN :: 0x8000
FOS_NOTESTFILECREATE :: 0x10000
FOS_HIDEMRUPLACES :: 0x20000
FOS_HIDEPINNEDPLACES :: 0x40000
FOS_NODEREFERENCELINKS :: 0x100000
FOS_OKBUTTONNEEDSINTERACTION :: 0x200000
FOS_DONTADDTORECENT :: 0x2000000
FOS_FORCESHOWHIDDEN :: 0x10000000
FOS_DEFAULTNOMINIMODE :: 0x20000000
FOS_FORCEPREVIEWPANEON :: 0x40000000
FOS_SUPPORTSTREAMABLEITEMS :: 0x80000000
SHCONTF_CHECKING_FOR_CHILDREN :: 0x10
SHCONTF_FOLDERS :: 0x20
SHCONTF_NONFOLDERS :: 0x40
SHCONTF_INCLUDEHIDDEN :: 0x80
SHCONTF_INIT_ON_FIRST_NEXT :: 0x100
SHCONTF_NETPRINTERSRCH :: 0x200
SHCONTF_SHAREABLE :: 0x400
SHCONTF_STORAGE :: 0x800
SHCONTF_NAVIGATION_ENUM :: 0x1000
SHCONTF_FASTITEMS :: 0x2000
SHCONTF_FLATLIST :: 0x4000
SHCONTF_ENABLE_ASYNC :: 0x8000
SHCONTF_INCLUDESUPERHIDDEN :: 0x10000
CLSID_FileOpenDialog := &GUID{0xDC1C5A9C, 0xE88A, 0x4DDE, {0xA5, 0xA1, 0x60, 0xF8, 0x2A, 0x20, 0xAE, 0xF7}}
CLSID_FileSaveDialog := &GUID{0xC0B4E2F3, 0xBA21, 0x4773, {0x8D, 0xBA, 0x33, 0x5E, 0xC9, 0x46, 0xEB, 0x8B}}
IID_IFileDialog := &GUID{0x42F85136, 0xDB7E, 0x439C, {0x85, 0xF1, 0xE4, 0x07, 0x5D, 0x13, 0x5F, 0xC8}}
IID_IFileSaveDialog := &GUID{0x84BCCD23, 0x5FDE, 0x4CDB, {0xAE, 0xA4, 0xAF, 0x64, 0xB8, 0x3D, 0x78, 0xAB}}
IID_IFileOpenDialog := &GUID{0xD57C7288, 0xD4AD, 0x4768, {0xBE, 0x02, 0x9D, 0x96, 0x95, 0x32, 0xD9, 0x60}}
IModalWindow :: struct #raw_union {
#subtype IUnknown: IUnknown,
using Vtbl: ^IModalWindowVtbl,
}
IModalWindowVtbl :: struct {
using IUnknownVtbl: IUnknownVtbl,
Show: proc "stdcall" (this: ^IModalWindow, hwndOwner: HWND) -> HRESULT,
}
ISequentialStream :: struct #raw_union {
#subtype IUnknown: IUnknown,
using Vtbl: ^ISequentialStreamVtbl,
}
ISequentialStreamVtbl :: struct {
using IUnknownVtbl: IUnknownVtbl,
Read: proc "stdcall" (this: ^ISequentialStream, pv: rawptr, cb: ULONG, pcbRead: ^ULONG) -> HRESULT,
Write: proc "stdcall" (this: ^ISequentialStream, pv: rawptr, cb: ULONG, pcbWritten: ^ULONG) -> HRESULT,
}
IStream :: struct #raw_union {
#subtype ISequentialStream: ISequentialStream,
using Vtbl: ^IStreamVtbl,
}
IStreamVtbl :: struct {
using ISequentialStreamVtbl: ISequentialStreamVtbl,
Seek: proc "stdcall" (this: ^IStream, dlibMove: LARGE_INTEGER, dwOrigin: DWORD, plibNewPosition: ^ULARGE_INTEGER) -> HRESULT,
SetSize: proc "stdcall" (this: ^IStream, libNewSize: ULARGE_INTEGER) -> HRESULT,
CopyTo: proc "stdcall" (this: ^IStream, pstm: ^IStream, cb: ULARGE_INTEGER, pcbRead: ^ULARGE_INTEGER, pcbWritten: ^ULARGE_INTEGER) -> HRESULT,
Commit: proc "stdcall" (this: ^IStream, grfCommitFlags: DWORD) -> HRESULT,
Revert: proc "stdcall" (this: ^IStream) -> HRESULT,
LockRegion: proc "stdcall" (this: ^IStream, libOffset: ULARGE_INTEGER, cb: ULARGE_INTEGER, dwLockType: DWORD) -> HRESULT,
UnlockRegion: proc "stdcall" (this: ^IStream, libOffset: ULARGE_INTEGER, cb: ULARGE_INTEGER, dwLockType: DWORD) -> HRESULT,
Stat: proc "stdcall" (this: ^IStream, pstatstg: ^STATSTG, grfStatFlag: DWORD) -> HRESULT,
Clone: proc "stdcall" (this: ^IStream, ppstm: ^^IStream) -> HRESULT,
}
IPersist :: struct #raw_union {
#subtype IUnknown: IUnknown,
using Vtbl: ^IPersistVtbl,
}
IPersistVtbl :: struct {
using IUnknownVtbl: IUnknownVtbl,
GetClassID: proc "stdcall" (this: ^IPersist, pClassID: ^CLSID) -> HRESULT,
}
IPersistStream :: struct #raw_union {
#subtype IPersist: IPersist,
using Vtbl: ^IPersistStreamVtbl,
}
IPersistStreamVtbl :: struct {
using IPersistVtbl: IPersistVtbl,
IsDirty: proc "stdcall" (this: ^IPersistStream) -> HRESULT,
Load: proc "stdcall" (this: ^IPersistStream, pStm: ^IStream) -> HRESULT,
Save: proc "stdcall" (this: ^IPersistStream, pStm: ^IStream, fClearDirty: BOOL) -> HRESULT,
GetSizeMax: proc "stdcall" (this: ^IPersistStream, pcbSize: ^ULARGE_INTEGER) -> HRESULT,
}
IMoniker :: struct #raw_union {
#subtype IPersistStream: IPersistStream,
using Vtbl: ^IMonikerVtbl,
}
IMonikerVtbl :: struct {
using IPersistStreamVtbl: IPersistStreamVtbl,
BindToObject: proc "stdcall" (this: ^IMoniker, pbc: ^IBindCtx, pmkToLeft: ^IMoniker, riidResult: REFIID, ppvResult: ^rawptr) -> HRESULT,
BindToStorage: proc "stdcall" (this: ^IMoniker, pbc: ^IBindCtx, pmkToLeft: ^IMoniker, riid: REFIID, ppvObj: ^rawptr) -> HRESULT,
Reduce: proc "stdcall" (this: ^IMoniker, pbc: ^IBindCtx, dwReduceHowFar: DWORD, ppmkToLeft: ^^IMoniker, ppmkReduced: ^^IMoniker) -> HRESULT,
ComposeWith: proc "stdcall" (this: ^IMoniker, pmkRight: ^IMoniker, fOnlyIfNotGeneric: BOOL, ppmkComposite: ^^IMoniker) -> HRESULT,
Enum: proc "stdcall" (this: ^IMoniker, fForward: BOOL, ppenumMoniker: ^^IEnumMoniker) -> HRESULT,
IsEqual: proc "stdcall" (this: ^IMoniker, pmkOtherMoniker: ^IMoniker) -> HRESULT,
Hash: proc "stdcall" (this: ^IMoniker, pdwHash: ^DWORD) -> HRESULT,
IsRunning: proc "stdcall" (this: ^IMoniker, pbc: ^IBindCtx, pmkToLeft: ^IMoniker, pmkNewlyRunning: ^IMoniker) -> HRESULT,
GetTimeOfLastChange: proc "stdcall" (this: ^IMoniker, pbc: ^IBindCtx, pmkToLeft: ^IMoniker, pFileTime: ^FILETIME) -> HRESULT,
Inverse: proc "stdcall" (this: ^IMoniker, ppmk: ^^IMoniker) -> HRESULT,
CommonPrefixWith: proc "stdcall" (this: ^IMoniker, pmkOther: ^IMoniker, ppmkPrefix: ^^IMoniker) -> HRESULT,
RelativePathTo: proc "stdcall" (this: ^IMoniker, pmkOther: ^IMoniker, ppmkRelPath: ^^IMoniker) -> HRESULT,
GetDisplayName: proc "stdcall" (this: ^IMoniker, pbc: ^IBindCtx, pmkToLeft: ^IMoniker, ppszDisplayName: ^LPOLESTR) -> HRESULT,
ParseDisplayName: proc "stdcall" (this: ^IMoniker, pbc: ^IBindCtx, pmkToLeft: ^IMoniker, pszDisplayName: LPOLESTR, pchEaten: ^ULONG, ppmkOut: ^^IMoniker) -> HRESULT,
IsSystemMoniker: proc "stdcall" (this: ^IMoniker, pdwMksys: ^DWORD) -> HRESULT,
}
IEnumMoniker :: struct #raw_union {
#subtype IUnknown: IUnknown,
using Vtbl: ^IEnumMonikerVtbl,
}
IEnumMonikerVtbl :: struct {
using IUnknownVtbl: IUnknownVtbl,
Next: proc "stdcall" (this: ^IEnumMoniker, celt: ULONG, rgelt: ^^IMoniker, pceltFetched: ^ULONG) -> HRESULT,
Skip: proc "stdcall" (this: ^IEnumMoniker, celt: ULONG) -> HRESULT,
Reset: proc "stdcall" (this: ^IEnumMoniker) -> HRESULT,
Clone: proc "stdcall" (this: ^IEnumMoniker, ppenum: ^^IEnumMoniker) -> HRESULT,
}
IRunningObjectTable :: struct #raw_union {
#subtype IUnknown: IUnknown,
using Vtbl: ^IRunningObjectTableVtbl,
}
IRunningObjectTableVtbl :: struct {
using IUnknownVtbl: IUnknownVtbl,
Register: proc "stdcall" (this: ^IRunningObjectTable, grfFlags: DWORD, punkObject: ^IUnknown, pmkObjectName: ^IMoniker, pdwRegister: ^DWORD) -> HRESULT,
Revoke: proc "stdcall" (this: ^IRunningObjectTable, dwRegister: DWORD) -> HRESULT,
IsRunning: proc "stdcall" (this: ^IRunningObjectTable, pmkObjectName: ^IMoniker) -> HRESULT,
GetObject: proc "stdcall" (this: ^IRunningObjectTable, pmkObjectName: ^IMoniker, ppunkObject: ^^IUnknown) -> HRESULT,
NoteChangeTime: proc "stdcall" (this: ^IRunningObjectTable, dwRegister: DWORD, pfiletime: ^FILETIME) -> HRESULT,
GetTimeOfLastChange: proc "stdcall" (this: ^IRunningObjectTable, pmkObjectName: ^IMoniker, pfiletime: ^FILETIME) -> HRESULT,
EnumRunning: proc "stdcall" (this: ^IRunningObjectTable, ppenumMoniker: ^^IEnumMoniker) -> HRESULT,
}
IEnumString :: struct #raw_union {
#subtype IUnknown: IUnknown,
using Vtbl: ^IEnumStringVtbl,
}
IEnumStringVtbl :: struct {
using IUnknownVtbl: IUnknownVtbl,
Next: proc "stdcall" (this: ^IEnumString, celt: ULONG, rgelt: ^LPOLESTR, pceltFetched: ^ULONG) -> HRESULT,
Skip: proc "stdcall" (this: ^IEnumString, celt: ULONG) -> HRESULT,
Reset: proc "stdcall" (this: ^IEnumString) -> HRESULT,
Clone: proc "stdcall" (this: ^IEnumString, ppenum: ^^IEnumString) -> HRESULT,
}
IBindCtx :: struct #raw_union {
#subtype IUnknown: IUnknown,
using Vtbl: ^IBindCtxVtbl,
}
IBindCtxVtbl :: struct {
using IUnknownVtbl: IUnknownVtbl,
RegisterObjectBound: proc "stdcall" (this: ^IBindCtx, punk: ^IUnknown) -> HRESULT,
RevokeObjectBound: proc "stdcall" (this: ^IBindCtx, punk: ^IUnknown) -> HRESULT,
ReleaseBoundObjects: proc "stdcall" (this: ^IBindCtx) -> HRESULT,
SetBindOptions: proc "stdcall" (this: ^IBindCtx, pbindopts: ^BIND_OPTS) -> HRESULT,
GetBindOptions: proc "stdcall" (this: ^IBindCtx, pbindopts: ^BIND_OPTS) -> HRESULT,
GetRunningObjectTable: proc "stdcall" (this: ^IBindCtx, pprot: ^^IRunningObjectTable) -> HRESULT,
RegisterObjectParam: proc "stdcall" (this: ^IBindCtx, pszKey: LPOLESTR, punk: ^IUnknown) -> HRESULT,
GetObjectParam: proc "stdcall" (this: ^IBindCtx, pszKey: LPOLESTR, ppunk: ^^IUnknown) -> HRESULT,
EnumObjectParam: proc "stdcall" (this: ^IBindCtx, ppenum: ^^IEnumString) -> HRESULT,
RevokeObjectParam: proc "stdcall" (this: ^IBindCtx, pszKey: LPOLESTR) -> HRESULT,
}
IEnumShellItems :: struct #raw_union {
#subtype IUnknown: IUnknown,
using Vtbl: ^IEnumShellItemsVtbl,
}
IEnumShellItemsVtbl :: struct {
using IUnknownVtbl: IUnknownVtbl,
Next: proc "stdcall" (this: ^IEnumShellItems, celt: ULONG, rgelt: ^^IShellItem, pceltFetched: ^ULONG) -> HRESULT,
Skip: proc "stdcall" (this: ^IEnumShellItems, celt: ULONG) -> HRESULT,
Reset: proc "stdcall" (this: ^IEnumShellItems) -> HRESULT,
Clone: proc "stdcall" (this: ^IEnumShellItems, ppenum: ^^IEnumShellItems) -> HRESULT,
}
IShellItem :: struct #raw_union {
#subtype IUnknown: IUnknown,
using Vtbl: ^IShellItemVtbl,
}
IShellItemVtbl :: struct {
using IUnknownVtbl: IUnknownVtbl,
BindToHandler: proc "stdcall" (this: ^IShellItem, pbc: ^IBindCtx, bhid: REFGUID, riid: REFIID, ppv: ^rawptr) -> HRESULT,
GetParent: proc "stdcall" (this: ^IShellItem, ppsiFolder: ^^IShellItem) -> HRESULT,
GetDisplayName: proc "stdcall" (this: ^IShellItem, sigdnName: SIGDN, ppszName: ^LPWSTR) -> HRESULT,
GetAttributes: proc "stdcall" (this: ^IShellItem, sfgaoMask: SFGAOF, psfgaoAttribs: ^SFGAOF) -> HRESULT,
Compare: proc "stdcall" (this: ^IShellItem, psi: ^IShellItem, hint: SICHINTF, piOrder: ^c_int) -> HRESULT,
}
IShellItemArray :: struct #raw_union {
#subtype IUnknown: IUnknown,
using Vtbl: ^IShellItemArrayVtbl,
}
IShellItemArrayVtbl :: struct {
using IUnknownVtbl: IUnknownVtbl,
BindToHandler: proc "stdcall" (this: ^IShellItemArray, pbc: ^IBindCtx, bhid: REFGUID, riid: REFIID, ppvOut: ^rawptr) -> HRESULT,
GetPropertyStore: proc "stdcall" (this: ^IShellItemArray, flags: GETPROPERTYSTOREFLAGS, riid: REFIID, ppv: ^rawptr) -> HRESULT,
GetPropertyDescriptionList: proc "stdcall" (this: ^IShellItemArray, keyType: REFPROPERTYKEY, riid: REFIID, ppv: ^rawptr) -> HRESULT,
GetAttributes: proc "stdcall" (this: ^IShellItemArray, AttribFlags: SIATTRIBFLAGS, sfgaoMask: SFGAOF, psfgaoAttribs: ^SFGAOF) -> HRESULT,
GetCount: proc "stdcall" (this: ^IShellItemArray, pdwNumItems: ^DWORD) -> HRESULT,
GetItemAt: proc "stdcall" (this: ^IShellItemArray, dwIndex: DWORD, ppsi: ^^IShellItem) -> HRESULT,
EnumItems: proc "stdcall" (this: ^IShellItemArray, ppenumShellItems: ^^IEnumShellItems) -> HRESULT,
}
IFileDialogEvents :: struct #raw_union {
#subtype IUnknown: IUnknown,
using Vtbl: ^IFileDialogEventsVtbl,
}
IFileDialogEventsVtbl :: struct {
using IUnknownVtbl: IUnknownVtbl,
OnFileOk: proc "stdcall" (this: ^IFileDialogEvents, pfd: ^IFileDialog) -> HRESULT,
OnFolderChanging: proc "stdcall" (this: ^IFileDialogEvents, pfd: ^IFileDialog, psiFolder: ^IShellItem) -> HRESULT,
OnFolderChange: proc "stdcall" (this: ^IFileDialogEvents, pfd: ^IFileDialog) -> HRESULT,
OnSelectionChange: proc "stdcall" (this: ^IFileDialogEvents, pfd: ^IFileDialog) -> HRESULT,
OnShareViolation: proc "stdcall" (this: ^IFileDialogEvents, pfd: ^IFileDialog, psi: ^IShellItem, pResponse: ^FDE_SHAREVIOLATION_RESPONSE) -> HRESULT,
OnTypeChange: proc "stdcall" (this: ^IFileDialogEvents, pfd: ^IFileDialog) -> HRESULT,
OnOverwrite: proc "stdcall" (this: ^IFileDialogEvents, pfd: ^IFileDialog, psi: ^IShellItem, pResponse: ^FDE_SHAREVIOLATION_RESPONSE) -> HRESULT,
}
IShellItemFilter :: struct #raw_union {
#subtype IUnknown: IUnknown,
using Vtbl: ^IShellItemFilterVtbl,
}
IShellItemFilterVtbl :: struct {
using IUnknownVtbl: IUnknownVtbl,
IncludeItem: proc "stdcall" (this: ^IShellItemFilter, psi: ^IShellItem) -> HRESULT,
GetEnumFlagsForItem: proc "stdcall" (this: ^IShellItemFilter, psi: ^IShellItem, pgrfFlags: ^SHCONTF) -> HRESULT,
}
IFileDialog :: struct #raw_union {
#subtype IModalWindow: IModalWindow,
using Vtbl: ^IFileDialogVtbl,
}
IFileDialogVtbl :: struct {
using IModalWindowVtbl: IModalWindowVtbl,
SetFileTypes: proc "stdcall" (this: ^IFileDialog, cFileTypes: UINT, rgFilterSpec: ^COMDLG_FILTERSPEC) -> HRESULT,
SetFileTypeIndex: proc "stdcall" (this: ^IFileDialog, iFileType: UINT) -> HRESULT,
GetFileTypeIndex: proc "stdcall" (this: ^IFileDialog, piFileType: ^UINT) -> HRESULT,
Advise: proc "stdcall" (this: ^IFileDialog, pfde: ^IFileDialogEvents, pdwCookie: ^DWORD) -> HRESULT,
Unadvise: proc "stdcall" (this: ^IFileDialog, dwCookie: DWORD) -> HRESULT,
SetOptions: proc "stdcall" (this: ^IFileDialog, fos: FILEOPENDIALOGOPTIONS) -> HRESULT,
GetOptions: proc "stdcall" (this: ^IFileDialog, pfos: ^FILEOPENDIALOGOPTIONS) -> HRESULT,
SetDefaultFolder: proc "stdcall" (this: ^IFileDialog, psi: ^IShellItem) -> HRESULT,
SetFolder: proc "stdcall" (this: ^IFileDialog, psi: ^IShellItem) -> HRESULT,
GetFolder: proc "stdcall" (this: ^IFileDialog, ppsi: ^^IShellItem) -> HRESULT,
GetCurrentSelection: proc "stdcall" (this: ^IFileDialog, ppsi: ^^IShellItem) -> HRESULT,
SetFileName: proc "stdcall" (this: ^IFileDialog, pszName: LPCWSTR) -> HRESULT,
GetFileName: proc "stdcall" (this: ^IFileDialog, pszName: ^LPCWSTR) -> HRESULT,
SetTitle: proc "stdcall" (this: ^IFileDialog, pszTitle: LPCWSTR) -> HRESULT,
SetOkButtonLabel: proc "stdcall" (this: ^IFileDialog, pszText: LPCWSTR) -> HRESULT,
SetFileNameLabel: proc "stdcall" (this: ^IFileDialog, pszLabel: LPCWSTR) -> HRESULT,
GetResult: proc "stdcall" (this: ^IFileDialog, ppsi: ^^IShellItem) -> HRESULT,
AddPlace: proc "stdcall" (this: ^IFileDialog, psi: ^IShellItem, fdap: FDAP) -> HRESULT,
SetDefaultExtension: proc "stdcall" (this: ^IFileDialog, pszDefaultExtension: LPCWSTR) -> HRESULT,
Close: proc "stdcall" (this: ^IFileDialog, hr: HRESULT) -> HRESULT,
SetClientGuid: proc "stdcall" (this: ^IFileDialog, guid: REFGUID) -> HRESULT,
ClearClientData: proc "stdcall" (this: ^IFileDialog) -> HRESULT,
SetFilter: proc "stdcall" (this: ^IFileDialog, pFilter: ^IShellItemFilter) -> HRESULT,
}
IFileOpenDialog :: struct #raw_union {
#subtype IFileDialog: IFileDialog,
using Vtbl: ^IFileOpenDialogVtbl,
}
IFileOpenDialogVtbl :: struct {
using IFileDialogVtbl: IFileDialogVtbl,
GetResults: proc "stdcall" (this: ^IFileOpenDialog, ppenum: ^^IShellItemArray) -> HRESULT,
GetSelectedItems: proc "stdcall" (this: ^IFileOpenDialog, ppsai: ^^IShellItemArray) -> HRESULT,
}
IPropertyStore :: struct #raw_union {
#subtype IUnknown: IUnknown,
using Vtbl: ^IPropertyStoreVtbl,
}
IPropertyStoreVtbl :: struct {
using IUnknownVtbl: IUnknownVtbl,
GetCount: proc "stdcall" (this: ^IPropertyStore, cProps: ^DWORD) -> HRESULT,
GetAt: proc "stdcall" (this: ^IPropertyStore, iProp: DWORD, pkey: ^PROPERTYKEY) -> HRESULT,
GetValue: proc "stdcall" (this: ^IPropertyStore, key: REFPROPERTYKEY, pv: ^PROPVARIANT) -> HRESULT,
SetValue: proc "stdcall" (this: ^IPropertyStore, key: REFPROPERTYKEY, propvar: REFPROPVARIANT) -> HRESULT,
Commit: proc "stdcall" (this: ^IPropertyStore) -> HRESULT,
}
IPropertyDescriptionList :: struct #raw_union {
#subtype IUnknown: IUnknown,
using Vtbl: ^IPropertyDescriptionListVtbl,
}
IPropertyDescriptionListVtbl :: struct {
using IUnknownVtbl: IUnknownVtbl,
GetCount: proc "stdcall" (this: ^IPropertyDescriptionList, pcElem: ^UINT) -> HRESULT,
GetAt: proc "stdcall" (this: ^IPropertyDescriptionList, iElem: UINT, riid: REFIID, ppv: ^rawptr) -> HRESULT,
}
IFileOperationProgressSink :: struct #raw_union {
#subtype IUnknown: IUnknown,
using Vtbl: ^IFileOperationProgressSinkVtbl,
}
IFileOperationProgressSinkVtbl :: struct {
using IUnknownVtbl: IUnknownVtbl,
StartOperations: proc "stdcall" (this: ^IFileOperationProgressSink) -> HRESULT,
FinishOperations: proc "stdcall" (this: ^IFileOperationProgressSink, hrResult: HRESULT) -> HRESULT,
PreRenameItem: proc "stdcall" (this: ^IFileOperationProgressSink, dwFlags: DWORD, psiItem: ^IShellItem, pszNewName: LPCWSTR) -> HRESULT,
PostRenameItem: proc "stdcall" (this: ^IFileOperationProgressSink, dwFlags: DWORD, psiItem: ^IShellItem, pszNewName: LPCWSTR, hrRename: HRESULT, psiNewlyCreated: ^IShellItem) -> HRESULT,
PreMoveItem: proc "stdcall" (this: ^IFileOperationProgressSink, dwFlags: DWORD, psiItem: ^IShellItem, psiDestinationFolder: ^IShellItem, pszNewName: LPCWSTR) -> HRESULT,
PostMoveItem: proc "stdcall" (this: ^IFileOperationProgressSink, dwFlags: DWORD, psiItem: ^IShellItem, psiDestinationFolder: ^IShellItem, pszNewName: LPCWSTR, hrMove: HRESULT, psiNewlyCreated: ^IShellItem) -> HRESULT,
PreCopyItem: proc "stdcall" (this: ^IFileOperationProgressSink, dwFlags: DWORD, psiItem: ^IShellItem, psiDestinationFolder: ^IShellItem, pszNewName: LPCWSTR) -> HRESULT,
PostCopyItem: proc "stdcall" (this: ^IFileOperationProgressSink, dwFlags: DWORD, psiItem: ^IShellItem, psiDestinationFolder: ^IShellItem, pszNewName: LPCWSTR, hrMove: HRESULT, psiNewlyCreated: ^IShellItem) -> HRESULT,
PreDeleteItem: proc "stdcall" (this: ^IFileOperationProgressSink, dwFlags: DWORD, psiItem: ^IShellItem) -> HRESULT,
PostDeleteItem: proc "stdcall" (this: ^IFileOperationProgressSink, dwFlags: DWORD, psiItem: ^IShellItem, hrDelete: HRESULT, psiNewlyCreated: ^IShellItem) -> HRESULT,
PreNewItem: proc "stdcall" (this: ^IFileOperationProgressSink, dwFlags: DWORD, psiDestinationFolder: ^IShellItem, pszNewName: LPCWSTR) -> HRESULT,
PostNewItem: proc "stdcall" (this: ^IFileOperationProgressSink, dwFlags: DWORD, psiDestinationFolder: ^IShellItem, pszNewName: LPCWSTR, pszTemplateName: LPCWSTR, dwFileAttributes: DWORD, hrNew: HRESULT, psiNewItem: ^IShellItem) -> HRESULT,
UpdateProgress: proc "stdcall" (this: ^IFileOperationProgressSink, iWorkTotal: UINT, iWorkSoFar: UINT) -> HRESULT,
ResetTimer: proc "stdcall" (this: ^IFileOperationProgressSink) -> HRESULT,
PauseTimer: proc "stdcall" (this: ^IFileOperationProgressSink) -> HRESULT,
ResumeTimer: proc "stdcall" (this: ^IFileOperationProgressSink) -> HRESULT,
}
IFileSaveDialog :: struct #raw_union {
#subtype IFileDialog: IFileDialog,
using Vtbl: ^IFileSaveDialogVtbl,
}
IFileSaveDialogVtbl :: struct {
using IFileDialogVtbl: IFileDialogVtbl,
SetSaveAsItem: proc "stdcall" (this: ^IFileSaveDialog, psi: ^IShellItem) -> HRESULT,
SetProperties: proc "stdcall" (this: ^IFileSaveDialog, pStore: ^IPropertyStore) -> HRESULT,
SetCollectedProperties: proc "stdcall" (this: ^IFileSaveDialog, pList: ^IPropertyDescriptionList, fAppendDefault: BOOL) -> HRESULT,
GetProperties: proc "stdcall" (this: ^IFileSaveDialog, ppStore: ^^IPropertyStore) -> HRESULT,
ApplyProperties: proc "stdcall" (this: ^IFileSaveDialog, psi: ^IShellItem, pStore: ^IPropertyStore, hwnd: HWND, pSink: ^IFileOperationProgressSink) -> HRESULT,
}
core/sys/windows/user32.odin
+39
View File
@@ -136,6 +136,45 @@ foreign user32 {
SetCursor :: proc(hCursor: HCURSOR) -> HCURSOR ---
EnumDisplaySettingsW :: proc(lpszDeviceName: LPCWSTR, iModeNum: DWORD, lpDevMode: ^DEVMODEW) -> BOOL ---
BroadcastSystemMessageW :: proc(
flags: DWORD,
lpInfo: LPDWORD,
Msg: UINT,
wParam: WPARAM,
lParam: LPARAM,
) -> c_long ---
BroadcastSystemMessageExW :: proc(
flags: DWORD,
lpInfo: LPDWORD,
Msg: UINT,
wParam: WPARAM,
lParam: LPARAM,
pbsmInfo: PBSMINFO,
) -> c_long ---
SendMessageTimeoutW :: proc(
hWnd: HWND,
Msg: UINT,
wParam: WPARAM,
lParam: LPARAM,
fuFlags: UINT,
uTimeout: UINT,
lpdwResult: PDWORD_PTR,
) -> LRESULT ---
GetSysColor :: proc(nIndex: c_int) -> DWORD ---
GetSysColorBrush :: proc(nIndex: c_int) -> HBRUSH ---
SetSysColors :: proc(cElements: c_int, lpaElements: ^INT, lpaRgbValues: ^COLORREF) -> BOOL ---
MessageBeep :: proc(uType: UINT) -> BOOL ---
IsDialogMessageW :: proc(hDlg: HWND, lpMsg: LPMSG) -> BOOL ---
GetWindowTextLengthW :: proc(hWnd: HWND) -> c_int ---
GetWindowTextW :: proc(hWnd: HWND, lpString: LPWSTR, nMaxCount: c_int) -> c_int ---
SetWindowTextW :: proc(hWnd: HWND, lpString: LPCWSTR) -> BOOL ---
CallWindowProcW :: proc(lpPrevWndFunc: WNDPROC, hWnd: HWND, Msg: UINT, wParam: WPARAM, lParam: LPARAM) -> LRESULT ---
EnableWindow :: proc(hWnd: HWND, bEnable: BOOL) -> BOOL ---
}
CreateWindowW :: #force_inline proc "stdcall" (
core/sys/windows/window_messages.odin
+1
View File
@@ -25,6 +25,7 @@ WM_ENDSESSION :: 0x0016
WM_SHOWWINDOW :: 0x0018
WM_CTLCOLOR :: 0x0019
WM_WININICHANGE :: 0x001a
WM_SETTINGCHANGE :: WM_WININICHANGE
WM_DEVMODECHANGE :: 0x001b
WM_ACTIVATEAPP :: 0x001c
WM_FONTCHANGE :: 0x001d
core/sys/windows/winerror.odin
+48
View File
@@ -0,0 +1,48 @@
// +build windows
package sys_windows
ERROR_SUCCESS : DWORD : 0
NO_ERROR :: 0
SEC_E_OK : HRESULT : 0x00000000
ERROR_INVALID_FUNCTION : DWORD : 1
ERROR_FILE_NOT_FOUND : DWORD : 2
ERROR_PATH_NOT_FOUND : DWORD : 3
ERROR_ACCESS_DENIED : DWORD : 5
ERROR_INVALID_HANDLE : DWORD : 6
ERROR_NOT_ENOUGH_MEMORY : DWORD : 8
ERROR_INVALID_BLOCK : DWORD : 9
ERROR_BAD_ENVIRONMENT : DWORD : 10
ERROR_BAD_FORMAT : DWORD : 11
ERROR_INVALID_ACCESS : DWORD : 12
ERROR_INVALID_DATA : DWORD : 13
ERROR_OUTOFMEMORY : DWORD : 14
ERROR_INVALID_DRIVE : DWORD : 15
ERROR_CURRENT_DIRECTORY : DWORD : 16
ERROR_NO_MORE_FILES : DWORD : 18
ERROR_SHARING_VIOLATION : DWORD : 32
ERROR_LOCK_VIOLATION : DWORD : 33
ERROR_HANDLE_EOF : DWORD : 38
ERROR_NOT_SUPPORTED : DWORD : 50
ERROR_FILE_EXISTS : DWORD : 80
ERROR_INVALID_PARAMETER : DWORD : 87
ERROR_BROKEN_PIPE : DWORD : 109
ERROR_CALL_NOT_IMPLEMENTED : DWORD : 120
ERROR_INSUFFICIENT_BUFFER : DWORD : 122
ERROR_INVALID_NAME : DWORD : 123
ERROR_BAD_ARGUMENTS : DWORD : 160
ERROR_LOCK_FAILED : DWORD : 167
ERROR_ALREADY_EXISTS : DWORD : 183
ERROR_NO_DATA : DWORD : 232
ERROR_ENVVAR_NOT_FOUND : DWORD : 203
ERROR_OPERATION_ABORTED : DWORD : 995
ERROR_IO_PENDING : DWORD : 997
ERROR_NO_UNICODE_TRANSLATION : DWORD : 1113
ERROR_TIMEOUT : DWORD : 1460
ERROR_DATATYPE_MISMATCH : DWORD : 1629
ERROR_UNSUPPORTED_TYPE : DWORD : 1630
ERROR_NOT_SAME_OBJECT : DWORD : 1656
E_NOTIMPL :: HRESULT(-0x7fff_bfff) // 0x8000_4001
SUCCEEDED :: #force_inline proc(#any_int result: int) -> bool do return result >= 0