996
|
1 #!/usr/bin/perl -w
|
|
2
|
|
3 eval 'exec perl -S $0 ${1+"$@"}'
|
|
4 if 0;
|
|
5
|
|
6 # This script will create the Makefile to build CLC-INTERCAL's INTERNET
|
|
7
|
|
8 # This file is part of CLC-INTERCAL 1.-94.-2
|
|
9
|
|
10 # Copyright (c) 2008 Claudio Calvelli, all rights reserved.
|
|
11
|
|
12 # CLC-INTERCAL is copyrighted software. However, permission to use, modify,
|
|
13 # and distribute it is granted provided that the conditions set out in the
|
|
14 # licence agreement are met. See files README and COPYING in the distribution.
|
|
15
|
|
16 require 5.005;
|
|
17 use Config qw(%Config);
|
|
18 use ExtUtils::MakeMaker;
|
|
19 use strict;
|
|
20
|
|
21 use vars qw($VERSION $PERVERSION);
|
|
22 ($VERSION) = ($PERVERSION = "CLC-INTERCAL/INET Makefile.PL 1.-94.-2") =~ /\s(\S+)$/;
|
|
23
|
|
24 my @want_type = grep { /^type=/ } @ARGV;
|
|
25 @ARGV = grep { ! /^type=/ } @ARGV;
|
|
26
|
|
27 my $base = $ENV{CLC_INTERCAL_PATH}
|
|
28 ? "'$ENV{CLC_INTERCAL_PATH}/INTERCAL/"
|
|
29 : 'Language::INTERCAL::';
|
|
30 my $end = $ENV{CLC_INTERCAL_PATH}
|
|
31 ? ".pm'"
|
|
32 : '';
|
|
33
|
|
34 for my $module (qw(Exporter InstallModule)) {
|
|
35 eval "require $base$module$end";
|
|
36 if ($@) {
|
|
37 $@ =~ /can't locate/i and die "You don't appear to have CLC-INTERCAL installed:\n$@";
|
|
38 die "Error loading the CLC-INTERCAL installer:\n$@";
|
|
39 }
|
|
40 }
|
|
41
|
|
42 import Language::INTERCAL::InstallModule '1.-94.-2';
|
|
43
|
|
44 install Language::INTERCAL::InstallModule 'INET', 0;
|
|
45
|
|
46 1;
|