cli/q
1
0
Fork 0
Code Issues Pull requests Releases Activity

Implemented extern functions

Browse source
This commit is contained in:
Eduard Urbach 2025-02-12 00:04:30 +01:00
parent 38b573085e
commit 4803b81845
Signed by: eduard
GPG key ID: 49226B848C78F6C8
24 changed files with 304 additions and 169 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/sys/io_windows.q
View file

@ -1,10 +1,16 @@
read(fd Int, address *Any, length Int) -> Int {
kernel32.ReadFile(fd, address, length)
extern kernel32 {
GetStdHandle(handle Int) -> Int
WriteConsoleA(fd Int, buffer *Any, length Int, written *Int) -> Bool
ReadFile(fd Int, buffer *Any, length Int) -> Bool
}
read(fd Int, buffer *Any, length Int) -> Int {
kernel32.ReadFile(fd, buffer, length)
return length
}
write(fd Int, address *Any, length Int) -> Int {
write(fd Int, buffer *Any, length Int) -> Int {
fd = kernel32.GetStdHandle(-10 - fd)
kernel32.WriteConsoleA(fd, address, length, 0)
kernel32.WriteConsoleA(fd, buffer, length, 0)
return length
}