16 lines
428 B
Plaintext
16 lines
428 B
Plaintext
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, buffer *Any, length Int) -> Int {
|
|
fd = kernel32.GetStdHandle(-10 - fd)
|
|
kernel32.WriteConsoleA(fd, buffer, length, 0)
|
|
return length
|
|
} |