mirror of
https://github.com/softwarejanitor/ProDOS.git
synced 2024-06-01 21:41:28 +00:00
Work on undelete
This commit is contained in:
parent
c3348b17c6
commit
2720c2ef37
|
@ -1237,6 +1237,10 @@ sub parse_subdir_hdr_blk {
|
||||||
} else {
|
} else {
|
||||||
if ($mode == 2) {
|
if ($mode == 2) {
|
||||||
push @files, { 'header_pointer' => $header_pointer, 'i' => $i };
|
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);
|
printf("storage_type=\$%02x\n", $storage_type);
|
||||||
|
|
||||||
|
# Re-write file descriptive entry.
|
||||||
##FIXME
|
##FIXME
|
||||||
# Re-mark all the blocks for the file as used.
|
# Re-mark all the blocks for the file as used.
|
||||||
##FIXME
|
##FIXME
|
||||||
|
|
Loading…
Reference in New Issue
Block a user