#*****************************************************************************
# Utility to generate font definition files for Unicode Truetype fonts        #
# Version: 1.12                                                               #
# Date:    2003-12-30                                                         #
******************************************************************************#

function ReadUFM($file, &$cidtogidmap)
{
  #Prepare empty CIDToGIDMap
  $cidtogidmap = str_pad('', 256*256*2, "\x00");
  
  #Read a font metric file
  $a=file($file);
  if ($a.empty?)
    die('File not found');
  $widths = []
  $fm = []
  foreach($a as $l)
  {
    $e=explode(' ',chop($l));
    if ($e.length<2)
      continue;
    $code=$e[0];
    $param=$e[1];
    if ($code=='U')
    {
      # U 827 ; WX 0 ; N squaresubnosp ; G 675 ;
      #Character metrics
      $cc=(int)$e[1];
      if ($cc != -1)
        $gn = $e[7];
        $w = $e[4];
        $glyph = $e[10];
        $widths[$cc] = $w;
        if ($cc == ?('X'))
          $fm['CapXHeight'] = $e[13];
          
        # Set GID
        if ($cc >= 0 && $cc < 0xFFFF && $glyph)
          $cidtogidmap{$cc*2} = ($glyph >> 8).chr;
          $cidtogidmap{$cc*2 + 1} = ($glyph & 0xFF).chr;
        }        
      }
      if ($gn=='.notdef' && !$fm['MissingWidth'].nil?)
        $fm['MissingWidth']=$w;
    }
    elsif ($code=='FontName')
      $fm['FontName']=$param;
    elsif ($code=='Weight')
      $fm['Weight']=$param;
    elsif ($code=='ItalicAngle')
      $fm['ItalicAngle']=(double)$param;
    elsif ($code=='Ascender')
      $fm['Ascender']=(int)$param;
    elsif ($code=='Descender')
      $fm['Descender']=(int)$param;
    elsif ($code=='UnderlineThickness')
      $fm['UnderlineThickness']=(int)$param;
    elsif ($code=='UnderlinePosition')
      $fm['UnderlinePosition']=(int)$param;
    elsif ($code=='IsFixedPitch')
      $fm['IsFixedPitch']=($param=='true');
    elsif ($code=='FontBBox')
      $fm['FontBBox']=Hash.new($e[1],$e[2],$e[3],$e[4]);
    elsif ($code=='CapHeight')
      $fm['CapHeight']=(int)$param;
    elsif ($code=='StdVW')
      $fm['StdVW']=(int)$param;
  }
  if (!$fm['MissingWidth'].nil?)
    $fm['MissingWidth']=600;

  if (!$fm['FontName'].nil?)
    die('FontName not found');

  $fm['Widths']=$widths;
  
  return $fm;
}

function MakeFontDescriptor($fm)
{
  #Ascent
  $asc=($fm['Ascender'].nil? ? $fm['Ascender'] : 1000);
  $fd="Hash.new('Ascent'=>".$asc;
  #Descent
  $desc=($fm['Descender'].nil? ? $fm['Descender'] : -200);
  $fd<<",'Descent'=>".$desc;
  #CapHeight
  if ($fm['CapHeight'].nil?)
    $ch=$fm['CapHeight'];
  elsif ($fm['CapXHeight'].nil?)
    $ch=$fm['CapXHeight'];
  else
    $ch=$asc;
  $fd<<",'CapHeight'=>".$ch;
  #Flags
  $flags=0;
  if ($fm['IsFixedPitch'].nil? and $fm['IsFixedPitch'])
    $flags+=1<<0;
  $flags+=1<<5;
  if ($fm['ItalicAngle'].nil? and $fm['ItalicAngle']!=0)
    $flags+=1<<6;
  $fd<<",'Flags'=>".$flags;
  #FontBBox
  if ($fm['FontBBox'].nil?)
    $fbb=$fm['FontBBox'];
  else
    $fbb=Hash.new(0,$des-100,1000,$asc+100);
  $fd<<",'FontBBox'=>'[".$fbb[0].' '.$fbb[1].' '.$fbb[2].' '.$fbb[3]."]'";
  #ItalicAngle
  $ia=($fm['ItalicAngle'].nil? ? $fm['ItalicAngle'] : 0);
  $fd<<",'ItalicAngle'=>".$ia;
  #StemV
  if ($fm['StdVW'].nil?)
    $stemv=$fm['StdVW'];
  elsif ($fm['Weight'].nil? and eregi('(bold|black)',$fm['Weight']))
    $stemv=120;
  else
    $stemv=70;
  $fd<<",'StemV'=>".$stemv;
  #MissingWidth
  if ($fm['MissingWidth'].nil?)
    $fd<<",'MissingWidth'=>".$fm['MissingWidth'];
  $fd<<')';
  return $fd;
}

function MakeWidthArray($fm)
{
  #Make character width array
  $s="Hash.new(";
  $cw=$fm['Widths'];
  $els = []
  $c=0;
  foreach ($cw as $i => $w)
  {
    $els[] = ((($c++)%16==0)?"\n\t":'').$i.'=>'.$w;
  }
  $s << implode(', ', $els);
  $s<<')';
  return $s;
}

function SaveToFile($file,$s,$mode='t')
{
  $f=fopen($file,'w'.$mode);
  if (!$f)
    die('Can\'t write to file '.$file);
  fwrite($f,$s,$s.length);
  fclose($f);
}

