• R/O
  • SSH
  • HTTPS

ttssh2: Commit


Commit MetaInfo

Revision10039 (tree)
Zeit2022-07-06 00:18:12
Autorzmatsuo

Log Message

ファイル変換スクリプトを修正

- 出力ファイルの時刻を入力ファイルと同じに変更しないオプションを追加

- -no_utimeオプション
- オプションを付けると、出力ファイルの時刻は出力した時刻になる

- カレントディレクトリが 2sjis.pl のあるフォルダではなくても動作するようにした

Ändern Zusammenfassung

Diff

--- trunk/doc/2sjis.pl (revision 10038)
+++ trunk/doc/2sjis.pl (revision 10039)
@@ -6,6 +6,7 @@
66 use Encode;
77 use utf8;
88 use Getopt::Long qw(:config posix_default no_ignore_case gnu_compat);
9+use File::Basename;
910
1011 my $PERL = $^X;
1112
@@ -12,7 +13,8 @@
1213 sub MarkdownToHTML {
1314 my $buf = $_[0];
1415
15- my $cmd = "$PERL Markdown_1.0.1/Markdown.pl";
16+ my $script_dir = dirname(__FILE__);
17+ my $cmd = "$PERL $script_dir/Markdown_1.0.1/Markdown.pl";
1618 # my $cmd = 'cat';
1719
1820 my $out_file = "MD_TO_HTML_$$" . "_md";
@@ -50,7 +52,8 @@
5052 my $coding = "shiftjis";
5153 my $lf = "crlf";
5254 my $type = "text";
53-my $zlib_special;
55+my $zlib_special = 0;
56+my $no_utime = 0;
5457
5558 $result = GetOptions('in|i=s' => \$in,
5659 'out|o=s' => \$out,
@@ -57,7 +60,8 @@
5760 'coding|c=s' => \$coding,
5861 'lf|l=s' => \$lf,
5962 'type|t=s' => \$type,
60- 'zlib_special' => \$zlib_special);
63+ 'zlib_special' => \$zlib_special,
64+ 'no_utime' => \$no_utime);
6165
6266 if (!(defined($in) && defined($out))) {
6367 die "Usage: $0 --in file --out file [ --coding input_encoding ] [ --lf line_format ] [ --type type ]\n";
@@ -98,7 +102,11 @@
98102 print $OUT $buf;
99103 close $OUT;
100104
101-if ($in ne "-") {
105+# 出力ファイルの時刻を入力ファイルと同一に変更する
106+# - makechm.bat では chm のコンパイルを最小にするために
107+# 出力ファイルの時刻を変更する
108+# - cmakeビルドでは、出力ファイルのほうが新しい状態にする
109+if (($in ne "-") && ($no_utime == 0)) {
102110 my(@filestat) = stat $in;
103111 utime $filestat[8], $filestat[9], $out;
104112 }
Show on old repository browser