Changeset 2168

Show
Ignore:
Timestamp:
09/21/08 22:28:33 (4 months ago)
Author:
karpet
Message:

get all tests passing

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • libswish3/trunk/bindings/perl/XS/Token.xs

    r2165 r2168  
    4747        RETVAL 
    4848 
    49 SV* 
    50 start_byte (self) 
    51         swish_Token *   self; 
    52     CODE: 
    53         RETVAL = newSViv( self->start_byte ); 
    54          
    55     OUTPUT: 
    56         RETVAL 
    5749 
    5850SV* 
    …… 
    7163     
    7264    CODE: 
    73         self->ref_cnt--; 
     65        //self->ref_cnt--; 
    7466                         
    7567        if (SWISH_DEBUG) { 

  • libswish3/trunk/bindings/perl/XS/TokenIterator.xs

    r2161 r2168  
    1313    CODE: 
    1414        CLASS  = TOKEN_CLASS; 
     15        //warn("calling next token"); 
    1516        RETVAL = swish_next_token( self ); 
    16         RETVAL->ref_cnt++; 
     17        //warn("got next token %d", RETVAL); 
     18        if (RETVAL) 
     19            RETVAL->ref_cnt++; 
    1720         
    1821    OUTPUT: 
    …… 
    2427     
    2528    CODE: 
    26         self->ref_cnt--; 
     29        //self->ref_cnt--; 
    2730                         
    2831        if (SWISH_DEBUG) { 

  • libswish3/trunk/bindings/perl/lib/SWISH/3.pm

    r2161 r2168  
    2020    qw( mtime size encoding mime uri nwords ext parser ); 
    2121use constant SWISH_TOKEN_FIELDS => 
    22     qw( pos meta value context start_byte len ); 
     22    qw( pos meta value context len ); 
    2323 
    2424# load the XS at runtime, since we need $VERSION 

  • libswish3/trunk/bindings/perl/t/06constants.t

    r2161 r2168  
    33use SWISH::3 qw( :constants ); 
    44 
    5 is( SWISH_MIME,                'MIME',          SWISH_MIME ); 
    6 is( SWISH_PROP,                'PropertyNames', SWISH_PROP ); 
    7 is( scalar(SWISH_TOKEN_FIELDS), 6,               'SWISH_TOKEN_FIELDS' ); 
     5is( SWISH_MIME,                'MIME',          SWISH_MIME ); 
     6is( SWISH_PROP,                'PropertyNames', SWISH_PROP ); 
     7is( scalar(SWISH_TOKEN_FIELDS), 5,               'SWISH_TOKEN_FIELDS' ); 

  • libswish3/trunk/bindings/perl/t/10tokenize.t

    r2161 r2168  
    3333    for my $w (SWISH_TOKEN_FIELDS) { 
    3434 
    35         #diag( sprintf( "%15s: %s\n", $w, $token->$w ) ); 
     35        my $val = $token->$w; 
     36        if ( $w eq 'meta' ) { 
     37            $val = $val->name; 
     38        } 
     39        #diag( sprintf( "%15s: %s\n", $w, $val ) ); 
    3640 
    3741    }