changeset 7:13949e4d6f18

*** empty log message ***
author kono
date Sun, 02 Mar 2003 18:59:57 +0900
parents 714230f2d8b3
children 37b9a5119474
files Calcon.pm Changes calcon.pl
diffstat 3 files changed, 11 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/Calcon.pm	Sat Jan 25 15:44:44 2003 +0900
+++ b/Calcon.pm	Sun Mar 02 18:59:57 2003 +0900
@@ -67,8 +67,8 @@
    bless $self, $class;
    # 入出力ファイル名
    $self->{'-file'} = $file if ($file);
+   $self->option($opts);
    $self->initialize();  # this calls sub class' initializer.
-   $self->option($opts);
    return $self;
 }
 
--- a/Changes	Sat Jan 25 15:44:44 2003 +0900
+++ b/Changes	Sun Mar 02 18:59:57 2003 +0900
@@ -170,3 +170,11 @@
     date のみのデータ (時間抜き)
 がうまく表現できない。それに直すと、かなりenbugしそうだ。
 
+Sun Mar  2 18:57:33 JST 2003
+
+元のデータになんか変な「間隔」が入っていてnkf -Z でも取れない。
+nkf って utf16は読めないんだっけ? あと file read で double quote
+があるとだめだね。
+
+calcon.pl の file-out は、後から指定しても手遅れ。initialize
+の前でないと。options もinitialize の前に呼ばないとだめ。
--- a/calcon.pl	Sat Jan 25 15:44:44 2003 +0900
+++ b/calcon.pl	Sun Mar 02 18:59:57 2003 +0900
@@ -62,6 +62,7 @@
     $obj = $obj->new($from_opts);
 
     if ($opt_t =~ s/:.*//) { $to_opts = $&; }
+    $to_opts .= '-n' if ($opt_n);
     $opt_t =~ s/(\W)/\\$1/g;
     foreach my $key ( keys %output) {
 	if ($key =~ /^$opt_t/i) {
@@ -73,7 +74,7 @@
 # print "$obj $out\n";
     $obj->set_output($out);
 
-    $out->{'-file-out'} = $opt_n;
+    # $out->{'-file-out'} = $opt_n; too late
 
     foreach my $o ( $obj, $out) {
 	$o->set_debug(1) if ($opt_d);