[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: SUBDIR in Makefile
In message <200604041329.WAA99734@shell.rim.or.jp> I wrote:
> 今度は、
> ru/list2html.pl では PerlIO で変換をしているので
> ja もそのようにせよといわれております。
>
> http://cvsweb.NetBSD.org/bsdweb.cgi/htdocs/ru/list2html.pl#rev1.17
>
> EUC-JP と ISO-2022-JP との間の変換は、
> nkf -Ej や nkf -Je と同じ結果になりますので、
> 気持ち悪いですが、実用上の問題はないのではないかと思います。
>
> 水曜日までに異議がなければ、
> gallery/in-Action 以下なども含めてそのようにします。
gallery/in-Action 以下は、このメイルの最後につけた差分のようにします。
あと、Documentation/Hardware/Machines/DEC/vax 以下の
data2html.pl ですが、
原文は data2xml.pl に移行しておりすでに使われていません。
削除してしまってよろしいですか。
また、このディレクトリーにたくさんある .xml ファイルは
やまのさんが担当になっていますが、
これらは vax-data から data2xml.pl で生成されるものです。
これらの .xml ファイルを translation-assign.txt から削除して
translation-ignore.txt に追加し、
vax-data のみ残すことにしてよろしいですか。
金曜日までに異議がなければそのようにします。
Index: Makefile
===================================================================
RCS file: /cvsroot/htdocs/ja/gallery/in-Action/Makefile,v
retrieving revision 1.7
diff -u -r1.7 Makefile
--- Makefile 29 Mar 2006 15:09:04 -0000 1.7
+++ Makefile 6 Apr 2006 14:08:37 -0000
@@ -13,7 +13,7 @@
.SUFFIXES: .act-template .html
.act-template.html:
- iconv -f iso-2022-jp -t euc-jp < $< | perl mkact.pl >$*.act
+ perl mkact.pl <$< >$*.act
perl ./act2html.pl $*.act $@
rm $*.act
Index: mkact.pl
===================================================================
RCS file: /cvsroot/htdocs/ja/gallery/in-Action/mkact.pl,v
retrieving revision 1.6
diff -u -r1.6 mkact.pl
--- mkact.pl 29 Mar 2006 15:10:55 -0000 1.6
+++ mkact.pl 6 Apr 2006 14:08:37 -0000
@@ -8,6 +8,9 @@
# html files containing <IMG> tags are expected as $entry-img.html
# html files containing descriptions are expected as $entry-txt.html
+use open IN=>':encoding(iso-2022-jp)';
+use encoding "euc-jp", STDIN=>"iso-2022-jp";
+
$pic_left=0;
$debug=0;
@@ -17,7 +20,7 @@
if ( ! -f $file && -f "../../../gallery/in-Action/$file" ) {
$file = "../../../gallery/in-Action/$file";
}
- open(F, "iconv -f iso-2022-jp -t euc-jp $file|") or die "Cannot open $file for reading: $!\n";
+ open(F, "$file") or die "Cannot open $file for reading: $!\n";
while(<F>) {
s/<!--.*//g;
print "$_";
Index: act2html.pl
===================================================================
RCS file: /cvsroot/htdocs/ja/gallery/in-Action/act2html.pl,v
retrieving revision 1.7
diff -u -r1.7 act2html.pl
--- act2html.pl 29 Mar 2006 15:06:32 -0000 1.7
+++ act2html.pl 6 Apr 2006 14:08:37 -0000
@@ -21,6 +21,10 @@
# ls(1+1.4.3), ls(1.i386+1.4.3)
use strict;
+
+use open OUT=>':encoding(iso-2022-jp)';
+use encoding "euc-jp";
+
use Getopt::Std;
$^W=1;
my($verbose,%extras,$months_previous);
@@ -173,7 +177,7 @@
if ($data !~ s/(<head[^>]*>)/$1$_/i)
{ &fail("Unable to locate <head> tag"); }
- open(FILE,"|iconv -f euc-jp -t iso-2022-jp >$outfile") || die("Unable to write '$outfile': $!");
+ open(FILE,">$outfile") || die("Unable to write '$outfile': $!");
print FILE &extras_process($data,%extras);
close(FILE);
if ($date_num)