[glibmm/gmmproc-refactor] Implement dnl.

[Krzesimir Nowak <krnowak src gnome org>]

commit 7a97f4c66b6bfbb570d2b28d7dbbd503d7fce79a
Author: Krzesimir Nowak <qdlacz gmail com>
Date:   Sun Jul 22 17:20:05 2012 +0200

    Implement dnl.
    
    These can be used as gmmproc-only comments, that won't be pasted into
    generated source.

 tools/pm/Common/WrapParser.pm |   14 ++++++++++++++
 1 files changed, 14 insertions(+), 0 deletions(-)
---
diff --git a/tools/pm/Common/WrapParser.pm b/tools/pm/Common/WrapParser.pm
index c7b34e5..25f6548 100644
--- a/tools/pm/Common/WrapParser.pm
+++ b/tools/pm/Common/WrapParser.pm
@@ -699,6 +699,19 @@ sub _on_m4_line ($)
   $self->fixed_error ('Hit eof when looking for newline');
 }
 
+sub _on_dnl
+{
+  my ($self) = @_;
+  my $tokens = $self->get_tokens;
+
+  while (@{$tokens})
+  {
+    return if ($self->_extract_token eq "\n");
+  }
+
+  $self->fixed_error ('Hit eof when looking for newline');
+}
+
 sub _on_defs ($)
 {
   my ($self) = @_;
@@ -3414,6 +3427,7 @@ sub new
     '/*!' => sub { $self->_on_comment_doxygen (@_); },
     '#m4begin' => sub { $self->_on_m4_section (@_); }, # probably won't be needed anymore
     '#m4' => sub { $self->_on_m4_line (@_); }, # probably won't be needed anymore
+    'dnl' => sub { $self->_on_dnl (@_); },
     '_DEFS' => sub { $self->_on_defs (@_); }, # probably won't be needed anymore
     '_IGNORE' => sub { $self->_on_ignore (@_); },
     '_IGNORE_SIGNAL' => sub { $self->_on_ignore_signal (@_); },