From e9fa4c98bb5f084739d3418ade3f0c51e34a0aa1 Mon Sep 17 00:00:00 2001
From: Arne Georg Gleditsch <argggh@lxr.linpro.no>
Date: Thu, 5 Jul 2007 00:51:08 +0200
Subject: Rebase tree.

---
 lib/LXRng/Lang/Generic.pm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 lib/LXRng/Lang/Generic.pm

(limited to 'lib/LXRng/Lang/Generic.pm')

diff --git a/lib/LXRng/Lang/Generic.pm b/lib/LXRng/Lang/Generic.pm
new file mode 100644
index 0000000..29443f4
--- /dev/null
+++ b/lib/LXRng/Lang/Generic.pm
@@ -0,0 +1,22 @@
+package LXRng::Lang::Generic;
+
+use strict;
+
+sub expand_include {
+    my ($self, $context, $node, $include) = @_;
+
+    return () unless $context->config->{'include_maps'};
+
+    my $file = $node->name();
+    foreach my $map (@{$context->config->{'include_maps'}}) {
+	my @key = $file =~ /($$map[0])/ or next;
+	my @val = $include =~ /($$map[1])/ or next;
+	shift(@key);
+	shift(@val);
+	my @paths = $$map[2]->(@key, @val);
+	
+	return map { /([^\/].*)/ ? $1 : $_ } @paths;
+    }
+}
+
+1;
-- 
cgit v1.2.3