/[suikacvs]/test/cvs
Suika

Diff of /test/cvs

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

revision 1.26 by wakaba, Sun Jun 16 10:45:54 2002 UTC revision 1.27 by wakaba, Sun Jun 23 12:20:11 2002 UTC
# Line 38  push @ISA, qw(Message::Field::Structured Line 38  push @ISA, qw(Message::Field::Structured
38      -field_name_validation      => 1,   ## Method level option.      -field_name_validation      => 1,   ## Method level option.
39      -field_sort => 0,      -field_sort => 0,
40      #-format    => 'mail-rfc2822',      #-format    => 'mail-rfc2822',
41        -header_default_charset     => 'iso-2022-int-1',
42        -header_default_charset_input       => 'iso-2022-int-1',
43      -linebreak_strict   => 0,   ## Not implemented completely      -linebreak_strict   => 0,   ## Not implemented completely
44      -line_length_max    => 60,  ## For folding      -line_length_max    => 60,  ## For folding
45      #ns_default_phuri      #ns_default_phuri
# Line 355  sub _parse_value ($$$;%) { Line 357  sub _parse_value ($$$;%) {
357        -format   => $self->{option}->{format},        -format   => $self->{option}->{format},
358        -field_ns => $option{ns},        -field_ns => $option{ns},
359        -field_name       => $name,        -field_name       => $name,
360        -header_default_charset     => $self->{option}->{header_default_charset},
361        -header_default_charset_input       => $self->{option}->{header_default_charset_input},
362        -parse_all        => $self->{option}->{parse_all},        -parse_all        => $self->{option}->{parse_all},
363      %vopt);      %vopt);
364    } else {    } else {
# Line 363  sub _parse_value ($$$;%) { Line 367  sub _parse_value ($$$;%) {
367        -format   => $self->{option}->{format},        -format   => $self->{option}->{format},
368        -field_ns => $option{ns},        -field_ns => $option{ns},
369        -field_name       => $name,        -field_name       => $name,
370        -header_default_charset     => $self->{option}->{header_default_charset},
371        -header_default_charset_input       => $self->{option}->{header_default_charset_input},
372        -parse_all        => $self->{option}->{parse_all},        -parse_all        => $self->{option}->{parse_all},
373      %vopt);      %vopt);
374    }    }
# Line 562  sub _scan_sort ($\@\%) { Line 568  sub _scan_sort ($\@\%) {
568  }  }
569    
570  sub _n11n_field_name ($$) {  sub _n11n_field_name ($$) {
571      no strict 'refs';
572    my $self = shift;    my $self = shift;
573    my $s = shift;    my $s = shift;
574    $s =~ s/^$REG{WSP}+//; $s =~ s/$REG{WSP}+$//;    $s =~ s/^$REG{WSP}+//; $s =~ s/$REG{WSP}+$//;
# Line 719  sub _fold ($$;%) { Line 726  sub _fold ($$;%) {
726    $max = 20 if $max < 20;    $max = 20 if $max < 20;
727        
728    my $l = $option{-initial_length} || 0;    my $l = $option{-initial_length} || 0;
729    $string =~ s{((?:^|[\x09\x20])[^\x09\x20]+)}{    $l += length $1 if $string =~ /^([^\x09\x20]+)/;
730      $string =~ s{([\x09\x20][^\x09\x20]+)}{
731      my $s = $1;      my $s = $1;
732      if ($l + length $s > $max) {      if (($l + length $s) > $max) {
733        $s = "\x0D\x0A\x20" . $s;        $s = "\x0D\x0A\x20" . $s;
734        $l = length ($s) - 2;        $l = 1 + length $s;
735      } else { $l += length $s }      } else { $l += length $s }
736      $s;      $s;
737    }gex;    }gex;
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24