[Ttssh2-commit] [7570] 抽出行にUTF-8 BOMが含まれるものは対象外とする。

scmno****@osdn***** scmno****@osdn*****
2019年 4月 11日 (木) 19:48:09 JST


Revision: 7570
          https://osdn.net/projects/ttssh2/scm/svn/commits/7570
Author:   yutakapon
Date:     2019-04-11 19:48:09 +0900 (Thu, 11 Apr 2019)
Log Message:
-----------
抽出行にUTF-8 BOMが含まれるものは対象外とする。

Modified Paths:
--------------
    trunk/installer/check_sjis_code.pl

-------------- next part --------------
Modified: trunk/installer/check_sjis_code.pl
===================================================================
--- trunk/installer/check_sjis_code.pl	2019-04-10 15:21:58 UTC (rev 7569)
+++ trunk/installer/check_sjis_code.pl	2019-04-11 10:48:09 UTC (rev 7570)
@@ -84,8 +84,10 @@
 #			printf "%s\n", $enc->name;
 			if ($enc->name !~ /ascii/) {
 #				printf "%s\n", $enc->name;
-				print "$filename:$no: $1\n";
-				print "$line\n";
+				if (!check_skipped_line($line)) {
+					print "$filename:$no: $1\n";
+					print "$line\n";
+				}
 			}
 		}
 #		if ($line =~ /([\xA1-\xDF]|[\x81-\x9F\xE0-\xEF][\x40-\x7E\x80-\xFC])/) {
@@ -97,3 +99,19 @@
 	close(FP);
 }
 
+# \x8Ds\x82\xAA\x91ΏۊO\x82\xA9\x82ǂ\xA4\x82\xA9\x82\xF0\x83`\x83F\x83b\x83N\x82\xB7\x82\xE9
+#   true: \x91ΏۊO\x82ł\xA0\x82\xE9
+#   false: \x91ΏۊO\x82ł͂Ȃ\xA2 
+sub check_skipped_line {
+	my($line) = shift;
+	my($pos);
+	
+#	print "[$line]";
+	
+	# UTF-8 BOM
+	$pos = index($line, pack("C3", 0xef, 0xbb, 0xbf));
+#	print "$pos\n";
+	return 1 if ($pos != -1);	
+
+	return 0;
+}


Ttssh2-commit メーリングリストの案内