0 | 0 |
#!/usr/local/bin/perl -w
|
1 | 1 |
|
2 | |
# Version, a programming language based on ignorance-spaces
|
3 | |
# Dec 11 2001, Chris Pressey, Cat's Eye Technologies
|
4 | |
|
5 | |
# Copyright (c)2001, Cat's Eye Technologies.
|
6 | |
# All rights reserved.
|
7 | |
#
|
|
2 |
# version[.pl] - Interpreter for the Version Programming Language
|
|
3 |
# Chris Pressey, Cat's Eye Technologies
|
|
4 |
# http://catseye.tc/projects/version/
|
|
5 |
# $Id: version.pl 525 2010-04-29 16:08:22Z cpressey $
|
|
6 |
|
|
7 |
# Copyright (c)2001-2010 Cat's Eye Technologies. All rights reserved.
|
|
8 |
#
|
8 | 9 |
# Redistribution and use in source and binary forms, with or without
|
9 | 10 |
# modification, are permitted provided that the following conditions
|
10 | 11 |
# are met:
|
|
21 | 22 |
# contributors may be used to endorse or promote products derived
|
22 | 23 |
# from this software without specific prior written permission.
|
23 | 24 |
#
|
24 | |
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
|
25 | |
# CONTRIBUTORS ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
|
26 | |
# INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
|
27 | |
# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
28 | |
# DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE
|
29 | |
# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY,
|
30 | |
# OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
|
31 | |
# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA,
|
32 | |
# OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
|
33 | |
# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
|
34 | |
# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
35 | |
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
|
36 | |
# POSSIBILITY OF SUCH DAMAGE.
|
|
25 |
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
|
|
26 |
# ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
|
|
27 |
# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
|
|
28 |
# FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
|
|
29 |
# COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
|
|
30 |
# INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
|
|
31 |
# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
|
|
32 |
# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
|
33 |
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
|
|
34 |
# STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
|
|
35 |
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
|
|
36 |
# OF THE POSSIBILITY OF SUCH DAMAGE.
|
37 | 37 |
|
38 | 38 |
### BEGIN version[.pl] ###
|
39 | 39 |
|
|
44 | 44 |
# Open and read source file.
|
45 | 45 |
|
46 | 46 |
$|=1;
|
|
47 |
die "Usage: $0 version-source-filename\n" if not $ARGV[0];
|
47 | 48 |
if (open(FILE, $ARGV[0]))
|
48 | 49 |
{
|
49 | 50 |
@program = <FILE>;
|