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
|
#!@path_perl@
eval 'exec @path_perl@ -S $0 ${1+"$@"}'
if $running_under_some_shell;
require 5.003;
require "slice_boot.pl";
## _ _
## ___| (_) ___ ___
## / __| | |/ __/ _ \
## \__ \ | | (_| __/
## |___/_|_|\___\___|
##
## 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,1998 Ralf S. Engelschall.
##
## 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##
|