head	1.2;
access;
symbols
	INIT:1.1.1.1 VENDOR:1.1.1;
locks; strict;
comment	@# @;


1.2
date	2008.07.02.11.51.23;	author wkpark;	state Exp;
branches;
next	1.1;

1.1
date	2004.08.10.16.05.55;	author wkpark;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	2004.08.10.16.05.55;	author wkpark;	state Exp;
branches;
next	;


desc
@@


1.2
log
@update scripts
@
text
@#!/usr/bin/perl
$DWIDTH=1000; # default width

while (<>) {
    my ($enc,$ref,$width)=split(/\s+/);
    my $encoding=hex $enc;
    my $name=sprintf "uni%04X",$encoding;

    if ($width) {
       $WIDTH=$width;
    } else {
       $WIDTH=$DWIDTH;
    }

    print "StartChar: $name\n";
    print "Encoding: $encoding $encoding\nWidth: $WIDTH\nFlags: W\n";
    print "Ref: ".(hex $ref)." -1 N 1 0 0 1 0 0\n";
    print "EndChar\n";
}
@


1.1
log
@Initial revision
@
text
@d2 1
a2 1
$DWIDTH=1000;
d7 1
a7 1
    my $name=sprintf "uni%04x",$encoding;
@


1.1.1.1
log
@Import
@
text
@@
