1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
##
## slice_setup.pl -- Command line parsing and CFG setup
## Copyright (c) 1997,1998 Ralf S. Engelschall.
##
package main;
sub usage {
print STDERR "Usage: slice [options] [file]\n";
print STDERR "\n";
print STDERR "Options:\n";
print STDERR " -o, --outputfile=FILESPEC create output file(s)\n";
print STDERR " -v, --verbose enable verbose mode\n";
print STDERR " -V, --version display version string\n";
print STDERR " -h, --help display usage page\n";
print STDERR "\n";
print STDERR "FILESPEC format:\n";
print STDERR "\n";
print STDERR " [SLICETERM:]PATH[\@CHMODOPT]\n";
print STDERR "\n";
print STDERR " SLICETERM ..... a set-theory term describing the slices\n";
print STDERR " PATH .......... a filesystem path to the outputfile\n";
print STDERR " CHMODOPT ...... permission change options for 'chmod'\n";
print STDERR "\n";
exit(1);
}
sub hello {
print STDERR "$Vers::SLICE_Hello\n";
print STDERR <<'EOT';
Copyright (c) 1997,1998 Ralf S. Engelschall.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
EOT
exit(0);
}
sub setup {
my ($CFG) = @_;
# parse command line options
$opt_h = 0;
$opt_V = 0;
$opt_v = 0;
@opt_o = ();
$SIG{'__WARN__'} = sub {
print STDERR "Slice:Error: $_[0]";
};
$Getopt::Long::bundling = 1;
$Getopt::Long::getopt_compat = 0;
if (not Getopt::Long::GetOptions("v|verbose",
"V|version",
"h|help",
"o|outputfile=s@")) {
print STDERR "Try `$0 --help' for more information.\n";
exit(0);
}
$SIG{'__WARN__'} = undef;
&usage($0) if ($opt_h);
&hello() if ($opt_V);
# process command line arguments and
# read input file
if (($#ARGV == 0 and $ARGV[0] eq '-') or $#ARGV == -1) {
$fp = new IO::Handle;
$fp->fdopen(fileno(STDIN), "r");
local ($/) = undef;
$INPUT = <$fp>;
$fp->close;
}
elsif ($#ARGV == 0) {
$fp = new IO::File;
$fp->open($ARGV[0]);
local ($/) = undef;
$INPUT = <$fp>;
$fp->close;
}
else {
&usage;
}
# add additional options
$INPUT =~ s|^%!slice\s+(.*?)\n|push(@ARGV, split(' ', $1)), ''|egim;
if (not Getopt::Long::GetOptions("x|debug",
"v|version",
"o|outputfile=s@")) {
&usage;
}
if ($#opt_o == -1) {
@opt_o = ( "ALL:-" ); # default is all on stdout
}
# setup the $CFG hash
$CFG->{INPUT} = {};
$CFG->{INPUT}->{SRC} = $INPUT; # original source
$CFG->{INPUT}->{PLAIN} = ''; # source without slice delimiters
$CFG->{OPT} = {};
$CFG->{OPT}->{X} = $opt_v; # option -v
$CFG->{OPT}->{O} = [ @opt_o ]; # options -o
$CFG->{SLICE} = {};
$CFG->{SLICE}->{SET} = {};
$CFG->{SLICE}->{SET}->{ASC} = {}; # slice set, represented in ASCII
$CFG->{SLICE}->{SET}->{OBJ} = {}; # slice set, represented as Bit::Vector object
$CFG->{SLICE}->{MINLEVELS} = {}; # slice min levels
$CFG->{SLICE}->{MAXLEVEL} = 0; # maximum slice level
}
1;
##EOF##
|
