#!/usr/bin/perl

#############################################################################

##

## All rights reserved.

## Contact: Nokia Corporation (qt-info@nokia.com)

##

## This file is part of the QtGui module of the Qt Toolkit.

##

## $QT_BEGIN_LICENSE:LGPL$

## No Commercial Usage

## This file contains pre-release code and may not be distributed.

## You may use this file in accordance with the terms and conditions

## contained in the Technology Preview License Agreement accompanying

## this package.

##

## GNU Lesser General Public License Usage

## Alternatively, this file may be used under the terms of the GNU Lesser

## General Public License version 2.1 as published by the Free Software

## Foundation and appearing in the file LICENSE.LGPL included in the

## packaging of this file.  Please review the following information to

## ensure the GNU Lesser General Public License version 2.1 requirements

## will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.

##

## In addition, as a special exception, Nokia gives you certain additional

## rights.  These rights are described in the Nokia Qt LGPL Exception

## version 1.1, included in the file LGPL_EXCEPTION.txt in this package.

##

## If you have questions regarding the use of this file, please contact

## Nokia at qt-info@nokia.com.

##

##

##

##

##

##

##

##

## $QT_END_LICENSE$

##

#############################################################################

open(INPUT, 'qpsprinter.ps')

  or die "Can't open qpsprinter.ps";

$dontcompress = 1;

while(<INPUT>) {

  $line = $_;

  chomp $line;

  if ( /ENDUNCOMPRESS/ ) {

    $dontcompress = 0;

  }

  $line =~ s/%.*$//;

  $line = $line;

  if ( $dontcompress eq 1 ) {

    push(@uncompressed, $line);

  } else {

    push(@lines, $line);

  }

#  print "$line\n";

}

$uc = join(" ", @uncompressed);

$uc =~ s,\t+, ,g;

$uc=~ s, +, ,g;

$h = join(" ", @lines);

$h =~ s,\t+, ,g;

$h =~ s, +, ,g;

$h = $h.' ';

# now compress as much as possible

$h =~ s/ bind def / BD /g;

$h =~ s/ dup dup / d2 /g;

$h =~ s/ exch def / ED /g;

$h =~ s/ setfont / F /g;

$h =~ s/ rlineto / RL /g;

$h =~ s/ newpath / n /g;

$h =~ s/ currentmatrix / CM /g;

$h =~ s/ setmatrix / SM /g;

$h =~ s/ translate / TR /g;

$h =~ s/ setdash / SD /g;

$h =~ s/ aload pop setrgbcolor / SC /g;

$h =~ s/ currentfile read pop / CR /g;

$h =~ s/ index / i /g;

$h =~ s/ bitshift / bs /g;

$h =~ s/ setcolorspace / scs /g;

$h =~ s/ dict dup begin / DB /g;

$h =~ s/ end def / DE /g;

$h =~ s/ ifelse / ie /g;

# PDF compatible naming

$h =~ s/ setlinewidth / w /g;

$h =~ s/ setdash / d /g;

$h =~ s/ lineto / l /g;

$h =~ s/ moveto / m /g;

$h =~ s/ curveto / c /g;

$h =~ s/ closepath / h /g;

$h =~ s/ clip / W /g;

$h =~ s/ eoclip / W* /g;

$h =~ s/ gsave / gs /g;

$h =~ s/ grestore / gr /g;

# add the uncompressed part of the header before

$h = $uc.' '.$h;

#print $h;

# wordwrap at col 76

@head = split(' ', $h);

$line = shift @head;

while( @head ) {

  $token = shift @head;

  chomp $token;

#  print "\nl=$l, len=$len, token=$token.";

  $newline = $line.' '.$token;

  $newline =~ s, /,/,g;

  $newline =~ s, \{,\{,g;

  $newline =~ s, \},\},g;

  $newline =~ s, \[,\[,g;

  $newline =~ s, \],\],g;

  $newline =~ s,\{ ,\{,g;

  $newline =~ s,\} ,\},g;

  $newline =~ s,\[ ,\[,g;

  $newline =~ s,\] ,\],g;

  if ( length( $newline ) > 76 ) {

#    print "\nline=$line\n";

    $header = $header."\n\"".$line."\\n\"";

    $newline = $token;

  }

  $line = $newline;

}

$header = $header."\n\"".$line."\\n\"";

print "static const char *const ps_header =";

print $header.";\n\n";

close(INPUT);

exit;

open(INPUT, 'qpsprinter.agl')

  or die "Can't open qpsprinter.ps";

print "static const char * const agl =\n";

$str = "\"";

$string ="";

$i = 0;

while(<INPUT>) {

  $line = $_;

  chomp $line;

  $line =~ s/#.*//;

  if(length($line) ne 0) {

    $num = $line;

    $name = $line;

    $num =~ s/,.*//;

    $name =~ s/.*, \"//;

    $name =~ s/\".*//;

    push(@qchar, $num);

    push(@index, $i);

    if(length($str.$name) > 76) {

      $str = $str."\"\n";

      $string = $string.$str;

      $str = "\"";

    }

    $str = $str.$name."\\0";

    $i += length($name)+1;

  }

}

print $string.";\n\n";

print "static const struct { quint16 u; quint16 index; } unicodetoglyph[] = {\n    ";

$loop = 0;

while( @qchar ) {

  $loop = $loop + 1;

  $ch = shift @qchar;

  $i = shift @index;

  print "{".$ch.", ".$i."}";

  if($ch ne "0xFFFF") {

    print ", ";

  }

  if(!($loop % 4)) {

    print "\n    ";

  }

};

print "\n};\n\n";