/[suikacvs]/test/cvs
Suika

Diff of /test/cvs

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.21 by wakaba, Sun May 26 01:20:09 2002 UTC revision 1.24 by wakaba, Tue Jun 11 13:01:21 2002 UTC
# Line 213  sub parse ($$;%) { Line 213  sub parse ($$;%) {
213        my ($s,undef,$value) = $self->_value_to_arrayitem        my ($s,undef,$value) = $self->_value_to_arrayitem
214          ($name => $body, $self->{option});          ($name => $body, $self->{option});
215        push @{$self->{value}}, $value if $s;        push @{$self->{value}}, $value if $s;
216        } elsif (length $field) {
217          my ($s,undef,$value) = $self->_value_to_arrayitem
218            ('x-unknown' => $field, $self->{option});
219          push @{$self->{value}}, $value if $s;
220      }      }
221    }    }
222    $self;    $self;
# Line 260  sub parse_array ($\@;%) { Line 264  sub parse_array ($\@;%) {
264        my ($s,undef,$value) = $self->_value_to_arrayitem        my ($s,undef,$value) = $self->_value_to_arrayitem
265          ($name => $body, $self->{option});          ($name => $body, $self->{option});
266        push @{$self->{value}}, $value if $s;        push @{$self->{value}}, $value if $s;
267        } elsif (length $field) {
268          my ($s,undef,$value) = $self->_value_to_arrayitem
269            ('x-unknown' => $field, $self->{option});
270          push @{$self->{value}}, $value if $s;
271      }      }
272      last if $#$header < 0;      last if $#$header < 0;
273    }    }
# Line 299  sub _item_match ($$\$\%\%) { Line 307  sub _item_match ($$\$\%\%) {
307        }        }
308      }      }
309      return 1 if $l{$$i->{name} . ':' . $$i->{ns}};      return 1 if $l{$$i->{name} . ':' . $$i->{ns}};
310      } elsif ($by eq 'ns') {
311        my %o = %$option; $o{parse} = 0;
312        my %l;
313        for (keys %$list) {
314          my ($s, undef, $v) = $self->_value_to_arrayitem ($_, '', %o);
315          if ($s) {
316            $l{ $v->{ns} } = 1;
317          } else {
318            $l{ $self->{ns}->{default_phuri} } = 1;
319          }
320        }
321        return 1 if $l{ $$i->{ns} };
322    }    }
323    0;    0;
324  }  }
# Line 461  first one is used and the others are not Line 481  first one is used and the others are not
481  =cut  =cut
482    
483  sub _replace_hash_shift ($\%$\%) {  sub _replace_hash_shift ($\%$\%) {
484    shift; my $r = shift;  my $n = $_[0]->{name};    shift; my $r = shift;  my $n = $_[0]->{name} . ':' . $_[0]->{ns};
485    if ($$r{$n}) {    if ($$r{$n}) {
486      my $d = $$r{$n};      my $d = $$r{$n};
487      delete $$r{$n};      delete $$r{$n};
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.24
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24