[libmarpa-r2-perl] 03/32: Added marpa.def: t+

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to annotated tag Marpa-R2-2.085_004
in repository libmarpa-r2-perl.

commit 8dc9c907d9c62bd2729ef9b4c736b410bda6b003
Author: Jeffrey Kegler <jk...@cpan.org>
Date:   Wed Apr 23 17:08:50 2014 -0700

    Added marpa.def: t+
---
 cpan/inc/Marpa/R2/License.pm    |  2 +-
 cpan/libmarpa/bin/texi2proto.pl | 45 ++++++++++++++++++++++++-----------------
 2 files changed, 28 insertions(+), 19 deletions(-)

diff --git a/cpan/inc/Marpa/R2/License.pm b/cpan/inc/Marpa/R2/License.pm
index 4096cb0..bc60eec 100644
--- a/cpan/inc/Marpa/R2/License.pm
+++ b/cpan/inc/Marpa/R2/License.pm
@@ -319,7 +319,7 @@ my %files_by_type = (
     'libmarpa/tavl/test.c' => \&ignored,
     'libmarpa/tavl/test.h' => \&ignored,
 
-    # MS .def file -- comments not allowed, contents trivial
+    # MS .def file -- contents trivial
     'libmarpa_dist/marpa.def' => \&ignored,
 );
 
diff --git a/cpan/libmarpa/bin/texi2proto.pl b/cpan/libmarpa/bin/texi2proto.pl
index d79623c..66e4508 100644
--- a/cpan/libmarpa/bin/texi2proto.pl
+++ b/cpan/libmarpa/bin/texi2proto.pl
@@ -37,28 +37,37 @@ LINE: while ( my $line = <STDIN> ) {
 
     next LINE if $line !~ m/[@]deftypefun/xms;
 
-        my $def = q{};
-        while ( $line =~ / [@] \s* \z /xms ) {
-            $def .= $line;
-            $def =~ s/ [@] \s* \z//xms;
-            $line = <STDIN>;
-        }
+    my $def = q{};
+    while ( $line =~ / [@] \s* \z /xms ) {
         $def .= $line;
-        $def =~ s/\A \s* [@] deftypefun x? \s* //xms;
-        $def =~ s/ [@]var[{] ([^}]*) [}]/$1/xmsg;
-        $def =~ s/ [@]code[{] ([^}]*) [}]/$1/xmsg;
-        $def =~ s/\s+/ /xmsg;
-        $def =~ s/\s \z/;/xmsg;
-        push @protos, $def;
+        $def =~ s/ [@] \s* \z//xms;
+        $line = <STDIN>;
+    }
+    $def .= $line;
+    $def =~ s/\A \s* [@] deftypefun x? \s* //xms;
+    $def =~ s/ [@]var[{] ([^}]*) [}]/$1/xmsg;
+    $def =~ s/ [@]code[{] ([^}]*) [}]/$1/xmsg;
+    $def =~ s/\s+/ /xmsg;
+    $def =~ s/\s \z/;/xmsg;
+    push @protos, $def;
 
-        $def =~ s/ \s* [(] .* //xms;
-        $def =~ s/ \s* [(] .* //xms;
-        $def =~ s/ \A .* \s //xms;
-        push @defs, $def;
+    $def =~ s/ \s* [(] .* //xms;
+    $def =~ s/ \s* [(] .* //xms;
+    $def =~ s/ \A .* \s //xms;
+    push @defs, $def;
 
-} ## end while ( my $line = <STDIN> )
+} ## end LINE: while ( my $line = <STDIN> )
 
 say join "\n", @protos;
-say {$def_fh} "EXPORTS\n", join "\n", map { q{   } . $_ } @defs;
+
+my $def_preamble = << 'END_OF_PREAMBLE';
+; DO NOT EDIT DIRECTLY.
+; This file was automatically generated.
+; This file is for the Microsoft linker.
+END_OF_PREAMBLE
+$def_preamble .= q{; } . localtime() . "\n";
+
+say {$def_fh} $def_preamble, "EXPORTS\n", join "\n",
+    map { q{   } . $_ } @defs;
 
 # vim: expandtab shiftwidth=4:

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/libmarpa-r2-perl.git

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits