提交: 7c011b85a2db1c4f4cef3e3eefd9840a2b1b0488 - mytools (git)

Commit MetaInfo

• 修订版: 7c011b85a2db1c4f4cef3e3eefd9840a2b1b0488 (tree)
• 时间: 2020-10-24 23:01:15
• 作者: matsuand <30614168+matsuand@user...>
• Commiter: matsuand

Log Message

第3引数(ターゲットファイル)の追加.

更改概述

• modified: progit2ja_diff/progit2ja_diff.perl

差异

--- a/progit2ja_diff/progit2ja_diff.perl
+++ b/progit2ja_diff/progit2ja_diff.perl
@@ -1,27 +1,52 @@
 #!/usr/bin/perl
 
 ### progit2ja_diff.perl
+###
+###  利用方法
+###    ./progit2ja_diff.perl <origdir> <jadir>
+###
+###      <origdir>: progit2 オリジナルのソーストップディレクトリ名
+###      <jadir>:   progit/progit2-ja のソーストップディレクトリ名
+###      <target>:  (任意)処理対象とするascファイルのベース名。
+###                 この指定がない場合は全ファイルを対象とする。
+###
 ###  progit/progit2-ja のソース内にコメントとして示された原文部分を
-###  progit オリジナルソースと比較して、diff を取り標準出力します。
-###  実行は ./progit2ja_diff <origdir> <jadir> とします。
-###  ここで origdir は progit2 オリジナルのソーストップディレクトリ名、
-###  jadir は progit/progit2-ja のソーストップディレクトリ名です。
-###  ディレクトリ末尾のスラッシュは取り除いて指定します。
+###  progit オリジナル全ソースと比較して、diff を取り標準出力します。
 ###
 ###  処理方法はざっと以下です。<origdir> 配下の *.asc ファイルを順に
 ###  処理します。そのベース名に応じた <jadir> 配下の *.asc ファイル
 ###  (日本語版) を取得して、その英語原文コメント部分のみを抽出して、
 ###  /tmp ディレクトリ内に *.asc.tmp というファイル名で一時保存します。
-###  その *.asc.tmp とオリジナルソース配下の *.asc との間で diff を
+###  オリジナルソース配下の *.asc とその *.asc.tmp の間で diff を
 ###  取ります。結果は標準出力します。/tmp 配下に生成する *.asc.tmp は
-###  削除しません。処理が正しく行われているかどうかは、この一時ファイル
-###  を見て確認いる状態です。
+###  削除しません。処理が正しく行われているかどうかを、この一時ファイル
+###  を見て確認することができます。
+###
+###  処理にあたって日本語ソース *.asc での原文コメントの記述方法は、
+###  以下であることを大前提としています。この方法に合わないファイルは
+###  正しく処理されません。特に(日本語訳文)の終了は(改行)をもって判断
+###  しているため、これに合わない記述(いくらか存在します)は適切に処理
+###  されません。
+###      //////////////////////////
+###      (英語原文)
+###      //////////////////////////
+###      (日本語訳文)
+###      (改行)
+###      ...
 ###
 ###  <origdir> 配下にあって <jasrc> 配下にないソースファイルに対しては
 ###  diff 取得が不能であるため、標準出力に Warning: file not found: 
 ###  *.asc のメッセージを出します。ベース名が異なるだけでも diff 処理
 ###  は不能であり、このメッセージとなります。
 ###
+###  具体的な処理例
+###
+###  cd ~/foo/bar
+###  git clone https://github.com/progit/progit2.git
+###  git clone https://github.com/progit/progit2-ja.git
+###  perl progit2ja_diff.perl progit2 progit2-ja > diff.txt
+###  perl progit2ja_diff.perl progit2 progit2-ja aliases.asc
+###
 ###  随所でのエラー処理は、ほぼまったく考慮していません。
 ###  無保証。ライセンスは progit2 ソース同様、
 ###  Creative Commons Attribution-NonCommercial-ShareAlike 3.0 とします。
@@ -30,20 +55,28 @@ use strict;
 use File::Basename;
 use File::Path;
 
-my $orig_dir = shift; # top directory for the original progit2 sources
-my $ja_dir   = shift; # top directory for the progit2-ja sources
+my $orig_dir = shift; # top directory for original progit2 sources
+my $ja_dir   = shift; # top directory for progit2-ja sources
+my $target   = shift; # optional: basename of target file to be processed
 my $fh_tempfile;
 my $lines = "";
 my $first_flag;
 
+$orig_dir =~ s#/$##;
+$ja_dir =~ s#/$##;
+
 &proc_all_files($orig_dir, $ja_dir);
 
 sub proc_all_files {
-  my @origfiles = `find $_[0] -name "*.asc" | sort`;
+  my @origfiles = `find $_[0]/ -name "*.asc" | sort`;
   chomp @origfiles;
   foreach my $origfile (@origfiles) {
-    my $japath = $origfile;
-    $japath =~ s/$_[0]/$_[1]/;
+    if ($target ne "" ) {
+      if ($target ne basename $origfile) {
+        next;
+      }
+    }
+    my $japath = $origfile; $japath =~ s/$_[0]/$_[1]/;
     &output_ja_tempfile($japath);
   }
 }