[libmarpa-r2-perl] 03/32: Added marpa.def: t+
Jonas Smedegaard
dr at jones.dk
Sat May 17 21:24:12 UTC 2014
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 <JKEGL at 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
More information about the Pkg-perl-cvs-commits
mailing list