function ReadShort($f)
{
  $a=unpack('n1n',fread($f,2));
  return $a['n'];
}

function ReadLong($f)
{
  $a=unpack('N1N',fread($f,4));
  return $a['N'];
}

function CheckTTF($file)
{
  #Check if font license allows embedding
  $f=fopen($file,'rb');
  if (!$f)
    die('<B>Error:</B> Can\'t open '.$file);
  #Extract number of tables
  fseek($f,4,SEEK_CUR);
  $nb=ReadShort($f);
  fseek($f,6,SEEK_CUR);
  #Seek OS/2 table
  $found=false;
  for($i=0;$i<$nb;$i++)
  {
    if (fread($f,4)=='OS/2')
    {
      $found=true;
      break;
    }
    fseek($f,12,SEEK_CUR);
  }
  if (!$found)
  {
    fclose($f);
    return;
  }
  fseek($f,4,SEEK_CUR);
  $offset=ReadLong($f);
  fseek($f,$offset,SEEK_SET);
  #Extract fsType flags
  fseek($f,8,SEEK_CUR);
  $fsType=ReadShort($f);
  $rl=($fsType & 0x02)!=0;
  $pp=($fsType & 0x04)!=0;
  $e=($fsType & 0x08)!=0;
  fclose($f);
  if ($rl and !$pp and !$e)
    echo '<B>Warning:</B> font license does not allow embedding';
}

#*****************************************************************************
# $fontfile: path to TTF file (or empty string if not to be embedded)         #
# $ufmfile:  path to UFM file                                                 #
******************************************************************************#
function MakeFont($fontfile,$ufmfile)
{
  #Generate a font definition file
  set_magic_quotes_runtime(0);
  if (!file_exists($ufmfile))
    die('<B>Error:</B> UFM file not found: '.$ufmfile);
  $cidtogidmap = '';
  $fm=ReadUFM($ufmfile, $cidtogidmap);
  $fd=MakeFontDescriptor($fm);
  #Find font type
  if ($fontfile)
  {
    $ext=strtolower(substr($fontfile,-3));
    if ($ext=='ttf')
      $type='TrueTypeUnicode';
    else
      die('<B>Error:</B> not a truetype font: '.$ext);
  }
  else
  {
    if ($type!='TrueTypeUnicode')
      die('<B>Error:</B> incorrect font type: '.$type);
  }
  #Start generation
  $s=''."\n";
  $s<<'$type=\''.$type."';\n";
  $s<<'$name=\''.$fm['FontName']."';\n";
  $s<<'$desc='.$fd.";\n";
  if (!$fm['UnderlinePosition'].nil?)
    $fm['UnderlinePosition']=-100;
  if (!$fm['UnderlineThickness'].nil?)
    $fm['UnderlineThickness']=50;
  $s<<'$up='.$fm['UnderlinePosition'].";\n";
  $s<<'$ut='.$fm['UnderlineThickness'].";\n";
  $w=MakeWidthArray($fm);
  $s<<'$cw='.$w.";\n";
  $s<<"\$enc='';\n";
  $s<<"\$diff='';\n";
  $basename=substr(basename($ufmfile),0,-4);
  if ($fontfile)
  {
    #Embedded font
    if (!file_exists($fontfile))
      die('<B>Error:</B> font file not found: '.$fontfile);
    CheckTTF($fontfile);
    $f=fopen($fontfile,'rb');
    if (!$f)
      die('<B>Error:</B> Can\'t open '.$fontfile);
    $file=fread($f,filesize($fontfile));
    fclose($f);
    if (respond_to('gzcompress'))
    {
      $cmp=$basename.'.z';
      SaveToFile($cmp,gzcompress($file),'b');
      $s<<'$file=\''.$cmp."';\n";
      echo 'Font file compressed ('.$cmp.')<BR>';

      $cmp=$basename.'.ctg.z';
      SaveToFile($cmp,gzcompress($cidtogidmap),'b');
      echo 'CIDToGIDMap created and compressed ('.$cmp.')<BR>';     
      $s<<'$ctg=\''.$cmp."';\n";
    }
    else
    {
      $s<<'$file=\''.basename($fontfile)."';\n";
      echo '<B>Notice:</B> font file could not be compressed (gzcompress not available)<BR>';
      
      $cmp=$basename.'.ctg';
      $f = fopen($cmp, 'wb');
      fwrite($f, $cidtogidmap);
      fclose($f);
      echo 'CIDToGIDMap created ('.$cmp.')<BR>';
      $s<<'$ctg=\''.$cmp."';\n";
    }
    if ($type=='Type1')
    {
      $s<<'$size1='.$size1.";\n";
      $s<<'$size2='.$size2.";\n";
    }
    else
      $s<<'$originalsize='.filesize($fontfile).";\n";
  }
  else
  {
    #Not embedded font
    $s<<'$file='."'';\n";
  }
  $s<<"\n";
  SaveToFile($basename.'.rb',$s);
  echo 'Font definition file generated ('.$basename.'.rb'.')<BR>';
}

$arg = $GLOBALS['argv'];
if ($arg.length >= 3)
  ob_start();
  array_shift($arg);
  MakeFont($arg[0], $arg[1]);
  $t = ob_get_clean();
  print preg_replace('!<BR( /)!i', "\n", $t);
}
else
  print "Usage: makefontuni.rb <ttf-file> <ufm-file>\n";
}