~ubuntu-branches/ubuntu/gutsy/lv/gutsy

« back to all changes in this revision

Viewing changes to src/mapksc.pl

Committer: Bazaar Package Importer
Author(s): GOTO Masanori
Date: 2003-11-16 01:21:59 UTC
Revision ID: james.westby@ubuntu.com-20031116012159-wpu27qhoxzskmjy0

Tags: upstream-4.50

Import upstream version 4.50

files added:

GPL.txt

README

build

build/README

hello.sample

hello.sample.gif

index.html

lv.1

lv.hlp

relnote.html

src/Makefile.dos

src/Makefile.in

src/ascii.h

src/attr.h

src/begin.h

src/big5.c

src/big5.h

src/big5.map

src/big5.rev

src/big5cns.map

src/big5cns.pl

src/boolean.h

src/command.c

src/command.h

src/conf.c

src/conf.h

src/config.guess

src/config.sub

src/configure

src/configure.in

src/console.c

src/console.h

src/conv.c

src/conv.h

src/ctable.c

src/ctable.h

src/ctable_e.h

src/ctable_t.h

src/d2u.pl

src/d2uall.sh

src/decode.c

src/decode.h

src/dfa.c

src/dfa.h

src/display.c

src/display.h

src/encode.c

src/encode.h

src/escape.c

src/escape.h

src/eucjapan.c

src/eucjapan.h

src/fetch.c

src/fetch.h

src/file.c

src/file.h

src/find.c

src/find.h

src/gb2312.map

src/gb2312.rev

src/guess.c

src/guess.h

src/guesslocale.c

src/guesslocale.h

src/hz.c

src/hz.h

src/ichar.h

src/import.h

src/install-sh

src/iso2022.c

src/iso2022.h

src/iso2cn.c

src/iso2cn.h

src/iso2jp.c

src/iso2jp.h

src/iso2kr.c

src/iso2kr.h

src/iso8859.c

src/iso8859.h

src/iso885910.map

src/iso885910.rev

src/iso885911.map

src/iso885911.rev

src/iso885913.map

src/iso885913.rev

src/iso885914.map

src/iso885914.rev

src/iso885915.map

src/iso885915.rev

src/iso885916.map

src/iso885916.rev

src/iso88592.map

src/iso88592.rev

src/iso88593.map

src/iso88593.rev

src/iso88594.map

src/iso88594.rev

src/iso88595.map

src/iso88595.rev

src/iso88596.map

src/iso88596.rev

src/iso88597.map

src/iso88597.rev

src/iso88598.map

src/iso88598.rev

src/iso88599.map

src/iso88599.rev

src/istr.c

src/istr.h

src/itable.c

src/itable.h

src/itable_e.h

src/itable_t.h

src/jis.map

src/jis0208.rev

src/jis0212.rev

src/kana.c

src/kana.h

src/keybind.h

src/ksc5601.map

src/ksc5601.rev

src/lv.c

src/map8859.pl

src/mapbig5.pl

src/mapgb.pl

src/mapjis.pl

src/mapksc.pl

src/nfa.c

src/nfa.h

src/position.h

src/raw.c

src/raw.h

src/re.c

src/re.h

src/rev0208.pl

src/rev0212.pl

src/rev8859.pl

src/revbig5.pl

src/revgb.pl

src/revksc.pl

src/screen.c

src/screen.h

src/shiftjis.c

src/shiftjis.h

src/str.h

src/stream.c

src/stream.h

src/unimap.c

src/unimap.h

src/unirev.c

src/unirev.h

src/utf.c

src/utf.h

src/uty.c

src/uty.h

src/version.c

src/version.h

Show diffs side-by-side

added added

removed removed

src/mapksc.pl

#! /usr/local/bin/perl

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version.

# Unicode to KSC 5601-1987

$file = "zcat KSX1001.TXT.gz |";

for $i ( 0 .. $#ARGV ){

if( $ARGV[ $i ] eq "-i" ){

$file = $ARGV[ ++$i ];

}

open( FILE, $file ) || die( "cannot open $file" );

while( <FILE> ){

chop;

if( /^#/ ){

next;

}

( $ksc, $uni, $rest ) = split;

$count++;

$array{ $uni } = $ksc;

}

print "private codes_t mapKSC5601[ $count ] = {\n";

for $index ( sort keys( %array ) ){

$code = $array{ $index };

$count--;

if( $count == 0 ){

print " { $index, $code }\n";

} else {

print " { $index, $code },\n";

}

print "};\n";

Older »