lucy-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From mar...@apache.org
Subject svn commit: r933319 - in /lucene/lucy/trunk/clownfish: lib/Clownfish/ lib/Clownfish/Binding/Core/ lib/Clownfish/Binding/Perl/ lib/Clownfish/Type/ t/
Date Mon, 12 Apr 2010 16:46:19 GMT
Author: marvin
Date: Mon Apr 12 16:46:18 2010
New Revision: 933319

URL: http://svn.apache.org/viewvc?rev=933319&view=rev
Log:
Remove support for oldskool chy_ integer types from Clownfish, with the
exception of bool_t/chy_bool_t.

Modified:
    lucene/lucy/trunk/clownfish/lib/Clownfish/Binding/Core/Class.pm
    lucene/lucy/trunk/clownfish/lib/Clownfish/Binding/Core/Method.pm
    lucene/lucy/trunk/clownfish/lib/Clownfish/Binding/Perl/TypeMap.pm
    lucene/lucy/trunk/clownfish/lib/Clownfish/Dumpable.pm
    lucene/lucy/trunk/clownfish/lib/Clownfish/Parser.pm
    lucene/lucy/trunk/clownfish/lib/Clownfish/Type/Integer.pm
    lucene/lucy/trunk/clownfish/t/102-integer_type.t
    lucene/lucy/trunk/clownfish/t/108-composite_type.t
    lucene/lucy/trunk/clownfish/t/200-function.t
    lucene/lucy/trunk/clownfish/t/201-method.t
    lucene/lucy/trunk/clownfish/t/300-variable.t
    lucene/lucy/trunk/clownfish/t/301-param_list.t
    lucene/lucy/trunk/clownfish/t/400-class.t
    lucene/lucy/trunk/clownfish/t/600-parser.t

