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

Cleanup

This commit is contained in:
Leeland Heins 2019-02-26 07:42:50 -06:00 committed by GitHub
parent 92b2ccb866
commit 4e55c056b9
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
dos33.pl
View File

@ -2,8 +2,8 @@
#
# dos33 version 0.1
# by Vince Weaver <vince\@deater.net>
# Perl port 20190225 by Leeland Heins <softwarejanitor\@yahoo.com>\n
# by Vince Weaver <vince@deater.net>
# Perl port 20190225 by Leeland Heins <softwarejanitor@yahoo.com>
#
use strict;
@ -65,7 +65,7 @@ my $SEEK_SET = 0;
my $VERSION = "0.1";
# Helper Macros
# Helper Subs
sub TS_TO_INT {
my ($x, $y) = @_;
@ -183,7 +183,7 @@ sub dos33_char_to_type {
return $result;
}
# dos33 filenames have top bit set on ascii chars
# dos33 filenames have high bit set on ascii chars
# and are padded with spaces
sub dos33_filename_to_ascii {
my ($dest, $src, $len) = @_;
@ -248,7 +248,6 @@ sub dos33_free_space {
return $sectors_free * $BYTES_PER_SECTOR;
}
# Get a T/S value from a Catalog Sector
sub dos33_get_catalog_ts {
my ($fd) = @_;
@ -345,7 +344,6 @@ sub dos33_print_file_info {
return 0;
}
# Checks if "filename" exists
# returns entry/track/sector
sub dos33_check_file_exists {
@ -435,7 +433,6 @@ sub find_first_one {
return $i;
}
sub dos33_free_sector {
my ($fd, $track, $sector) = @_;
@ -622,7 +619,6 @@ sub dos33_force_allocate_sector {
return (($found_track << 8) + $found_sector);
}
my $ERROR_INVALID_FILENAME = 1;
my $ERROR_FILE_NOT_FOUND = 2;
my $ERROR_NO_SPACE = 3;
@ -1194,7 +1190,6 @@ got_a_dentry:
return 0;
}
# load a file. fts=entry/track/sector
sub dos33_load_file {
my ($fd, $fts, $filename) = @_;
@ -1429,7 +1424,6 @@ sub dos33_undelete_file {
return 0;
}
sub dos33_delete_file {
my ($fd, $fsl) = @_;
@ -1527,7 +1521,6 @@ sub dump_sector {
return 0;
}
sub dos33_dump {
my ($fd) = @_;