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/Undefined.pm | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 lib/LXRng/Lang/Undefined.pm

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

diff --git a/lib/LXRng/Lang/Undefined.pm b/lib/LXRng/Lang/Undefined.pm
new file mode 100644
index 0000000..c4c3c72
--- /dev/null
+++ b/lib/LXRng/Lang/Undefined.pm
@@ -0,0 +1,45 @@
+package LXRng::Lang::Undefined;
+
+use strict;
+use Subst::Complex;
+
+use base qw(LXRng::Lang::Generic);
+
+
+sub doindex {
+    return 0;
+}
+
+sub pathexp {
+    return qr/$/;
+}
+
+sub reserved { 
+    return {};
+}
+
+sub parsespec {
+    return ['atom',	'\\\\.',	undef];
+}
+
+sub typemap {
+    return {};
+}
+
+sub markuphandlers {
+    my ($self, $context, $node, $markup) = @_;
+    
+    my $format_newline = $markup->make_format_newline($node);
+
+    my %subst;
+    $subst{'code'} = new Subst::Complex
+	qr/\n/ => $format_newline,
+	qr/[^\n]*/ => sub { $markup->format_raw(@_) };
+
+    $subst{'start'} = new Subst::Complex
+	qr/^/  => $format_newline;
+
+    return \%subst;
+}
+
+1;
-- 
cgit v1.2.3