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
|
#!@PATH_PERL@
eval 'exec @PATH_PERL@ -S $0 ${1+"$@"}'
if $running_under_some_shell;
require 5.003;
BEGIN { $^W = 0; } # get rid of nasty warnings
# bootstrapping private installed modules
use lib "@INSTALLPRIVLIB@";
use lib "@INSTALLARCHLIB@";
## _ _
## ___| (_) ___ ___
## / __| | |/ __/ _ \
## \__ \ | | (_| __/
## |___/_|_|\___\___|
##
## Slice -- Extract out pre-defined slices of an ASCII file
##
## The slice program reads an inputfile and divide its prepaired ASCII contents
## into possibly overlapping slices. These slices are determined by enclosing
## blocks which are defined by begin and end delimiters which have to be
## already in the file. The final output gets calculated by a slice term
## consisting of slice names, set theory operators and optional round brackets.
##
## The latest release can be found on
## http://www.engelschall.com/sw/slice/
##
## Copyright (c) 1997-2002 Ralf S. Engelschall.
## Copyright (c) 1999-2002 Denis Barbier.
##
## This program is free software; it may be redistributed and/or modified only
## under the terms of the GNU General Public License, which may be found in the
## SLICE source distribution. Look at the file COPYING. 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 either the GNU General Public License for more
## details.
##
## Ralf S. Engelschall
## rse@engelschall.com
## www.engelschall.com
use Getopt::Long 2.13;
use IO::Handle 1.15;
use IO::File 1.07;
use Bit::Vector 5.0;
require "slice_vers.pl";
require "slice_util.pl";
require "slice_term.pl";
require "slice_setup.pl";
require "slice_pass1.pl";
require "slice_pass2.pl";
require "slice_pass3.pl";
$CFG = {};
setup($CFG);
pass1($CFG);
pass2($CFG);
pass3($CFG);
exit(0);
##EOF##
|
