mirror of
https://github.com/softwarejanitor/DOS33.git
synced 2024-06-04 00:29:27 +00:00
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
Block a user