Moved to ProDOS
This commit is contained in:
parent
11b796d35e
commit
394dac043c
37
procat.pl
37
procat.pl
|
@ -1,37 +0,0 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
#
|
||||
# procat.pl:
|
||||
#
|
||||
# Utility to get a 'catalog' (directory listing) of an Apple II ProDOS volume.
|
||||
#
|
||||
# 20190115 LSH
|
||||
#
|
||||
|
||||
use strict;
|
||||
|
||||
use ProDOS;
|
||||
|
||||
my $debug = 0;
|
||||
|
||||
my $blk = 0x0;
|
||||
|
||||
while (defined $ARGV[0] && $ARGV[0] =~ /^-/) {
|
||||
if ($ARGV[0] eq '-d') {
|
||||
$debug = 1;
|
||||
shift;
|
||||
} elsif ($ARGV[0] eq '-b' && defined $ARGV[1] && $ARGV[1] =~ /^\d+$/) {
|
||||
$blk = $ARGV[1];
|
||||
shift;
|
||||
shift;
|
||||
} else {
|
||||
die "Unknown command line argument $ARGV[0]\n";
|
||||
}
|
||||
}
|
||||
|
||||
my $pofile = shift or die "Must supply .po filename\n";
|
||||
|
||||
cat($pofile, $debug);
|
||||
|
||||
1;
|
||||
|
Loading…
Reference in New Issue