Update to the zh-TW and zh-HK translation table.

CVS version numbers

chinese/bin/totw.pl: 1.21 -> 1.22

1 files changed, 16 insertions, 8 deletions

diff --git a/chinese/bin/totw.pl b/chinese/bin/totw.pl
index 720f91aca72..f129f032ccb 100755
--- a/chinese/bin/totw.pl
+++ b/chinese/bin/totw.pl
@@ -1,5 +1,7 @@
 #!/usr/bin/perl -pi
 
+# $Id$
+
 $0 =~ m|to(..)\.pl$|;
 my $sublang = $1;
 my $SUBLANG = uc($sublang);
@@ -29,7 +31,6 @@ s/補丁文件/修補檔案/g;
 
 # 1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)“/$1「/);
 # 1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)”/$1」/);
-1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*(軟|硬))件/$1體/);
 1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*(軟|硬|光|磁))盤/$1碟/);
 
 
@@ -39,20 +40,25 @@ s/補丁文件/修補檔案/g;
 1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)字體/$1字型/);
 1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)後台/$1背景/);
 1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)菜單/$1選單/);
-1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)屏幕/$1螢幕/);
 1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)光標/$1游標/);
 1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)鼠標/$1滑鼠/);
-1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)腳本/$1稿本/);
 1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)站點/$1站台/);
+1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)界面/$1介面/);
+1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)腳本/$1稿本/);
+1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)屏幕/$1螢幕/);
 
 if ($sublang eq 'hk') {
 #    s/萬維網/全球資訊網/g;
-#    s/互聯網/網際網路/g;
+    s/全球資訊網/萬維網/g;
+    s/網際網(?=路|絡)/互聯網/g;
     1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)網路/$1網絡/);
-    1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)用戶/$1使用者/);
-#   1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)界面/$1介面/);
+    1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)使用者/$1用戶/);
     1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)計畫/$1計劃/);
-    1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)連(?=繫|絡)/$1聯/);
+#   1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)連(?=繫|絡)/$1聯/);
+    1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)連(?=絡)/$1聯/);
+    1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*(軟|硬))體/$1件/);
+    1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)列印/$1打印/);
+    1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)印表機/$1打印機/);
 }
 
 if ($sublang eq 'tw') {
@@ -60,9 +66,11 @@ if ($sublang eq 'tw') {
     s/互聯網/網際網路/g;
     1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)網絡/$1網路/);
     1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)用戶/$1使用者/);
-    1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)界面/$1介面/);
     1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)計劃/$1計畫/);
     1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)聯(?=繫|絡)/$1連/);
+    1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*(軟|硬))件/$1體/);
+    1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)打印機/$1印表機/);
+    1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)打印/$1列印/);
 }
 
 s/即插即用/隨插即用/g;