# HG changeset patch
# User kono
# Date 1046599197 -32400
# Node ID 13949e4d6f187b1ecc2d1645d5b0552e6a39cf3c
# Parent  714230f2d8b3ea74c353a317b83fb40228e98b83
*** empty log message ***

diff -r 714230f2d8b3 -r 13949e4d6f18 Calcon.pm
--- 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;
 }
 
diff -r 714230f2d8b3 -r 13949e4d6f18 Changes
--- 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 の前に呼ばないとだめ。
diff -r 714230f2d8b3 -r 13949e4d6f18 calcon.pl
--- 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);