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

begin work on new device module system

Browse source
This commit is contained in:
Lobo 2025-12-18 13:03:39 -03:00
parent 7b8871ffd9
commit 5769f6d470
11 changed files with 190 additions and 112 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/Varvara/File.ml
View file

@ -8,10 +8,11 @@ type file_state =
type file_device = {
mutable filepath : string option;
mutable state : file_state;
mutable length : int;
}
let create_file_device () = { filepath = None; state = Idle }
let file_devices = [| create_file_device (); create_file_device () |]
let make_file () = { filepath = None; state = Idle; length = 0 }
let file_devices = [| make_file (); make_file () |]
let file_lengths = [| 0; 0 |]
(* Read null-terminated string from RAM *)