Commit a145abd3 authored by Chinese Language Team's avatar Chinese Language Team

* Moved the Perl script in Make.lang to their own separate files in bin.

* Some other minor (aesthetic) fixes.   <foka>

CVS version numbers

chinese/Make.lang: 1.8 -> 1.9 
chinese/index.wml: 1.9 -> 1.10 
chinese/related_links.wml: 1.6 -> 1.7 
chinese/social_contract.wml: 1.5 -> 1.6 
chinese/bin/tocn.pl: INITIAL -> 1.1 
chinese/bin/totw.pl: INITIAL -> 1.1 
chinese/devel/people.wml: 1.1 -> 1.2
parent 5474c523
......@@ -10,6 +10,8 @@ B5TOU8 = $(BIN)/b5tou8
U8TOB5 = $(BIN)/u8tob5
U8TOGB = $(BIN)/u8togb
B5TOGB = ( cat - | $(B5TOU8) | $(U8TOGB) )
TOCN = $(BIN)/tocn.pl
TOTW = $(BIN)/totw.pl
# The '-q' forces wml to be quiet. Very useful in scripts.
# It is sometimes useful to add '--epilog=weblint' to check for errors
......@@ -27,46 +29,13 @@ WMLPROLOG=--prolog='/usr/bin/perl -pe "s/^(([\\x00-\\x7F]|([\\x80-\\xFF].))+[\\x
WMLEPILOG=
WML=wml $(WMLOPTIONS) -o UNDEFu$(LANGUAGECAP):$(WMLOUTFILE) $(WMLPROLOG) $(WMLEPILOG)
%.$(LANGUAGE)-cn.html: %.$(LANGUAGE).html
@echo "Converting $< to $@ (zh_CN.GB2312)..."
@$(B5TOGB) < $< > $@
@perl -pi -e 's|^(<HTML lang="zh)">|$$1-CN">|;' \
-e 's|^(<META http-equiv=.*charset)=Big5">|$$1=GB2312">|;' \
-e 's/(\.zh)\.(gif|jpg|png)/$$1-cn.$$2/g;' \
-e 's|^<A href=".*">(中文&nbsp;\(GB\))</A>(&nbsp;)|$$1$$2|;' \
-e 's/软件套件/软件包/g; s/套件/软件包/g;' \
-e 's/^(([\x00-\x7F]|([\x80-\xFF].))+)「/$$1“/g;' \
-e 's/^(([\x00-\x7F]|([\x80-\xFF].))+)」/$$1”/g;' \
-e 's/^(([\x00-\x7F]|([\x80-\xFF].))+)软体/$$1软件/g;' \
-e 's/^(([\x00-\x7F]|([\x80-\xFF].))+)程式/$$1程序/g;' \
-e 's/^(([\x00-\x7F]|([\x80-\xFF].))+(软|硬|光))碟/$$1盘/g;' \
-e 's/^(([\x00-\x7F]|([\x80-\xFF].))+)相容/$$1兼容/g;' \
-e 's/^(([\x00-\x7F]|([\x80-\xFF].))+)电脑/$$1计算机/g;' \
-e 's/预设语言/缺省语言/g;' \
-e 's/映射站/镜像站/g;' \
-e 's/伺服器/服务器/g;' \
$@
@$(TOCN) $@
%.$(LANGUAGE)-tw.html: %.$(LANGUAGE).html
@echo "Converting $< to $@ (zh_TW.Big5)..."
# @$(U8TOB5) < $< > $@
@cp -a $< $@
@perl -pi -e 's|^(<HTML lang="zh)">|$$1-TW">|;' \
-e 's/(\.zh)\.(gif|jpg|png)/$$1-tw.$$2/g;' \
-e 's|^<A href=".*">(いゅ&nbsp;\(Big5\))</A>(&nbsp;)|$$1$$2|;' \
-e 's/巨╰参/穨╰参/g;' \
-e 's/狝叭竟/狝竟/g;' \
-e 's/方絏/﹍絏/g;' \
-e 's/秎患/硄癟阶韭/g;' \
-e 's/描钩/琈甮/g;' \
-e 's/霉ㄈ/霉甁﹁ㄈ/g;' \
-e 's/呼蹈癸禜家吏挂/呼蹈ン家吏挂/g;' \
-e 's/^(([\x00-\x7F]|([\x80-\xFF].))+)¨/$$1/g;' \
-e 's/^(([\x00-\x7F]|([\x80-\xFF].))+)〃/$$1/g;' \
-e 's/^(([\x00-\x7F]|([\x80-\xFF].))+(硁|祑))ン/$$1砰/g;' \
-e 's/^(([\x00-\x7F]|([\x80-\xFF].))+(硁|祑|))絃/$$1盒/g;' \
-e 's/^(([\x00-\x7F]|([\x80-\xFF].))+)甧/$$1甧/g;' \
$@
# -e 's/^(([\x00-\x7F]|([\x80-\xFF].))+)祘/$$1祘Α/g;' \
@$(TOTW) $@
#!/usr/bin/perl -pi
s|^(<HTML lang="zh)">|$1-CN">|;
s|^(<META http-equiv=.*charset)=Big5">|$1=GB2312">|;
s/(\.zh)(?=\.(?:gif|jpg|png))/$1-cn/g;
s|^<A href=".*">(中文&nbsp;\(GB\))</A>(?=&nbsp;)|$1|;
s/软件套件/软件包/g; s/套件/软件包/g;
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)+)「/$1“/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)+)」/$1”/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)+(软|硬))体(?!动物)/$1软件/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)+)程式/$1程序/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)+(软|硬|光))碟/$1盘/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)+)相容/$1兼容/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)+)电脑/$1计算机/) {}
s/预设语言/缺省语言/g;
s/映射站/镜像站/g;
s/伺服器/服务器/g;
#!/usr/bin/perl -pi
s|^(<HTML lang="zh)">|$1-TW">|;
s/(\.zh)(?=\.(?:gif|jpg|png))/$1-tw/g;
s|^<A href=".*">(中文&nbsp;\(Big5\))</A>(?=&nbsp;)|$1|;
s/操作系統/作業系統/g;
s/服務器/伺服器/g;
s/源代碼/原始碼/g;
s/郵遞列表/通訊論壇/g;
s/鏡像站/映射站/g;
s/克羅地亞/克羅埃西亞/g;
s/網絡對象模型環境/網絡物件模型環境/g;
while (s/^((?:[\x00-\x7f]|[\x80-\xff].)+)“/$1「/) {}
while (s/^((?:[\x00-\x7f]|[\x80-\xff].)+)”/$1」/) {}
while (s/^((?:[\x00-\x7f]|[\x80-\xff].)+(軟|硬))件/$1體/) {}
while (s/^((?:[\x00-\x7f]|[\x80-\xff].)+(軟|硬|光))盤/$1碟/) {}
while (s/^((?:[\x00-\x7f]|[\x80-\xff].)+)兼容/$1相容/) {}
# s/^((?:[\x00-\x7f]|[\x80-\xff].)+)程序/$1程式/g;
#use wml::debian::template title="計劃成員 / Project Participants" GEN_TIME="yes"
#use wml::debian::template title="計劃成員 (Project Participants)" GEN_TIME="yes"
<P>套件維護者的 PGP keys 可從<A
href="ftp://ftp.debian.org/debian/doc/debian-keyring.tar.gz">這裏</A>下載。
......
#use wml::debian::mainpage title="通用操作系統 / The Universal Operating System"
#use wml::debian::mainpage title="通用操作系統 (The Universal Operating System)"
#use wml::debian::recent_list
<BLOCKQUOTE>
......
#use wml::debian::template title="相關鏈結 / Related Links"
#use wml::debian::template title="相關鏈結 (Related Links)"
<P>下面列出了 Debian 用戶可能感興趣的網上的一些信息資源。
......
#use wml::debian::template title="社會契約 / A Social Contract"
#use wml::debian::template title="社會契約 (A Social Contract)"
<!-- -*- Mode: Sgml -*-
contract.html
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment