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

reorganization and project rename

Browse source
This commit is contained in:
Lobo 2026-01-03 12:45:30 -03:00
parent 35b0a4f6dd
commit def41120c1
20 changed files with 42 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

6
exe/dune
View file

@ -1,4 +1,4 @@
(executable
(public_name uxnemu)
(name uxnemu)
(libraries uxn varvara unix))
(public_name kestrel)
(name main)
(libraries kestrel kestrel_varvara unix))

14
exe/uxnemu.ml → exe/main.ml
View file

@ -1,4 +1,4 @@
open Uxn
open Kestrel
open Effect.Deep
let devices_deo = Hashtbl.create 256
@ -12,15 +12,15 @@ let register_device (module D : Device.DEVICE) =
(fun port -> Hashtbl.add devices_deo port (module D : Device.DEVICE))
D.deo_ports
module System = Varvara.System.Make ()
module Console = Varvara.Console.Make ()
module Datetime = Varvara.Datetime.Make ()
module System = Kestrel_varvara.System.Make ()
module Console = Kestrel_varvara.Console.Make ()
module Datetime = Kestrel_varvara.Datetime.Make ()
module File_a = Varvara.File.Make (struct
module File_a = Kestrel_varvara.File.Make (struct
let start = 0xa0
end)
module File_b = Varvara.File.Make (struct
module File_b = Kestrel_varvara.File.Make (struct
let start = 0xb0
end)
@ -53,7 +53,7 @@ let run m pc =
let main () =
if Array.length Sys.argv < 2 then (
Printf.eprintf "usage: uxnemu file.rom ...\n";
Printf.eprintf "usage: kestrel file.rom ...\n";
exit 1);
register_device (module System : Device.DEVICE);