--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/gui/painting/makepsheader.pl	Mon Jan 11 14:00:40 2010 +0000
@@ -0,0 +1,195 @@
+#!/usr/bin/perl
+#############################################################################
+##
+## Copyright (C) 2009 Nokia Corporation and/or its subsidiary(-ies).
+## 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";
+