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

Add the script to Generate xlatcharset directives for the config of Golded+

Browse Source
This commit is contained in:
Stas Degteff 2005-10-01 23:47:08 +00:00
parent feccbf5ab6
commit 7e57cd7130
1 changed files with 51 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
cfgs/config/xlatcfg.pl Executable file
View File

@ -0,0 +1,51 @@
#!/usr/bin/perl
# Generate xlatcharset directives for the config of Golded+
# using Golded+ charset conversion modules in text form (*.chs).
#
# Format:
# XLATCHARSET RUS IBMPC RUS_IBM.CHS
if($#ARGV<1){
die "Need two parameters: directory witn *.chs (1) and output file name (2)\n";
}
if( -f $ARGV[1] ){
die "File '$ARGV[1]' is exists, exiting\n";
}
if( ! -d $ARGV[0] ){
die "Directory '$ARGV[1]' is not exists, exiting\n";
}
my $dir=$ARGV[0], $out=$ARGV[1];
my @files=<$dir/*.chs>;
open OUT, ">$out" || die "Can't open/create file '$out': $!\n";
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";
my $count=1, $fromchs, $tochs;
while( <IN> ) {
next if( /^;/ ); # comment
next if( m%^//% ); # comment
next if( m%^#% ); # comment
chomp;
next if( m%^$% ); # empty line
if( m%^([^\s]+)% ) {
if($count==4){ $fromchs=$1; }
elsif($count==5){
$tochs=$1;
printf OUT "XLATCHARSET %-12s %-12s %s\n", $fromchs, $tochs, $f;
}
$count++;
}
}
close IN;
}
close OUT;