lobo/kestrel
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add datetime device, revise device handling, remove tracing code

Browse source
This commit is contained in:
Lobo 2025-12-19 00:31:36 -03:00
parent 56a3398c8f
commit cf31dc5564
8 changed files with 115 additions and 119 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/Varvara/Console.ml
View file

@ -4,9 +4,10 @@ module Make () : Uxn.Device.DEVICE with type state = state = struct
type nonrec state = state
let state = { console_vector = 0 }
let can_handle port = port >= 0x10 && port <= 0x1f
let dei _ _ = None
let dei2 _ _ = None
let dei_ports = Uxn.Device.Int_set.empty
let deo_ports = Uxn.Device.Int_set.of_list [ 0x10; 0x18; 0x19 ]
let dei _ _ = assert false
let dei2 _ _ = assert false
let deo _ port value =
match port with
@ -17,5 +18,5 @@ module Make () : Uxn.Device.DEVICE with type state = state = struct
| 0x19 ->
prerr_char (Char.chr value);
Out_channel.flush stderr
| _ -> ()
| _ -> assert false
end