翻訳ドキュメント管理用
| Revision | dd7186a980bfb1682fe426166be6138e5eb05a3d (tree) |
|---|---|
| Time | 2021-06-28 20:17:43 |
| Author | matsuand <30614168+matsuand@user...> |
| Commiter | matsuand |
admin/po4a/getdraft.perl: Update a specific process only for jamanfile.
admin/po4a/gendraft.perl (diff)| @@ -47,8 +47,8 @@ open (my $fhorig, '<', $origmanfile) or die "Error: file not found: ".$origmanfi | ||
| 47 | 47 | open (my $fhja, '<', $jamanfile) or die "Error: file not found: ".$jamanfile; |
| 48 | 48 | |
| 49 | 49 | # do_proc_for 呼び出しを行って @origmanarray、@jamanarray をそれぞれ取得 |
| 50 | -my @origmanarray = &do_proc_for($fhorig); | |
| 51 | -my @jamanarray = &do_proc_for($fhja); | |
| 50 | +my @origmanarray = &do_proc_for($fhorig, 0); | |
| 51 | +my @jamanarray = &do_proc_for($fhja, 1); | |
| 52 | 52 | |
| 53 | 53 | close($fhja); |
| 54 | 54 | close($fhorig); |
| @@ -98,6 +98,7 @@ sub do_proc_for { | ||
| 98 | 98 | my $paragraph = ""; |
| 99 | 99 | |
| 100 | 100 | my $fh = $_[0]; |
| 101 | + my $extra = $_[1]; | |
| 101 | 102 | my @array = (); |
| 102 | 103 | my @subarray; |
| 103 | 104 |
| @@ -115,7 +116,8 @@ sub do_proc_for { | ||
| 115 | 116 | |
| 116 | 117 | # '\fR' + '空行' となる特殊ケースを処理 |
| 117 | 118 | # これを行わないと、最終的な生成配列の数が不一致となるため。 |
| 118 | - if ($currentline =~ /^(\s*)$/) { | |
| 119 | + # $extra = 1 を受け取ることにより、jaman のみを処理する。 | |
| 120 | + if ($currentline =~ /^(\s*)$/ && $extra == 1) { | |
| 119 | 121 | my $laststr = substr($paragraph, -4, 3); |
| 120 | 122 | if ($laststr eq "\\fR") { |
| 121 | 123 | # 前処理の最後が "\\fR" で終わっていて、次に空行がきた場合 |
Fork