From b0ae07d0e1a750afabce530d23288212ca1fd5b6 Mon Sep 17 00:00:00 2001
From: Tom Feist <shabble@cowu.be>
Date: Mon, 12 Jul 2010 21:13:36 +0100
Subject: started marking up signals for auto-generation

---
 docs/buildsignals.pl | 56 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)
 create mode 100755 docs/buildsignals.pl

(limited to 'docs/buildsignals.pl')

diff --git a/docs/buildsignals.pl b/docs/buildsignals.pl
new file mode 100755
index 0000000..11cd74a
--- /dev/null
+++ b/docs/buildsignals.pl
@@ -0,0 +1,56 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use Data::Dumper;
+
+package Pod::Simple::IrssiSignalParser;
+
+use base qw/Pod::Simple::PullParser/;
+
+use Data::Dumper;
+
+sub run {
+    my $self = shift;
+
+    my ($seen_start, $seen_end) = (0,0);
+    my $text_token;
+
+  Token:
+
+    while(my $token = $self->get_token()) {
+        #print "PRocessing token: $token\n";
+
+        if (!$seen_start && $token->is_start) {
+            if ($token->tag eq 'Data') {
+                print "Start Data token: $token\n";
+
+                $text_token = $self->get_token;
+
+                if ($text_token->is_text && $text_token->text =~ /START/) {
+                    print "Found start!\n\n";
+                    $seen_start = 1;
+                }
+            }
+        }
+    }
+}
+
+package main;
+
+my $input_file = $ARGV[0] // 'Signals.pm';
+my $parser = Pod::Simple::IrssiSignalParser->new;
+
+$parser->accept_targets('irssi_signal_defs', 'irssi_signal_types');
+my $tree = $parser->parse_file($input_file);
+
+
+#     if ($type eq 'Data' && $text =~ /START OF SIGNAL DEFINITIONS/) {
+#         $seen_start = 1;
+#     }
+
+#     if ($type eq 'Data' && $text =~ /END OF SIGNAL DEFINITIONS/) {
+#         $seen_end = 1;
+#     }
+
-- 
cgit v1.2.3