From 7d4f2c027e87fe84e8bb76bd344b33e682507bec Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 8 Aug 2008 13:50:42 +0000 Subject: installer lang supprt for zh variants: zh,zh-cn,zh-sg -> zh-cn, zh-tw,zh-hk->zh-tw Support on win32 and unix, remove unused perltk-zh since we now need only perltk-zh-cn and perltk-zh-tw git-svn-id: svn://tug.org/texlive/trunk@10176 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLWinGoo.pm | 11 ++--- Master/tlpkg/installer/install-menu-perltk.pl | 7 ++-- Master/tlpkg/installer/lang/perltk-zh | 59 --------------------------- 3 files changed, 9 insertions(+), 68 deletions(-) delete mode 100644 Master/tlpkg/installer/lang/perltk-zh (limited to 'Master') diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm index 93ca9ea3bb2..9900e6d4f4d 100644 --- a/Master/tlpkg/TeXLive/TLWinGoo.pm +++ b/Master/tlpkg/TeXLive/TLWinGoo.pm @@ -241,11 +241,12 @@ sub reg_country { return 0 unless $lm; debug("found lang codes value = $value, lm = $lm...\n"); if ($lm) { - if ($lm =~ m/^zh-(cn|tw)$/) { - return($lm); - } elsif ($lm =~ m/^zh-/) { - # anything else is mapped to simplified chinese for now - return("zh-cn"); + if ($lm =~ m/^zh-(tw|hk)$/i) { + return ("zh-tw"); + } elsif ($lm =~ m/^zh/) { + # for anything else starting with zh return, that is zh, zh-cn, zh-sg + # and maybe something else + return ("zh-cn"); } else { return(substr $lm, 0, 2); } diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index a740497a885..87540e76b03 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -58,12 +58,11 @@ if (defined($::opt_lang)) { $lang = defined($1)?$1:""; $area = defined($3)?$3:""; if ($lang eq "zh") { - if ($area eq "CN") { - $lang = "zh-cn"; - } elsif ($area eq "TW") { + if ($area =~ m/^(TW|HK)$/i) { $lang = "zh-tw"; } else { - # fallback to zh-cn! for HK and SG + # fallback to zh-cn for anything else, that is + # zh-cn, zh-sg, zh, and maybe something else $lang = "zh-cn"; } } diff --git a/Master/tlpkg/installer/lang/perltk-zh b/Master/tlpkg/installer/lang/perltk-zh deleted file mode 100644 index 880652c2e61..00000000000 --- a/Master/tlpkg/installer/lang/perltk-zh +++ /dev/null @@ -1,59 +0,0 @@ -# -# Simplified Chinese strings for texlive installer -# Hongyi zhao -# - -text.title: TeX Live 2008 安装 -text.basicinfo: 基本信息 -text.custom: 进一步定制 -text.dirsetup: 目录设置 -text.options: 选项 -text.sysint: 系统集成 -text.change: 改变 -text.toggle: 切换 -text.install: 安装 TeX Live -text.finbut: 完成 -text.quit: 退出 -text.ok: 确定 -text.cancel: 取消 -text.status: 安装进度 -text.changevar: 更改变量的值 -text.enterpath: 输入路径变量 -text.hinthome: (使用 ~ 作为 HOME/USERPROFILE) -text.selectscheme: 选择一个方案 -text.selectstdcol: 选择要安装的组件 -text.selectall: 全部选择 -text.selectnone: 取消全部选择 -text.selectlang: 选择语言支持 -text.selectdoc: 选择相关语言的文档 -text.createsym: 在标准位置创建符号链接 -text.binto: 程序文件安装位置 -text.manto: 手册文档(*.man)安装位置 -text.infoto: 超文本文档(*.info)安装位置 -text.selectsys: 选择系统架构 -text.outof: 来自 -text.collof: 集合来自 -text.diskreq: 需要的磁盘空间 -text.yes: 是 -text.no: 否 -text.notwritable: (默认位置不可写 - 请做相应更改!) -text.changetexdir: (请首先改变 TEXDIR !) -text.nolangcol: (没有选择语言集合!) -text.finished: 请参考 TEXDIR/index.html 来获得文档链接。TeX Live 官方网站\n(http://tug.org/texlive/) 包含所有相关的更新和修正。\nTeX Live 是全世界TeX用户组的一个合作项目 ;\n请考虑加入合适的TeX用户组来支持该项目。从\nhttp://tug.org/usergroups.html 可以获得TeX用户组的列表。 -text.finishedpath: 添加 TEXDIR/texmf/doc/man 到 MANPATH.\n添加 TEXDIR/texmf/doc/info 到 INFOPATH.\n最为重要的是,请添加 TEXDIR/bin/PLATFORM\n到你的 PATH 变量。 -text.welcome: 欢迎进入 TeX Live 的世界! - -label.binsys: 二进制系统 -label.scheme: 选择安装方案 -label.stdcoll: 标准安装 -label.langcoll: 语言集合 -label.texdir: TEXDIR (主 TeX 目录) -label.localdir: TEXMFLOCAL (存放本地格式文件等) -label.sysvardir: TEXMFSYSVAR (存放本地配置) -label.sysconfigdir: TEXMFSYSCONFIG (存放本地配置) -latel.texmfhome: TEXMFHOME (存放用户格式文件) -label.optletter: 默认使用 letter 而不是 A4 -label.optfmt: 创建所有格式文件 -label.optdoc: 安装字体/宏包文档目录树 -label.optsrc: 安装字体/宏包源码目录树 -label.symlink: 创建指向系统目录的符号链接 -- cgit v1.2.3