37 lines
780 B
Plaintext
37 lines
780 B
Plaintext
stn := @use("../../stn/src/lib.hb");
|
|
.{log, buffer, memory} := stn
|
|
keycodes := @use("keycodes.hb")
|
|
|
|
events := @use("events.hb");
|
|
.{KeyEvent, MouseEvent} := events
|
|
|
|
recieve_key_event := fn(): ?KeyEvent {
|
|
mem_page := memory.request_page(1)
|
|
|
|
buf_id := buffer.search("PS/2 Keyboard\0")
|
|
|
|
// Read out of the keyboard buffer here
|
|
buffer.recv(KeyEvent, buf_id, mem_page)
|
|
|
|
key_event := KeyEvent.(0, 0, 2)
|
|
// return key_event
|
|
|
|
return null
|
|
}
|
|
|
|
recieve_mouse_event := fn(): ?^MouseEvent {
|
|
mem_page := memory.request_page(1)
|
|
|
|
buf_id := buffer.search("PS/2 Mouse\0")
|
|
|
|
// Read out of the Mouse buffer here
|
|
buffer.recv(MouseEvent, buf_id, mem_page)
|
|
if *mem_page != 0 {
|
|
dx := *mem_page
|
|
dy := *mem_page + 1
|
|
mevent := MouseEvent.(dx, dy, 0, 0, 0)
|
|
return &mevent
|
|
}
|
|
|
|
return null
|
|
} |