cvsuser 03/12/03 03:28:55
Modified: classes pmc2c2.pl
Log:
try to fix colon tinder: anchor extension
Revision Changes Path
1.3 +7 -7 parrot/classes/pmc2c2.pl
Index: pmc2c2.pl
===================================================================
RCS file: /cvs/public/parrot/classes/pmc2c2.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- pmc2c2.pl 8 Oct 2003 09:36:44 -0000 1.2
+++ pmc2c2.pl 3 Dec 2003 11:28:55 -0000 1.3
@@ -87,7 +87,7 @@
my $file = "$FindBin::Bin/../vtable.tbl";
my $default = parse_vtable($file);
my $dump;
- ($dump = $file) =~ s/\.\w+/\.dump/;
+ ($dump = $file) =~ s/\.\w+$/\.dump/;
print "Writing $dump\n" if $opt{verbose};
open(VTD, ">$dump") or die "Can't write $dump";
my %vt;
@@ -248,7 +248,7 @@
sub dump_1_pmc {
my $file = shift;
- $file =~ s/\.\w+/.pmc/;
+ $file =~ s/\.\w+$/.pmc/;
print "Reading $file\n" if $opt{verbose};
open F, "<$file" or die "Can't read '$file'";
local $/;
@@ -302,7 +302,7 @@
foreach my $name (keys %all) {
my $dump;
my $file = $all{$name}->{file};
- ($dump = $file) =~ s/\.\w+/\.dump/;
+ ($dump = $file) =~ s/\.\w+$/\.dump/;
gen_parent_list($name, \%all);
my $class = $all{$name};
gen_super_meths($class, $vt);
@@ -318,7 +318,7 @@
sub read_dump {
my $file = shift;
my $dump;
- ($dump = $file) =~ s/\.\w+/.dump/;
+ ($dump = $file) =~ s/\.\w+$/.dump/;
unless ( -e $dump) {
if ($dump =~ m!^classes/!) {
$dump =~ s!^classes/!!;
@@ -365,8 +365,8 @@
my $hout = $generator->gen_h($file);
print $hout if $opt{debug};
my $h;
- ($h = $file) =~ s/\.\w+/.h/;
- $h =~ s/(\w+)\.h/pmc_$1.h/;
+ ($h = $file) =~ s/\.\w+$/.h/;
+ $h =~ s/(\w+)\.h$/pmc_$1.h/;
print "Writing $h\n" if $opt{verbose};
open H, ">$h" or die "Can't write '$h";
print H $hout;
@@ -374,7 +374,7 @@
my $cout = $generator->gen_c($file);
print $cout if $opt{debug};
my $c;
- ($c = $file) =~ s/\.\w+/.c/;
+ ($c = $file) =~ s/\.\w+$/.c/;
print "Writing $c\n" if $opt{verbose};
open C, ">$c" or die "Can't write '$c";
print C $cout;
