/[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.25 by wakaba, Wed Jun 12 11:38:56 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        return 1 if $list->{ $$i->{ns} };
312    }    }
313    0;    0;
314  }  }
# Line 423  sub _value_to_arrayitem ($$$\%) { Line 433  sub _value_to_arrayitem ($$$\%) {
433    }    }
434    my $nsuri = $self->{ns}->{default_phuri};    my $nsuri = $self->{ns}->{default_phuri};
435    no strict 'refs';    no strict 'refs';
436    if ($option->{ns}) {    if ($value_option->{ns}) {
437        $nsuri = $value_option->{ns};
438      } elsif ($option->{ns}) {
439      $nsuri = $option->{ns};      $nsuri = $option->{ns};
440    } elsif ($name =~ s/^([Xx]-[A-Za-z]+|[A-Za-z]+)-//) {    } elsif ($name =~ s/^([Xx]-[A-Za-z]+|[A-Za-z]+)-//) {
441      my $oprefix = $1;      my $oprefix = $1;
# Line 461  first one is used and the others are not Line 473  first one is used and the others are not
473  =cut  =cut
474    
475  sub _replace_hash_shift ($\%$\%) {  sub _replace_hash_shift ($\%$\%) {
476    shift; my $r = shift;  my $n = $_[0]->{name};    shift; my $r = shift;  my $n = $_[0]->{name} . ':' . $_[0]->{ns};
477    if ($$r{$n}) {    if ($$r{$n}) {
478      my $d = $$r{$n};      my $d = $$r{$n};
479      delete $$r{$n};      delete $$r{$n};
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.25
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24