/[suikacvs]/test/cvs
Suika

Diff of /test/cvs

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

revision 1.22 by wakaba, Wed May 29 11:05:53 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  }  }
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.24
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24