Small cleanup patch:
- genclass.pl attempts to put $Id$ into generated files
but the $Id$ string gets mangled when it's committed.
This patch fixes the existing .pmc files and fixes genclass.pl.
- Makes capitalization in .pmc header match actual filenames
- The command for calling genclass.pl in vtables.pod is incorrect,
since it assumes you're running in classes/ but genclass.pl assumes
it's being run from the main directory. I changed genclass.pl to not
care.
Index: genclass.pl
===================================================================
RCS file: /home/perlcvs/parrot/classes/genclass.pl,v
retrieving revision 1.6
diff -u -r1.6 genclass.pl
--- genclass.pl 25 Nov 2001 12:56:01 -0000 1.6
+++ genclass.pl 2 Jan 2002 20:58:58 -0000
@@ -1,13 +1,18 @@
+# $Id$
+
+use FindBin;
+use lib "$FindBin::Bin/..";
use Parrot::Vtable;
-my %vtbl = parse_vtable("vtable.tbl");
+my %vtbl = parse_vtable("$FindBin::Bin/../vtable.tbl");
my $classname = shift;
die "No classname given!\n" unless $classname;
+my $DOLLAR = '$';
print <<EOF;
/* ${classname}.pmc
* Copyright: (When this is determined...it will go here)
* CVS Info
- * \$Id: genclass.pl,v 1.6 2001/11/25 12:56:01 simon Exp $
+ * ${DOLLAR}Id${DOLLAR}
* Overview:
* These are the vtable functions for the $classname base class
* Data Structure and Algorithms:
Index: perlarray.pmc
===================================================================
RCS file: /home/perlcvs/parrot/classes/perlarray.pmc,v
retrieving revision 1.1
diff -u -r1.1 perlarray.pmc
--- perlarray.pmc 18 Dec 2001 07:05:00 -0000 1.1
+++ perlarray.pmc 2 Jan 2002 20:56:05 -0000
@@ -1,7 +1,8 @@
-/* PerlArray.pmc
+/* perlarray.pmc
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: genclass.pl,v 1.5 2001/11/16 21:57:28 jgoff Exp Overview:
+ * $Id$
+ * Overview:
* These are the vtable functions for the PerlArray base class
* Data Structure and Algorithms:
* History:
Index: perlint.pmc
===================================================================
RCS file: /home/perlcvs/parrot/classes/perlint.pmc,v
retrieving revision 1.10
diff -u -r1.10 perlint.pmc
--- perlint.pmc 27 Dec 2001 18:32:22 -0000 1.10
+++ perlint.pmc 2 Jan 2002 20:56:06 -0000
@@ -1,8 +1,8 @@
-
/* perlint.pmc
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: genclass.pl,v 1.4 2001/11/16 16:15:26 simon Exp Overview:
+ * $Id$
+ * Overview:
* These are the vtable functions for the PerlInt base class
* Data Structure and Algorithms:
* History:
Index: perlnum.pmc
===================================================================
RCS file: /home/perlcvs/parrot/classes/perlnum.pmc,v
retrieving revision 1.11
diff -u -r1.11 perlnum.pmc
--- perlnum.pmc 27 Dec 2001 18:32:22 -0000 1.11
+++ perlnum.pmc 2 Jan 2002 20:56:08 -0000
@@ -1,7 +1,8 @@
-/* PerlNum.pmc
+/* perlnum.pmc
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: genclass.pl,v 1.5 2001/11/16 21:57:28 simon Exp Overview:
+ * $Id$
+ * Overview:
* These are the vtable functions for the PerlNum base class
* Data Structure and Algorithms:
* History:
Index: perlstring.pmc
===================================================================
RCS file: /home/perlcvs/parrot/classes/perlstring.pmc,v
retrieving revision 1.11
diff -u -r1.11 perlstring.pmc
--- perlstring.pmc 30 Dec 2001 12:04:56 -0000 1.11
+++ perlstring.pmc 2 Jan 2002 20:56:09 -0000
@@ -1,7 +1,8 @@
-/* PerlString.pmc
+/* perlstring.pmc
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: genclass.pl,v 1.5 2001/11/16 21:57:28 simon Exp Overview:
+ * $Id$
+ * Overview:
* These are the vtable functions for the PerlString base class
* Data Structure and Algorithms:
* History:
Index: perlundef.pmc
===================================================================
RCS file: /home/perlcvs/parrot/classes/perlundef.pmc,v
retrieving revision 1.2
diff -u -r1.2 perlundef.pmc
--- perlundef.pmc 18 Dec 2001 07:05:00 -0000 1.2
+++ perlundef.pmc 2 Jan 2002 20:56:12 -0000
@@ -1,7 +1,8 @@
/* perlundef.pmc
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: genclass.pl,v 1.6 2001/11/25 12:56:01 simon Exp Overview:
+ * $Id$
+ * Overview:
* These are the vtable functions for the perlundef base class
* Data Structure and Algorithms:
* History:
