bbs/deb-goldedplus
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix charset tables generation: remove directory part from filename. Uppercase charset names

Browse Source
This commit is contained in:
Stas Degteff 2005-12-17 18:27:09 +00:00
parent 1f599d707c
commit 50cf39d3d3
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
cfgs/config/xlatcfg.pl
View File

@ -1,5 +1,6 @@
#!/usr/bin/perl
# $Id$
# xlatcfg.pl
# Generate xlatcharset directives for the config of Golded+
# using Golded+ charset conversion modules in text form (*.chs).
#
@ -36,9 +37,10 @@ HEAD
print "Found " . ($#files+1) . " *.CHS files in $dir\n";
foreach my $f (@files) {
if( ! open( IN, "$dir/$f" ) ){ print STDERR "Can't open file '$dir/$f': $!\n"; next; }
print "Proceed $dir/$f\n";
if( ! open( IN, "$f" ) ){ print STDERR "Can't open file '$f': $!\n"; next; }
print "Proceed $f\n";
my $count=1, $fromchs, $tochs;
$f =~ s%.*/%%g;
while( <IN> ) {
next if( /^;/ ); # comment
next if( m%^//% ); # comment
@ -46,9 +48,9 @@ foreach my $f (@files) {
chomp;
next if( m%^$% ); # empty line
if( m%^([^\s]+)% ) {
if($count==4){ $fromchs=$1; }
if($count==4){ $fromchs=uc($1); }
elsif($count==5){
$tochs=$1;
$tochs=uc($1);
printf OUT "XLATCHARSET %-12s %-12s %s\n", $fromchs, $tochs, $f;
if($fromchs =~ /-/) {
( my $temp = $fromchs ) =~ s/-//g ;