# # - Encode-HanConvert - # This spec file was automatically generated by cpan2rpm [ver: 2.028] # The following arguments were used: # --keep-pipes Encode::HanConvert 2>&1 # For more information on cpan2rpm please visit: http://perl.arix.com/ # %define pkgname Encode-HanConvert %define filelist %{pkgname}-%{version}-filelist %define NVR %{pkgname}-%{version}-%{release} %define maketest 1 name: perl-Encode-HanConvert summary: Encode-HanConvert - Traditional and Simplified Chinese mappings version: 0.35 release: 1 vendor: Audrey Tang , packager: Arix International license: Artistic group: Applications/CPAN url: http://www.cpan.org buildroot: %{_tmppath}/%{name}-%{version}-%(id -u -n) buildarch: noarch prefix: %(echo %{_prefix}) source: http://search.cpan.org//CPAN/authors/id/A/AU/AUDREYT/Encode-HanConvert-0.35.tar.gz %description This module is an attempt to solve most common problems occured in Traditional vs. Simplified Chinese conversion, in an efficient, flexible way, without resorting to external tools or modules. If you are using perl 5.7.2 or earlier, all Unicode-related functions are disabled, and Encode::HanConvert::Perl is automagically loaded and used instead. In that case, please consult the Encode::HanConvert::Perl manpage instead. After installing this module, you'll have two additional encoding formats: `big5-simp' maps *Big5* into Unicode's Simplified Chinese (and vice versa), and `gbk-trad' maps *GBK* (also known as *CP936*) into Unicode's Traditional Chinese and back. The module exports various `xxx_to_yyy' functions by default, where xxx and yyy are one of `big5', `gb' (i.e. GBK/CP936), `simp' (simplified Chinese unicode), or `trad' (traditional Chinese unicode). You may also import `simple' and `trad', which are aliases for `simp_to_trad' and `trad_to_simp'; this is provided as a drop-in replacement for programs using the Lingua::ZH::HanConvert manpage. Since this is built on the Encode manpage's architecture, you may also use the line discipline syntax to perform the conversion implicitly (before 5.7.3, you need to use 'cp936' in place of 'gbk'): require Encode::CN; open BIG5, ':encoding(big5-simp)', 'big5.txt'; # as simplified open EUC, '>:encoding(gbk)', 'gbk.txt'; # as gbk print EUC, ; require Encode::TW; open EUC, ':encoding(gbk-trad)', 'gbk.txt'; # as traditional open BIG5, '>:encoding(big5)', 'big5.txt'; # as big-5 print BIG5, ; Or, more interestingly: =for encoding big5 use encoding 'big5-simp'; print "¤¤¤å"; # prints simplified Chinese in unicode # # This package was generated automatically with the cpan2rpm # utility. To get this software or for more information # please visit: http://perl.arix.com/ # %prep %setup -q -n %{pkgname}-%{version} chmod -R u+w %{_builddir}/%{pkgname}-%{version} %build grep -rsl '^#!.*perl' . | grep -v '.bak$' |xargs --no-run-if-empty \ %__perl -MExtUtils::MakeMaker -e 'MY->fixin(@ARGV)' CFLAGS="$RPM_OPT_FLAGS" %{__perl} Makefile.PL `%{__perl} -MExtUtils::MakeMaker -e ' print qq|PREFIX=%{buildroot}%{_prefix}| if \$ExtUtils::MakeMaker::VERSION =~ /5\.9[1-6]|6\.0[0-5]/ '` %{__make} %if %maketest %{__make} test %endif %install [ "%{buildroot}" != "/" ] && rm -rf %{buildroot} %{makeinstall} `%{__perl} -MExtUtils::MakeMaker -e ' print \$ExtUtils::MakeMaker::VERSION <= 6.05 ? qq|PREFIX=%{buildroot}%{_prefix}| : qq|DESTDIR=%{buildroot}| '` cmd=/usr/share/spec-helper/compress_files [ -x $cmd ] || cmd=/usr/lib/rpm/brp-compress [ -x $cmd ] && $cmd # SuSE Linux if [ -e /etc/SuSE-release -o -e /etc/UnitedLinux-release ] then %{__mkdir_p} %{buildroot}/var/adm/perl-modules %{__cat} `find %{buildroot} -name "perllocal.pod"` \ | %{__sed} -e s+%{buildroot}++g \ > %{buildroot}/var/adm/perl-modules/%{name} fi # remove special files find %{buildroot} -name "perllocal.pod" \ -o -name ".packlist" \ -o -name "*.bs" \ |xargs -i rm -f {} # no empty directories find %{buildroot}%{_prefix} \ -type d -depth \ -exec rmdir {} \; 2>/dev/null %{__perl} -MFile::Find -le ' find({ wanted => \&wanted, no_chdir => 1}, "%{buildroot}"); print "%doc map bin inc Changes README"; for my $x (sort @dirs, @files) { push @ret, $x unless indirs($x); } print join "\n", sort @ret; sub wanted { return if /auto$/; local $_ = $File::Find::name; my $f = $_; s|^\Q%{buildroot}\E||; return unless length; return $files[@files] = $_ if -f $f; $d = $_; /\Q$d\E/ && return for reverse sort @INC; $d =~ /\Q$_\E/ && return for qw|/etc %_prefix/man %_prefix/bin %_prefix/share|; $dirs[@dirs] = $_; } sub indirs { my $x = shift; $x =~ /^\Q$_\E\// && $x ne $_ && return 1 for @dirs; } ' > %filelist [ -z %filelist ] && { echo "ERROR: empty %files listing" exit -1 } %clean [ "%{buildroot}" != "/" ] && rm -rf %{buildroot} %files -f %filelist %defattr(-,root,root) %changelog * Thu Mar 31 2011 rpm@janus.arix.com - Initial build.