On Mon, Jan 07, 2002 at 09:34:05PM +0000, Nicholas Clark wrote: > I believe that this patch gets all of these:
Yes, right: > --- ./include/parrot/vtable.h~ Mon Jan 7 20:38:08 2002 > +++ ./include/parrot/vtable.h Mon Jan 7 20:42:43 2002 What's an RCS header doing in an auto-generated file? I fell for it - I didn't spot that the ID was for vtable_h.pl not include/parrot/vtable.h This patch "cures" this, and changes index to idx to remove shadow warnings. Nicholas Clark --- vtable_h.pl~ Mon Dec 31 16:15:23 2001 +++ vtable_h.pl Wed Jan 9 20:15:11 2002 @@ -1,3 +1,7 @@ +#!/usr/bin/perl + +# $Id: vtable_h.pl,v 1.8 2001/12/31 15:58:28 simon Exp $ + use Parrot::Vtable; my %vtable = parse_vtable(); @@ -5,17 +9,11 @@ open OUT, ">include/parrot/vtable.h" or die $!; print OUT <<'EOF'; -/* vtable.h - * Copyright: (When this is determined...it will go here) - * CVS Info - * $Id: vtable_h.pl,v 1.8 2001/12/31 15:58:28 simon Exp $ - * Overview: - * Defines the base PMC vtable structure - * Data Structure and Algorithms: - * History: - * Notes: - * References: - */ +/* +** !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +** +** This file is generated automatically from 'vtable.tbl' by vtable_h.pl +*/ #if !defined(PARROT_VTABLE_H_GUARD) #define PARROT_VTABLE_H_GUARD --- vtable.tbl~ Sat Jan 5 12:49:16 2002 +++ vtable.tbl Wed Jan 9 20:14:57 2002 @@ -1,3 +1,4 @@ +# $Id: $ # This is the main vtable data # Lines have the following format: # method type \tab return type name \tab type arg1 \tab type arg2 @@ -24,26 +25,26 @@ unique INTVAL real_size unique void destroy unique INTVAL get_integer -unique INTVAL get_integer_index INTVAL index -unique INTVAL get_integer_index_s STRING* index +unique INTVAL get_integer_index INTVAL idx +unique INTVAL get_integer_index_s STRING* idx unique FLOATVAL get_number -unique FLOATVAL get_number_index INTVAL index -unique FLOATVAL get_number_index_s STRING* index +unique FLOATVAL get_number_index INTVAL idx +unique FLOATVAL get_number_index_s STRING* idx unique STRING* get_string -unique STRING* get_string_index INTVAL index -unique STRING* get_string_index_s STRING* index +unique STRING* get_string_index INTVAL idx +unique STRING* get_string_index_s STRING* idx unique BOOLVAL get_bool unique void* get_value unique BOOLVAL is_same PMC* pmc2 int void set_integer INTVAL value -unique void set_integer_index INTVAL value INTVAL index -unique void set_integer_index_s INTVAL value STRING* index +unique void set_integer_index INTVAL value INTVAL idx +unique void set_integer_index_s INTVAL value STRING* idx float void set_number FLOATVAL value -unique void set_number_index FLOATVAL value INTVAL index -unique void set_number_index_s FLOATVAL value STRING* index +unique void set_number_index FLOATVAL value INTVAL idx +unique void set_number_index_s FLOATVAL value STRING* idx str void set_string STRING* value -unique void set_string_index STRING* value INTVAL index -unique void set_string_index_s STRING* value STRING* index +unique void set_string_index STRING* value INTVAL idx +unique void set_string_index_s STRING* value STRING* idx unique void set_value void* value num void add PMC* value PMC* dest num void subtract PMC* value PMC* dest