diff options
author | Anthony Fok <foka> | 2001-12-28 15:13:45 +0000 |
---|---|---|
committer | Anthony Fok <foka> | 2001-12-28 15:13:45 +0000 |
commit | 9aa3f790a3d5dc0d8fa24bd8a3ac0fc76bdbd39a (patch) | |
tree | 0c088c45af5aecadf2b666ac62dd370ad3e25647 /chinese/bin | |
parent | 421b99d455d4bb0652c68520843249b4f24686f4 (diff) |
Cantonese. ;-)
CVS version numbers
chinese/bin/totw.pl: 1.26 -> 1.27
Diffstat (limited to 'chinese/bin')
-rwxr-xr-x | chinese/bin/totw.pl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/chinese/bin/totw.pl b/chinese/bin/totw.pl index 43149dc7933..5aa13481066 100755 --- a/chinese/bin/totw.pl +++ b/chinese/bin/totw.pl @@ -66,6 +66,23 @@ if ($sublang eq 'hk') { 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/); + 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') { |