ctests: pdf export for korean documents

Use Nanum-font for tests to get a readable pdf with luatatex/xelatex
This commit is contained in:
Kornel Benko 2014-03-10 13:33:46 +01:00
parent 4fb68544c6
commit 39c79a72be

View File

@ -67,7 +67,7 @@ my ($source, $dest, $format, $fontT, $rest) = @ARGV;
diestack("Too many arguments") if (defined($rest)); diestack("Too many arguments") if (defined($rest));
diestack("Sourcefilename not defined") if (! defined($source)); diestack("Sourcefilename not defined") if (! defined($source));
diestack("Destfilename not defined") if (! defined($dest)); diestack("Destfilename not defined") if (! defined($dest));
diestack("Format (e.g. pdf4) not defined") if (! defined($format)); diestack("FoNamunrmat (e.g. pdf4) not defined") if (! defined($format));
diestack("Font type (e.g. texF) not defined") if (! defined($fontT)); diestack("Font type (e.g. texF) not defined") if (! defined($fontT));
$source = File::Spec->rel2abs($source); $source = File::Spec->rel2abs($source);
@ -94,6 +94,11 @@ if ($fontT eq "systemF") {
$font{sans} = "WenQuanYi Micro Hei"; $font{sans} = "WenQuanYi Micro Hei";
$font{typewriter} = "WenQuanYi Micro Hei"; $font{typewriter} = "WenQuanYi Micro Hei";
} }
elsif ($lang eq "ko" ) {
$font{roman} = "NanumGothic"; # NanumMyeongjo, NanumGothic Eco, NanumGothicCoding
$font{sans} = "NanumGothic";
$font{typewriter} = "NanumGothic";
}
else { else {
# default system fonts # default system fonts
$font{roman} = "FreeSans"; $font{roman} = "FreeSans";