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

Work on undelete

This commit is contained in:
Leeland Heins 2019-03-12 07:52:09 -05:00 committed by GitHub
parent c3348b17c6
commit 2720c2ef37
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ProDOS.pm
View File

@ -1237,6 +1237,10 @@ sub parse_subdir_hdr_blk {
} else {
if ($mode == 2) {
push @files, { 'header_pointer' => $header_pointer, 'i' => $i };
} elsif ($mode == 3) {
my $f_type = $ftype{$file_type};
$f_type = sprintf("\$%02x", $file_type) unless defined $f_type;
push @files, { 'prv' => $prv_vol_dir_blk, 'nxt' => $nxt_vol_dir_blk, 'filename' => $fname, 'ftype' => $f_type, 'used' => $blocks_used, 'mdate' => $mdate, 'cdate' => $cdate, 'atype' => $aux_type, 'atype' => $atype, 'access' => $access, 'eof' => $endfile, 'keyptr' => $key_pointer, 'storage_type' => $storage_type, 'header_pointer' => $header_pointer, 'i' => $i };
}
}
}
@ -3039,6 +3043,7 @@ sub undelete_file {
printf("storage_type=\$%02x\n", $storage_type);
# Re-write file descriptive entry.
##FIXME
# Re-mark all the blocks for the file as used.
##FIXME