#!/usr/bin/perl
# Generate Arabic kmap for Yudit from shape.pl
# 
@full_date = localtime(time);
$year = $full_date[5] + 1900;
$mon = $full_date[4] + 1;
$mday = $full_date[3];
$date = sprintf ("%4d-%02d-%02d", $year, $mon, $mday);

print <<EOD;
// This kmap file was generated from 
// The Experimental Arabic.kmap 
// 1998-06-18 Roman Czyborra\@cs.tu-berlin.de
// By Gaspar Sinai's perl script $0 at $date.
// 
EOD

#
# First the data.
#
%NAMES=();
%KEYS=();
while  (<DATA>)
{
  chomp;
  @_ = split ('~', $_);
  $h = $_[1];
  $h =~ s/0x(.*)/$1/go;
  $h = hex ($h);
  $k = sprintf ("%08X", $h);
  print "\"$_[0]=$_[1]\", //  " . &toUtf8 ($h) . " $_[2]\n";
  $NAMES{$k} = $_[2];
  $KEYS{$k} = $_[0];
}
print <<EOD;
//
// Shaping part using shape.mys. Autogenerated.
//
EOD

while (<>)
{
  chomp;
  if (/(.*)  -> [0-9A-F]+ [0-9A-F]+ [0-9A-F]+ [0-9A-F]+/)
  {
    $first = $1;
    @fspl = split(' ', $first);
    if ($#fspl < 0)
    {
       print STDERR "CAN not split $first \n";
       next;
    }

    $isdefined=1;
    $allkey = "\"";
    $alleq = "=";
    $allcomm = "";
    $allutf = "";
    $space="";
    # We care about ligatures only.
    next if ($#fspl <= 0);
    for (@fspl)
    {
      if (!defined ($KEYS{$_}))
      {
#        print STDERR "$_ in @fspl is not defined...\n";
        $isdefined=0;
        last;
      }
      $defin = $NAMES{$_};
      $defin =~ s/ARABIC LETTER //;
      $allkey .= $space; $allkey .= $KEYS{$_};
      $allcomm .= $space; $allcomm .= $defin;
      $allutf .= &toUtf8 (hex($_));
      $alleq .= $space; $alleq .=  sprintf ("0x%04x", hex ($_));
      $space=" ";
    }
    if ($isdefined == 1)
    {
       print $allkey . $alleq . "\", " . "// " . $allutf . " " . $allcomm . "\n";
    }
  }
}

print <<EOD;
//
// End of shaping part. Autogenerated.
//
EOD

exit (0);

sub toUtf8
{
  $str = $_[0];
  if ($_[0] >= 0x800) {
    $str  = chr (0xe0 | ($_[0] >> 12));
    $str .= chr (0x80 | (($_[0] >> 6) & 0x3f));
    $str .= chr (0x80 | ($_[0] & 0x3f));
  } elsif ($_[0] >= 0x80) {
    $str = chr (0xc0 | ($_[0] >> 6));
    $str .= chr (0x80 | ($_[0] & 0x3f));
  } else {
    $str .= chr ($str);
  }
  $str;
}

__END__
$~0x064C~ARABIC DAMMATAN~
%~0x064F~ARABIC DAMMA~
&~0x0651~ARABIC SHADDA~
'~0x064E~ARABIC FATHA~
*~0x0652~ARABIC SUKUN~
,~0x060C~ARABIC COMMA~
-~0x0640~ARABIC TATWEEL~
0x30~0x0660~ARABIC-INDIC DIGIT ZERO~
0x31~0x0661~ARABIC-INDIC DIGIT ONE~
0x32~0x0662~ARABIC-INDIC DIGIT TWO~
0x33~0x0663~ARABIC-INDIC DIGIT THREE~
0x34~0x0664~ARABIC-INDIC DIGIT FOUR~
0x35~0x0665~ARABIC-INDIC DIGIT FIVE~
0x36~0x0666~ARABIC-INDIC DIGIT SIX~
0x37~0x0667~ARABIC-INDIC DIGIT SEVEN~
0x38~0x0668~ARABIC-INDIC DIGIT EIGHT~
0x39~0x0669~ARABIC-INDIC DIGIT NINE~
;~0x061B~ARABIC SEMICOLON~
?~0x061F~ARABIC QUESTION MARK~
@~0x0621~ARABIC LETTER HAMZA~
A~0x0670~ARABIC LETTER SUPERSCRIPT ALEF~
^~0x064B~ARABIC FATHATAN~
_~0x064D~ARABIC KASRATAN~
`~0x0650~ARABIC KASRA~
a~0x0627~ARABIC LETTER ALEF~
aB~0x0625~ARABIC LETTER ALEF WITH HAMZA BELOW~
aH~0x0623~ARABIC LETTER ALEF WITH HAMZA ABOVE~
aM~0x0622~ARABIC LETTER ALEF WITH MADDA ABOVE~
b~0x0628~ARABIC LETTER BEH~
c~0x0635~ARABIC LETTER SAD~
d~0x062F~ARABIC LETTER DAL~
dD~0x0636~ARABIC LETTER DAD~
dK~0x0630~ARABIC LETTER THAL~
e~0x0639~ARABIC LETTER AIN~
f~0x0641~ARABIC LETTER FEH~
g~0x062C~ARABIC LETTER JEEM~
gF~0x06AF~ARABIC LETTER GAF~
h~0x0647~ARABIC LETTER HEH~
hH~0x0681~ARABIC LETTER HAH WITH HAMZA ABOVE~
hK~0x062D~ARABIC LETTER HAH~
i~0x063A~ARABIC LETTER GHAIN~
j~0x0649~ARABIC LETTER ALEF MAKSURA~
k~0x0643~ARABIC LETTER KAF~
l~0x0644~ARABIC LETTER LAM~
m~0x0645~ARABIC LETTER MEEM~
n~0x0646~ARABIC LETTER NOON~
p~0x067E~ARABIC LETTER PEH~
q~0x0642~ARABIC LETTER QAF~
r~0x0631~ARABIC LETTER REH~
s~0x0633~ARABIC LETTER SEEN~
S~0x0634~ARABIC LETTER SHEEN~
t~0x062A~ARABIC LETTER TEH~
tC~0x0686~ARABIC LETTER TCHEH~
tJ~0x0637~ARABIC LETTER TAH~
tK~0x062B~ARABIC LETTER THEH~
tM~0x0629~ARABIC LETTER TEH MARBUTA~
v~0x06A4~ARABIC LETTER VEH~
w~0x0648~ARABIC LETTER WAW~
wH~0x0624~ARABIC LETTER WAW WITH HAMZA ABOVE~
x~0x062E~ARABIC LETTER KHAH~
y~0x064A~ARABIC LETTER YEH~
yH~0x0626~ARABIC LETTER YEH WITH HAMZA ABOVE~
z~0x0632~ARABIC LETTER ZAIN~
zH~0x0638~ARABIC LETTER ZAH~
zJ~0x0698~ARABIC LETTER JEH~