From 164a0b401634867898318393df50f4e33ef0003c Mon Sep 17 00:00:00 2001
From: Michal Vaner <vorner@ucw.cz>
Date: Sun, 9 Nov 2008 19:05:42 +0100
Subject: [PATCH] Configure module to find the build system

---
 ucw/perl/UCW/Configure/Build.pm | 26 ++++++++++++++++++++++++++
 ucw/perl/UCW/Configure/Makefile |  2 +-
 2 files changed, 27 insertions(+), 1 deletion(-)
 create mode 100644 ucw/perl/UCW/Configure/Build.pm

diff --git a/ucw/perl/UCW/Configure/Build.pm b/ucw/perl/UCW/Configure/Build.pm
new file mode 100644
index 00000000..0d6f9d26
--- /dev/null
+++ b/ucw/perl/UCW/Configure/Build.pm
@@ -0,0 +1,26 @@
+# UCW Library configuration system: find UCW build system
+# (c) 2008 Michal Vaner <vorner@ucw.cz>
+
+# This module asks pkg-config for a path to UCW build system
+# and sets propper variables for it (or fails, as it is expected
+# the build system is crucial).
+
+package UCW::Configure::Build;
+use UCW::Configure;
+
+use strict;
+use warnings;
+
+if (!IsGiven("BUILDSYS_PATH")) {
+	Test("BUILDSYS_PATH", "Looking for UCW build system", sub {
+		my $path=`pkg-config libucw --variable=build_system`;
+		if($? || not defined $path) {
+			Fail("Not found (is libUCW installed and PKG_CONFIG_PATH set?)");
+		}
+		chomp $path;
+		return $path;
+	});
+}
+
+# We succeeded
+1;
diff --git a/ucw/perl/UCW/Configure/Makefile b/ucw/perl/UCW/Configure/Makefile
index 43ed4c3b..49679d3d 100644
--- a/ucw/perl/UCW/Configure/Makefile
+++ b/ucw/perl/UCW/Configure/Makefile
@@ -2,7 +2,7 @@
 
 DIRS+=ucw/perl/UCW/Configure
 EXTRA_RUNDIRS+=lib/perl5/UCW/Configure
-UCW_CONFIGURE_PERL_MODULES=$(addsuffix .pm, C Doc Paths Pkg)
+UCW_CONFIGURE_PERL_MODULES=$(addsuffix .pm, C Doc Paths Pkg Build)
 CONFIGURE_MODULES=$(addprefix $(o)/ucw/perl/UCW/Configure/,$(UCW_CONFIGURE_PERL_MODULES))
 PROGS+=$(CONFIGURE_MODULES)
 
-- 
2.39.2