Apple-2-Tools
/
DOS33-perl
mirror of https://github.com/softwarejanitor/DOS33.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Bug fixes.

This commit is contained in:
Leeland Heins 2019-01-17 14:48:25 -06:00 committed by GitHub
parent b8e167174c
commit bb5928209b
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
DOS33.pm
View File

@ -339,6 +339,21 @@ sub get_vtoc_sec {
return 0;
}
sub write_vtoc {
my ($trk_num_1st_cat_sec, $sec_num_1st_cat_sec, $rel_num_dos, $dsk_vol_num, $max_tslist_secs, $last_trk_secs_alloc, $dir_trk_alloc, $num_trks_dsk, $num_secs_dsk, $num_bytes_sec, $bit_map_free_secs) = @_;
# Re-pack vtoc sector
my $buf = pack $vtoc_fmt_tmpl, ($trk_num_1st_cat_sec, $sec_num_1st_cat_sec, $rel_num_dos, $dsk_vol_num, $max_tslist_secs, $last_trk_secs_alloc, $dir_trk_alloc, $num_trks_dsk, $num_secs_dsk, $num_bytes_sec, $bit_map_free_secs);
# Write back vtoc sector.
#if (wts($dskfile, $vtoc_trk, $vtoc_sec, $buf)) {
# return 1;
#} else {
# print "Failed to write catalog sector $cat_trk $cat_sec!\n";
# return 0;
#}
}
#
# Parse a sector of a track/sector list
#
@ -663,8 +678,10 @@ sub delete_file {
$bit_map_free_secs = pack $tmpl, @flds;
# Write vtoc back
##FIXME
# Write back vtoc
if (!write_vtoc($trk_num_1st_cat_sec, $sec_num_1st_cat_sec, $rel_num_dos, $dsk_vol_num, $max_tslist_secs, $last_trk_secs_alloc, $dir_trk_alloc, $num_trks_dsk, $num_secs_dsk, $num_bytes_sec, $bit_map_free_secs)) {
print "I/O ERROR!\n";
}
}
}