Modified: lucene/lucy/trunk/clownfish/lib/Clownfish/Binding/Core/Class.pm
URL: http://svn.apache.org/viewvc/lucene/lucy/trunk/clownfish/lib/Clownfish/Binding/Core/Class.pm?rev=933319&r1=933318&r2=933319&view=diff
==============================================================================
--- lucene/lucy/trunk/clownfish/lib/Clownfish/Binding/Core/Class.pm (original)
+++ lucene/lucy/trunk/clownfish/lib/Clownfish/Binding/Core/Class.pm Mon Apr 12 16:46:18 2010
@@ -276,7 +276,7 @@ typedef struct $vt_type {
     lucy_ref_t ref;
     ${prefix}VTable *parent;
     ${prefix}CharBuf *name;
-    chy_u32_t flags;
+    uint32_t flags;
     void *x;
     size_t obj_alloc_size;
     size_t vt_alloc_size;

Modified: lucene/lucy/trunk/clownfish/lib/Clownfish/Binding/Core/Method.pm
URL: http://svn.apache.org/viewvc/lucene/lucy/trunk/clownfish/lib/Clownfish/Binding/Core/Method.pm?rev=933319&r1=933318&r2=933319&view=diff
==============================================================================
--- lucene/lucy/trunk/clownfish/lib/Clownfish/Binding/Core/Method.pm (original)
+++ lucene/lucy/trunk/clownfish/lib/Clownfish/Binding/Core/Method.pm Mon Apr 12 16:46:18 2010
@@ -123,8 +123,8 @@ sub callback_def {
 }
 
 # Return a string which maps arguments to various arg wrappers conforming
-# to Host's callback interface.  For instance, (i32_t foo, Obj *bar) produces
-# the following:
+# to Host's callback interface.  For instance, (int32_t foo, Obj *bar)
+# produces the following:
 # 
 #   LUCY_ARG_I32("foo", foo),
 #   LUCY_ARG_OBJ("bar", bar)

Modified: lucene/lucy/trunk/clownfish/lib/Clownfish/Binding/Perl/TypeMap.pm
URL: http://svn.apache.org/viewvc/lucene/lucy/trunk/clownfish/lib/Clownfish/Binding/Perl/TypeMap.pm?rev=933319&r1=933318&r2=933319&view=diff
==============================================================================
--- lucene/lucy/trunk/clownfish/lib/Clownfish/Binding/Perl/TypeMap.pm (original)
+++ lucene/lucy/trunk/clownfish/lib/Clownfish/Binding/Perl/TypeMap.pm Mon Apr 12 16:46:18
2010
@@ -30,14 +30,6 @@ my %primitives_from_perl = (
     int32_t    => sub {"$_[0] = (int32_t)SvIV( $_[1] );"},
     int16_t    => sub {"$_[0] = (int16_t)SvIV( $_[1] );"},
     int8_t     => sub {"$_[0] = (int8_t)SvIV( $_[1] );"},
-    chy_u64_t  => sub {"$_[0] = (chy_u64_t)SvNV( $_[1] );"},
-    chy_u32_t  => sub {"$_[0] = (chy_u32_t)SvUV( $_[1] );"},
-    chy_u16_t  => sub {"$_[0] = (chy_u16_t)SvUV( $_[1] );"},
-    chy_u8_t   => sub {"$_[0] = (chy_u8_t)SvUV( $_[1] );"},
-    chy_i64_t  => sub {"$_[0] = (chy_i64_t)SvNV( $_[1] );"},
-    chy_i32_t  => sub {"$_[0] = (chy_i32_t)SvIV( $_[1] );"},
-    chy_i16_t  => sub {"$_[0] = (chy_i16_t)SvIV( $_[1] );"},
-    chy_i8_t   => sub {"$_[0] = (chy_i8_t)SvIV( $_[1] );"},
     chy_bool_t => sub {"$_[0] = SvTRUE( $_[1] ) ? 1 : 0;"},
 );
 
@@ -69,22 +61,6 @@ my %primitives_to_perl = (
     int32_t   => sub {"$_[0] = newSViv( $_[1] );"},
     int16_t   => sub {"$_[0] = newSViv( $_[1] );"},
     int8_t    => sub {"$_[0] = newSViv( $_[1] );"},
-    chy_u64_t => sub {
-        $Config{uvsize} == 8
-            ? "$_[0] = newSVuv( $_[1] );"
-            : "$_[0] = newSVnv( (NV)$_[1] );";
-    },
-    chy_u32_t => sub {"$_[0] = newSVuv( $_[1] );"},
-    chy_u16_t => sub {"$_[0] = newSVuv( $_[1] );"},
-    chy_u8_t  => sub {"$_[0] = newSVuv( $_[1] );"},
-    chy_i64_t => sub {
-        $Config{ivsize} == 8
-            ? "$_[0] = newSViv( $_[1] );"
-            : "$_[0] = newSVnv( (NV)$_[1] );";
-    },
-    chy_i32_t  => sub {"$_[0] = newSViv( $_[1] );"},
-    chy_i16_t  => sub {"$_[0] = newSViv( $_[1] );"},
-    chy_i8_t   => sub {"$_[0] = newSViv( $_[1] );"},
     chy_bool_t => sub {"$_[0] = newSViv( $_[1] );"},
 );
 
@@ -214,14 +190,6 @@ uint8_t\tCHY_UNSIGNED_INT
 uint16_t\tCHY_UNSIGNED_INT
 uint32_t\tCHY_UNSIGNED_INT
 uint64_t\tCHY_BIG_UNSIGNED_INT
-chy_i8_t\tCHY_SIGNED_INT
-chy_i16_t\tCHY_SIGNED_INT
-chy_i32_t\tCHY_SIGNED_INT
-chy_i64_t\tCHY_BIG_SIGNED_INT
-chy_u8_t\tCHY_UNSIGNED_INT
-chy_u16_t\tCHY_UNSIGNED_INT
-chy_u32_t\tCHY_UNSIGNED_INT
-chy_u64_t\tCHY_BIG_UNSIGNED_INT
 
 const lucy_CharBuf*\tCONST_CHARBUF
 END_STUFF

Modified: lucene/lucy/trunk/clownfish/lib/Clownfish/Dumpable.pm
URL: http://svn.apache.org/viewvc/lucene/lucy/trunk/clownfish/lib/Clownfish/Dumpable.pm?rev=933319&r1=933318&r2=933319&view=diff
==============================================================================
--- lucene/lucy/trunk/clownfish/lib/Clownfish/Dumpable.pm (original)
+++ lucene/lucy/trunk/clownfish/lib/Clownfish/Dumpable.pm Mon Apr 12 16:46:18 2010
@@ -132,7 +132,7 @@ sub _process_dump_member {
     my $len  = length($name);
     if ( $type->is_integer ) {
         return qq|    Lucy_Hash_Store_Str(dump, "$name", $len, |
-            . qq|(lucy_Obj*)lucy_CB_newf("%i64", (chy_i64_t)self->$name));\n|;
+            . qq|(lucy_Obj*)lucy_CB_newf("%i64", (int64_t)self->$name));\n|;
     }
     elsif ( $type->is_floating ) {
         return qq|    Lucy_Hash_Store_Str(dump, "$name", $len, |

Modified: lucene/lucy/trunk/clownfish/lib/Clownfish/Parser.pm
URL: http://svn.apache.org/viewvc/lucene/lucy/trunk/clownfish/lib/Clownfish/Parser.pm?rev=933319&r1=933318&r2=933319&view=diff
==============================================================================
--- lucene/lucy/trunk/clownfish/lib/Clownfish/Parser.pm (original)
+++ lucene/lucy/trunk/clownfish/lib/Clownfish/Parser.pm Mon Apr 12 16:46:18 2010
@@ -227,7 +227,7 @@ primitive_type_specifier:
     { $item[1] }
 
 chy_integer_specifier:
-    /(?:chy_)?([iu](8|16|32|64)|bool)_t(?!\w)/
+    /(?:chy_)?(bool)_t(?!\w)/
 
 c_integer_specifier:
     /(?:(?:u?int(?:8|16|32|64)_t)|(?:char|int|short|long|size_t))(?!\w)/
@@ -297,9 +297,10 @@ string_literal: 
     { $item[1] }
 
 reserved_word:
-    /(char|const|double|enum|extern|float|int|long|register|signed|sizeof
-       |short|inert|struct|typedef|union|unsigned|void)(?!\w)/x
+    /(const|double|enum|extern|float|register|signed|sizeof
+       |inert|struct|typedef|union|unsigned|void)(?!\w)/x
     | chy_integer_specifier
+    | c_integer_specifier
 
 eofile:
     /^\Z/

Modified: lucene/lucy/trunk/clownfish/lib/Clownfish/Type/Integer.pm
URL: http://svn.apache.org/viewvc/lucene/lucy/trunk/clownfish/lib/Clownfish/Type/Integer.pm?rev=933319&r1=933318&r2=933319&view=diff
==============================================================================
--- lucene/lucy/trunk/clownfish/lib/Clownfish/Type/Integer.pm (original)
+++ lucene/lucy/trunk/clownfish/lib/Clownfish/Type/Integer.pm Mon Apr 12 16:46:18 2010
@@ -22,14 +22,6 @@ our %specifiers = (
     uint16_t => 2,
     uint32_t => 4,
     uint64_t => 8,
-    i8_t     => 1,
-    i16_t    => 2,
-    i32_t    => 4,
-    i64_t    => 8,
-    u8_t     => 1,
-    u16_t    => 2,
-    u32_t    => 4,
-    u64_t    => 8,
     char     => 1,
     int      => $Config{intsize},
     short    => $Config{shortsize},
@@ -45,7 +37,7 @@ sub new {
 
     # Cache the C representation of this type.
     my $c_string = $args{const} ? 'const ' : '';
-    if ( $args{specifier} =~ /^(?:[iu]\d+|bool)_t$/ ) {
+    if ( $args{specifier} eq 'bool_t' ) {
         $c_string .= "chy_";
     }
     $c_string .= $args{specifier};
@@ -90,17 +82,9 @@ styles.  Support is limited to a subset 
 Many others are not supported: "signed" or "unsigned" anything, "long long",
 "ptrdiff_t", "off_t", etc.  
 
-The following Charmonizer typedefs are supported but deprecated:
+The following Charmonizer typedefs are supported:
 
     bool_t
-    i8_t
-    i16_t
-    i32_t
-    i64_t
-    u8_t
-    u16_t
-    u32_t
-    u64_t
 
 =head1 METHODS
 

Modified: lucene/lucy/trunk/clownfish/t/102-integer_type.t
URL: http://svn.apache.org/viewvc/lucene/lucy/trunk/clownfish/t/102-integer_type.t?rev=933319&r1=933318&r2=933319&view=diff
==============================================================================
--- lucene/lucy/trunk/clownfish/t/102-integer_type.t (original)
+++ lucene/lucy/trunk/clownfish/t/102-integer_type.t Mon Apr 12 16:46:18 2010
@@ -1,32 +1,22 @@
 use strict;
 use warnings;
 
-use Test::More tests => 92;
+use Test::More tests => 59;
 use Clownfish::Type::Integer;
 use Clownfish::Parser;
 
 my $integer_type = Clownfish::Type::Integer->new(
-    specifier => 'i32_t',
+    specifier => 'int32_t',
     const     => 1,
 );
 ok( $integer_type->const, "const" );
-is( $integer_type->get_specifier, "i32_t" );
-like( $integer_type->to_c, qr/chy_i32_t/,
-    "prepend 'chy_' for C representation" );
+is( $integer_type->get_specifier, "int32_t" );
 like( $integer_type->to_c, qr/const/, "'const' in C representation" );
 
 my $parser = Clownfish::Parser->new;
 
 my @chy_specifiers = qw(
     bool_t
-    i8_t
-    i16_t
-    i32_t
-    i64_t
-    u8_t
-    u16_t
-    u32_t
-    u64_t
 );
 my @c_specifiers = qw(
     char

Modified: lucene/lucy/trunk/clownfish/t/108-composite_type.t
URL: http://svn.apache.org/viewvc/lucene/lucy/trunk/clownfish/t/108-composite_type.t?rev=933319&r1=933318&r2=933319&view=diff
==============================================================================
--- lucene/lucy/trunk/clownfish/t/108-composite_type.t (original)
+++ lucene/lucy/trunk/clownfish/t/108-composite_type.t Mon Apr 12 16:46:18 2010
@@ -16,7 +16,7 @@ my @composite_type_strings = (
         char*
         char**
         char***
-        i32_t*
+        int32_t*
         Obj**
         neato_method_t[]
         neato_method_t[1]

Modified: lucene/lucy/trunk/clownfish/t/200-function.t
URL: http://svn.apache.org/viewvc/lucene/lucy/trunk/clownfish/t/200-function.t?rev=933319&r1=933318&r2=933319&view=diff
==============================================================================
--- lucene/lucy/trunk/clownfish/t/200-function.t (original)
+++ lucene/lucy/trunk/clownfish/t/200-function.t Mon Apr 12 16:46:18 2010
@@ -16,7 +16,7 @@ my %args = (
     return_type => $parser->type('Obj*'),
     class_name  => 'Neato::Foo',
     class_cnick => 'Foo',
-    param_list  => $parser->param_list('(i32_t some_num)'),
+    param_list  => $parser->param_list('(int32_t some_num)'),
     micro_sym   => 'return_an_obj',
 );
 
@@ -39,5 +39,5 @@ isa_ok(
     )
     for (
     'inert int running_count(int biscuit);',
-    'public inert Hash* init_fave_hash(i32_t num_buckets, bool_t o_rly);',
+    'public inert Hash* init_fave_hash(int32_t num_buckets, bool_t o_rly);',
     );

Modified: lucene/lucy/trunk/clownfish/t/201-method.t
URL: http://svn.apache.org/viewvc/lucene/lucy/trunk/clownfish/t/201-method.t?rev=933319&r1=933318&r2=933319&view=diff
==============================================================================
--- lucene/lucy/trunk/clownfish/t/201-method.t (original)
+++ lucene/lucy/trunk/clownfish/t/201-method.t Mon Apr 12 16:46:18 2010
@@ -15,7 +15,7 @@ my %args = (
     return_type => $parser->type('Obj*'),
     class_name  => 'Neato::Foo',
     class_cnick => 'Foo',
-    param_list  => $parser->param_list('(Foo *self, i32_t count = 0)'),
+    param_list  => $parser->param_list('(Foo *self, int32_t count = 0)'),
     macro_sym   => 'Return_An_Obj',
 );
 
@@ -33,44 +33,43 @@ like( $@, qr/macro_sym/, "Invalid macro_
 my $dupe = Clownfish::Method->new(%args);
 ok( $method->compatible($dupe), "compatible()" );
 
-my $macro_sym_differs
-    = Clownfish::Method->new( %args, macro_sym => 'Eat' );
+my $macro_sym_differs = Clownfish::Method->new( %args, macro_sym => 'Eat' );
 ok( !$method->compatible($macro_sym_differs),
     "different macro_sym spoils compatible()"
 );
 ok( !$macro_sym_differs->compatible($method), "... reversed" );
 
 my $extra_param = Clownfish::Method->new( %args,
-    param_list => $parser->param_list('(Foo *self, i32_t count = 0, int b)'),
-);
+    param_list =>
+        $parser->param_list('(Foo *self, int32_t count = 0, int b)'), );
 ok( !$method->compatible($macro_sym_differs),
     "extra param spoils compatible()"
 );
 ok( !$extra_param->compatible($method), "... reversed" );
 
 my $default_differs = Clownfish::Method->new( %args,
-    param_list => $parser->param_list('(Foo *self, i32_t count = 1)'), );
+    param_list => $parser->param_list('(Foo *self, int32_t count = 1)'), );
 ok( !$method->compatible($default_differs),
     "different initial_value spoils compatible()"
 );
 ok( !$default_differs->compatible($method), "... reversed" );
 
 my $missing_default = Clownfish::Method->new( %args,
-    param_list => $parser->param_list('(Foo *self, i32_t count)'), );
+    param_list => $parser->param_list('(Foo *self, int32_t count)'), );
 ok( !$method->compatible($missing_default),
     "missing initial_value spoils compatible()"
 );
 ok( !$missing_default->compatible($method), "... reversed" );
 
 my $param_name_differs = Clownfish::Method->new( %args,
-    param_list => $parser->param_list('(Foo *self, i32_t countess)'), );
+    param_list => $parser->param_list('(Foo *self, int32_t countess)'), );
 ok( !$method->compatible($param_name_differs),
     "different param name spoils compatible()"
 );
 ok( !$param_name_differs->compatible($method), "... reversed" );
 
 my $param_type_differs = Clownfish::Method->new( %args,
-    param_list => $parser->param_list('(Foo *self, u32_t count)'), );
+    param_list => $parser->param_list('(Foo *self, uint32_t count)'), );
 ok( !$method->compatible($param_type_differs),
     "different param type spoils compatible()"
 );
@@ -80,7 +79,7 @@ my $self_type_differs = Clownfish::Metho
     %args,
     class_name  => 'Neato::Bar',
     class_cnick => 'Bar',
-    param_list  => $parser->param_list('(Bar *self, i32_t count = 0)'),
+    param_list  => $parser->param_list('(Bar *self, int32_t count = 0)'),
 );
 ok( $method->compatible($self_type_differs),
     "different self type still compatible(), since can't test inheritance" );
@@ -111,7 +110,7 @@ isa_ok(
     for (
     'public int Do_Foo(Obj *self);',
     'parcel Obj* Gimme_An_Obj(Obj *self);',
-    'void Do_Whatever(Obj *self, u32_t a_num, float real);',
+    'void Do_Whatever(Obj *self, uint32_t a_num, float real);',
     'private Foo* Fetch_Foo(Obj *self, int num);',
     );
 

Modified: lucene/lucy/trunk/clownfish/t/300-variable.t
URL: http://svn.apache.org/viewvc/lucene/lucy/trunk/clownfish/t/300-variable.t?rev=933319&r1=933318&r2=933319&view=diff
==============================================================================
--- lucene/lucy/trunk/clownfish/t/300-variable.t (original)
+++ lucene/lucy/trunk/clownfish/t/300-variable.t Mon Apr 12 16:46:18 2010
@@ -24,7 +24,7 @@ like( $@, qr/extra_arg/, "Extra arg kill
 
 eval { my $death = Clownfish::Variable->new( micro_sym => 'foo' ) };
 like( $@, qr/type/, "type is required" );
-eval { my $death = Clownfish::Variable->new( type => new_type('i32_t') ) };
+eval { my $death = Clownfish::Variable->new( type => new_type('int32_t') ) };
 like( $@, qr/micro_sym/, "micro_sym is required" );
 
 my $var = Clownfish::Variable->new(
@@ -56,6 +56,6 @@ isa_ok( $parser->var_declaration_stateme
     for (
     'parcel int foo;',
     'private Obj *obj;',
-    'public inert i32_t **foo;',
+    'public inert int32_t **foo;',
     'Dog *fido;'
     );

Modified: lucene/lucy/trunk/clownfish/t/301-param_list.t
URL: http://svn.apache.org/viewvc/lucene/lucy/trunk/clownfish/t/301-param_list.t?rev=933319&r1=933318&r2=933319&view=diff
==============================================================================
--- lucene/lucy/trunk/clownfish/t/301-param_list.t (original)
+++ lucene/lucy/trunk/clownfish/t/301-param_list.t Mon Apr 12 16:46:18 2010
@@ -13,7 +13,7 @@ $parser->parcel_definition('parcel Neato
 
 isa_ok( $parser->param_variable($_),
     "Clownfish::Variable", "param_variable: $_" )
-    for ( 'u32_t baz', 'CharBuf *stuff', 'float **ptr', );
+    for ( 'uint32_t baz', 'CharBuf *stuff', 'float **ptr', );
 
 my $param_list = $parser->param_list("(Obj *self, int num)");
 isa_ok( $param_list, "Clownfish::ParamList" );

Modified: lucene/lucy/trunk/clownfish/t/400-class.t
URL: http://svn.apache.org/viewvc/lucene/lucy/trunk/clownfish/t/400-class.t?rev=933319&r1=933318&r2=933319&view=diff
==============================================================================
--- lucene/lucy/trunk/clownfish/t/400-class.t (original)
+++ lucene/lucy/trunk/clownfish/t/400-class.t Mon Apr 12 16:46:18 2010
@@ -148,8 +148,8 @@ $class_content = q|
      */
     public class Animal::Dog extends Animal : lovable : drooly {
         public inert Dog* init(Dog *self, CharBuf *name, CharBuf *fave_food);
-        inert u32_t count();
-        inert u64_t num_dogs;
+        inert uint32_t count();
+        inert uint64_t num_dogs;
 
         private CharBuf *name;
         private bool_t   likes_to_go_fetch;
@@ -167,7 +167,7 @@ $class_content = q|
         public abstract incremented nullable Thing*
         Scratch(Dog *self);
 
-        i32_t[1]  flexible_array_at_end_of_struct;
+        int32_t[1]  flexible_array_at_end_of_struct;
     }
 |;
 

Modified: lucene/lucy/trunk/clownfish/t/600-parser.t
URL: http://svn.apache.org/viewvc/lucene/lucy/trunk/clownfish/t/600-parser.t?rev=933319&r1=933318&r2=933319&view=diff
==============================================================================
--- lucene/lucy/trunk/clownfish/t/600-parser.t (original)
+++ lucene/lucy/trunk/clownfish/t/600-parser.t Mon Apr 12 16:46:18 2010
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 124;
+use Test::More tests => 116;
 
 BEGIN { use_ok('Clownfish::Parser') }
 
@@ -29,18 +29,18 @@ for (qw( foo _foo foo_yoo FOO Foo fOO f0
     is( $parser->identifier($_), $_, "identifier: $_" );
 }
 
-for (qw( void unsigned float u32_t i64_t u8_t bool_t )) {
+for (qw( void unsigned float uint32_t int64_t uint8_t bool_t )) {
     ok( !$parser->identifier($_), "reserved word not an identifier: $_" );
 }
 
 is( $parser->chy_integer_specifier($_), $_, "Charmony integer specifier $_" )
-    for qw( u8_t u16_t u32_t u64_t i8_t i16_t i32_t i64_t bool_t );
+    for qw( bool_t );
 
 is( $parser->object_type_specifier($_), $_, "object_type_specifier $_" )
     for qw( ByteBuf Obj ANDScorer );
 
 is( $parser->type_specifier($_), $_, "type_specifier $_" )
-    for qw( u32_t char int short long float double void ANDScorer );
+    for qw( uint32_t char int short long float double void ANDScorer );
 
 is( $parser->type_qualifier($_), $_, "type_qualifier $_" ) for qw( const );
 
@@ -60,7 +60,7 @@ is( $parser->declarator($_), $_, "declar
 
 isa_ok( $parser->param_variable($_),
     "Clownfish::Variable", "param_variable: $_" )
-    for ( 'u32_t baz;', 'CharBuf *stuff;', 'float **ptr;', );
+    for ( 'uint32_t baz;', 'CharBuf *stuff;', 'float **ptr;', );
 
 isa_ok( $parser->var_declaration_statement($_)->{declared},
     "Clownfish::Variable", "var_declaration_statement: $_" )
@@ -125,7 +125,7 @@ my %sub_args = ( class => 'Stuff::Obj', 
 ok( $parser->declaration_statement( $_, 0, %sub_args, inert => 1 ),
     "declaration_statment: $_" )
     for (
-    'public Foo* Spew_Foo(Obj *self, u32_t *how_many);',
+    'public Foo* Spew_Foo(Obj *self, uint32_t *how_many);',
     'private Hash *hash;',
     );
 



Mime
View raw message