fabs/oboy
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Print cartridge info when loaded

Browse source
This commit is contained in:
Fabien Freling 2019-06-07 14:25:10 +02:00
parent f0cab3f1c6
commit e260011665
2 changed files with 22 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/core/cartridge.ml
View file

@ -114,4 +114,5 @@ let print_info cartridge =
printf "Title: %s\n" cartridge.title; printf "Title: %s\n" cartridge.title;
printf "Mem. type: %s\n" (cartridge.mem_type |> mem_type_name); printf "Mem. type: %s\n" (cartridge.mem_type |> mem_type_name);
printf "ROM size: %iKB\n" cartridge.rom_size; printf "ROM size: %iKB\n" cartridge.rom_size;
printf "RAM size: %iKB\n" cartridge.ram_size printf "RAM size: %iKB\n" cartridge.ram_size;
print_newline ()

2
src/core/state.ml
View file

@ -12,5 +12,5 @@ let load_cartridge file =
let cartridge = Cartridge.read_cartridge file in let cartridge = Cartridge.read_cartridge file in
!state.cartridge <- cartridge; !state.cartridge <- cartridge;
match cartridge with match cartridge with
| Some _ -> true | Some c -> Cartridge.print_info c; true
| None -> false | None -> false