]> mj.ucw.cz Git - libucw.git/blob - examples/internal/configure
XML: Uninlined
[libucw.git] / examples / internal / configure
1 #!/usr/bin/perl
2 # Configure script for the libucw example
3 # (c) 2007 Martin Mares <mj@ucw.cz>
4
5 use warnings;
6 use strict;
7
8 our $srcdir;
9 BEGIN {
10         my $pkgfile = "ucw/wildmatch.c";
11         if (!defined ($srcdir = $ENV{"SRCDIR"})) {
12                 if (-f $pkgfile) {
13                         $srcdir=".";
14                 } elsif ($0 =~ m@^(.*)/configure$@ && -f "$1/$pkgfile") {
15                         $srcdir=$1;
16                 } else {
17                         die "Don't know how to find myself. Please set SRCDIR manually.\n";
18                 }
19         }
20 }
21
22 use lib "$srcdir/ucw/perl/";
23 use UCW::Configure;
24
25 Init($srcdir, "default.cfg");
26 Include "ucw/default.cfg";
27 Log "### Configuring TestApp ###\n\n";
28 Include Get("CONFIG");
29 require UCW::Configure::Paths;
30 require UCW::Configure::C;
31 require UCW::Configure::LibUCW;
32 Finish();
33
34 Log "\nConfigured, run `make' to build everything.\n";