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
#
# usage: composejamos offset <compose.map
#
#	2003/2/13, by wkpark@@kldp.org
#	* public domain *
#

sub usage() {
    print "usage: composejamos offset < compose.map\n";
    exit 1;
}

0 == @@ARGV && usage();

$WIDTH=1000;

$offset = $ARGV[0];
$enc=0xac00;
while (<STDIN>) {
#    my ($enc,$dummy)=split(/:/,$_,2);
    my ($dummy)=$_;
#    my $encoding=hex $enc++;
    my $name=sprintf "uni%04X",$enc;
    my $encoding=$enc++;

    print "StartChar: $name\n";
    print "Encoding: $encoding $encoding\nWidth: $WIDTH\nFlags: W\n";
    my @@refs=split(/\s+/,$dummy);
    foreach $ref (@@refs) {
          print "Ref: ".($ref+$offset)." -1 N 1 0 0 1 0 0\n";
    }
    print "EndChar\n";
}
@


1.1
log
@Initial revision
@
text
@d24 1
a24 1
    my $name=sprintf "uni%04x",$enc;
@


1.1.1.1
log
@Import
@
text
@@
