remove xdv2pdf_mergemarks per jkew (we have not shipped xdv2pdf since 2010)

git-svn-id: svn://tug.org/texlive/trunk@45918 c570f23f-e606-0410-a88d-b1316a301751

3 files changed, 0 insertions, 6536 deletions

diff --git a/Master/texmf-dist/scripts/xetex/perl/lib/PDF/Reuse.pm b/Master/texmf-dist/scripts/xetex/perl/lib/PDF/Reuse.pm
deleted file mode 100755
index e4dc259da61..00000000000
--- a/Master/texmf-dist/scripts/xetex/perl/lib/PDF/Reuse.pm
+++ /dev/null
@@ -1,6005 +0,0 @@
-package PDF::Reuse;
-
-use 5.006;
-use strict;
-use warnings;
-
-require    Exporter;                  
-require    Digest::MD5;
-use autouse 'Carp' => qw(carp
-                         cluck
-                         croak);
-
-# commented out avoid dependency for XeTeX installation
-# use Compress::Zlib qw(compress inflateInit);
-
-use autouse 'Data::Dumper'   => qw(Dumper);
-
-# changed for xetex installation to remove file system clutter
-# use AutoLoader 'AUTOLOAD';
-use SelfLoader; 
-
-our $VERSION = '0.292';
-our @ISA     = qw(Exporter);
-our @EXPORT  = qw(prFile
-                  prPage
-                  prId
-                  prIdType
-                  prInitVars
-                  prEnd
-                  prExtract
-                  prForm
-                  prImage
-                  prJpeg
-                  prDoc
-                  prDocForm
-                  prFont
-                  prFontSize
-                  prGraphState
-                  prGetLogBuffer
-                  prAdd
-                  prBar
-                  prText
-                  prDocDir
-                  prLogDir
-                  prLog
-                  prVers
-                  prCid
-                  prJs
-                  prInit
-                  prField
-                  prTouchUp
-                  prCompress
-                  prMbox
-                  prBookmark
-                  prStrWidth
-                  prLink);
-
-our ($utfil, $slutNod, $formCont, $imSeq, $duplicateInits, $page, $sidObjNr, $sida,
-    $interActive, $NamesSaved, $AARootSaved, $AAPageSaved, $root,
-    $AcroFormSaved, $id, $ldir, $checkId, $formNr, $imageNr, 
-    $filnamn, $interAktivSida, $taInterAkt, $type, $runfil, $checkCs,
-    $confuseObj, $compress, $pos, $fontNr, $objNr,
-    $defGState, $gSNr, $pattern, $shading, $colorSpace, $totalCount);
- 
-our (@kids, @counts, @formBox, @objekt, @parents, @aktuellFont, @skapa,
-    @jsfiler, @inits, @bookmarks, @annots);
- 
-our ( %old, %oldObject, %resurser, %form, %image, %objRef, %nyaFunk, %fontSource, 
-     %sidFont, %sidXObject, %sidExtGState, %font, %intAct, %fields, %script, 
-     %initScript, %sidPattern, %sidShading, %sidColorSpace, %knownToFile,
-     %processed, %embedded, %dummy, %behandlad, %unZipped, %links, %prefs);
-
-our $stream  = '';
-our $idTyp   = '';
-our $ddir    = '';
-our $log     = '';
-
-#########################
-# Konstanter för objekt
-#########################
-
-use constant   oNR        => 0;
-use constant   oPOS       => 1;
-use constant   oSTREAMP   => 2;
-use constant   oKIDS      => 3;
-use constant   oFORM      => 4;   
-use constant   oIMAGENR   => 5;  
-use constant   oWIDTH     => 6;  
-use constant   oHEIGHT    => 7;  
-use constant   oTYPE      => 8;
-use constant   oNAME      => 9;
-
-###################################
-# Konstanter för formulär
-###################################
-
-use constant   fOBJ       => 0;
-use constant   fRESOURCE  => 1;   
-use constant   fBBOX      => 2;
-use constant   fIMAGES    => 3;
-use constant   fMAIN      => 4;
-use constant   fKIDS      => 5;
-use constant   fNOKIDS    => 6;
-use constant   fID        => 7;
-use constant   fVALID     => 8;
-
-####################################
-# Konstanter för images
-####################################
-
-use constant   imWIDTH     => 0;   
-use constant   imHEIGHT    => 1; 
-use constant   imXPOS      => 2;
-use constant   imYPOS      => 3;
-use constant   imXSCALE    => 4;
-use constant   imYSCALE    => 5;
-use constant   imIMAGENO   => 6;
-
-#####################################
-# Konstanter för interaktiva objekt
-#####################################
-
-use constant   iNAMES     => 1;
-use constant   iACROFORM  => 2;
-use constant   iAAROOT    => 3;
-use constant   iANNOTS    => 4;
-use constant   iSTARTSIDA => 5;
-use constant   iAAPAGE    => 6;
-
-#####################################
-# Konstanter för fonter
-#####################################
-   
-use constant   foREFOBJ     => 0;
-use constant   foINTNAMN    => 1;
-use constant   foEXTNAMN    => 2;
-use constant   foORIGINALNR => 3;
-use constant   foSOURCE     => 4;
-
-##########
-# Övrigt
-##########
-
-use constant IS_MODPERL => $ENV{MOD_PERL}; # For mod_perl 1.
-                                           # For mod_perl 2 pass $r to prFile()
-our $touchUp  = 1;
-
-our %stdFont = 
-       ('Times-Roman'           => 'Times-Roman',
-        'Times-Bold'            => 'Times-Bold',
-        'Times-Italic'          => 'Times-Italic',
-        'Times-BoldItalic'      => 'Times-BoldItalic',
-        'Courier'               => 'Courier',
-        'Courier-Bold'          => 'Courier-Bold',
-        'Courier-Oblique'       => 'Courier-Oblique',
-        'Courier-BoldOblique'   => 'Courier-BoldOblique',
-        'Helvetica'             => 'Helvetica',
-        'Helvetica-Bold'        => 'Helvetica-Bold',
-        'Helvetica-Oblique'     => 'Helvetica-Oblique',
-        'Helvetica-BoldOblique' => 'Helvetica-BoldOblique',
-        'Symbol'                => 'Symbol',
-        'ZapfDingbats'          => 'ZapfDingbats', 
-        'TR'  => 'Times-Roman',
-        'TB'  => 'Times-Bold',
-        'TI'  => 'Times-Italic',
-        'TBI' => 'Times-BoldItalic',
-        'C'   => 'Courier',
-        'CB'  => 'Courier-Bold',
-        'CO'  => 'Courier-Oblique',
-        'CBO' => 'Courier-BoldOblique',
-        'H'   => 'Helvetica',
-        'HB'  => 'Helvetica-Bold',
-        'HO'  => 'Helvetica-Oblique',
-        'HBO' => 'Helvetica-BoldOblique',
-        'S'   => 'Symbol',
-        'Z'   => 'ZapfDingbats');
-
-our $genLowerX    = 0;
-our $genLowerY    = 0;
-our $genUpperX    = 595,
-our $genUpperY    = 842;
-our $genFont      = 'Helvetica';
-our $fontSize     = 12;
-
-keys(%resurser)  = 10;
-
-sub prFont
-{   my $nyFont = shift;
-    my ($intnamn, $extnamn, $objektnr, $oldIntNamn, $oldExtNamn);
-    
-    if (! $pos)
-    {  errLog("No output file, you have to call prFile first");
-    }
-    $oldIntNamn = $aktuellFont[foINTNAMN];
-    $oldExtNamn = $aktuellFont[foEXTNAMN]; 
-    if ($nyFont)
-    {  ($intnamn, $extnamn, $objektnr) = findFont($nyFont);
-    }
-    else
-    {   $intnamn = $aktuellFont[foINTNAMN];
-        $extnamn = $aktuellFont[foEXTNAMN];
-    }
-    if ($runfil)
-    {  $log .= "Font~$nyFont\n";
-    }
-    if (wantarray)
-    {  return ($intnamn, $extnamn, $oldIntNamn, $oldExtNamn);
-    }
-    else
-    {  return $intnamn;
-    }
-}
-
-sub prFontSize
-{   my $fSize = shift || 12;
-    my $oldFontSize = $fontSize;
-    if ($fSize =~ m'\d+\.?\d*'o)
-    { $fontSize = $fSize;
-      if ($runfil)
-      {  $log .= "FontSize~$fontSize\n";
-      }
-    }
-    if (! $pos)
-    {  errLog("No output file, you have to call prFile first");
-    }
-
-    return ($fontSize, $oldFontSize);    
-}
-    
-sub prFile
-{  if ($pos)
-   {  prEnd();
-      close UTFIL;
-   }
-   %prefs = ();
-   my $param = shift;
-   if (ref($param) eq 'HASH')
-   {  $filnamn  = '-';
-      for (keys %{$param})
-      {   my $key = lc($_);
-          if ($key eq 'name')
-          {  $filnamn = $param->{$_}; }
-          elsif (($key eq 'hidetoolbar')
-          ||     ($key eq 'hidemenubar')
-          ||     ($key eq 'hidewindowui')
-          ||     ($key eq 'fitwindow')
-          ||     ($key eq 'centerwindow'))
-          {  $prefs{$key} = $param->{$_};
-          }
-      }    
-   }
-   else
-   {  $filnamn  = $param || '-';
-      $prefs{hidetoolbar}  = $_[1]  if defined $_[1];
-      $prefs{hidemenubar}  = $_[2]  if defined $_[2];
-      $prefs{hidewindowui} = $_[3]  if defined $_[3];
-      $prefs{fitwindow}    = $_[4]  if defined $_[4];
-      $prefs{centerwindow} = $_[5]  if defined $_[5];
-   }
-   my $kortNamn;
-   if ($filnamn ne '-')
-   {   my $ri  = rindex($filnamn,'/');
-       if ($ri > 0)
-       {  $kortNamn = substr($filnamn, ($ri + 1));
-          $utfil = $ddir ? $ddir . $kortNamn : $filnamn; 
-       }
-       else
-       {  $utfil = $ddir ? $ddir . $filnamn : $filnamn;
-       }
-       $ri = rindex($utfil,'/');
-       if ($ri > 0)
-       {   my $dirdel = substr($utfil,0,$ri);
-           if (! -e $dirdel)
-           {  mkdir $dirdel || errLog("Couldn't create dir $dirdel, $!");
-           }
-       }
-       else
-       {  $ri = rindex($utfil,'\\');
-          if ($ri > 0)
-          {   my $dirdel = substr($utfil,0,$ri);
-              if (! -e $dirdel)
-              {  mkdir $dirdel || errLog("Couldn't create dir $dirdel, $!");
-              }
-          }
-       }
-   }
-   else
-   {   $utfil = $filnamn;
-   }
-   if (ref $utfil eq 'Apache::RequestRec') # mod_perl 2
-   { tie *UTFIL, $utfil;
-   }
-   elsif (IS_MODPERL && $utfil eq '-')     # mod_perl 1
-   { tie *UTFIL, 'Apache';
-   }
-   else
-   { open (UTFIL, ">$utfil") || errLog("Couldn't open file $utfil, $!");
-   }
-   binmode UTFIL;
-   my $utrad = "\%PDF-1.4\n\%\â\ã\Ï\Ó\n";
-   
-   $pos   = syswrite UTFIL, $utrad; 
-
-   if (defined $ldir)
-   {   if ($utfil eq '-')
-       {   $kortNamn = 'stdout';
-       }
-       if ($kortNamn)
-       {  $runfil = $ldir . $kortNamn  . '.dat';
-       }
-       else
-       {  $runfil = $ldir . $filnamn  . '.dat';
-       }
-       open (RUNFIL, ">>$runfil") || errLog("Couldn't open loggfile $runfil, $!");
-       $log .= "Vers~$VERSION\n";        
-   }
-
-   
-   @parents     = ();
-   @kids        = ();
-   @counts      = ();
-   @objekt      = ();
-   $objNr       = 2; # Reserverat objekt 1 för root och 2 för initial sidnod
-   $parents[0]  = 2;
-   $page        = 0;
-   $formNr      = 0;
-   $imageNr     = 0;
-   $fontNr      = 0;
-   $gSNr        = 0;
-   $pattern     = 0;
-   $shading     = 0;
-   $colorSpace  = 0;
-   $sida        = 0;
-   %font        = ();
-   %resurser    = ();
-   %fields      = ();
-   @jsfiler     = ();
-   @inits       = ();
-   %nyaFunk     = ();
-   %objRef      = ();
-   %knownToFile = ();
-   @aktuellFont = ();
-   %old         = ();
-   %behandlad   = ();
-   @bookmarks   = ();
-   %links       = ();
-   undef $defGState;
-   undef $interActive;
-   undef $NamesSaved;
-   undef $AARootSaved;
-   undef $AcroFormSaved;
-   $checkId    = '';
-   undef $duplicateInits;
-   undef $confuseObj;
-   $fontSize  = 12;
-   $genLowerX = 0;
-   $genLowerY = 0;
-   $genUpperX = 595,
-   $genUpperY = 842;
-   
-   prPage(1);
-   $stream = ' ';                
-   if ($runfil)
-   {  $filnamn = prep($filnamn);
-      $log .= "File~$filnamn";
-      $log .= (exists $prefs{hidetoolbar}) ? "~$prefs{hidetoolbar}" : '~';
-      $log .= (exists $prefs{hidemenubar}) ? "~$prefs{hidemenubar}" : '~';
-      $log .= (exists $prefs{hidewindowui}) ? "~$prefs{hidewindowui}" : '~';
-      $log .= (exists $prefs{fitwindow}) ? "~$prefs{fitwindow}" : '~';
-      $log .= (exists $prefs{centerwindow}) ? "~$prefs{centerwindow}" : "~\n";
-   }
-   1;
-}
-
-
-sub prPage
-{  my $noLogg = shift;
-   if ((defined $stream) && (length($stream) > 0))
-   { skrivSida();
-   }
-    
-   $page++;
-   $objNr++;
-   $sidObjNr = $objNr;
-   
-   #
-   # Resurserna nollställs
-   #
-  
-   %sidXObject    = ();
-   %sidExtGState  = ();
-   %sidFont       = ();
-   %sidPattern    = ();
-   %sidShading    = ();
-   %sidColorSpace = ();
-   @annots        = ();
-   
-   undef $interAktivSida;
-   undef $checkCs;
-   if (($runfil) && (! $noLogg))
-   {  $log .= "Page~\n";
-       print RUNFIL $log;
-       $log = '';
-   }
-   if (! $pos)
-   {  errLog("No output file, you have to call prFile first");
-   }
-   1;
-    
-}
-
-sub prText
-{ my $xFrom = shift;
-  my $y     = shift;
-  my $TxT   = shift;
-  my $how   = shift || '';
-
-  my ($xTo, $rotate); 
-  if (! defined $TxT)
-  {  $TxT = '';
-  } 
-
-  if (($xFrom !~ m'[\d\.]+'o) || (! defined $xFrom))
-  { errLog("Illegal x-position for text: $xFrom");
-  } 
-  if (($y !~ m'[\d\.]+'o) || (! defined $y))
-  { errLog("Illegal y-position for text: $y");
-  }
-
-  if ($runfil)
-  {   my $Texten   = prep($TxT);
-      $log .= "Text~$xFrom~$y~$Texten~$how\n";
-  } 
-
-  if (! $aktuellFont[foINTNAMN])
-  {  findFont();
-  }
-  my $Font        = $aktuellFont[foINTNAMN];        # Namn i strömmen
-  $sidFont{$Font} = $aktuellFont[foREFOBJ];
-  
-  if ($how)
-  {  $how = lc($how);
-     if ($how eq 'right')
-     {  $xTo    = $xFrom;
-        $xFrom -= prStrWidth($TxT, $aktuellFont[foEXTNAMN], $fontSize);
-     }
-     elsif ($how eq 'center')
-     {  my $width  = prStrWidth($TxT, $aktuellFont[foEXTNAMN], $fontSize);
-        $xTo = $xFrom + ($width / 2);
-        $xFrom =  $xTo - $width;    
-     }
-     elsif (($how ne 'left') && ($how =~ m'\d'o))
-     {  $rotate = $how;
-     }
-     elsif (wantarray)
-     {  $xTo = $xFrom + prStrWidth($TxT, $Font, $fontSize);
-     }
-  }
-  elsif (wantarray)
-  {  $xTo = $xFrom + prStrWidth($TxT, $Font, $fontSize);
-  }
-
-  $TxT =~ s|\(|\\(|gos;
-  $TxT =~ s|\)|\\)|gos;
-
-  unless ($rotate) 
-  {   $stream .= "\nBT /$Font $fontSize Tf ";
-      $stream .= "$xFrom $y Td \($TxT\) Tj ET\n";
-  }
-  else
-  {   if ($rotate =~ m'q(\d)'oi)
-      {  if ($1 eq '1')
-         {  $rotate = 270;
-         }
-         elsif ($1 eq '2')
-         {  $rotate = 180;
-         }
-         else
-         {  $rotate = 90;
-         }
-      }
-      my $radian = sprintf("%.6f", $rotate / 57.2957795);    # approx. 
-      my $Cos    = sprintf("%.6f", cos($radian));
-      my $Sin    = sprintf("%.6f", sin($radian));
-      my $negSin = $Sin * -1;
-      $stream .= "BT /$Font $fontSize Tf\n"
-               . "$Cos $Sin $negSin $Cos $xFrom $y Tm\n"
-               . "($TxT) Tj ET\n";   
-  }
-
-  if (! $pos)
-  {  errLog("No output file, you have to call prFile first");
-  }
-
-  if (wantarray)
-  {   return ($xFrom, $xTo);
-  }      
-  else
-  {   return 1;
-  }  
-}
-
-
-sub prAdd
-{  my $contents = shift;
-   $stream .= "\n$contents\n";
-   if ($runfil)
-   {   $contents = prep($contents);
-       $log .= "Add~$contents\n";
-   }
-   $checkCs = 1;
-   if (! $pos)
-   {  errLog("No output file, you have to call prFile first");
-   }
-   1;
-}
-
-########################## 
-# Ett grafiskt "formulär" 
-##########################
-
-sub prForm
-{ my ($sidnr, $adjust, $effect, $tolerant, $infil, $x, $y, $size, $xsize,
-      $ysize, $rotate);
-  my $param = shift;
-  if (ref($param) eq 'HASH')
-  {  $infil    = $param->{'file'};
-     $sidnr    = $param->{'page'} || 1;
-     $adjust   = $param->{'adjust'} || '';
-     $effect   = $param->{'effect'} || 'print';
-     $tolerant = $param->{'tolerant'} || '';
-     $x        = $param->{'x'} || 0;
-     $y        = $param->{'y'} || 0;
-     $rotate   = $param->{'rotate'} || 0;
-     $size     = $param->{'size'} || 1;
-     $xsize    = $param->{'xsize'} || 1;
-     $ysize    = $param->{'ysize'} || 1;
-  }
-  else
-  {  $infil    = $param;
-     $sidnr    = shift || 1;
-     $adjust   = shift || '';
-     $effect   = shift || 'print';
-     $tolerant = shift || '';
-     $x        = shift || 0;
-     $y        = shift || 0;
-     $rotate   = shift || 0;
-     $size     = shift || 1;
-     $xsize    = shift || 1;
-     $ysize    = shift || 1;
-  }
-  
-  my $refNr;
-  my $namn;
-  $type = 'form';  
-  my $fSource = $infil . '_' . $sidnr;
-  if (! exists $form{$fSource})
-  {  $formNr++;
-     $namn = 'Fm' . $formNr;
-     $knownToFile{$fSource} = $namn;
-     my $action;
-     if ($effect eq 'load')
-     {  $action = 'load'
-     }
-     else
-     {  $action = 'print'
-     }     
-     $refNr         = getPage($infil, $sidnr, $action);
-     if ($refNr)
-     {  $objRef{$namn} = $refNr; 
-     }
-     else
-     {  if ($tolerant)
-        {  if ((defined $refNr) && ($refNr eq '0'))   # Sidnumret existerar inte, men ok
-           {   $namn = '0';
-           }
-           else
-           {   undef $namn;   # Sidan kan inte användas som form
-           }
-        }
-        elsif (! defined $refNr)
-        {  my $mess = "$fSource can't be used as a form. Try e.g. to\n"
-                    . "save the file as postscript, and redistill\n";
-           errLog($mess);
-        }
-        else
-        {  errLog("File : $infil  Page: $sidnr  doesn't exist");
-        }
-     }
-  }
-  else
-  {  if (exists $knownToFile{$fSource})
-     {  $namn = $knownToFile{$fSource};
-     }
-     else
-     {  $formNr++;
-        $namn = 'Fm' . $formNr;
-        $knownToFile{$fSource} = $namn;
-     }
-     if (exists $objRef{$namn})
-     {  $refNr = $objRef{$namn};
-     }
-     else
-     {  if (! $form{$fSource}[fVALID])
-        {  my $mess = "$fSource can't be used as a form. Try e.g. to\n"
-                    . "save the file as postscript, and redistill\n";
-           if ($tolerant)
-           {  cluck $mess;
-              undef $namn;
-           }
-           else
-           {  errLog($mess);
-           }
-        }
-        elsif ($effect ne 'load')
-        {  $refNr         =  byggForm($infil, $sidnr);
-           $objRef{$namn} =  $refNr;
-        }
-     }
-  }
-  my @BBox = @{$form{$fSource}[fBBOX]} if ($refNr);
-  if (($effect eq 'print') && ($form{$fSource}[fVALID]) && ($refNr))
-  {   if (! defined $defGState)
-      { prDefaultGrState();
-      }
-  
-      if ($adjust)
-      {   $stream .= "q\n";
-          $stream .= fillTheForm(@BBox, $adjust);
-          $stream .= "\n/Gs0 gs\n";
-          $stream .= "/$namn Do\n";
-          $stream .= "Q\n";
-      }
-      elsif (($x) || ($y) || ($rotate) || ($size != 1) 
-                  || ($xsize != 1)     || ($ysize != 1))
-      {   $stream .= "q\n";
-          $stream .= calcMatrix($x, $y, $rotate, $size, 
-                     $xsize, $ysize, $BBox[2], $BBox[3]);
-          $stream .= "\n/Gs0 gs\n";
-          $stream .= "/$namn Do\n";
-          $stream .= "Q\n";
-      }
-      else
-      {   $stream .= "\n/Gs0 gs\n";   
-          $stream .= "/$namn Do\n";
-          
-      }
-      $sidXObject{$namn}   = $refNr;
-      $sidExtGState{'Gs0'} = $defGState;
-  }
-  if ($runfil)
-  {  $infil = prep($infil);
-     $log .= "Form~$infil~$sidnr~$adjust~$effect~$tolerant";
-     $log .= "~$x~$y~$rotate~$size~$xsize~$ysize\n";
-  }
-  if (! $pos)
-  {  errLog("No output file, you have to call prFile first");
-  }
-  if (($effect ne 'print') && ($effect ne 'add'))
-  {  undef $namn;
-  }
-  if (wantarray)
-  {  my $images = 0;
-     if (exists $form{$fSource}[fIMAGES])
-     {  $images = scalar(@{$form{$fSource}[fIMAGES]});
-     } 
-     return ($namn, $BBox[0], $BBox[1], $BBox[2], 
-             $BBox[3], $images);
-  }
-  else
-  {  return $namn;
-  }
-}
-
-
-
-##########################################################
-sub prDefaultGrState
-##########################################################
-{  $objNr++;
-   $defGState = $objNr;
-   if (! $pos)
-   {  errLog("No output file, you have to call prFile first");
-   }
-
-   $objekt[$objNr] = $pos;
-   my $utrad = "$objNr 0 obj" . '<</Type/ExtGState/SA false/SM 0.02/TR2 /Default'
-           . ">>endobj\n";
-   $pos += syswrite UTFIL, $utrad;
-   $objRef{'Gs0'} = $objNr;
-   return ('Gs0', $defGState);
-}
-
-######################################################
-# En font lokaliseras och fontobjektet skrivs ev. ut
-######################################################
-
-sub findFont()
-{  no warnings;
-   my $Font = shift || '';
-      
-   if (! (exists $fontSource{$Font}))        #  Fonten måste skapas
-   {  if (exists $stdFont{$Font})
-      {  $Font = $stdFont{$Font};}
-      else
-      {  $Font = $genFont; }                 # Helvetica sätts om inget annat finns
-      if (! (exists $font{$Font}))
-      {  $objNr++;
-         $fontNr++;
-         my $fontAbbr           = 'Ft' . $fontNr; 
-         my $fontObjekt         = "$objNr 0 obj<</Type/Font/Subtype/Type1" .
-                               "/BaseFont/$Font/Encoding/WinAnsiEncoding>>endobj\n";
-         $font{$Font}[foINTNAMN]      = $fontAbbr; 
-         $font{$Font}[foREFOBJ]       = $objNr;
-         $objRef{$fontAbbr}           = $objNr;
-         $fontSource{$Font}[foSOURCE] = 'Standard';
-         $objekt[$objNr]              = $pos;
-         $pos += syswrite UTFIL, $fontObjekt;
-      }
-   }
-   else
-   {  if (defined $font{$Font}[foREFOBJ])       # Finns redan i filen
-      {  ; }
-      else
-      {  if ($fontSource{$Font}[foSOURCE] eq 'Standard')
-         {   $objNr++;
-             $fontNr++;
-             my $fontAbbr           = 'Ft' . $fontNr; 
-             my $fontObjekt         = "$objNr 0 obj<</Type/Font/Subtype/Type1" .
-                                      "/BaseFont/$Font/Encoding/WinAnsiEncoding>>endobj\n";
-             $font{$Font}[foINTNAMN]    = $fontAbbr; 
-             $font{$Font}[foREFOBJ]     = $objNr;
-             $objRef{$fontAbbr}         = $objNr;
-             $objekt[$objNr]            = $pos;
-             $pos += syswrite UTFIL, $fontObjekt;
-         }
-         else
-         {  my $fSource = $fontSource{$Font}[foSOURCE];
-            my $ri      = rindex($fSource, '_');
-            my $Source  = substr($fSource, 0, $ri);
-            my $Page    = substr($fSource, ($ri + 1));
-            
-            if (! $fontSource{$Font}[foORIGINALNR])
-            {  errLog("Couldn't find $Font, aborts");
-            }
-            else
-            {  my $namn = extractObject($Source, $Page,
-                                        $fontSource{$Font}[foORIGINALNR], 'Font');
-            } 
-         }
-      }
-   }
-
-   $aktuellFont[foEXTNAMN]   = $Font;
-   $aktuellFont[foREFOBJ]    = $font{$Font}[foREFOBJ];
-   $aktuellFont[foINTNAMN]   = $font{$Font}[foINTNAMN];
-   
-   $sidFont{$aktuellFont[foINTNAMN]} = $aktuellFont[foREFOBJ];
-   if (! $pos)
-   {  errLog("No output file, you have to call prFile first");
-   }
-
-   return ($aktuellFont[foINTNAMN], $aktuellFont[foEXTNAMN], $aktuellFont[foREFOBJ]);  
-}
-
-sub skrivSida
-{  my ($compressFlag, $streamObjekt, @extObj);
-   if ($checkCs)
-   {  @extObj = ($stream =~ m'/(\S+)\s*'gso);
-      checkContentStream(@extObj);
-   }
-   if (( $compress ) && ( length($stream)  > 99 ))
-   {   my $output = compress($stream);
-       if ((length($output) > 25) && (length($output) < (length($stream))))
-       {  $stream = $output;
-          $compressFlag = 1;
-       }       
-   }
-      
-   if (! $parents[0])
-   { $objNr++;
-     $parents[0] = $objNr;
-   }
-   my $parent = $parents[0];
-
-   ##########################################   
-   #  Interaktiva funktioner läggs ev. till
-   ##########################################
-
-   if ($interAktivSida)
-   {  my ($infil, $sidnr) = split(/\s+/, $interActive);
-      ($NamesSaved, $AARootSaved, $AAPageSaved, $AcroFormSaved) 
-            = AcroFormsEtc($infil, $sidnr);     
-   }
-
-   ##########################
-   # Skapa resursdictionary
-   ##########################
-   my $resursDict = "/ProcSet[/PDF/Text]";
-   if (scalar %sidFont)
-   {  $resursDict .= '/Font << ';
-      my $i = 0;
-      for (keys %sidFont)
-      {  $resursDict .= "/$_ $sidFont{$_} 0 R";
-      }
-      
-      $resursDict .= " >>";
-   }
-   if (scalar %sidXObject)
-   {  $resursDict .= '/XObject<<';
-      for (keys %sidXObject)
-      {  $resursDict .= "/$_ $sidXObject{$_} 0 R";
-      }
-      $resursDict .= ">>";
-   }
-   if (scalar %sidExtGState)
-   {  $resursDict .= '/ExtGState<<';
-      for (keys %sidExtGState)
-      {  $resursDict .= "\/$_ $sidExtGState{$_} 0 R";
-      }
-      $resursDict .= ">>";
-   }
-   if (scalar %sidPattern)
-   {  $resursDict .= '/Pattern<<';
-      for (keys %sidPattern)
-      {  $resursDict .= "/$_ $sidPattern{$_} 0 R";
-      }
-      $resursDict .= ">>";
-   }
-   if (scalar %sidShading)
-   {  $resursDict .= '/Shading<<';
-      for (keys %sidShading)
-      {  $resursDict .= "/$_ $sidShading{$_} 0 R";
-      }
-      $resursDict .= ">>";
-   }
-   if (scalar %sidColorSpace)
-   {  $resursDict .= '/ColorSpace<<';
-      for (keys %sidColorSpace)
-      {  $resursDict .= "/$_ $sidColorSpace{$_} 0 R";
-      }
-      $resursDict .= ">>";
-   }
-
-      
-   my $resursObjekt;
-   
-   if (exists $resurser{$resursDict})
-   {  $resursObjekt = $resurser{$resursDict};  # Fanns ett identiskt,
-   }                                           # använd det
-   else
-   {   $objNr++;
-       if ( keys(%resurser) < 10)
-       {  $resurser{$resursDict} = $objNr;  # Spara 10 första resursobjekten
-       }
-       $resursObjekt   = $objNr;
-       $objekt[$objNr] = $pos;
-       $resursDict     = "$objNr 0 obj<<$resursDict>>endobj\n";
-       $pos += syswrite UTFIL, $resursDict ;
-    }
-    my $sidObjekt;
-
-    if (! $touchUp)
-    {   #
-        # Contents objektet skapas
-        #
-
-        my $devX = "900";
-        my $devY = "900";
-
-        my $mellanObjekt = '<</Type/XObject/Subtype/Form/FormType 1';
-        if (defined $resursObjekt)
-        {  $mellanObjekt .= "/Resources $resursObjekt 0 R";
-        }
-        $mellanObjekt .= "/BBox \[$genLowerX $genLowerY $genUpperX $genUpperY\]" .
-                     "/Matrix \[ 1 0 0 1 -$devX -$devY \]";
-
-        my $langd = length($stream);
-    
-        $objNr++;
-        $objekt[$objNr] = $pos;        
-        if (! $compressFlag)
-        {   $mellanObjekt  = "$objNr 0 obj\n$mellanObjekt/Length $langd>>stream\n" 
-                           . $stream;
-            $mellanObjekt .= "endstream\nendobj\n";
-        }
-        else
-        {   $stream = "\n" . $stream . "\n";
-            $langd++;
-            $mellanObjekt  = "$objNr 0 obj\n$mellanObjekt/Filter/FlateDecode"
-                           .  "/Length $langd>>stream" . $stream;
-            $mellanObjekt .= "endstream\nendobj\n";
-        }
-
-        $pos += syswrite UTFIL, $mellanObjekt;
-        $mellanObjekt = $objNr;
-
-        if (! defined $confuseObj)
-        {  $objNr++;
-           $objekt[$objNr] = $pos;
-
-           $stream = "\nq\n1 0 0 1 $devX $devY cm\n/Xwq Do\nq\n";
-           $langd = length($stream);
-           $confuseObj = $objNr;
-           $stream = "$objNr 0 obj<</Length $langd>>stream\n" . "$stream";
-           $stream .= "\nendstream\nendobj\n";
-           $pos += syswrite UTFIL, $stream;
-        }
-        $sidObjekt = "$sidObjNr 0 obj\n<</Type/Page/Parent $parent 0 R/Contents $confuseObj 0 R"
-                      . "/MediaBox \[$genLowerX $genLowerY $genUpperX $genUpperY\]"
-                      . "/Resources <</ProcSet[/PDF/Text]/XObject<</Xwq $mellanObjekt 0 R>>>>";
-    }
-    else
-    {   my $langd = length($stream);
-    
-        $objNr++;
-        $objekt[$objNr] = $pos; 
-        if (! $compressFlag)
-        {  $streamObjekt  = "$objNr 0 obj<</Length $langd>>stream\n" . $stream;
-           $streamObjekt .= "\nendstream\nendobj\n";
-        }
-        else
-        {  $stream = "\n" . $stream . "\n";
-           $langd++;
-
-           $streamObjekt  = "$objNr 0 obj<</Filter/FlateDecode"
-                             . "/Length $langd>>stream" . $stream;
-           $streamObjekt .= "endstream\nendobj\n";
-        }
-
-        $pos += syswrite UTFIL, $streamObjekt;
-        $streamObjekt = $objNr;
-        ##################################
-        # Så skapas och skrivs sidobjektet 
-        ##################################
-
-        $sidObjekt = "$sidObjNr 0 obj<</Type/Page/Parent $parent 0 R/Contents $streamObjekt 0 R"
-                      . "/MediaBox \[$genLowerX $genLowerY $genUpperX $genUpperY\]"
-                      . "/Resources $resursObjekt 0 R";
-    }
-    
-    $stream = '';
-
-    my $tSida = $sida + 1;
-    if ((@annots) 
-    || (defined @{$links{'-1'}}) 
-    || (defined @{$links{$tSida}}))
-    {  $sidObjekt .= '/Annots ' . mergeLinks() . ' 0 R';
-    }
-    if (defined $AAPageSaved)
-    {  $sidObjekt .= "/AA $AAPageSaved";
-       undef $AAPageSaved;
-    }
-    $sidObjekt .= ">>endobj\n";
-    $objekt[$sidObjNr] = $pos;
-    $pos += syswrite UTFIL, $sidObjekt;
-    push @{$kids[0]}, $sidObjNr;
-    $sida++;
-    $counts[0]++;
-    if ($counts[0] > 9)
-    {  ordnaNoder(8); }
-}
-
-
-sub prEnd
-{   if (! $pos)
-    {  return;
-    }
-    if ($stream)
-    { skrivSida(); }
-    skrivUtNoder();
-   
-    ###################
-    # Skriv root 
-    ###################
-
-    if (! defined $objekt[$objNr])
-    {  $objNr--;                   # reserverat sidobjektnr utnyttjades aldrig
-    }
-    
-    my $utrad = "1 0 obj<</Type/Catalog/Pages $slutNod 0 R";
-    if (defined $NamesSaved)
-    {  $utrad .= "\/Names $NamesSaved 0 R\n"; 
-    }
-    elsif ((scalar %fields) || (scalar @jsfiler))
-    {  $utrad .= "\/Names " . behandlaNames() . " 0 R\n";
-    }
-    if (defined $AARootSaved)
-    {  $utrad .= "/AA $AARootSaved\n";
-    } 
-    if ((scalar @inits) || (scalar %fields))
-    {  my $nyttANr = skrivKedja();
-       $utrad .= "/OpenAction $nyttANr 0 R";
-    }
-     
-    if (defined $AcroFormSaved)
-    {  $utrad .= "/AcroForm $AcroFormSaved\n";
-    } 
-   
-    if (scalar @bookmarks)
-    {  my $outLine = ordnaBookmarks();
-       $utrad .= "/Outlines $outLine 0 R\n";
-    }
-    if (scalar %prefs)
-    {   $utrad .= '/ViewerPreferences << ';
-        if (exists $prefs{hidetoolbar})
-        {  $utrad .= ($prefs{hidetoolbar}) ? '/HideToolbar true' 
-                                           : '/HideToolbar false'; 
-        }
-        if (exists $prefs{hidemenubar}) 
-        {  $utrad .= ($prefs{hidemenubar}) ? '/HideMenubar true'
-                                           : '/HideMenubar false';
-        }
-        if (exists $prefs{hidewindowui})
-        {  $utrad .= ($prefs{hidewindowui}) ? '/HideWindowUI true' 
-                                            : '/HideWindowUI false';
-        }
-        if (exists $prefs{fitwindow})
-        {  $utrad .= ($prefs{fitwindow}) ? '/FitWindow true'
-                                         : '/FitWindow false';
-        }
-        if (exists $prefs{centerwindow})
-        {  $utrad .= ($prefs{centerwindow}) ? '/CenterWindow true'
-                                            : '/CenterWindow false';
-        }
-        $utrad .= '>> ';
-    }
- 
-    $utrad .= ">>endobj\n";
-
-    $objekt[1] = $pos;
-    $pos += syswrite UTFIL, $utrad;
-    my $antal = $#objekt;
-    my $startxref = $pos;
-    my $xrefAntal = $antal + 1;
-    $pos += syswrite UTFIL, "xref\n";
-    $pos += syswrite UTFIL, "0 $xrefAntal\n";
-    $pos += syswrite UTFIL, "0000000000 65535 f \n";
-    
-    for (my $i = 1; $i <= $antal; $i++)
-    {  $utrad = sprintf "%.10d 00000 n \n", $objekt[$i];
-       $pos += syswrite UTFIL, $utrad;
-    }
-    
-    $utrad  = "trailer\n<<\n/Size $xrefAntal\n/Root 1 0 R\n";
-    if ($idTyp ne 'None')
-    {  my ($id1, $id2) = definieraId();
-       $utrad .= "/ID [<$id1><$id2>]\n";
-       $log  .= "IdType~rep\n";
-       $log  .= "Id~$id1\n";
-    }
-    $utrad .= ">>\nstartxref\n$startxref\n";
-    $pos += syswrite UTFIL, $utrad; 
-    $pos += syswrite UTFIL, "%%EOF\n";
-    close UTFIL;
-
-    if ($runfil)
-    {   if ($log)
-        { print RUNFIL $log;
-        }
-        close RUNFIL;
-    }
-    $log    = '';
-    $runfil = '';
-    $pos    = 0;
-    1;   
-}
-    
-sub ordnaNoder
-{  my $antBarn = shift;
-   my $i       = 0;
-   my $j       = 1;
-   my $vektor;
-      
-   while  ($antBarn < $#{$kids[$i]})
-   {  # 
-      # Skriv ut aktuell förälder
-      # flytta till nästa nivå
-      #
-      $vektor = '[';
-      
-      for (@{$kids[$i]})
-      {  $vektor .= "$_ 0 R "; }
-      $vektor .= ']';
-
-      if (! $parents[$j])
-      {  $objNr++;
-         $parents[$j] = $objNr;
-      }
-      
-      my $nodObjekt;
-      $nodObjekt = "$parents[$i] 0 obj<</Type/Pages/Parent $parents[$j] 0 R\n/Kids $vektor\n/Count $counts[$i]>>endobj\n";
-      
-      $objekt[$parents[$i]] = $pos;
-      $pos += syswrite UTFIL, $nodObjekt;
-      $counts[$j] += $counts[$i];
-      $counts[$i]  = 0;
-      $kids[$i]    = [];
-      push @{$kids[$j]}, $parents[$i];
-      undef $parents[$i];
-      $i++;
-      $j++;
-   }
-}
-          
-sub skrivUtNoder
-{  no warnings;
-   my ($i, $j, $vektor, $nodObjekt);
-   my $si = -1;
-   #
-   # Hitta slutnoden
-   #
-   for (@parents)
-   { $slutNod = $_; 
-     $si++;
-   }
-   
-   for ($i = 0; $parents[$i] ne $slutNod; $i++)
-   {  if (defined $parents[$i])  # Bara definierat om det finns kids
-      {  $vektor = '[';
-         for (@{$kids[$i]})
-         {  $vektor .= "$_ 0 R "; }
-         $vektor .= ']';
-         ########################################
-         # Hitta förälder till aktuell förälder
-         ########################################
-         my $nod;
-         for ($j = $i + 1; (! $nod); $j++)
-         {  if ($parents[$j])
-            {  $nod = $parents[$j];
-               $counts[$j] += $counts[$i];
-               push @{$kids[$j]}, $parents[$i];
-            }
-         }
-      
-         $nodObjekt = "$parents[$i] 0 obj<</Type/Pages/Parent $nod 0 R\n/Kids $vektor/Count $counts[$i]>>endobj\n";
-      
-         $objekt[$parents[$i]] = $pos;
-         $pos += syswrite UTFIL, $nodObjekt;
-      }
-   }
-   #####################################
-   #  Så ordnas och skrivs slutnoden ut
-   #####################################
-   $vektor = '[';
-   for (@{$kids[$si]})
-   {  $vektor .= "$_ 0 R "; }
-   $vektor .= ']';
-   $nodObjekt  = "$slutNod 0 obj<</Type/Pages/Kids $vektor/Count $counts[$si]";
-   $nodObjekt .= "/MediaBox \[$genLowerX $genLowerY $genUpperX $genUpperY\]";
-   $nodObjekt .= " >>endobj\n";
-   $objekt[$slutNod] = $pos;
-   $pos += syswrite UTFIL, $nodObjekt;
-          
-}
-
-sub findGet
-{  my ($fil, $cid) = @_;
-   $fil =~ s|\s+$||o;
-   my ($req, $extFil, $tempFil, $fil2, $tStamp, $res);
-   
-   if (-e $fil)
-   {  $tStamp = (stat($fil))[9];
-      if ($cid)
-      { 
-        if ($cid eq $tStamp)
-        {  return ($fil, $cid);
-        }
-      }
-      else
-      {  return ($fil, $tStamp);
-      }
-   }
-   if ($cid)
-   {  $fil2 = $fil . $cid;
-      if (-e $fil2)
-      {  return ($fil2, $cid);
-      }
-   }
-   errLog("The file $fil can't be found, aborts");  
-}
-   
-sub definieraId
-{  if ($idTyp eq 'rep')
-   {  if (! defined $id)
-      {  errLog("Can't replicate the id if is missing, aborting"); 
-      }
-      my $tempId = $id;
-      undef $id;
-      return ($tempId, $tempId);
-   }
-   elsif ($idTyp eq 'add')
-   {  $id++;
-      return ($id, $id);
-   }
-   else   
-   {  my $str = time();
-      $str .= $filnamn . $pos;
-      $str  = Digest::MD5::md5_hex($str);      
-      return ($str, $str);
-   }     
-}
-1;
-
-__DATA__
-
-=head1 NAME
-
-PDF::Reuse - Reuse and mass produce PDF documents   
-
-=head1 SYNOPSIS
-
-=for SYNOPSIS.pl begin
-
-   use PDF::Reuse;                     
-   prFile('myFile.pdf');                   # Mandatory function
-   prText(100, 500, 'Hello World !');
-   prEnd();                                # Mandatory function to flush buffers
-
-=for end
-
-=head1 DESCRIPTION
-
-This module could be used when you want to mass produce similar (but not identical)
-PDF documents and reuse templates, JavaScripts and some other components. It is
-functional to be fast, and to give your programs capacity to produce many pages
-per second and very big PDF documents if necessary.
-
-The module produces PDF-1.4 files. Some features of PDF-1.5, like "object streams"
-and "cross reference streams", are supported, but only at an experimental level. More
-testing is needed. (If you get problems with a new document from Acrobat 6.0, try to 
-save it or recreate it as a PDF-1.4 document first, before using it together with 
-this module.) 
-
-=over 2
-
-=item Templates
-
-Use your favorite program, probably a commercial visual tool, to produce single 
-PDF-files to be used as templates, and then use this module to B<mass produce> files 
-from them. 
-
-(If you want small PDF-files or want special graphics, you can use this module also,
-but visual tools are often most practical.)
-
-=item Lists
-
-The module uses "XObjects" extensively. This is a format that makes it possible
-create big lists, which are compact at the same time.
-
-=item JavaScript
-
-You can attach JavaScripts to your PDF-files, and "initiate" them (Acrobat 5.0, 
-Acrobat Reader 5.0.5 or higher).
-
-You can have libraries of JavaScripts. No cutting or pasting, and those who include 
-the scripts in documents only need to know how to initiate them. (Of course those
-who write the scripts have to know Acrobat JavaScript well.)
-
-See Remarks about Javascript
-
-=item PDF-operators
-
-The module gives you a good possibility to program at a "low level" with the basic
-graphic operators of PDF, if that is what you want to do. You can build your
-own libraries of low level routines, with PDF-directives "controlled" by Perl.
-
-=item Archive-format
-
-If you want, you get your new documents logged in a format suitable for archiving 
-or transfer.
-
-=back
-
-PDF::Reuse::Tutorial might show you best what you can do with this module.
-
-=head2 Remarks about Javascript
-
-If your user has Acrobat Reader 5.0.5 or higher, he/she should be able to use the 
-functions with JavaScript. The Reader should have the option "Allow File Open
-Actions and Launching File Attachments" checked under "Preferences".
-
-If he/she uses Acrobat there is a complication. Everything should work fine as long
-as new files are not read via the web. Acrobat has a plug in, "webpdf.api", which
-converts documents, also PDF-documents, when they are fetched over the net.
-That is probably a good idea in some cases, but B<it changes the documents, and 
-there is a great risk that JavaScripts are lost>.
-
-(In cases of real emergency, you can disable the plug in simply by removing it
-from the directory Plug_ins under Acrobat, put it in a safe place, and start Acrobat.
-And put it back before you need it next time.) 
-
-Anyway, almost every computer has the Reader somewhere, and if it is not of the
-right version, it can be downloaded. So with a little effort, it should be possible
-to use also the functions with JavaScrips on most computers.
-
-=head1 FUNCTIONS
-
-All functions which are successful return specified values or 1.
-
-The module doesn't make any attempt to import anything from encrypted files.
-
-=head1 Mandatory Functions
-
-=head2 prFile		- define output
-
-Alternative 1:
-
-   prFile ( $fileName );
-
-Alternative 2 with parameters in an anonymous hash:
-
-   prFile ( { Name         => $fileName,
-              HideToolbar  => 1,            # 1 | 0
-              HideMenubar  => 1,            # 1 | 0
-              HideWindowUI => 1,            # 1 | 0
-              FitWindow    => 1,            # 1 | 0
-              CenterWindow => 1   } );      # 1 | 0
-
-Alternative 3:
-
-   prFile ( $r );  # For mod_perl 2 pass the request object
-
-$fileName is optional, just like the rest of the parameters.
-File to create. If another file is current when this function is called, the first
-one is written and closed. Only one file is processed at a single moment. If
-$fileName is undefined, output is written to STDOUT. 
-
-HideToolbar, HideMenubar, HideWindowUI, FitWindow and CenterWindow control the
-way the document is initially displayed. 
-
-Look at any program in this documentation for examples. prInitVars() shows how
-this function could be used together with a web server.
-
-=head2 prEnd		- end/flush buffers 
-
-   prEnd ()
-
-When the processing is going to end, the buffers of the B<last> file has to be written to the disc.
-If this function is not called, the page structure, xref part and so on will be 
-lost.
-
-Look at any program in this documentation for an example.
-
-=head1 Optional Functions
-
-=head2 prAdd		- add "low level" instructions 
-
-    prAdd ( $string )
-
-With this command you can add whatever you want to the current content stream.
-No syntactical checks are made, but if you use an internal name, the module tries
-to add the resource of the "name object" to the "Resources" of current page.
-"Name objects" always begin with a '/'. 
-
-(In this documentation I often use talk about an "internal name". It denotes a 
-"name object". When PDF::Reuse creates these objects, it assigns Ft1, Ft2, Ft3 ...
-for fonts, Im1, Im2, Im3 for images, Fo1 .. for forms, Cs1 .. for Color spaces,
-Pt1 .. for patterns, Sh1 .. for shading directories, Gs0 .. for graphic state
-parameter dictionaries. These names are kept until the program finishes, 
-and my ambition is also to keep the resources available in internal tables.)
-
-This is a simple and very powerful function. You should study the examples and 
-the "PDF-reference manual", if you want to use it.(When this text is written,
-a possible link to download it is: 
-http://partners.adobe.com/asn/developer/acrosdk/docs.html) 
-
-This function is intended to give you detail control at a low level.
-
-   use PDF::Reuse;
-   use strict;
-
-   prFile('myFile.pdf');
-   my $string = "150 600 100 50 re\n";  # a rectangle 
-   $string   .= "0 0 1 rg\n";           # blue (to fill)
-   $string   .= "b\n";                  # fill and stroke
-   prAdd($string);                       
-   prEnd(); 
-
-
-=head2 prBookmark		- define bookmarks 
-
-   prBookmark($reference)
-
-Defines a "bookmark". $reference refers to a hash or array of hashes which look
-something like this:
- 
-          {  text  => 'Document',
-             act   => 'this.pageNum = 0; this.scroll(40, 500);',
-             kids  => [ { text => 'Chapter 1',
-                          act  => '1, 40, 600'
-                        },
-                        { text => 'Chapter 2',
-                          act  => '10, 40, 600'
-                        } 
-                      ]
-          }
-
-Each hash can have these components:
-
-        text    the text shown beside the bookmark
-        act     the action to be triggered. Has to be a JavaScript action.
-                (Three simple numbers are translated to page, x and y in the
-                sentences: this.pageNum = page; this.scroll(x, y); )
-        pdfact  an alternative to act: the raw PDF action to be triggered
-                (act will be used if present, otherwise pdfact)
-        kids    will have a reference to another hash or array of hashes
-        close   if this component is present, the bookmark will be closed
-                when the document is opened
-        color   3 numbers, RGB-colors e.g. '0.5 0.5 1' for light blue
-        style   0, 1, 2, or 3. 0 = Normal, 1 = Italic, 2 = Bold, 3 = Bold Italic
-
-Creating bookmarks for a document:
-
-    use PDF::Reuse;
-    use strict;
-
-    my @pageMarks;
-
-    prFile('myDoc.pdf');
-
-    for (my $i = 0; $i < 100; $i++)
-    {   prText(40, 600, 'Something is written');
-        # ...
-        my $page = $i + 1;
-        my $bookMark = { text => "Page $page",
-                         act  => "$i, 40, 700" };
-        push @pageMarks, $bookMark;
-        prPage();
-    }
-    prBookmark( { text  => 'Document',
-                  close => 1,
-                  kids  => \@pageMarks } );
-    prEnd();
-
-
-Traditionally bookmarks have mainly been used for navigation within a document,
-but they can be used for many more things. You can e.g. use them to navigate within
-your data. You can let your users go to external links also, so they can "drill down"
-to other documents.
-
-B<See "Remarks about Javascript">
-
-=head2 prCompress		- compress/zip added streams 
-
-   prCompress (1)
-
-'1' here is a directive to compress all B<new> streams of the current file. Streams
-which are included with prForm, prDocForm and prDoc are not changed. New 
-JavaScripts are also created as streams and compressed, if they are at least 100
-bytes long. The streams are compressed in memory, so probably there is a limit of
-how big they can be.
-
-prCompress(); is a directive not to compress. This is default.
-
-See e.g. "Starting to reuse" in the tutorial for an example.
-
-=head2 prDoc		- include pages from a document 
-
-   prDoc ( $documentName, $firstPage, $lastPage )
-
-or with the parameters in an anonymous hash:
-
-   prDoc ( { file  => $documentName,
-             first => $firstPage,
-             last  => $lastPage } );
-
-Returns number of extracted pages.
-
-If "first" is not given, 1 is assumed. If "last" is not given, you don't have any upper
-limit. N.B. The numbering of the pages differs from Acrobat JavaScript. In JavaScript
-the first page has index 0. 
-
-Adds pages from a document to the one you are creating. If it is the first interactive
-component ( prDoc() or prDocForm() ) the interactive functions are kept and also merged
-with JavaScripts you have added, if any. But, if you specify a first page different than 1
-or a last page, no JavaScript are extracted from the document, because then there is a
-risk that an included JavaScript function might refer to something not included.
-
-   use PDF::Reuse;
-   use strict;
-
-   prFile('myFile.pdf');                  # file to make
-   prJs('customerResponse.js');           # include a JavaScript file
-   prInit('nameAddress(12, 150, 600);');  # init a JavaScript function
-   prForm('best.pdf');                    # page 1 from best.pdf
-   prPage();                              # page break
-   prDoc('long.pdf');                     # a document with 11 pages
-   prPage();                              # page break
-   prForm('best.pdf');                    # page 1 from best.pdf
-   prText(150, 700, 'Customer Data');     # a line of text
-   prEnd();
-
-To extract pages 2-3 and 5-7 from a document and create a new document:
-
-   use PDF::Reuse;
-   use strict;
-    
-   prFile('new.pdf');
-   prDoc( { file  => 'old.pdf',
-            first => 2, 
-            last  => 3 });
-   prDoc( { file  => 'old.pdf',
-            first => 5, 
-            last  => 7 });
-   prEnd();
-
-=head2 prDocDir		- set directory for produced documents 
-
-   prDocDir ( $directoryName )
-
-Sets directory for produced documents
-
-   use PDF::Reuse;
-   use strict;
-
-   prDocDir('C:/temp/doc');
-   prFile('myFile.pdf');         # writes to C:\temp\doc\myFile.pdf
-   prForm('myFile.pdf');         # page 1 from ..\myFile.pdf
-   prText(200, 600, 'New text');
-   prEnd();
-
-=head2 prDocForm		- use an interactive page as a form 
-
-Alternative 1) You put your parameters in an anonymous hash (only B<file> is really 
-necessary, the others get default values if not given).
-
-   prDocForm ( { file     => $pdfFile,       # template file
-                 page     => $page,          # page number (of imported template)
-                 adjust   => $adjust,        # try to fill the media box
-                 effect   => $effect,        # action to be taken
-                 tolerant => $tolerant,      # continue even with an invalid form
-                 x        => $x,             # $x pixels from the left
-                 y        => $y,             # $y pixels from the bottom
-                 rotate   => $degree,        # rotate 
-                 size     => $size,          # multiply everything by $size
-                 xsize    => $xsize,         # multiply horizontally by $xsize
-                 ysize    => $ysize } )      # multiply vertically by $ysize
-Ex.:
-    my $internalName = prDocForm ( {file     => 'myFile.pdf',
-                                    page     => 2 } );
-              
-Alternative 2) You put your parameters in this order
-
-	prDocForm ( $pdfFile, [$page, $adjust, $effect, $tolerant, $x, $y, $degree,
-            $size, $xsize, $ysize] )
-
-
-Anyway the function returns in list context:  B<$intName, @BoundingBox, 
-$numberOfImages>, in scalar context:  B<$internalName> of the form.
-
-Look at prForm() for an explanation of the parameters.
-
-N.B. Usually you shouldn't adjust or change size and proportions of an interactive
-page. The graphic and interactive components are independent of each other and there 
-is a great risk that any coordination is lost. 
-
-This function redefines a page to an "XObject" (the graphic parts), then the 
-page can be reused in a much better way. Unfortunately there is an important 
-limitation here. "XObjects" can only have single streams. If the page consists
-of many streams, you should concatenate them first. Adobe Acrobat can do that.
-(If it is an important file, take a copy of it first. Sometimes the procedure fails.)
-You open the file with Acrobat and choose the "Touch Up" tool and change anything
-graphic in the page. You could e.g. remove 1 space and put it back. Then you
-save the file.
-
-   use PDF::Reuse;
-   use strict;
-
-   prDocDir('C:/temp/doc');
-   prFile('newForm.pdf');
-   prField('Mr/Ms', 'Mr');
-   prField('First_Name', 'Lars');
-   prDocForm('myFile.pdf');
-   prFontSize(24);
-   prText(75, 790, 'This text is added');
-   prEnd();
-
-(You can use the output from the example in prJs() as input to this example.
-Remember to save that file before closing it.)
-
-B<See Remarks about Javascript>
-
-=head2 prExtract		- extract an object group 
-
-   prExtract ( $pdfFile, $pageNo, $oldInternalName )
-
-B<oldInternalName>, a "name"-object.  This is the internal name you find in the original file.
-Returns a B<$newInternalName> which can be used for "low level" programming. You
-have better look at graphObj_pl and modules it has generated for the tutorial,
-e.g. thermometer.pm, to see how this function can be used.  
-
-When you call this function, the necessary objects will be copied to your new
-PDF-file, and you can refer to them with the new name you receive.
-
-=head2 prField		- assign a value to an interactive field 
-
-	prField ( $fieldName, $value )
-
-B<$fieldName> is an interactive field in the document you are creating.
-It has to be spelled exactly the same way here as it spelled in the document.
-B<$value> is what you want to assigned to the field.
-Put all your sentences with prField early in your script. After prFile and B<before>
-prDoc or prDocForm and of course before prEnd. Each sentence with prField is 
-translated to JavaScript and merged with old JavaScript  
-
-See prDocForm() for an example
-
-If you are going to assign a value to a field consisting of several lines, you
-can write like this:
-
-   my $string = "This is the first line \r second line \n 3:rd line";
-   prField('fieldName', $string);
-
-You can also let '$value' be a  snippet of JavaScript-code that assigns something
-to the field. Then you have to put 'js:' first in "$value" like this:
-
-   my $sentence = encrypt('This will be decrypted by "unPack"(JavaScript) ');
-   prField('Interest_9', "js: unPack('$sentence')");
-
-If you refer to a JavaScript function, it has to be included with prJs first. (The
-JavaScript interpreter will simply not be aware of old functions in the PDF-document,
-when the initiation is done.)
-
-B<The function prField uses JavaScript, so see "Remarks about Javascript">
-
-=head2 prFont		- set current font 
-
-   prFont ( $fontName )
-
-$fontName is an "external" font name. The parameter is optional. 
-In list context returns B<$internalName, $externalName, $oldInternalName,
-$oldExternalname> The first two variables refer to the current font, the two later
-to the font before the change. In scalar context returns b<$internalName>
-
-If a font wasn't found, Helvetica will be set.
-These names are always recognized:
-B<Times-Roman, Times-Bold, Times-Italic, Times-BoldItalic, Courier, Courier-Bold,
-Courier-Oblique, Courier-BoldOblique, Helvetica, Helvetica-Bold, Helvetica-Oblique,
-Helvetica-BoldOblique> or abbreviated 
-B<TR, TB, TI, TBI, C, CB, CO, CBO, H, HB, HO, HBO>. 
-(B<Symbol and ZapfDingbats> or abbreviated B<S, Z>, also belong to the predefined
-fonts, but there is something with them that I really don't understand. You should
-print them first on a page, and then use other fonts, otherwise they are not displayed.)
-
-You can also use a font name from an included page. It has to be spelled exactly as
-it is done there. Look in the file and search for "/BaseFont" and the font
-name. But take care, e.g. the PDFMaker which converts to PDF from different 
-Microsoft programs, only defines exactly those letters you can see on the page. You
-can use the font, but perhaps some of your letters were not defined. 
-
-In the distribution there is an utility program, 'reuseComponent_pl', which displays
-included fonts in a PDF-file and prints some letters. Run it to see the name of the
-font and if it is worth extracting.
-
-   use PDF::Reuse;
-   use strict;
-   prFile('myFile.pdf');
-
-   ####### One possibility #########
-
-   prFont('Times-Roman');     # Just setting a font
-   prFontSize(20);
-   prText(180, 790, "This is a heading");
-
-   ####### Another possibility #######
-
-   my $font = prFont('C');    # Setting a font, getting an  
-                              # internal name
-   prAdd("BT /$font 12 Tf 25 760 Td (This is some other text)Tj ET"); 
-   prEnd();
-
-The example above shows you two ways of setting and using a font. One simple, and
-one complicated with a possibility to detail control. 
-
-
-=head2 prFontSize		- set current font size 
-
-   prFontSize ( $size )
-
-Returns B<$actualSize, $fontSizeBeforetheChange>. Without parameters
-prFontSize() sets the size to 12 pixels, which is default. 
-
-=head2 prForm		- use a page from an old document as a form/background 
-
-Alternative 1) You put your parameters in an anonymous hash (only B<file> is really 
-necessary, the others get default values if not given).
-
-   prForm ( { file     => $pdfFile,       # template file
-              page     => $page,          # page number (of imported template)
-              adjust   => $adjust,        # try to fill the media box
-              effect   => $effect,        # action to be taken
-              tolerant => $tolerant,      # continue even with an invalid form
-              x        => $x,             # $x pixels from the left
-              y        => $y,             # $y pixels from the bottom
-              rotate   => $degree,        # rotate 
-              size     => $size,          # multiply everything by $size
-              xsize    => $xsize,         # multiply horizontally by $xsize
-              ysize    => $ysize } )      # multiply vertically by $ysize
-Ex.:
-    my $internalName = prForm ( {file     => 'myFile.pdf',
-                                 page     => 2 } );
-              
-Alternative 2) You put your parameters in this order
-
-	prForm ( $pdfFile, $page, $adjust, $effect, $tolerant, $x, $y, $degree,
-            $size, $xsize, $ysize )
-
-
-Anyway the function returns in list context:  B<$intName, @BoundingBox, 
-$numberOfImages>, in scalar context:  B<$internalName> of the form. 
-
-if B<page> is excluded 1 is assumed. 
-
-B<adjust>, could be 1, 2 or 0/nothing. If it is 1, the program tries to adjust the
-form to the current media box (paper size) and keeps the proportions unchanged.
-If it is 2, the program tries to fill as much of the media box as possible, without 
-regards to the original proportions.
-If this parameter is given, "x", "y", "rotate", "size", "xsize" and "ysize"
-will be ignored.
-
-B<effect> can have 3 values: B<'print'>, which is default, loads the page in an internal
-table, adds it to the document and prints it to the current page. B<'add'>, loads the
-page and adds it to the document. (Now you can "manually" manage the way you want to
-print it to different pages within the document.) B<'load'> just loads the page in an 
-internal table. (You can now take I<parts> of a page like fonts and objects and manage
-them, without adding all the page to the document.)You don't get any defined 
-internal name of the form, if you let this parameter be 'load'.
-
-B<tolerant> can be nothing or something. If it is undefined, you will get an error if your program tries to load
-a page which the system cannot really handle, if it e.g. consists of many streams.
-If it is set to something, you have to test the first return value $internalName to
-know if the function was successful. Look at the program 'reuseComponent_pl' for an 
-example of usage.
-
-B<x> where to start along the x-axis   (cannot be combined with "adjust")
-
-B<y> where to start along the y-axis   (cannot be combined with "adjust")
-
-B<rotate> A degree 0-360 to rotate the form counter-clockwise. (cannot be combined
-with "adjust") Often the form disappears out of the media box if degree >= 90.
-Then you can move it back with the x and y-parameters. If degree == 90, you can 
-add the width of the form to x, If degree == 180 add both width and height to x
-and y, and if degree == 270 you can add the height to y.
-
-B<rotate> can also by one of 'q1', 'q2' or 'q3'. Then the system rotates the form
-clockwise 90, 180 or 270 degrees and tries to keep the form within the media box.
-
-The rotation takes place after the form has been resized or moved.
-
-   Ex. To rotate from portrait (595 x 842 pt) to landscape (842 x 595 pt)
-
-   use PDF::Reuse;
-   use strict;
-   
-   prFile('New_Report.pdf');
-   prMbox(0, 0, 842, 595);           
-   
-   prForm({file   => 'cert1.pdf',
-           rotate => 'q1' } );  
-   prEnd();
-
-The same rotation can be achieved like this:
-
-   use PDF::Reuse;
-   use strict;
-   
-   prFile('New_Report.pdf');
-   prMbox(0, 0, 842, 595);
-               
-   prForm({file   => 'cert1.pdf',
-           rotate => 270,
-           y      => 595 } );  
-   prEnd();
-
-B<size> multiply every measure by this value (cannot be combined with "adjust") 
-
-B<xsize> multiply horizontally by this value (cannot be combined with "adjust")
-
-B<ysize> multiply vertically by $ysize (cannot be combined with "adjust")
-
-This function redefines a page to an "XObject" (the graphic parts), then the 
-page can be reused and referred to as a unit. Unfortunately there is an important 
-limitation here. "XObjects" can only have single streams. If the page consists
-of many streams, you should concatenate them first. Adobe Acrobat can do that.
-(If it is an important file, take a copy of it first. Sometimes the procedure fails.)
-You open the file with Acrobat and choose the "Touch Up" tool and change anything
-graphic in the page. You could e.g. remove 1 space and put it back. Then you
-save the file. You could alternatively save the file as Postscript and redistill it with the
-distiller or with Ghost script, but this is a little more risky. You might loose fonts
-or something else. An other alternative could be to use prDoc() , but then you get all
-the document, and you can only change the appearance of the page with the help of
-JavaScript.
-
-   use PDF::Reuse;
-   use strict;
-
-   prFile('myFile.pdf');
-   prForm('best.pdf');    # Takes page No 1
-   prText(75, 790, 'Dear Mr Gates');
-   # ...
-   prPage();
-   prMbox(0, 0, 900, 960);
-   my @vec = prForm(   { file => 'EUSA.pdf',
-                         adjust => 1 } );
-   prPage();
-   prMbox();
-   prText(35, 760, 'This is the final page');
-
-   # More text ..
-
-   #################################################################
-   # We want to put a miniature of EUSA.pdf, 35 pixels from the left
-   # 85 pixels up, and in the format 250 X 200 pixels
-   #################################################################
-
-   my $xScale = 250 / ($vec[3] - $vec[1]);
-   my $yScale = 200 / ($vec[4] - $vec[2]);
-   
-   prForm ({ file => 'EUSA.pdf',
-             xsize => $xScale,
-             ysize => $yScale,
-             x     => 35,
-             y     => 85 });
-
-   prEnd();
-
-The first prForm(), in the code, is a simple and "normal" way of using the
-the function. The second time it is used, the size of the imported page is
-changed. It is adjusted to the media box which is current at that moment.
-Also data about the form is taken, so you can control more in detail how it
-will be displayed. 
-
-=head2 prGetLogBuffer		- get the log buffer. 
-
-prGetLogBuffer ()
-
-returns a B<$buffer> of the log of the current page. (It could be used
-e.g. to calculate a MD5-digest of what has been registered that far, instead of 
-accumulating the single values) A log has to be active, see prLogDir() below
-
-Look at "Using the template" and "Restoring a document from the log" in the
-tutorial for examples of usage.
-
-=head2 prGraphState		- define a graphic state parameter dictionary 
-
-   prGraphState ( $string )
-
-This is a "low level" function. Returns B<$internalName>. The B<$string> has to 
-be a complete dictionary with initial "<<" and terminating ">>". No syntactical
-checks are made. Perhaps you will never have to use this function.
-
-   use PDF::Reuse;
-   use strict;
-
-   prFile('myFile.pdf');
-
-   ###################################################
-   # Draw a triangle with Gs0 (automatically defined)
-   ###################################################
-
-   my $str = "q\n";
-   $str   .= "/Gs0 gs\n";
-   $str   .= "150 700 m\n";
-   $str   .= "225 800 l\n";
-   $str   .= "300 700 l\n";
-   $str   .= "150 700 l\n";
-   $str   .= "S\n";
-   $str   .= "Q\n";
-   prAdd($str);
-
-   ########################################################
-   # Define a new graph. state param. dic. and draw a new
-   # triangle further down 
-   ########################################################
-
-   $str = '<</Type/ExtGState/SA false/SM 0.02/TR2 /Default'
-                      . '/LW 15/LJ 1/ML 1>>';
-   my $gState = prGraphState($str);
-   $str  = "q\n";
-   $str .= "/$gState gs\n";
-   $str .= "150 500 m\n";
-   $str .= "225 600 l\n";
-   $str .= "300 500 l\n";
-   $str .= "150 500 l\n";
-   $str .= "S\n";
-   $str .= "Q\n";
-   prAdd($str);
-   
-   prEnd();
-
-
-=head2 prImage		- reuse an image from an old PDF document 
-
-Alternative 1) You put your parameters in an anonymous hash (only B<file> is really 
-necessary, the others get default values if not given).
-
-   prImage( { file     => $pdfFile,       # template file
-              page     => $page,          # page number
-              imageNo  => $imageNo        # image number
-              adjust   => $adjust,        # try to fill the media box
-              effect   => $effect,        # action to be taken
-              x        => $x,             # $x pixels from the left
-              y        => $y,             # $y pixels from the bottom
-              rotate   => $degree,        # rotate 
-              size     => $size,          # multiply everything by $size
-              xsize    => $xsize,         # multiply horizontally by $xsize
-              ysize    => $ysize } )      # multiply vertically by $ysize
-Ex.:
-   prImage( { file    => 'myFile.pdf',
-              page    => 10,
-              imageNo => 2 } );
-              
-Alternative 2) You put your parameters in this order
-
-	prImage ( $pdfFile, [$page, $imageNo, $effect, $adjust, $x, $y, $degree,
-            $size, $xsize, $ysize] )
-
-Returns in scalar context B<$internalName> As a list B<$internalName, $width, 
-$height> 
-
-Assumes that $pageNo and $imageNo are 1, if not specified. If $effect is given and
-anything else then 'print', the image will be defined in the document,
-but not shown at this moment.
-
-For all other parameters, look at prForm().
-
-   use PDF::Reuse;
-   use strict;
-
-   prFile('myFile.pdf'); 
-   my @vec = prImage({ file  => 'best.pdf',
-                       x     => 10,
-                       y     => 400,
-                       xsize => 0.9,
-                       ysize => 0.8 } );
-   prText(35, 760, 'This is some text');
-   # ...
-   prPage();
-   my @vec2 = prImage( { file    => 'destiny.pdf',
-                         page    => 1,
-                         imageNo => 1,
-                         effect  => 'add' } );
-   prText(25, 760, "There shouldn't be any image on this page");
-   prPage();
-   ########################################################
-   #  Now we make both images so that they could fit into
-   #  a box 300 X 300 pixels, and they are displayed
-   ########################################################
-
-   prText(25, 800, 'This is the first image :');
-
-   my $xScale = 300 / $vec[1];
-   my $yScale = 300 / $vec[2];
-   if ($xScale < $yScale)
-   {  $yScale = $xScale;
-   }
-   else
-   {  $xScale = $yScale;
-   }
-   prImage({ file   => 'best.pdf',
-             x      => 25,
-             y      => 450,
-             xsize  => $xScale,
-             ysize  => $yScale} );
-
-   prText(25, 400, 'This is the second image :');
-
-   $xScale = 300 / $vec2[1];
-   $yScale = 300 / $vec2[2];
-   if ($xScale < $yScale)
-   {  $yScale = $xScale;
-   }
-   else
-   {  $xScale = $yScale;
-   }
-   prImage({ file   => 'destiny.pdf',
-             x      => 25,
-             y      => 25,
-             xsize  => $xScale,
-             ysize  => $yScale} );
-
-   prEnd();
-
-On the first page an image is displayed in a simple way. While the second page
-is processed, prImage(), loads an image, but it is not shown here. On the 3:rd
-page, the two images are scaled and shown. 
-
-In the distribution there is an utility program, 'reuseComponent_pl', which displays
-included images in a PDF-file and their "names".
-
-=head2 prInit		- add JavaScript to be executed at initiation 
-
-   prInit ( $string, $duplicateCode )
-
-B<$string> can be any JavaScript code, but you can only refer to functions included
-with prJs. The JavaScript interpreter will not know other functions in the document.
-Often you can add new things, but you can't remove or change interactive fields,
-because the interpreter hasn't come that far, when initiation is done.
-
-B<$duplicateCode> is undefined or anything. It duplicates the JavaScript code
-which has been used at initiation, so you can look at it from within Acrobat and
-debug it. It makes the document bigger. This parameter is B<deprecated>.
-
-See prJs() for an example
-
-Remark: Avoid to use "return" in the code you use at initiation. If your user has
-downloaded a page with Web Capture, and after that opens a PDF-document where a 
-JavaScript is run at initiation and that JavaScript contains a return-statement,
-a bug occurs. The JavaScript interpreter "exits" instead of returning, the execution
-of the JavaScript might finish to early. This is a bug in Acrobat/Reader 5.
-
-B<The function prInit uses JavaScript, so see "Remarks about Javascript">
-
-=head2 prInitVars		- initiate global variables and internal tables 
-
-   prInitVars(1)
-
-If you run programs with PDF::Reuse as persistent procedures, you probably need to
-initiate global variables. If you have '1' or anything as parameter, internal tables for forms, images, fonts
-and interactive functions are B<not> initiated. The module "learns" offset and sizes of
-used objects, and can process them faster, but at the same time the size of the 
-program grows.
-
-   use PDF::Reuse;
-   use strict;
-   prInitVars();     # To initiate ALL global variables and tables
-   # prInitVars(1);  # To make it faster, but more memory consuming
-
-   $| = 1;
-   print STDOUT "Content-Type: application/pdf \n\n";
-
-   prFile();         # To send the document uncatalogued to STDOUT                
-
-   prForm('best.pdf');
-   prText(25, 790, 'Dear Mr. Anders Persson');
-   # ...
-   prEnd();
-
-If you call this function without parameters all global variables, including the
-internal tables, are initiated.
-
-
-=head2 prJpeg		- import a jpeg-image 
-
-   prJpeg ( $imageFile, $width, $height )
-
-B<$imageFile> contains 1 single jpeg-image. B<$width> and B<$height>
-also have to be specified. Returns the B<$internalName>
-
-   use PDF::Reuse;
-   use Image::Info qw(image_info dim);
-   use strict;
-
-   my $file = 'myImage.jpg';
-   my $info = image_info($file);
-   my ($width, $height) = dim($info);    # Get the dimensions
-
-   prFile('myFile.pdf');
-   my $intName = prJpeg("$file",         # Define the image 
-                         $width,         # in the document
-                         $height);
-
-   my $str = "q\n";
-   $str   .= "$width 0 0 $height 10 10 cm\n";
-   $str   .= "/$intName Do\n";
-   $str   .= "Q\n";
-   prAdd($str);
-   prEnd();
-
-This is a little like an extra or reserve routine to add images to the document.
-The most simple way is to use prImage()  
-
-=head2 prJs		- add JavaScript 
-
-   prJs ( $string|$fileName )
-
-To add JavaScript to your new document. B<$string> has to consist only of
-JavaScript functions: function a (..){ ... } function b (..) { ...} and so on
-If B<$string> doesn't contain '{', B<$string> is interpreted as a filename.
-In that case the file has to consist only of JavaScript functions.
-
-   use PDF::Reuse;
-   use strict;
-
-   prFile('myFile.pdf');
-   prJs('customerResponse.js');
-   prInit('nameAddress(0, 100, 700);');
-   prEnd();
-
-
-B<See "Remarks about Javascript">
-
-=head2 prLink    - add a hyperlink
-
-   prLink( { page   => $pageNo,     # Starting with 1  !
-             x      => $x,
-             y      => $y,
-             width  => $width,
-             height => $height,
-             URI    => $URI     } );
-
-You can also call prLink like this:
-
-   prLink($page, $x, $y, $width, $height, $URI);
-
-You have to put prLink B<after prFile and before the sentences where its' page
-is created>. The links are created at the page-breaks. If the page is already 
-created, no new link will be inserted. 
-
-Here is an example where the links of a 4 page document are preserved, and a link is
-added at the end of the document. We assume that there is some suitable text at that
-place (x = 400, y = 350):
-
-   use strict;
-   use PDF::Reuse;
-
-   prFile('test.pdf');
-
-   prLink( {page   => 4,
-            x      => 400,
-            y      => 350,
-            width  => 105,
-            height => 15,
-            URI    => 'http://www.purelyInvented.com/info.html' } );
-
-   prDoc('fourPages.pdf');
-
-   prEnd();
-
-( If you are creating each page of a document separately, you can also use 'hyperLink'
-from PDF::Reuse::Util. Then you get an external text in Helvetica-Oblique, underlined
-and in blue.
-
-  use strict;
-  use PDF::Reuse;
-  use PDF::Reuse::Util;
-
-  prFile('test.pdf');
-  prForm('template.pdf', 5);
-  my ($from, $pos) = prText(25, 700, 'To get more information  ');
-
-  $pos = hyperLink( $pos, 700, 'Press this link',
-                    'http://www.purelyInvented.com/info.html' );
-  ($from, $pos) = prText( $pos, 700, ' And get connected');
-  prEnd();
-
-'hyperLink' has a few parameters: $x, $y, $textToBeShown, $hyperLink and
-$fontSize (not shown in the example). It returns current x-position. )
-
-=head2 prLog		- add a string to the log 
-
-   prLog ( $string )
-
-Adds whatever you want to the current log (a reference No, a commentary, a tag ?)
-A log has to be active see prLogDir()
-
-Look at "Using the template" and "Restoring the document from the log" in
-the tutorial for an example.
-
-=head2 prLogDir		- set directory for the log 
-
-   prLogDir ( $directory )
-
-Sets a directory for the logs and activates the logging. 
-A little log file is created for each PDF-file. Normally it should be much, much
-more compact then the PDF-file, and it should be possible to restore or verify 
-a document with the help of it. (Of course you could compress or store the logs in a 
-database to save even more space.) 
-
-   use PDF::Reuse;
-   use strict;
-
-   prDocDir('C:/temp/doc');
-   prLogDir('C:/run');
-
-   prFile('myFile.pdf');
-   prForm('best.pdf');
-   prText(25, 790, 'Dear Mr. Anders Persson');
-   # ...
-   prEnd();
-
-In this example a log file with the name 'myFile.pdf.dat' is created in the
-directory 'C:\run'. If that directory doesn't exist, the system tries to create it.
-(But, just as mkdir does, it only creates the last level in a directory tree.)
-
-=head2 prMbox		- define the format (MediaBox) of the current page. 
-
-   prMbox ( $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY )
-
-If the function or the parameters are missing, they are set to 0, 0, 595, 842 pixels respectively.   
-
-See prForm() for an example.
-
-
-=head2 prPage		- insert a page break
-
-   prPage ($noLog)
-
-Don't use the optional parameter, it is only used internally, not to clutter the log,
-when automatic page breaks are made.
-
-See prForm() for an example.
-
-=head2 prStrWidth   - calculate the string width
-
-   prStrWidth($string, $font, $fontSize)
-
-Returns string width in pixels.
-Should be used in conjunction with one of these predefined fonts of Acrobat/Reader:
-Times-Roman, Times-Bold, Times-Italic, Times-BoldItalic, Courier, Courier-Bold, Courier-Oblique,
-Courier-BoldOblique, Helvetica, Helvetica-Bold, Helvetica-Oblique,
-Helvetica-BoldOblique. If some other font is given, Helvetica is used, and the
-returned value will at the best be approximate.
-
-=head2 prText		- add a text-string 
-
-   prText ( $x, $y, $string, $how )
-
-Puts B<$string> at position B<$x, $y>
-Returns 1 in scalar context. Returns ($xFrom, $xTo) in list context. $xTo will not
-be defined if $how is a rotation. prStrWidth() is used to calculate the length of the
-strings, so only the predefined fonts together with Acrobat/Reader will give
-reliable values for $xTo.      
-
-$how can be 'left' (= default), 'center', 'right', a degree 0 - 360, 'q1', 'q2' 
-or 'q3'. The parameter is optional.
-
-Current font and font size are used. (If you use prAdd() before this function,
-many other things could also influence the text.)
-
-   use strict;
-   use PDF::Reuse;
-
-   prFile('test.pdf');
-
-   #####################################
-   # Use a "curser" ($pos) along a line
-   #####################################
-
-   my ($from, $pos) = prText(25, 800, 'First write this. ');
-   ($from, $pos) = prText($pos, 800, 'Then write this. '); 
-   prText($pos, 800, 'Finally write this.');
-
-   #####################################
-   # Right adjust and center sentences
-   #####################################
-
-   prText( 200, 750, 'A short sentence', 'right');
-   prText( 200, 735, 'This is a longer sentence', 'right');
-   prText( 200, 720, 'A word', 'right');
-
-   prText( 200, 705, 'Centered around a point 200 pixels from the left', 'center');
-   prText( 200, 690, 'The same center', 'center');
-   prText( 200, 675, '->.<-', 'center');
-
-   ############
-   # Rotation
-   ############
-
-   prText( 200, 550, ' Rotate 0 degrees', 0);
-   prText( 200, 550, ' Rotate 60 degrees', 60);
-   prText( 200, 550, ' Rotate 120 degrees', 120);
-   prText( 200, 550, ' Rotate 180 degrees', 180);
-   prText( 200, 550, ' Rotate 240 degrees', 240);
-   prText( 200, 550, ' Rotate 300 degrees', 300);
-
-   prText( 400, 430, 'Rotate 90 degrees clock-wise', 'q1');
-   prText( 400, 430, 'Rotate 180 degrees clock-wise', 'q2');
-   prText( 400, 430, 'Rotate 270 degrees clock-wise', 'q3');
-
-   prEnd();
-
-
-=head2 prTouchUp		- make changes and reuse more difficult 
-
-   prTouchUp (1);
-
-By default and after you have issued prTouchUp(1), you can change the document
-with the TouchUp tool from within Acrobat.
-If you want to switch off this possibility, you use prTouchUp() without any 
-parameter.  Then the user shouldn't be able to change anything graphic by mistake.
-He has to do something premeditated and perhaps with a little effort.
-He could still save it as Postscript and redistill, or he could remove or add single pages. 
-(Here is a strong reason why the log files, and perhaps also check sums, are needed.
-It would be very difficult to forge a document unless the forger also has access to your
-computer and knows how the check sums are calculated.)
-
-B<Avoid to switch off the TouchUp tool for your templates.> It creates an
-extra level within the PDF-documents . Use this function for your final documents.
-
-See "Using the template" in the tutorial for an example. 
-
-(To encrypt your documents: use the batch utility within Acrobat)
-
-
-=head1 INTERNAL OR DEPRECATED FUNCTIONS
-
-=over 2
-
-=item prBar		- define and paint bars for bar fonts 
-
-   prBar ($x, $y, $string)
-
-Prints a bar font pattern at the current page.
-Returns $internalName for the font.
-$x and $y are coordinates in pixels and $string should consist of the characters
-'0', '1' and '2' (or 'G'). '0' is a white bar, '1' is a dark bar. '2' and 'G' are
-dark, slightly longer bars, guard bars. 
-You can use e.g. GD::Barcode or one module in that group to calculate the barcode
-pattern. prBar "translates" the pattern to white and black bars.
-
-   use PDF::Reuse;
-   use GD::Barcode::Code39;
-   use strict;
-
-   prFile('myFile.pdf');
-   my $oGdB = GD::Barcode::Code39->new('JOHN DOE');
-   my $sPtn = $oGdB->barcode();
-   prBar(100, 600, $sPtn);
-   prEnd();
-
-Internally the module uses a font for the bars, so you might want to change the font size before calling
-this function. In that case, use prFontSize() .
-If you call this function without arguments it defines the bar font but does
-not write anything to the current page.
-
-B<An easier and often better way to produce barcodes is to use PDF::Reuse::Barcode.> 
-Look at that module!
-
-=item prCid		- define timestamp/checkid 
-
-   prCid ( $timeStamp )
-
-An internal function. Don't bother about it. It is used in automatic
-routines when you want to restore a document. It gives modification time of
-the next PDF-file or JavaScript.
-See "Restoring a document from the log" in the tutorial for more about the
-time stamp
-
-=item prId		- define id-string of a PDF document 
-
-   prId ( $string )
-
-An internal function. Don't bother about it. It is used e.g. when a document is
-restored and an id has to be set, not calculated.
-
-=item prIdType		- define id-type 
-
-   prIdType ( $string )
-
-An internal function. Avoid using it. B<$string> could be "Rep" for replace or
-"None" to avoid calculating an id.
-
-Normally you don't use this function. Then an id is calculated with the help of
-Digest::MD5::md5_hex and some data from the run.
-
-=item prMoveTo 
-
-   prMoveTo ( $x, $y )
-
-B<Deprecated> This function will be removed during 2004. You can define positions
-with parameters directly to prImage(), prForm() and prDocForm(). 
-
-Defines positions where to put e.g. next image
-
-=item prScale 
-
-   prScale ( $xSize, $ySize )
-
-B<Deprecated> This function will be removed during 2004. You can define sizes
-with parameters directly to prImage(), prForm() and prDocForm().
-
-Each of $xSize and $ySize are set to 1 if missing. You can use this function to
-scale an image before showing it.
-
-
-=item prVers		- check version of log and program 
-
-   prVers ( $versionNo )
-
-To check version of this module in case a document has to be
-restored.
-
-=back
-
-=head1 SEE ALSO
-
-   PDF::Reuse::Tutorial
-   PDF::Reuse::Barcode
-   PDF::Reuse::Scramble
-   PDF::Reuse::OverlayChart
-
-To program with PDF-operators, look at "The PDF-reference Manual" which probably
-is possible to download from http://partners.adobe.com/asn/developer/acrosdk/docs.html
-Look especially at chapter 4 and 5, Graphics and Text, and the Operator summary.
-
-Technical Note # 5186 contains the "Acrobat JavaScript Object Specification". I 
-downloaded it from http://partners.adobe.com/asn/developer/technotes/acrobatpdf.html
-
-If you are serious about producing PDF-files, you probably need Adobe Acrobat sooner
-or later. It has a price tag. Other good programs are GhostScript and GSview. 
-I got them via http://www.cs.wisc.edu/~ghost/index.html  Sometimes they can replace Acrobat.
-A nice little detail is e.g. that GSview shows the x- and y-coordinates better then Acrobat. If you need to convert HTML-files to PDF, HTMLDOC is a possible tool. Download it from
-http://www.easysw.com . A simple tool for vector graphics is Mayura Draw 2.04, download
-it from http://www.mayura.com. It is free. I have used it to produce the graphic
-OO-code in the tutorial. It produces postscript which the Acrobat Distiller (you get it together with Acrobat)
-or Ghostscript can convert to PDF.(The commercial product, Mayura Draw 4.01 or something 
-higher can produce PDF-files straight away)
-
-If you want to import jpeg-images, you might need
-
-   Image::Info
-
-To get definitions for e.g. colors, take them from
-
-   PDF::API2::Util 
-
-=head1 LIMITATIONS
-
-Metadata, info and many other features of the PDF-format have not been
-implemented in this module. 
-
-Many things can be added afterwards, after creating the files. If you e.g. need
-files to be encrypted, you can use a standard batch routine within Adobe Acrobat.   
-
-=head1 TODO
-
-I have been experimenting a little with a helper application for Netscape or
-Internet Explorer and it is quite obvious that you could get very good performance
-and high reliability if you transferred the logs and constructed the documents at
-the target computer, instead of the transferring formatted documents.
-The reasons are:
-
-The size of a log is usually only a fraction of the formatted document. The logs
-keep a time stamp for all source files, so you could have a simple cashing. It is
-possible to put a time stamp on the log file and then you get a hierarchal structure.
-When the system reads a log file it could quickly find out which source files are
-missing. If it encounters the URL and time stamp of cashed log file, that would be
-sufficient.  It would not be necessary to get it over the net.
-You would minimize the number of conversations and you would also increase the
-possibilities to complete a task even if the connections are bad.    
-
-The cash could function as a secondary library for forms and JavaScripts.
-When you work with HTML you are usually interested in the most recent version of
-of a component. With PDF the emphasis is usually more on exactness, and PDF-documents
-tend to be more stable. This strengthens the motive for a functioning cash.
-
-(Also I think you could skip some holy rules from HTML-processing. E.g. if an 
-international body has forms and JavaScripts for booking a hotel room, any 
-affiliated hotel should have the right to use the common files, so they could be
-used via the cash regardless of if you are booking a room in Agadir or Shanghai.
-That would create libraries and rational reuse of code. I think security and
-legal problems would be possible to handle.)
-
-At the present time PDF cannot compete with HTML, but if you used the log files
-and a simple cash, PDF would be just superior for repeated tasks.
-
-=head1 THANKS TO
-
-Martin Langhoff and others who have contributed with code, suggestions and error
-reports.
-
-=head1 AUTHOR
-
-Lars Lundberg elkelund @ worldonline . se
-
-=head1 COPYRIGHT
-
-Copyright (C) 2003 - 2004 Lars Lundberg, Solidez HB. All rights reserved.
-This program is free software; you can redistribute it and/or
-modify it under the same terms as Perl itself.
-
-=head1 DISCLAIMER
-
-You get this module free as it is, but nothing is guaranteed to work, whatever 
-implicitly or explicitly stated in this document, and everything you do, 
-you do at your own risk - I will not take responsibility 
-for any damage, loss of money and/or health that may arise from the use of this module.
-
-=cut
-
-sub prLink
-{ my %link;
-  my $param = shift;
-  if (ref($param) eq 'HASH')
-  {  $link{page}   = $param->{'page'} || -1;
-     $link{x}      = $param->{'x'}    || 100;
-     $link{y}      = $param->{'y'}    || 100;
-     $link{width}  = $param->{width}  || 75;
-     $link{height} = $param->{height} || 15;
-     $link{action} = $param->{action} || undef;
-     $link{border} = $param->{border} || undef;
-     $link{color}  = $param->{color}  || undef;
-     $link{URI}    = $param->{URI};
-  }
-  else
-  {  $link{page}   = $param || -1;
-     $link{x}      = shift || 100;
-     $link{y}      = shift || 100;
-     $link{width}  = shift || 75;
-     $link{height} = shift || 15;
-     $link{URI}    = shift;
-  }
-
-  if (! $pos)
-  {  errLog("No output file, you have to call prFile first");
-  }
-
-  if ($runfil)
-  {  $log .= "Link~$link{page}~$link{x}~$link{y}~$link{width}~" 
-          . "$link{height}~$link{URI}\n";
-  }
-  
-  if ($link{URI} || $link{action})
-  {  push @{$links{$link{page}}}, \%link;
-  }
-  1;
-}
-
-sub mergeLinks
-{   my $tSida = $sida + 1;
-    my $rad;
-    my ($linkObject, $linkObjectNo);
-    for my $link (@{$links{'-1'}}, @{$links{$tSida}} )
-    {   my $x2 = $link->{x} + $link->{width};
-        my $y2 = $link->{y} + $link->{height};
-        if (defined $link->{action})
-        {
-            if (exists $links{$link->{action}})
-            {   $linkObjectNo = $links{$link->{action}};
-            }
-            else
-            {   $objNr++;
-                $objekt[$objNr] = $pos;
-                $rad = "$objNr 0 obj<<$link->{action}>>endobj\n";
-                $linkObjectNo = $objNr;
-                $links{$link->{action}} = $objNr;
-                $pos += syswrite UTFIL, $rad;
-            }
-        }
-        else
-        {
-            if (exists $links{$link->{URI}})
-            {   $linkObjectNo = $links{$link->{URI}};
-            }
-            else
-            {   $objNr++;
-                $objekt[$objNr] = $pos;
-                $rad = "$objNr 0 obj<</S/URI/URI($link->{URI})>>endobj\n";
-                $linkObjectNo = $objNr;
-                $links{$link->{URI}} = $objNr;
-                $pos += syswrite UTFIL, $rad;
-            }
-        }
-        $rad = "/Subtype/Link/Rect[$link->{x} $link->{y} "
-             . "$x2 $y2]/A $linkObjectNo 0 R";
-        if (defined $link->{border})
-        {   $rad .= "/Border$link->{border}";
-        }
-        else
-        {   $rad .= "/Border[0 0 0]";
-        }
-        if (defined $link->{color})
-        {   $rad .= "/C$link->{color}";
-        }
-        if (exists $links{$rad})
-        {   push @annots, $links{$rad};
-        }
-        else
-        {   $objNr++;
-            $objekt[$objNr] = $pos;
-            $links{$rad} = $objNr;
-            $rad = "$objNr 0 obj<<$rad>>endobj\n";
-            $pos += syswrite UTFIL, $rad;
-            push @annots, $objNr;
-        }
-    }
-    @{$links{'-1'}}   = ();
-    @{$links{$tSida}} = ();
-    $objNr++;
-    $objekt[$objNr] = $pos;
-    $rad = "$objNr 0 obj[\n";
-    for (@annots)
-    {  $rad .= "$_ 0 R\n";
-    }
-    $rad .= "]endobj\n";
-    $pos += syswrite UTFIL, $rad;
-    @annots = ();
-    return $objNr;
-}
-
-sub prStrWidth 
-{  require PDF::Reuse::Util;
-   my $string   = shift;
-   my $Font     = shift;
-   my $FontSize = shift || $fontSize;
-   my $w = 0;
-    
-  if (! $Font)
-  {   if (! $aktuellFont[foEXTNAMN])
-      {  findFont();
-      }
-      $Font = $aktuellFont[foEXTNAMN];
-  }
-
-  if (! exists $PDF::Reuse::Util::font_widths{$Font})
-  {  if (exists $stdFont{$Font})
-     {  $Font = $stdFont{$Font};
-     }
-     if (! exists $PDF::Reuse::Util::font_widths{$Font})
-     {   $Font = 'Helvetica';
-     }
-  }
-  
-  if (ref($PDF::Reuse::Util::font_widths{$Font}) eq 'ARRAY')
-  {   my @font_table = @{ $PDF::Reuse::Util::font_widths{$Font} };
-      for (unpack ("C*", $string)) 
-      {  $w += $font_table[$_];	
-      }
-  }
-  else
-  {   $w = length($string) * $PDF::Reuse::Util::font_widths{$Font};
-  }
-  $w = $w / 1000 * $FontSize;
-  
-  return $w;
-}
-
-
-sub prBookmark
-{   my $param = shift;
-    if (! ref($param))
-    {   $param = eval ($param);
-    }
-    if (! ref($param))
-    {   return undef;
-    }
-    if (! $pos)
-    {  errLog("No output file, you have to call prFile first");
-    }
-    if (ref($param) eq 'HASH')
-    {   push @bookmarks, $param;
-    }
-    else
-    {   push @bookmarks, (@$param);       
-    }
-    if ($runfil)
-    {   local $Data::Dumper::Indent = 0;
-        $param = Dumper($param);
-        $param =~ s/^\$VAR1 = //;
-        $param = prep($param);
-        $log .= "Bookmark~$param\n";
-    }
-    return 1;
-}
-
-sub ordnaBookmarks
-{   my ($first, $last, $me, $entry, $rad);
-    $totalCount = 0;
-    if (defined $objekt[$objNr])
-    {  $objNr++;
-    }
-    $me = $objNr;
-        
-    my $number = $#bookmarks;
-    for (my $i = 0; $i <= $number ; $i++)
-    {   my %hash = %{$bookmarks[$i]};
-        $objNr++;
-        $hash{'this'} = $objNr;
-        if ($i == 0)
-        {   $first = $objNr;           
-        }
-        if ($i == $number)
-        {   $last = $objNr;
-        } 
-        if ($i < $number)
-        {  $hash{'next'} = $objNr + 1;
-        }
-        if ($i > 0)
-        {  $hash{'previous'} = $objNr - 1;
-        }
-        $bookmarks[$i] = \%hash;
-    } 
-    
-    for $entry (@bookmarks)
-    {  my %hash = %{$entry};
-       descend ($me, %hash);
-    }
-
-    $objekt[$me] = $pos;
-
-    $rad = "$me 0 obj<<";
-    $rad .= "/Type/Outlines";
-    $rad .= "/Count $totalCount";
-    if (defined $first)
-    {  $rad .= "/First $first 0 R";
-    }
-    if (defined $last)
-    {  $rad .= "/Last $last 0 R";
-    }
-    $rad .= ">>endobj\n";
-    $pos += syswrite UTFIL, $rad;
-
-    return $me;
-
-}
-
-sub descend
-{   my ($parent, %entry) = @_;
-    my ($first, $last, $count, $me, $rad, $jsObj);
-    if (! exists $entry{'close'})
-    {  $totalCount++; }
-    $count = $totalCount;
-    $me = $entry{'this'};
-    if (exists $entry{'kids'})
-    {   if (ref($entry{'kids'}) eq 'ARRAY')
-        {   my @array = @{$entry{'kids'}};
-            my $number = $#array;
-            for (my $i = 0; $i <= $number ; $i++)
-            {   $objNr++;
-                $array[$i]->{'this'} = $objNr;
-                if ($i == 0)
-                {   $first = $objNr;           
-                }
-                if ($i == $number)
-                {   $last = $objNr;
-                } 
-
-                if ($i < $number)
-                {  $array[$i]->{'next'} = $objNr + 1;
-                }
-                if ($i > 0)
-                {  $array[$i]->{'previous'} = $objNr - 1;
-                }
-                if (exists $entry{'close'})
-                {  $array[$i]->{'close'} = 1;
-                }
-            } 
-
-            for my $element (@array)
-            {   descend($me, %{$element})
-            }
-        }
-        else                                          # a hash
-        {   my %hash = %{$entry{'kids'}};
-            $objNr++;
-            $hash{'this'} = $objNr;
-            $first        = $objNr;           
-            $last         = $objNr;
-            descend($me, %hash)
-        }
-     }     
-
-     if (exists $entry{'act'})
-     {   my $code = $entry{'act'};
-         if ($code =~ m/^\s*(\d+)\s*,\s*(\d+)\s*,\s*(\d+)\s*$/os)
-         {  $code = "this.pageNum = $1; this.scroll($2, $3);";
-         }
-         $jsObj = skrivJS($code);         
-     }
-
-     $objekt[$me] = $pos;
-     $rad = "$me 0 obj<<";
-     if (exists $entry{'text'})
-     {   $rad .= "/Title ($entry{'text'})";
-     }
-     $rad .= "/Parent $parent 0 R";
-     if (defined $jsObj)
-     {  $rad .= "/A $jsObj 0 R";
-     }
-     elsif (exists $entry{'pdfact'})
-     {  $rad .= "/A << $entry{'pdfact'} >>";
-     }
-     if (exists $entry{'previous'})
-     {  $rad .= "/Prev $entry{'previous'} 0 R";
-     }
-     if (exists $entry{'next'})
-     {  $rad .= "/Next $entry{'next'} 0 R";
-     }
-     if (defined $first)
-     {  $rad .= "/First $first 0 R";
-     }
-     if (defined $last)
-     {  $rad .= "/Last $last 0 R";
-     }
-     if ($count != $totalCount)
-     {   $count = $totalCount - $count;
-         $rad .= "/Count $count";
-     }
-     if (exists $entry{'color'})
-     {   $rad .= "/C [$entry{'color'}]";
-     }
-     if (exists $entry{'style'})
-     {   $rad .= "/F $entry{'style'}";
-     }
-
-     $rad .= ">>endobj\n";
-     $pos += syswrite UTFIL, $rad;
-}  
-
-sub prInitVars
-{   my $exit = shift;
-    $genLowerX    = 0;
-    $genLowerY    = 0;
-    $genUpperX    = 595,
-    $genUpperY    = 842;
-    $fontSize     = 12;
-    ($utfil, $slutNod, $formCont, $imSeq, 
-    $page, $sidObjNr, $interActive, $NamesSaved, $AARootSaved, $AAPageSaved,
-    $root, $AcroFormSaved, $id, $ldir, $checkId, $formNr, $imageNr, 
-    $filnamn, $interAktivSida, $taInterAkt, $type, $runfil, $checkCs,
-    $confuseObj, $compress,$pos, $fontNr, $objNr,
-    $defGState, $gSNr, $pattern, $shading, $colorSpace) = '';
-
-    (@kids, @counts, @formBox, @objekt, @parents, @aktuellFont, @skapa,
-     @jsfiler, @inits, @bookmarks, @annots) = ();
-
-    ( %resurser,  %objRef, %nyaFunk,%oldObject, %unZipped, 
-      %sidFont, %sidXObject, %sidExtGState, %font, %fields, %script,
-      %initScript, %sidPattern, %sidShading, %sidColorSpace, %knownToFile,
-      %processed, %dummy) = ();
-
-     $stream = '';
-     $idTyp  = '';
-     $ddir   = '';
-     $log    = '';
-
-     if ($exit)
-     {  return 1;
-     }
-   
-     ( %form, %image, %fontSource, %intAct) = ();
-
-     return 1;
-}
-
-####################
-# Behandla en bild
-####################
-
-sub prImage
-{ my $param = shift;
-  my ($infil, $sidnr, $bildnr, $effect, $adjust, $x, $y, $size, $xsize,
-      $ysize, $rotate);
-
-  if (ref($param) eq 'HASH')
-  {  $infil  = $param->{'file'};
-     $sidnr  = $param->{'page'} || 1;
-     $bildnr = $param->{'imageNo'} || 1;
-     $effect = $param->{'effect'} || 'print';
-     $adjust = $param->{'adjust'} || '';
-     $x      = $param->{'x'} || 0;
-     $y      = $param->{'y'} || 0;
-     $rotate = $param->{'rotate'} || 0;
-     $size   = $param->{'size'} || 1;
-     $xsize  = $param->{'xsize'} || 1;
-     $ysize  = $param->{'ysize'} || 1;
-  }
-  else
-  {  $infil  = $param;
-     $sidnr  = shift || 1;
-     $bildnr = shift || 1;
-     $effect = shift || 'print';
-     $adjust = shift || '';
-     $x      = shift || 0;
-     $y      = shift || 0;
-     $rotate = shift || 0;
-     $size   = shift || 1;
-     $xsize  = shift || 1;
-     $ysize  = shift || 1;
-  }
-
-  my ($refNr, $inamn, $bildIndex, $xc, $yc, $xs, $ys);
-  $type = 'image';
-  
-  $bildIndex = $bildnr - 1;
-  my $fSource = $infil . '_' . $sidnr;
-  my $iSource = $fSource . '_' . $bildnr;
-  if (! exists $image{$iSource})
-  {  $imageNr++;
-     $inamn = 'Im' . $imageNr;
-     $knownToFile{'Im:' . $iSource} = $inamn;
-     $image{$iSource}[imXPOS]   = 0;
-     $image{$iSource}[imYPOS]   = 0;
-     $image{$iSource}[imXSCALE] = 1;
-     $image{$iSource}[imYSCALE] = 1;
-     if (! exists $form{$fSource} )
-     {  $refNr = getPage($infil, $sidnr, '');
-        if ($refNr)
-        {  $formNr++;
-           my $namn = 'Fm' . $formNr;
-           $knownToFile{$fSource} = $namn;
-        }
-        elsif ($refNr eq '0')
-        {  errLog("File: $infil  Page: $sidnr can't be found");
-        }          
-     }
-     my $in = $form{$fSource}[fIMAGES][$bildIndex];
-     $image{$iSource}[imWIDTH]  = $form{$fSource}->[fOBJ]->{$in}->[oWIDTH];
-     $image{$iSource}[imHEIGHT] = $form{$fSource}->[fOBJ]->{$in}->[oHEIGHT];
-     $image{$iSource}[imIMAGENO] = $form{$fSource}[fIMAGES][$bildIndex];
-  }
-  if (exists $knownToFile{'Im:' . $iSource})
-  {   $inamn = $knownToFile{'Im:' . $iSource};
-  }
-  else
-  {   $imageNr++;
-      $inamn = 'Im' . $imageNr;
-      $knownToFile{'Im:' . $iSource} = $inamn;
-  }
-  if (! exists $objRef{$inamn})         
-  {  $refNr = getImage($infil,  $sidnr, 
-                       $bildnr, $image{$iSource}[imIMAGENO]);
-     $objRef{$inamn} = $refNr;
-  }
-  else
-  {   $refNr = $objRef{$inamn};
-  }
-     
-  my @iData = @{$image{$iSource}};
-
-  if (($effect eq 'print') && ($refNr))
-  {  if (! defined  $defGState)
-     { prDefaultGrState();}
-     $stream .= "\n/Gs0 gs\n";
-     $stream .= "q\n";
-     
-     if ($adjust)
-     {  $stream .= fillTheForm(0, 0, $iData[imWIDTH], $iData[imHEIGHT],$adjust);        
-     }
-     else
-     {   my $tX     = ($x + $iData[imXPOS]);
-         my $tY     = ($y + $iData[imYPOS]);
-         $stream .= calcMatrix($tX, $tY, $rotate, $size, 
-                               $xsize, $ysize, $iData[imWIDTH], $iData[imHEIGHT]);
-     }
-     $stream .= "$iData[imWIDTH] 0 0 $iData[imHEIGHT] 0 0 cm\n";
-     $stream .= "/$inamn Do\n";
-     $sidXObject{$inamn} = $refNr;
-     $stream .= "Q\n";
-     $sidExtGState{'Gs0'} = $defGState;
-  }
-  if ($runfil)
-  {  $infil = prep($infil);
-     $log .= "Image~$infil~$sidnr~$bildnr~$effect~$adjust";
-     $log .= "$x~$y~$size~$xsize~$ysize~$rotate\n";
-  }
-  if (! $pos)
-  {  errLog("No output file, you have to call prFile first");
-  }
-
-  if (wantarray)
-  {   return ($inamn, $iData[imWIDTH], $iData[imHEIGHT]);
-  }
-  else
-  {   return $inamn;
-  }
-}
-
-
-
-sub prMbox
-{  my $lx = shift || 0;
-   my $ly = shift || 0;
-   my $ux = shift || 595;
-   my $uy = shift || 842;
-   
-   if ((defined $lx) && ($lx =~ m'^[\d\-\.]+$'o))
-   { $genLowerX = $lx; }
-   if ((defined $ly) && ($ly =~ m'^[\d\-\.]+$'o))
-   { $genLowerY = $ly; } 
-   if ((defined $ux) && ($ux =~ m'^[\d\-\.]+$'o))
-   { $genUpperX = $ux; } 
-   if ((defined $uy) && ($uy =~ m'^[\d\-\.]+$'o))
-   { $genUpperY = $uy; } 
-   if ($runfil)
-   {  $log .= "Mbox~$lx~$ly~$ux~$uy\n";
-   }
-   if (! $pos)
-   {  errLog("No output file, you have to call prFile first");
-   }
-   1;
-}
-
-sub prField
-{  my ($fieldName, $fieldValue) = @_;
-   if (($interAktivSida) || ($interActive))
-   {  errLog("Too late, has already tried to INITIATE FIELDS within an interactive page");
-   }
-   elsif (! $pos)
-   {  errLog("Too early INITIATE FIELDS, create a file first");
-   }
-   $fields{$fieldName} = $fieldValue;
-   if ($fieldValue =~ m'^\s*js\s*\:(.*)'oi)
-   {  my $code = $1;
-      my @fall = ($code =~ m'([\w\d\_\$]+)\s*\(.*?\)'gs);
-      for (@fall)
-      {  if (! exists $initScript{$_})
-         { $initScript{$_} = 0; 
-         }
-      }
-   }
-   if ($runfil)
-   {   $fieldName  = prep($fieldName);
-       $fieldValue = prep($fieldValue);
-       $log .= "Field~$fieldName~$fieldValue\n";
-   } 
-   1;
-}
-############################################################
-sub prBar
-{ my ($xPos, $yPos, $TxT) = @_; 
- 
-  $TxT   =~ tr/G/2/;
-    
-  my @fontSpar = @aktuellFont;
-         
-  findBarFont();
-  
-  my $Font = $aktuellFont[foINTNAMN];                # Namn i strömmen
-  
-  if (($xPos) && ($yPos))
-  {  $stream .= "\nBT /$Font $fontSize Tf ";
-     $stream .= "$xPos $yPos Td \($TxT\) Tj ET\n";
-  }
-  if ($runfil)
-  {  $log .= "Bar~$xPos~$yPos~$TxT\n";
-  }
-  if (! $pos)
-  {  errLog("No output file, you have to call prFile first");
-  }
-  @aktuellFont = @fontSpar;
-  return $Font;
-  
-}
-
-
-sub prExtract
-{  my $name = shift;
-   my $form = shift;
-   my $page = shift || 1;
-   if ($name =~ m'^/(\w+)'o)
-   {  $name = $1;
-   }
-   my $fullName = "$name~$form~$page";
-   if (exists $knownToFile{$fullName})
-   {   return $knownToFile{$fullName};
-   }
-   else
-   {   if ($runfil)
-       {  $log = "Extract~$fullName\n";
-       }
-       if (! $pos)
-       {  errLog("No output file, you have to call prFile first");
-       }
-   
-       if (! exists $form{$form . '_' . $page})
-       {  prForm($form, $page, undef, 'load', 1);
-       }
-       $name = extractName($form, $page, $name);
-       if ($name)
-       {  $knownToFile{$fullName} = $name;
-       }
-       return $name;
-   }
-}
-
-
-########## Extrahera ett dokument ####################       
-sub prDoc
-{ my ($infil, $first, $last); 
-  my $param = shift;
-  if (ref($param) eq 'HASH')
-  {  $infil = $param->{'file'};
-     $first = $param->{'first'} || 1;
-     $last  = $param->{'last'} || '';
-  }
-  else
-  {  $infil = $param;
-     $first = shift || 1;
-     $last  = shift || '';     
-  }
-  
-  if ($stream)
-  {  if ($stream =~ m'\S+'os)
-     {  skrivSida();}
-     else
-     {  undef $stream; }
-  }
-   
-  if (! $objekt[$objNr])         # Objektnr behöver inte reserveras här
-  { $objNr--;
-  }
-  
-  my ($sidor, $Names, $AARoot, $AcroForm) = analysera($infil, $first, $last);
-  if (($Names) || ($AARoot) || ($AcroForm))
-  { $NamesSaved     = $Names;
-    $AARootSaved    = $AARoot;
-    $AcroFormSaved  = $AcroForm;
-    $interActive    = 1;
-  }
-  if ($runfil)
-  {   $infil = prep($infil);
-      $log .= "Doc~$infil~$first~$last\n";
-  }
-  if (! $pos)
-  {  errLog("No output file, you have to call prFile first");
-  }
-  return $sidor;
-}
-
-############# Ett interaktivt + grafiskt "formulär" ##########
-
-sub prDocForm
-{my ($sidnr, $adjust, $effect, $tolerant, $infil, $x, $y, $size, $xsize,
-      $ysize, $rotate);
-  my $param = shift;
-  if (ref($param) eq 'HASH')
-  {  $infil    = $param->{'file'};
-     $sidnr    = $param->{'page'} || 1;
-     $adjust   = $param->{'adjust'} || '';
-     $effect   = $param->{'effect'} || 'print';
-     $tolerant = $param->{'tolerant'} || '';
-     $x        = $param->{'x'} || 0;
-     $y        = $param->{'y'} || 0;
-     $rotate   = $param->{'rotate'} || 0;
-     $size     = $param->{'size'} || 1;
-     $xsize    = $param->{'xsize'} || 1;
-     $ysize    = $param->{'ysize'} || 1;
-  }
-  else
-  {  $infil    = $param;
-     $sidnr    = shift || 1;
-     $adjust   = shift || '';
-     $effect   = shift || 'print';
-     $tolerant = shift || '';
-     $x        = shift || 0;
-     $y        = shift || 0;
-     $rotate   = shift || 0;
-     $size     = shift || 1;
-     $xsize    = shift || 1;
-     $ysize    = shift || 1;
-  }
-  my $namn;
-  my $refNr;
-  $type = 'docform';
-  my $fSource = $infil . '_' . $sidnr; 
-  my $action;
-  if (! exists $form{$fSource})
-  {  $formNr++;
-     $namn = 'Fm' . $formNr;
-     $knownToFile{$fSource} = $namn;
-     if ($effect eq 'load')
-     {  $action = 'load'
-     }
-     else
-     {  $action = 'print'
-     }     
-     $refNr         = getPage($infil, $sidnr, $action);
-     if ($refNr)
-     {  $objRef{$namn} = $refNr; 
-     }
-     else
-     {  if ($tolerant)
-        {  if ((defined $refNr) && ($refNr eq '0'))   # Sidnumret existerar inte, men ok
-           {   $namn = '0';
-           }
-           else
-           {   undef $namn;   # Sidan kan inte användas som form
-           }
-        }
-        elsif (! defined $refNr)
-        {  my $mess = "$fSource can't be used as a form. Try e.g. to\n"
-                    . "save the file as postscript, and redistill\n";
-           errLog($mess);
-        }
-        else
-        {  errLog("File : $infil  Page: $sidnr  doesn't exist");
-        }
-     }
-  }
-  else
-  {  if (exists $knownToFile{$fSource})
-     {   $namn = $knownToFile{$fSource};
-     }
-     else
-     {  $formNr++;
-        $namn = 'Fm' . $formNr;
-        $knownToFile{$fSource} = $namn; 
-     }
-     if (exists $objRef{$namn})
-     {  $refNr = $objRef{$namn};
-     }
-     else
-     {  if (! $form{$fSource}[fVALID])
-        {  my $mess = "$fSource can't be used as a form. Try e.g. to\n"
-                    . "concatenate the streams of the page\n";
-           if ($tolerant)
-           {  cluck $mess;
-              undef $namn;
-           }
-           else
-           {  errLog($mess);
-           }
-        }
-        elsif ($effect ne 'load')
-        {  $refNr         =  byggForm($infil, $sidnr);
-           $objRef{$namn} = $refNr;
-        }
-     }  
-  }
-  my @BBox = @{$form{$fSource}[fBBOX]} if ($refNr);
-  if (($effect eq 'print') && ($form{$fSource}[fVALID]) && ($refNr))
-  {   if ((! defined $interActive)
-      && ($sidnr == 1)
-      &&  (defined %{$intAct{$fSource}[0]}) )
-      {  $interActive = $infil . ' ' . $sidnr;
-         $interAktivSida = 1;
-      }
-      if (! defined $defGState)
-      { prDefaultGrState();
-      }
-      if ($adjust)
-      {   $stream .= "q\n";
-          $stream .= fillTheForm(@BBox, $adjust);
-          $stream .= "\n/Gs0 gs\n";
-          $stream .= "/$namn Do\n";
-          $stream .= "Q\n";
-      }
-      elsif (($x) || ($y) || ($rotate) || ($size != 1) 
-                  || ($xsize != 1)     || ($ysize != 1))
-      {   $stream .= "q\n";
-          $stream .= calcMatrix($x, $y, $rotate, $size, 
-                               $xsize, $ysize, $BBox[2], $BBox[3]);
-          $stream .= "\n/Gs0 gs\n";
-          $stream .= "/$namn Do\n";
-          $stream .= "Q\n";
-      }
-      else
-      {   $stream .= "\n/Gs0 gs\n";   
-          $stream .= "/$namn Do\n";          
-      }
-      $sidXObject{$namn} = $refNr;
-      $sidExtGState{'Gs0'} = $defGState;
-  }
-  if ($runfil)
-  {   $infil = prep($infil); 
-      $log .= "Form~$infil~$sidnr~$adjust~$effect~$tolerant";
-      $log .= "~$x~$y~$rotate~$size~$xsize~$ysize\n";
-  }
-  if (! $pos)
-  {  errLog("No output file, you have to call prFile first");
-  }
-  if (($effect ne 'print') && ($effect ne 'add'))
-  {  undef $namn;
-  }
-  if (wantarray)
-  {  my $images = 0;
-     if (exists $form{$fSource}[fIMAGES])
-     {  $images = scalar(@{$form{$fSource}[fIMAGES]});
-     } 
-     return ($namn, $BBox[0], $BBox[1], $BBox[2], 
-             $BBox[3], $images);
-  }
-  else
-  {  return $namn;
-  }
-}
-
-sub calcMatrix
-{  my ($x, $y, $rotate, $size, $xsize, $ysize, $upperX, $upperY) = @_;
-   my ($str, $xSize, $ySize);
-   $size  = 1 if ($size  == 0);
-   $xsize = 1 if ($xsize == 0);
-   $ysize = 1 if ($ysize == 0);
-   $xSize = $xsize * $size;
-   $ySize = $ysize * $size;   
-   $str = "$xSize 0 0 $ySize $x $y cm\n";
-   if ($rotate)
-   {   if ($rotate =~ m'q(\d)'oi)
-       {  my $tal = $1;
-          if ($tal == 1)
-          {  $upperY = $upperX;
-             $upperX = 0;
-             $rotate = 270;
-          }
-          elsif ($tal == 2)
-          {  $rotate = 180;
-          }
-          else
-          {  $rotate = 90;
-             $upperX = $upperY;
-             $upperY = 0;
-          }
-       }
-       else
-       {   $upperX = 0;
-           $upperY = 0;
-       }  
-       my $radian = sprintf("%.6f", $rotate / 57.2957795);    # approx. 
-       my $Cos    = sprintf("%.6f", cos($radian));
-       my $Sin    = sprintf("%.6f", sin($radian));
-       my $negSin = $Sin * -1;
-       $str .= "$Cos $Sin $negSin $Cos $upperX $upperY cm\n";
-   }
-   return $str;
-}
-
-sub fillTheForm
-{  my $left   = shift || 0;
-   my $bottom = shift || 0;
-   my $right  = shift || 0;
-   my $top    = shift || 0; 
-   my $how    = shift || 1;
-   my $image  = shift;
-   my $str;
-   my $scaleX = 1;
-   my $scaleY = 1; 
-   
-   my $xDim = $genUpperX - $genLowerX;
-   my $yDim = $genUpperY - $genLowerY;
-   my $xNy  = $right - $left;
-   my $yNy  = $top - $bottom;
-   $scaleX  = $xDim / $xNy;
-   $scaleY  = $yDim / $yNy;
-   if ($how == 1)
-   {  if ($scaleX < $scaleY)
-      {  $scaleY = $scaleX;
-      }
-      else
-      {  $scaleX = $scaleY;
-      }
-   }
-   $str = "$scaleX 0 0 $scaleY $left $bottom cm\n";
-   return $str;
-}
-
-sub prJpeg
-{  my ($iFile, $iWidth, $iHeight) = @_;
-   my ($iLangd, $namnet, $utrad);
-   if (! $pos)                    # If no output is active, it is no use to continue
-   {   return undef;
-   }
-   my $checkidOld = $checkId;
-   ($iFile, $checkId) = findGet($iFile, $checkidOld);
-   if ($iFile)
-   {  $iLangd = (stat($iFile))[7];
-      $imageNr++;
-      $namnet = 'Im' . $imageNr;
-      $objNr++;
-      $objekt[$objNr] = $pos;
-      open (BILDFIL, "<$iFile") || errLog("Couldn't open $iFile, $!, aborts");
-      binmode BILDFIL;
-      my $iStream;
-      sysread BILDFIL, $iStream, $iLangd;
-      $utrad = "$objNr 0 obj\n<</Type/XObject/Subtype/Image/Name/$namnet" .
-                "/Width $iWidth /Height $iHeight /BitsPerComponent 8 /Filter/DCTDecode/ColorSpace/DeviceRGB"
-                . "/Length $iLangd >>stream\n$iStream\nendstream\nendobj\n";
-      close BILDFIL;
-      $pos += syswrite UTFIL, $utrad;
-      if ($runfil)
-      {  $log .= "Cid~$checkId\n";
-         $log .= "Jpeg~$iFile~$iWidth~$iHeight\n";
-      }
-      $objRef{$namnet} = $objNr;
-   }
-   if (! $pos)
-   {  errLog("No output file, you have to call prFile first");
-   }
-   undef $checkId;
-   return $namnet;
-}
-
-sub checkContentStream
-{  for (@_)
-   {  if (my $value = $objRef{$_})
-      {   my $typ = substr($_, 0, 2);
-          if ($typ eq 'Ft')
-          {  $sidFont{$_} = $value;
-          }
-          elsif ($typ eq 'Gs')
-          {  $sidExtGState{$_} = $value;
-          }
-          elsif ($typ eq 'Pt')
-          {  $sidPattern{$_} = $value;
-          }
-          elsif ($typ eq 'Sh')
-          {  $sidShading{$_} = $value;
-          }
-          elsif ($typ eq 'Cs')
-          {  $sidColorSpace{$_} = $value;
-          }
-          else
-          {  $sidXObject{$_} = $value;
-          }
-      }
-      elsif (($_ eq 'Gs0') && (! defined $defGState))
-      {  my ($dummy, $oNr) = prDefaultGrState();
-         $sidExtGState{'Gs0'} = $oNr;
-      }
-   }    
-}
-
-sub prGraphState
-{  my $string = shift;
-   $gSNr++;
-   my $name = 'Gs' . $gSNr ;
-   $objNr++;
-   $objekt[$objNr] = $pos;
-   my $utrad = "$objNr 0 obj\n" . $string  . "\nendobj\n";
-   $pos += syswrite UTFIL, $utrad;
-   $objRef{$name} = $objNr;
-   if ($runfil)
-   {  $log .= "GraphStat~$string\n";
-   }
-   if (! $pos)
-   {  errLog("No output file, you have to call prFile first");
-   }
-   return $name;
-}
-
-##############################################################
-# Streckkods fonten lokaliseras och objekten skrivs ev. ut
-##############################################################
-
-sub findBarFont()
-{  my $Font = 'Bar';
-   
-   if (exists $font{$Font})              #  Objekt är redan definierat
-   {  $aktuellFont[foEXTNAMN]   = $Font;
-      $aktuellFont[foREFOBJ]    = $font{$Font}[foREFOBJ];
-      $aktuellFont[foINTNAMN]   = $font{$Font}[foINTNAMN];
-   }
-   else
-   {  $objNr++;
-      $objekt[$objNr]  = $pos;
-      my $encodObj     = $objNr;
-      my $fontObjekt   = "$objNr 0 obj\n<< /Type /Encoding\n" .
-                         '/Differences [48 /tomt /streck /lstreck]' . "\n>>\nendobj\n";
-      $pos += syswrite UTFIL, $fontObjekt;
-      my $charProcsObj = createCharProcs();
-      $objNr++;
-      $objekt[$objNr]  = $pos;
-      $fontNr++;
-      my $fontAbbr     = 'Ft' . $fontNr; 
-      $fontObjekt      = "$objNr 0 obj\n<</Type/Font/Subtype/Type3\n" .
-                         '/FontBBox [0 -250 75 2000]' . "\n" .
-                         '/FontMatrix [0.001 0 0 0.001 0 0]' . "\n" .
-                         "\/CharProcs $charProcsObj 0 R\n" .
-                         "\/Encoding $encodObj 0 R\n" .
-                         '/FirstChar 48' . "\n" .
-                         '/LastChar 50' . "\n" .
-                         '/Widths [75 75 75]' . "\n>>\nendobj\n";
-
-      $font{$Font}[foINTNAMN]  = $fontAbbr; 
-      $font{$Font}[foREFOBJ]   = $objNr;
-      $objRef{$fontAbbr}       = $objNr;
-      $objekt[$objNr]          = $pos;
-      $aktuellFont[foEXTNAMN]  = $Font;
-      $aktuellFont[foREFOBJ]   = $objNr;
-      $aktuellFont[foINTNAMN]  = $fontAbbr;
-      $pos += syswrite UTFIL, $fontObjekt;
-   }
-   if (! $pos)
-   {  errLog("No output file, you have to call prFile first");
-   }
-      
-   $sidFont{$aktuellFont[foINTNAMN]} = $aktuellFont[foREFOBJ];
-}
-
-sub createCharProcs()
-{   #################################
-    # Fonten (objektet) för 0 skapas
-    #################################
-    
-    $objNr++;
-    $objekt[$objNr]  = $pos;
-    my $tomtObj = $objNr;
-    my $str = "\n75 0 d0\n6 0 69 2000 re\n1.0 g\nf\n";
-    my $strLength = length($str);
-    my $obj = "$objNr 0 obj\n<< /Length $strLength >>\nstream" .
-           $str . "\nendstream\nendobj\n";
-    $pos += syswrite UTFIL, $obj;
-
-    #################################
-    # Fonten (objektet) för 1 skapas
-    #################################
-
-    $objNr++;
-    $objekt[$objNr]  = $pos;
-    my $streckObj = $objNr;
-    $str = "\n75 0 d0\n4 0 71 2000 re\n0.0 g\nf\n";
-    $strLength = length($str);
-    $obj = "$objNr 0 obj\n<< /Length $strLength >>\nstream" .
-           $str . "\nendstream\nendobj\n";
-    $pos += syswrite UTFIL, $obj;
-
-    ###################################################
-    # Fonten (objektet) för 2, ett långt streck skapas
-    ###################################################
-
-    $objNr++;
-    $objekt[$objNr]  = $pos;
-    my $lStreckObj = $objNr;
-    $str = "\n75 0 d0\n4 -250 71 2250 re\n0.0 g\nf\n";
-    $strLength = length($str);
-    $obj = "$objNr 0 obj\n<< /Length $strLength >>\nstream" .
-           $str . "\nendstream\nendobj\n";
-    $pos += syswrite UTFIL, $obj;
-   
-    #####################################################
-    # Objektet för "CharProcs" skapas
-    #####################################################
-
-    $objNr++;
-    $objekt[$objNr]  = $pos;
-    my $charProcsObj = $objNr;
-    $obj = "$objNr 0 obj\n<</tomt $tomtObj 0 R\n/streck $streckObj 0 R\n" .
-           "/lstreck $lStreckObj 0 R>>\nendobj\n";
-    $pos += syswrite UTFIL, $obj;
-    return $charProcsObj;
-}
-
-
-
-sub prCid
-{   $checkId = shift;
-    if ($runfil)
-    {  $log .= "Cid~$checkId\n";
-    }
-    1;    
-}
-    
-sub prIdType
-{   $idTyp = shift;
-    if ($runfil)
-    {  $log .= "IdType~rep\n";
-    }
-    1;
-}
-         
-    
-sub prId
-{   $id = shift;
-    if ($runfil)
-    {  $log .= "Id~$id\n";
-    }
-    if (! $pos)
-    {  errLog("No output file, you have to call prFile first");
-    }
-    1;
-}
-
-sub prJs
-{   my $filNamnIn = shift;
-    my $filNamn;
-    if ($filNamnIn !~ m'\{'os)
-    {  my $checkIdOld = $checkId;
-       ($filNamn, $checkId) = findGet($filNamnIn, $checkIdOld);
-       if (($runfil) && ($checkId) && ($checkId ne $checkIdOld))
-       {  $log .= "Cid~$checkId\n";
-       }
-       $checkId = '';
-    }
-    else
-    {  $filNamn = $filNamnIn;
-    }
-    if ($runfil)
-    {  my $filnamn = prep($filNamn);
-       $log .= "Js~$filnamn\n";
-    }
-    if (($interAktivSida) || ($interActive))
-    {  errLog("Too late, has already tried to merge JAVA SCRIPTS within an interactive page");
-    }
-    elsif (! $pos)
-    {  errLog("Too early for JAVA SCRIPTS, create a file first"); 
-    }
-    push @jsfiler, $filNamn;
-    1;
-}
-
-sub prInit
-{   my $initText  = shift;
-    my $duplicate = shift || '';
-    my @fall = ($initText =~ m'([\w\d\_\$]+)\s*\(.*?\)'gs);
-    for (@fall)
-    {  if (! exists $initScript{$_})
-       { $initScript{$_} = 0; 
-       }
-    }
-    if ($duplicate)
-    {  $duplicateInits = 1;
-    }
-    push @inits, $initText;
-    if ($runfil)
-    {   $initText = prep($initText);
-        $log .= "Init~$initText~$duplicate\n";
-    }
-    if (($interAktivSida) || ($interActive))
-    {  errLog("Too late, has already tried to create INITIAL JAVA SCRIPTS within an interactive page");
-    }
-    elsif (! $pos)
-    {  errLog("Too early for INITIAL JAVA SCRIPTS, create a file first");
-    }
-    1;
-    
-}
-
-sub prVers
-{   my $vers = shift;            
-    ############################################################
-    # Om programmet körs om så kontrolleras VERSION
-    ############################################################
-    if ($vers ne $VERSION)
-    {  warn  "$vers \<\> $VERSION might give different results, if comparing two runs \n";
-       return undef;
-    }
-    else
-    {  return 1;
-    }
-}
-
-sub prDocDir
-{  $ddir = findDir(shift);
-   1;
-}
-
-sub prLogDir
-{  $ldir = findDir(shift);
-   1;
-}
-
-sub prLog
-{  my $mess = shift;
-   if ($runfil)
-   {  $mess  = prep($mess);
-      $log .= "Log~$mess\n";
-      return 1;
-   }
-   else
-   {  errLog("You have to give a directory for the logfiles first : prLogDir <dir> , aborts");
-   }
-   
-}
-
-sub prGetLogBuffer
-{  
-   return $log;
-}
-
-sub findDir
-{ my $dir = shift;
-  if ($dir eq '.')
-  { return undef; }
-  if (! -e $dir)
-   {  mkdir $dir || errLog("Couldn't create directory $dir, $!");
-   }
-
-  if ((-e $dir) && (-d $dir))
-  {  if (substr($dir, length($dir), 1) eq '/')
-     {  return $dir; }
-     else
-     {  return ($dir . '/');
-     }
-  }
-  else
-  { errLog("Error finding/creating directory $dir, $!");
-  }
-}
-
-sub prTouchUp
-{ $touchUp = shift;
-  if ($runfil)
-  {  $log .= "TouchUp~$touchUp\n";
-  }
-  if (! $pos)
-  {  errLog("No output file, you have to call prFile first");
-  }
-  1;
-}
-
-sub prCompress
-{ $compress = shift;
-  if ($runfil)
-  {  $log .= "Compress~$compress\n";
-  }
-  if (! $pos)
-  {  errLog("No output file, you have to call prFile first");
-  }
-  1;
-
-}
-
-sub prep
-{  my $indata = shift;
-   $indata =~ s/[\n\r]+/ /sgo;
-   $indata =~ s/~/<tilde>/sgo;
-   return $indata;
-} 
-
-
-sub xRefs
-{  my ($bytes, $infil) = @_;
-   my ($j, $nr, $xref, $i, $antal, $inrad, $Root, $tempRoot, $referens);
-   my $buf = '';
-   %embedded =();
-
-   my $res = sysseek INFIL, -50, 2;
-   if ($res)
-   {  sysread INFIL, $buf, 100;
-      if ($buf =~ m'Encrypt'o)
-      {  errLog("The file $infil is encrypted, cannot be used, aborts");
-      }
-      if ($buf =~ m'\bstartxref\s+(\d+)'o)
-      {  $xref = $1;
-         while ($xref)
-         {  $res = sysseek INFIL, $xref, 0;
-            $res = sysread INFIL, $buf, 200;
-            if ($buf =~ m '^\d+\s\d+\sobj'os)
-            {  ($xref, $tempRoot, $nr) = crossrefObj($nr, $xref);
-            }
-            else
-            {  ($xref, $tempRoot, $nr) = xrefSection($nr, $xref, $infil);
-            }
-            if (($tempRoot) && (! $Root))
-            {  $Root = $tempRoot;
-            }
-         }
-      }
-   }
-
-   ($Root) || errLog("The Root object in $infil couldn't be found, aborting");
-
-   ##############################################################
-   # Objekten sorteras i fallande ordning (efter offset i filen)
-   ##############################################################
-
-   my @offset = sort { $oldObject{$b} <=> $oldObject{$a} } keys %oldObject;
-
-   my $saved;
-
-   for (@offset)
-   {   $saved  = $oldObject{$_};
-       $bytes -= $saved;
-       
-       if ($_ !~ m'^xref'o)
-       {   if ($saved == 0)
-           {   $oldObject{$_} = [ 0, 0, $embedded{$_}];
-           }
-           else
-           {   $oldObject{$_} = [ $saved, $bytes];
-           }
-       }
-       $bytes = $saved;
-   } 
-   %embedded = ();
-   return $Root;
-}
-
-sub crossrefObj
-{   my ($nr, $xref) = @_;
-    my ($buf, %param, $len, $tempRoot);
-    my $from = $xref;
-    sysseek INFIL, $xref, 0;
-    sysread INFIL, $buf, 400;
-    my $str;
-    if ($buf =~ m'^(.+>>\s*)stream'os)
-    {  $str = $1;
-       $from = length($str) + 7;
-       if (substr($buf, $from, 1) eq "\n")
-       {  $from++;
-       }
-       $from += $xref;
-    }
-    
-    for (split('/',$str))
-    {  if ($_ =~ m'^(\w+)(.*)'o)
-       {  $param{$1} = $2 || ' ';
-       }
-    }
-    if ((exists $param{'Root'}) && ($param{'Root'} =~ m'^\s*(\d+)'o))
-    {  $tempRoot = $1;
-    }
-    my @keys = ($param{'W'} =~ m'(\d+)'og);
-    my $keyLength = 0;
-    for (@keys)
-    {  $keyLength += $_;
-    }
-    my $recLength = $keyLength + 1;
-    my $upTo = 1 + $keys[0] + $keys[1];
-    if ((exists $param{'Length'}) && ($param{'Length'} =~ m'(\d+)'o))
-    {  $len = $1;
-       sysseek INFIL, $from, 0;
-       sysread INFIL, $buf, $len;
-       my $x = inflateInit()
-               || die "Cannot create an inflation stream\n" ;
-       my ($output, $status) = $x->inflate(\$buf) ;
-       die "inflation failed\n"
-                     unless $status == 1;
-       
-       my $i = 0;
-       my @last = (0, 0, 0, 0, 0, 0, 0);
-       my @word = ('0', '0', '0', '0', '0', '0', '0');
-       my $recTyp;
-       my @intervall = ($param{'Index'} =~ m'(\d+)\D'osg);
-       my $m = 0;
-       my $currObj = $intervall[$m];
-       $m++;
-       my $max     = $currObj + $intervall[$m];   
-       
-       for (unpack ("C*", $output))
-       {  if (($_ != 0) && ($i > 0) && ($i < $upTo))
-          {   my $tal = $_ + $last[$i] ;
-              if ($tal > 255)
-              {$tal -= 256;
-              }
-          
-              $last[$i] = $tal;
-              $word[$i] = sprintf("%x", $tal);
-              if (length($word[$i]) == 1)
-              {  $word[$i] = '0' . $word[$i];
-              }
-          }                    
-          $i++;
-          if ($i == $recLength)
-          {  $i = 0;
-             my $j = 0;
-             my $offsObj;               # offset or object
-             if ($keys[0] == 0)
-             {  $recTyp = 1;
-                $j = 1;
-             }
-             else
-             {  $recTyp = $word[1];
-                $j = 2;
-             }
-             my $k = 0;
-             while ($k < $keys[1])
-             {  $offsObj .= $word[$j];
-                $k++;
-                $j++;
-             }
-                       
-             if ($recTyp == 1)
-             {   if (! (exists $oldObject{$currObj}))
-                 {  $oldObject{$currObj} = hex($offsObj); }
-                 else
-                 {  $nr++;
-                    $oldObject{'xref' . "$nr"} = hex($offsObj);
-                 }
-             }
-             elsif ($recTyp == 2)
-             {   if (! (exists $oldObject{$currObj}))
-                 {  $oldObject{$currObj} = 0; 
-                 }
-                 $embedded{$currObj} = hex($offsObj);
-             }
-             if ($currObj < $max)
-             {  $currObj++;
-             }
-             else
-             {  $m++;
-                $currObj = $intervall[$m];
-                $m++;
-                $max     = $currObj + $intervall[$m];
-             } 
-          }
-       }       
-    }
-    return ($param{'Prev'}, $tempRoot, $nr);
-}
- 
-sub xrefSection
-{   my ($nr, $xref, $infil) = @_;
-    my ($i, $root, $antal);    
-    $nr++;
-    $oldObject{('xref' . "$nr")} = $xref;  # Offset för xref sparas 
-    $xref += 5;
-    sysseek INFIL, $xref, 0;      
-    $xref  = 0;
-    my $inrad = '';
-    my $buf   = '';
-    my $c;
-    sysread INFIL, $c, 1;
-    while ($c =~ m!\s!s)   
-    {  sysread INFIL, $c, 1; }
-
-    while ( (defined $c)
-    &&   ($c ne "\n")
-    &&   ($c ne "\r") )   
-    {    $inrad .= $c;
-         sysread INFIL, $c, 1;
-    }
-
-    if ($inrad =~ m'^(\d+)\s+(\d+)'o)
-    {   $i     = $1;
-        $antal = $2;
-    }
-            
-    while ($antal)
-    {   for (my $l = 1; $l <= $antal; $l++)
-        {  sysread INFIL, $inrad, 20;
-           if ($inrad =~ m'^\s?(\d+) \d+ (\w)\s*'o)
-           {  if ($2 eq 'n')
-              {  if (! (exists $oldObject{$i}))
-                 {  $oldObject{$i} = int($1); }
-                 else
-                 {  $nr++;
-                    $oldObject{'xref' . "$nr"} = int($1);
-                 }
-              } 
-           }
-           $i++;
-        }
-        undef $antal;
-        undef $inrad;
-        sysread INFIL, $c, 1;
-        while ($c =~ m!\s!s)   
-        {  sysread INFIL, $c, 1; }
-
-        while ( (defined $c)
-        &&   ($c ne "\n")
-        &&   ($c ne "\r") )   
-        {    $inrad .= $c;
-             sysread INFIL, $c, 1;
-        }
-        if ($inrad =~ m'^(\d+)\s+(\d+)'o)
-        {   $i     = $1;
-            $antal = $2;
-        }
-
-    }
-             
-    while ($inrad)
-    {   if ($buf =~ m'Encrypt'o)
-        {  errLog("The file $infil is encrypted, cannot be used, aborts");
-        }
-        if ((! $root) && ($buf =~ m'\/Root\s+(\d+)\s{1,2}\d+\s{1,2}R'so))
-        {  $root = $1;
-           if ($xref)
-           { last; }
-        }
-
-        if ((! $xref) && ($buf =~ m'\/Prev\s+(\d+)\D'so))
-        {  $xref = $1;
-           if ($root)
-           { last; }
-        }
-                
-        if ($buf =~ m'xref'so)
-        {  last; }
-                
-        sysread INFIL, $inrad, 30;
-        $buf .= $inrad;
-    }
-    return ($xref, $root, $nr);
-}
- 
-sub getObject
-{   my ($nr, $noId, $noEnd) = @_;
-    
-    my $buf;
-    my ($offs, $siz, $embedded) = @{$oldObject{$nr}};
-    
-    if ($offs)
-    {  sysseek INFIL, $offs, 0;
-       sysread INFIL, $buf, $siz;
-       if (($noId) && ($noEnd))
-       {   if ($buf =~ m'^\d+ \d+ obj\s*(.*)endobj'os)
-           {   if (wantarray)
-               {   return ($1, $offs, $siz, $embedded);
-               }
-               else
-               {   return $1;
-               } 
-           }
-       }
-       elsif ($noId)
-       {   if ($buf =~ m'^\d+ \d+ obj\s*(.*)'os)
-           {   if (wantarray)
-               {   return ($1, $offs, $siz, $embedded);
-               }
-               else
-               {   return $1;
-               } 
-           }
-       }
-       if (wantarray)
-       {   return ($buf, $offs, $siz, $embedded)
-       }
-       else
-       {   return $buf;
-       } 
-    }
-    elsif (exists $unZipped{$nr})
-    {  ;
-    }
-    elsif ($embedded)
-    {   unZipPrepare($embedded);
-    }
-    if ($noEnd)
-    {   if (wantarray)
-        {   return ($unZipped{$nr}, $offs, $siz, $embedded)
-        }
-        else
-        {   return $unZipped{$nr};
-        }
-    }
-    else
-    {   if (wantarray)
-        {   return ("$unZipped{$nr}endobj\n", $offs, $siz, $embedded)
-        }
-        else
-        {   return "$unZipped{$nr}endobj\n";
-        }
-    } 
-}
-
-sub getKnown
-{   my ($p, $nr) = @_;
-    my ($del1, $del2);
-    my @objData = @{$$$p[0]->{$nr}};
-    if (defined $objData[oSTREAMP])
-    {  sysseek INFIL, ($objData[oNR][0] + $objData[oPOS]), 0;
-       sysread INFIL, $del1, ($objData[oSTREAMP] - $objData[oPOS]);
-       sysread INFIL, $del2, ($objData[oNR][1]   - $objData[oSTREAMP]);
-    }
-    else
-    {  my $buf;
-       my ($offs, $siz, $embedded) = @{$objData[oNR]};
-       if ($offs)
-       {  sysseek INFIL, $offs, 0;
-          sysread INFIL, $buf, $siz;
-          if ($buf =~ m'^\d+ \d+ obj\s*(.*)'os)
-          {   $del1 = $1;
-          }  
-       }
-       elsif (exists $unZipped{$nr})
-       {  $del1 = "$unZipped{$nr} endobj";
-       }
-       elsif ($embedded)
-       {   @objData = @{$$$p[0]->{$embedded}};
-           unZipPrepare($embedded, $objData[oNR][0], $objData[oNR][1]);
-           $del1 = "$unZipped{$nr} endobj"; 
-       }        
-    }
-    return (\$del1, \$del2, $objData[oKIDS], $objData[oTYPE]);
-}
-
-
-sub unZipPrepare
-{  my ($nr, $offs, $size) = @_;
-   my $buf;
-   if ($offs)
-   {   sysseek INFIL, $offs, 0;
-       sysread INFIL, $buf, $size;
-   }
-   else
-   {   $buf = getObject($nr);
-   }
-   my (%param, $stream, $str);
-   
-   if ($buf =~ m'^(\d+ \d+ obj\s*<<[\w\d\/\s\[\]<>]+)stream\b'os)
-   {  $str  = $1;
-      $offs = length($str) + 7;
-      if (substr($buf, $offs, 1) eq "\n")
-      {  $offs++;
-      }
-
-      for (split('/',$str))
-      {  if ($_ =~ m'^(\w+)(.*)'o)
-         {  $param{$1} = $2 || ' ';
-         }
-      }
-      $stream = substr($buf, $offs, $param{'Length'});
-      my $x = inflateInit()
-           || die "Cannot create an inflation stream\n";
-      my ($output, $status) = $x->inflate($stream);
-      die "inflation failed\n"
-                     unless $status == 1;
-
-      my $first = $param{'First'};
-      my @oOffsets = (substr($output, 0, $first) =~ m'(\d+)\b'osg);
-      my $i = 0;
-      my $j = 1;
-      my $bytes;
-      while ($oOffsets[$i])
-      {  my $k = $j + 2;
-         if ($oOffsets[$k])
-         {  $bytes = $oOffsets[$k] - $oOffsets[$j];
-         }
-         else 
-         {  $bytes = length($output) - $first - $oOffsets[$j];
-         }         
-         $unZipped{$oOffsets[$i]} = substr($output,($first + $oOffsets[$j]), $bytes); 
-         $i += 2;
-         $j += 2;
-      }
-   }
-}
-         
-############################################
-# En definitionerna för en sida extraheras
-############################################
-
-sub getPage
-{  my ($infil, $sidnr, $action)  = @_;
-
-   my ($res, $i, $referens,$objNrSaved,$validStream, $formRes, @objData, 
-       @underObjekt, @sidObj, $strPos, $startSida, $sidor, $filId, $del1, $del2,
-       $offs, $siz, $embedded, $vektor, $utrad, $robj, $valid, $Annots, $Names,
-       $AcroForm, $AARoot, $AAPage);
-
-   my $sidAcc = 0;
-   my $seq    = 0;
-   $imSeq     = 0;
-   @skapa     = ();   
-   undef $formCont;
-   
-   
-   $objNrSaved = $objNr;   
-   my $fSource = $infil . '_' . $sidnr;
-   my $checkidOld = $checkId;
-   ($infil, $checkId) = findGet($infil, $checkidOld);
-   if (($ldir) && ($checkId) && ($checkId ne $checkidOld))
-   {  $log .= "Cid~$checkId\n";
-   }
-   $form{$fSource}[fID] =  $checkId;
-   $checkId = '';
-   $behandlad{$infil}->{old} = {} 
-        unless (defined $behandlad{$infil}->{old});
-   $processed{$infil}->{oldObject} = {} 
-        unless (defined $processed{$infil}->{oldObject});   
-   $processed{$infil}->{unZipped} = {} 
-        unless (defined $processed{$infil}->{unZipped});
-
-   if ($action eq 'print')
-   {  *old = $behandlad{$infil}->{old};
-   }
-   else
-   {  $behandlad{$infil}->{dummy} = {};
-      *old = $behandlad{$infil}->{dummy};
-   }
-   
-   *oldObject =  $processed{$infil}->{oldObject};
-   *unZipped  = $processed{$infil}->{unZipped};
-   $root      = (exists $processed{$infil}->{root}) 
-                    ? $processed{$infil}->{root} : 0;
-   
-   
-   my @stati = stat($infil);
-   open (INFIL, "<$infil") || errLog("Couldn't open $infil, $!");
-   binmode INFIL;
-
-   if (! $root)
-   {  $root = xRefs($stati[7], $infil);
-   }
-
-   #############
-   # Hitta root
-   #############           
-
-   my $objektet = getObject($root);;
-   
-   if ($sidnr == 1) 
-   {  if ($objektet =~ m'/AcroForm(\s+\d+\s{1,2}\d+\s{1,2}R)'so)
-      {  $AcroForm = $1;
-      }
-      if ($objektet =~ m'/Names\s+(\d+)\s{1,2}\d+\s{1,2}R'so)
-      {  $Names = $1;
-      } 
-      #################################################
-      #  Finns ett dictionary för Additional Actions ?
-      #################################################
-      if ($objektet =~ m'/AA\s*\<\<\s*[^\>]+[^\>]+'so) # AA är ett dictionary
-      {  my $k;
-         my ($dummy, $obj) = split /\/AA/, $objektet;
-         $obj =~ s/\<\</\#\<\</gs;
-         $obj =~ s/\>\>/\>\>\#/gs;
-         my @ord = split /\#/, $obj;
-         for ($i = 0; $i <= $#ord; $i++)
-         {   $AARoot .= $ord[$i];
-             if ($ord[$i] =~ m'\S+'os)
-             {  if ($ord[$i] =~ m'<<'os)
-                {  $k++; }
-                if ($ord[$i] =~ m'>>'os)
-                {  $k--; }
-                if ($k == 0)
-                {  last; }
-             } 
-          }
-      }
-   }
-     
-   #
-   # Hitta pages
-   #
- 
-   if ($objektet =~ m'/Pages\s+(\d+)\s{1,2}\d+\s{1,2}R'os)
-   {  $objektet = getObject($1);
-      if ($objektet =~ m'/Count\s+(\d+)'os)
-      {  $sidor = $1;
-         if ($sidnr <= $sidor)
-         {  ($formRes, $valid) = kolla($objektet); 
-         }
-         else
-         {   return 0;
-         }
-         if ($sidor > 1)
-         {   undef $AcroForm;
-             undef $Names;
-             undef $AARoot;
-             if ($type eq 'docform')
-             {  errLog("prDocForm can only be used for single page documents - try prDoc or reformat $infil");
-             }
-         }
-      }
-   }
-   else
-   { errLog("Didn't find Pages in $infil - aborting"); }
-
-   if ($objektet =~ m'/Kids\s*\[([^\]]+)'os)
-   {  $vektor = $1; } 
-   while ($vektor =~ m'(\d+)\s{1,2}\d+\s{1,2}R'go)
-   {   push @sidObj, $1;       
-   }
-
-   my $bryt1 = -20;                     # Hängslen
-   my $bryt2 = -20;                     # Svångrem för att undvika oändliga loopar
-   
-   while ($sidAcc < $sidnr)
-   {  @underObjekt = @sidObj;
-      @sidObj     = ();
-      $bryt1++;
-      for my $uO (@underObjekt)
-      {  $objektet = getObject($uO);
-         if ($objektet =~ m'/Count\s+(\d+)'os)
-         {  if (($sidAcc + $1) < $sidnr)
-            {  $sidAcc += $1; }
-            else
-            {  ($formRes, $valid) = kolla($objektet, $formRes);
-               if ($objektet =~ m'/Kids\s*\[([^\]]+)'os)
-               {  $vektor = $1; } 
-               while ($vektor =~ m'(\d+)\s{1,2}\d+\s{1,2}R'gso)
-               {   push @sidObj, $1;  }
-               last; 
-            }
-         }
-         else
-         {  $sidAcc++; }
-         if ($sidAcc == $sidnr)
-         {   $seq = $uO;
-             last;  }
-         $bryt2++;
-      }
-      if (($bryt1 > $sidnr) || ($bryt2 > $sidnr))   # Bryt oändliga loopar 
-      {  last; } 
-   }    
-
-   ($formRes, $validStream) = kolla($objektet, $formRes);
-   $startSida = $seq;
-       
-   if ($sidor == 1)
-   {  #################################################
-      # Kontrollera Page-objektet för annoteringar
-      #################################################
-
-      if ($objektet =~ m'/Annots\s*([^\/]+)'so)
-      {  $Annots = $1;
-      } 
-      #################################################
-      #  Finns ett dictionary för Additional Actions ?
-      #################################################
-      if ($objektet =~ m'/AA\s*\<\<\s*[^\>]+[^\>]+'so)  # AA är ett dictionary. Hela kopieras
-      {  my $k;
-         my ($dummy, $obj) = split /\/AA/, $objektet;
-         $obj =~ s/\<\</\#\<\</gs;
-         $obj =~ s/\>\>/\>\>\#/gs;
-         my @ord = split /\#/, $obj;
-         for ($i = 0; $i <= $#ord; $i++)
-         {   $AAPage .= $ord[$i];
-             if ($ord[$i] =~ m'\S+'s)
-             {  if ($ord[$i] =~ m'<<'s)
-                {  $k++; }
-                if ($ord[$i] =~ m'>>'s)
-                {  $k--; }
-                if ($k == 0)
-                {  last; }
-             } 
-          }
-      }      
-   }
-
-   my $rform = \$form{$fSource};
-   @$$rform[fRESOURCE]  = $formRes;
-   my @BBox;
-   if (defined $formBox[0])
-   {  $BBox[0] = $formBox[0]; }
-   else
-   {  $BBox[0] = $genLowerX; }
- 
-   if (defined $formBox[1])
-   {  $BBox[1] = $formBox[1]; }
-   else
-   {  $BBox[1] = $genLowerY; }
- 
-   if (defined $formBox[2])
-   {  $BBox[2] = $formBox[2]; }
-   else
-   {  $BBox[2] = $genUpperX; }
- 
-   if (defined $formBox[3])
-   {  $BBox[3] = $formBox[3]; }
-   else
-   {  $BBox[3] = $genUpperY; }
- 
-   @{$form{$fSource}[fBBOX]} = @BBox;
-
-   if ($formCont) 
-   {   $seq = $formCont;
-       ($objektet, $offs, $siz, $embedded) = getObject($seq);
-       
-       $robj  = \$$$rform[fOBJ]->{$seq};
-       @{$$$robj[oNR]} = ($offs, $siz, $embedded);
-       $$$robj[oFORM] = 'Y';
-       $form{$fSource}[fMAIN] = $seq;
-       if ($objektet =~ m'^(\d+ \d+ obj\s*<<)(.+)(>>\s*stream)'so)
-       {  $del1   = $2;
-          $strPos           = length($1) + length($2) + length($3);
-          $$$robj[oPOS]     = length($1);      
-          $$$robj[oSTREAMP] = $strPos; 
-          my $nyDel1;
-          $nyDel1 = '<</Type/XObject/Subtype/Form/FormType 1'; 
-          $nyDel1 .= "/Resources $formRes" .
-                     "/BBox \[ $BBox[0] $BBox[1] $BBox[2] $BBox[3]\]" .
-                     # "/Matrix \[ 1 0 0 1 0 0 \]" .
-                     $del1;
-          if ($action eq 'print')
-          {  $objNr++;
-             $objekt[$objNr] = $pos;
-          }
-          $referens = $objNr;
-
-          $res = ($nyDel1 =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs);
-          if ($res)
-          { $$$robj[oKIDS] = 1; }
-          if ($action eq 'print')
-          {   $utrad  = "$referens 0 obj\n" . "$nyDel1" . ">>\nstream";
-              $del2   = substr($objektet, $strPos);
-              $utrad .= $del2;
-              $pos   += syswrite UTFIL, $utrad;
-          }
-          $form{$fSource}[fVALID] = $validStream;
-      }
-      else                              # Endast resurserna kan behandlas
-      {   $formRes =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs;  
-      }
-   }
-   else                                # Endast resurserna kan behandlas
-   {  $formRes =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs;
-   } 
-      
-   my $preLength;
-   while (scalar @skapa)
-   {  my @process = @skapa;
-      @skapa = ();
-      for (@process)
-      {  my $Font;
-         my $gammal = $$_[0];
-         my $ny     = $$_[1];
-         ($objektet, $offs, $siz, $embedded)  = getObject($gammal);
-         $robj      = \$$$rform[fOBJ]->{$gammal};
-         @{$$$robj[oNR]} = ($offs, $siz, $embedded);      
-         if ($objektet =~ m'^(\d+ \d+ obj\s*<<)(.+)(>>\s*stream)'os)
-         {  $del1             = $2;
-            $strPos           = length ($1) + length($2) + length($3);
-            $$$robj[oPOS]     = length($1);
-            $$$robj[oSTREAMP] = $strPos;
- 
-            ######## En bild ########
-            if ($del1 =~ m'/Subtype\s*/Image'so)
-            {  $imSeq++;
-               $$$robj[oIMAGENR] = $imSeq;
-               push @{$$$rform[fIMAGES]}, $gammal;
-
-               if ($del1 =~ m'/Width\s+(\d+)'os)
-               {  $$$robj[oWIDTH] = $1; }
-               if ($del1 =~ m'/Height\s+(\d+)'os)
-               {  $$$robj[oHEIGHT] = $1; }
-            }     
-            $res = ($del1 =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs);
-            if ($res)
-            { $$$robj[oKIDS] = 1; }            
-            if ($action eq 'print')
-            {   $objekt[$ny] = $pos;
-                $utrad  = "$ny 0 obj\n<<" . "$del1" . '>>stream';
-                $del2   = substr($objektet, $strPos);
-                $utrad .= $del2; 
-            }
-         }
-         else
-         {  if ($objektet =~ m'^(\d+ \d+ obj\s*)'os)
-            {  $preLength = length($1);
-               $$$robj[oPOS] = $preLength;               
-               $objektet     = substr($objektet, $preLength);
-            }
-            else
-            {  $$$robj[oPOS] = 0;
-            }
-            $res = ($objektet =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs);
-            if ($res)
-            { $$$robj[oKIDS] = 1; }
-            if ($objektet =~ m'/Subtype\s*/Image'so)
-            {  $imSeq++;
-               $$$robj[oIMAGENR] = $imSeq;
-               push @{$$$rform[fIMAGES]}, $gammal;
-               ###################################
-               # Sparar dimensionerna för bilden
-               ###################################
-               if ($del1 =~ m'/Width\s+(\d+)'os)
-               {  $$$robj[oWIDTH] = $1; }
-      
-               if ($del1 =~ m'/Height\s+(\d+)'os)
-               {  $$$robj[oHEIGHT] = $1; }
-            }
-            elsif ($objektet =~ m'/BaseFont\s*/([^\s\/]+)'os)
-            {  $Font = $1;
-               $$$robj[oTYPE] = 'Font';
-               $$$robj[oNAME] = $Font;
-               if ((! exists $font{$Font}) 
-               && ($action))
-               {  $fontNr++;
-                  $font{$Font}[foINTNAMN]          = 'Ft' . $fontNr;
-                  $font{$Font}[foORIGINALNR]       = $gammal;
-                  $fontSource{$Font}[foSOURCE]     = $fSource;
-                  $fontSource{$Font}[foORIGINALNR] = $gammal;
-                  if ($action eq 'print')
-                  {  $font{$Font}[foREFOBJ]  = $ny;
-                     $objRef{'Ft' . $fontNr} = $ny;
-                  }
-               }   
-            }
-               
-            if ($action eq 'print')
-            {   $objekt[$ny] = $pos;
-                $utrad = "$ny 0 obj $objektet";
-            }
-         }
-         if ($action eq 'print')
-         {   $pos += syswrite UTFIL, $utrad;
-         }
-       }
-   }
-   
-   my $ref = \$form{$fSource};
-   my @kids;
-   my @nokids;  
-   
-   #################################################################
-   # lägg upp vektorer över vilka objekt som har KIDS eller NOKIDS
-   #################################################################   
-
-   for my $key (keys %{$$$ref[fOBJ]})
-   {   $robj  = \$$$ref[fOBJ]->{$key};
-       if (! defined  $$$robj[oFORM])
-       {   if (defined  $$$robj[oKIDS])
-           {   push @kids, $key; }
-           else
-           {   push @nokids, $key; }
-       }
-       if ((defined $$$robj[0]->[2]) && (! exists $$$ref[fOBJ]->{$$$robj[0]->[2]}))
-       {  $$$ref[fOBJ]->{$$$robj[0]->[2]}->[0] = $oldObject{$$$robj[0]->[2]};
-       }
-   }
-   if (scalar @kids)
-   {  $form{$fSource}[fKIDS] = \@kids; 
-   } 
-   if (scalar @nokids)
-   {  $form{$fSource}[fNOKIDS] = \@nokids; 
-   } 
-   
-   if ($action ne 'print')
-   {  $objNr = $objNrSaved;            # Restore objNo if nothing was printed
-   }
-
-   $behandlad{$infil}->{dummy} = {};
-   *old = $behandlad{$infil}->{dummy};
-    
-   $objNrSaved = $objNr;               # Save objNo
-
-   if ($sidor == 1)
-   {   @skapa = ();
-       $old{$startSida} = $sidObjNr;
-       my $ref = \$intAct{$fSource};
-       @$$ref[iSTARTSIDA] = $startSida;
-       if (defined $Names)
-       {   @$$ref[iNAMES] = $Names;
-           quickxform($Names);
-       }
-       if (defined $AcroForm)
-       {   @$$ref[iACROFORM] = $AcroForm;
-           $AcroForm =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs;
-       }
-       if (defined $AARoot)
-       {   @$$ref[iAAROOT] = $AARoot;
-           $AARoot =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs;
-       }
-       if (defined $AAPage)
-       {   @$$ref[iAAPAGE] = $AAPage;
-           $AAPage =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs;
-       }
-       if (defined $Annots)
-       {   my @array;
-           if ($Annots =~ m'\[([^\[\]]*)\]'os)
-           {  $Annots = $1;
-              @array = ($Annots =~ m'\b(\d+)\s{1,2}\d+\s{1,2}R\b'ogs);  
-           }
-           else
-           {  if ($Annots =~ m'\b(\d+)\s{1,2}\d+\s{1,2}R\b'os)
-              {  $Annots = getObject($1);
-                 @array = ($Annots =~ m'\b(\d+)\s{1,2}\d+\s{1,2}R\b'ogs);
-              }
-           }             
-           @$$ref[iANNOTS] = \@array;
-           $Annots =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs;
-       }
-      
-      while (scalar @skapa)
-      {  my @process = @skapa;
-         @skapa = ();
-         for (@process)
-         {  my $gammal = $$_[0];
-            my $ny     = $$_[1];
-            ($objektet, $offs, $siz, $embedded) = getObject($gammal);
-            $robj  = \$$$ref[fOBJ]->{$gammal};
-            @{$$$robj[oNR]} = ($offs, $siz, $embedded);
-            if ($objektet =~ m'^(\d+ \d+ obj\s*<<)(.+)(>>\s*stream)'os)
-            {  $del1             = $2;
-               $$$robj[oPOS]     = length($1);
-               $$$robj[oSTREAMP] = length($1) + length($2) + length($3);
-                  
-               $res = ($del1 =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs);
-               if ($res)
-               { $$$robj[oKIDS] = 1; }  
-            }
-            else
-            {  if ($objektet =~ m'^(\d+ \d+ obj)'os)
-               {  my $preLength = length($1);
-                  $$$robj[oPOS] = $preLength;
-                  $objektet = substr($objektet, $preLength);
-                                 
-                  $res = ($objektet =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs);
-                  if ($res)
-                  { $$$robj[oKIDS] = 1; }
-                }
-             }
-         }
-      }
-      for my $key (keys %{$$$ref[fOBJ]})
-      {   $robj  = \$$$ref[fOBJ]->{$key};
-          if ((defined $$$robj[0]->[2]) && (! exists $$$ref[fOBJ]->{$$$robj[0]->[2]}))
-          {  $$$ref[fOBJ]->{$$$robj[0]->[2]}->[0] = $oldObject{$$$robj[0]->[2]};
-          }
-      }
-  }
-
-  $objNr = $objNrSaved;
-  $processed{$infil}->{root}         = $root;
-  close INFIL;
-  return $referens;
-}  
-
-##################################################
-# Översätter ett gammalt objektnr till ett nytt
-# och sparar en tabell med vad som skall skapas
-##################################################
-
-sub xform
-{  if (exists $old{$1})
-   {  $old{$1}; 
-   }
-   else
-   {  push @skapa, [$1, ++$objNr];
-      $old{$1} = $objNr;                   
-   } 
-}
- 
-sub kolla
-{  #
-   # Resurser
-   #
-   my $obj       = shift;
-   my $resources = shift;
-   my $valid;
-    
-   if ($obj =~ m'MediaBox\s*\[\s*([\-\.\d]+)\s+([\-\.\d]+)\s+([\-\.\d]+)\s+([\-\.\d]+)'os)
-   { $formBox[0] = $1;
-     $formBox[1] = $2;
-     $formBox[2] = $3;
-     $formBox[3] = $4;
-   }
-  
-   if ($obj =~ m'/Contents\s+(\d+)'so)
-   { $formCont = $1;
-     $valid    = 1;
-   }
-   
-   if ($obj =~ m'^(.+/Resources)'so)
-   {  if ($obj =~ m'Resources(\s+\d+\s{1,2}\d+\s{1,2}R)'os)   # Hänvisning
-      {  $resources = $1; }
-      else                 # Resurserna är ett dictionary. Hela kopieras
-      {  my $dummy;
-         my $i;
-         my $k;
-         undef $resources;
-         ($dummy, $obj) = split /\/Resources/, $obj;
-         $obj =~ s/\<\</\#\<\</gs;
-         $obj =~ s/\>\>/\>\>\#/gs;
-         my @ord = split /\#/, $obj;
-         for ($i = 0; $i <= $#ord; $i++)
-         {   $resources .= $ord[$i];
-             if ($ord[$i] =~ m'\S+'s)
-             {  if ($ord[$i] =~ m'<<'s)
-                {  $k++; }
-                if ($ord[$i] =~ m'>>'s)
-                {  $k--; }
-                if ($k == 0)
-                {  last; }
-             } 
-          }
-       }
-    }
-    return ($resources, $valid);
-}
-
-##############################
-# Ett formulär (åter)skapas
-##############################
-
-sub byggForm
-{  no warnings; 
-   my ($infil, $sidnr) = @_;
-   
-   my ($res, $corr, $nyDel1, $formRes, $del1, $del2, $kids, $typ, $nr,
-       $utrad);
-      
-   my $fSource = $infil . '_' . $sidnr;
-   my @stati = stat($infil);
-
-   $behandlad{$infil}->{old} = {} 
-        unless (defined $behandlad{$infil}->{old});
-   $processed{$infil}->{oldObject} = {} 
-        unless (defined $processed{$infil}->{oldObject});   
-   $processed{$infil}->{unZipped} = {} 
-        unless (defined $processed{$infil}->{unZipped});
-
-   *old       = $behandlad{$infil}->{old};
-   *oldObject = $processed{$infil}->{oldObject};
-   *unZipped  = $processed{$infil}->{unZipped};
-      
-   if ($form{$fSource}[fID] != $stati[9])
-   {    errLog("$stati[9] ne $form{$fSource}[fID] aborts");
-   }
-   if ($checkId) 
-   {  if ($checkId ne $stati[9])
-      {  my $mess =  "$checkId \<\> $stati[9] \n"
-                  . "The Pdf-file $fSource has not the correct modification time. \n"
-                  .  "The program is aborted";
-         errLog($mess);
-      }
-      undef $checkId;
-    }
-    if ($ldir)
-    {  $log .= "Cid~$stati[9]\n";
-    }
-
-   open (INFIL, "<$infil") || errLog("The file $infil couldn't be opened, aborting $!");
-   binmode INFIL;
-
-   ####################################################
-   # Objekt utan referenser  kopieras och skrivs
-   ####################################################   
-
-   for my $key (@{$form{$fSource}->[fNOKIDS]})
-   {   if ((defined $old{$key}) && ($objekt[$old{$key}]))    # already processed
-       {  next;
-       }
-              
-       if (! defined $old{$key})
-       {  $old{$key} = ++$objNr;
-       }
-       $nr = $old{$key};
-       $objekt[$nr] = $pos;
-     
-       ($del1, $del2, $kids, $typ) = getKnown(\$form{$fSource},$key);
-             
-       if ($typ eq 'Font')
-       {  my $Font = ${$form{$fSource}}[0]->{$key}->[oNAME];
-          if (! defined $font{$Font}[foINTNAMN])
-          {  $fontNr++;
-             $font{$Font}[foINTNAMN]  = 'Ft' . $fontNr;
-             $font{$Font}[foREFOBJ]   = $nr;
-             $objRef{'Ft' . $fontNr}  = $nr;
-          }
-       }
-       if (! defined $$del2)
-       {   $utrad = "$nr 0 obj " . $$del1;
-       }
-       else
-       {   $utrad = "$nr 0 obj\n<<" . $$del1 . $$del2;
-       }     
-       $pos += syswrite UTFIL, $utrad;     
-   }
-
-   #######################################################
-   # Objekt med referenser kopieras, behandlas och skrivs
-   #######################################################
-   for my $key (@{$form{$fSource}->[fKIDS]})
-   {   if ((defined $old{$key}) && ($objekt[$old{$key}]))  # already processed
-       {  next;
-       }
-        
-       if (! defined $old{$key})
-       {  $old{$key} = ++$objNr;
-       }
-       $nr = $old{$key};
-       
-       $objekt[$nr] = $pos;
-       
-       ($del1, $del2, $kids, $typ) = getKnown(\$form{$fSource},$key);
-
-       $$del1 =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/translate() . ' 0 R'/oegs;
-       
-       if (defined $$del2)          
-       {  $utrad = "$nr 0 obj\n<<" . $$del1 . $$del2;
-       }
-       else
-       {  $utrad = "$nr 0 obj " . $$del1;
-       } 
-       
-       if (($typ) && ($typ eq 'Font'))
-       {  my $Font = $form{$fSource}[0]->{$key}->[oNAME];
-          if (! defined $font{$Font}[foINTNAMN])
-          {  $fontNr++;
-             $font{$Font}[foINTNAMN]  = 'Ft' . $fontNr;
-             $font{$Font}[foREFOBJ]   = $nr;
-             $objRef{'Ft' . $fontNr} = $nr;
-          }
-       }   
-       
-       $pos += syswrite UTFIL, $utrad;                
-   }
-
-   #################################
-   # Formulärobjektet behandlas 
-   #################################
-   
-   my $key = $form{$fSource}->[fMAIN];
-   if (! defined $key)
-   {  return undef;
-   }
-
-   if (exists $old{$key})                      # already processed
-   {  close INFIL;
-      return $old{$key}; 
-   }
-
-   $nr = ++$objNr;
-   
-   $objekt[$nr] = $pos;
-   
-   $formRes = $form{$fSource}->[fRESOURCE];   
-    
-   ($del1, $del2) = getKnown(\$form{$fSource}, $key);  
-
-   $nyDel1 = '<</Type/XObject/Subtype/Form/FormType 1'; 
-   $nyDel1 .= "/Resources $formRes" .
-                 '/BBox [' .
-                 $form{$fSource}->[fBBOX]->[0]  . ' ' .
-                 $form{$fSource}->[fBBOX]->[1]  . ' ' .
-                 $form{$fSource}->[fBBOX]->[2]  . ' ' .
-                 $form{$fSource}->[fBBOX]->[3]  . ' ]' .  
-                 # "\]/Matrix \[ $sX 0 0 $sX $tX $tY \]" .
-                 $$del1;
-   $nyDel1 =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/translate() . ' 0 R'/oegs;
-
-   $utrad = "$nr 0 obj" . $nyDel1 . $$del2;
-   
-   $pos += syswrite UTFIL, $utrad;                    
-   close INFIL;
-
-   return $nr;   
-}
-
-##################
-#  En bild läses
-##################
-
-sub getImage
-{  my ($infil, $sidnr, $bildnr, $key) =  @_;
-   if (! defined $key)
-   {  errLog("Can't find image $bildnr on page $sidnr in file $infil, aborts");
-   } 
-   
-   @skapa = ();
-   my ($res, $corr, $nyDel1, $del1, $del2, $nr, $utrad);
-   my $fSource = $infil . '_' . $sidnr;
-   my $iSource = $fSource . '_' . $bildnr;
-
-   $behandlad{$infil}->{old} = {} 
-        unless (defined $behandlad{$infil}->{old});
-   $processed{$infil}->{oldObject} = {} 
-        unless (defined $processed{$infil}->{oldObject});   
-   $processed{$infil}->{unZipped} = {} 
-        unless (defined $processed{$infil}->{unZipped});  
-
-   *old       = $behandlad{$infil}->{old};
-   *oldObject = $processed{$infil}->{oldObject};
-   *unZipped  = $processed{$infil}->{unZipped};
-      
-   my @stati = stat($infil);
-
-   if ($form{$fSource}[fID] != $stati[9])
-   {    errLog("$stati[9] ne $form{$fSource}[fID], modification time has changed, aborting");
-   }
-
-   if (exists $old{$key})
-   {  return $old{$key}; 
-   }
-
-   open (INFIL, "<$infil") || errLog("The file $infil couldn't be opened, $!");
-   binmode INFIL; 
-
-   #########################################################
-   # En bild med referenser kopieras, behandlas och skrivs
-   #########################################################
-
-   $nr = ++$objNr;
-   $old{$key} = $nr;
-   
-   $objekt[$nr] = $pos;
-
-   ($del1, $del2) = getKnown(\$form{$fSource}, $key);
-
-   $$del1 =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs;      
-   if (defined $$del2)
-   {  $utrad = "$nr 0 obj\n<<" . $$del1 . $$del2;
-   }
-   else
-   {  $utrad = "$nr 0 obj " . $$del1;
-   }
-   $pos += syswrite UTFIL, $utrad;
-   ##################################
-   #  Skriv ut underordnade objekt
-   ################################## 
-   while (scalar @skapa)
-   {  my @process = @skapa;
-      @skapa = ();
-      for (@process)
-      {  my $gammal = $$_[0];
-         my $ny     = $$_[1];
-
-         ($del1, $del2) = getKnown(\$form{$fSource}, $gammal);
-
-         $$del1 =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs;      
-         if (defined $$del2)
-         {  $utrad = "$ny 0 obj\n<<" . $$del1 . $$del2;
-         }
-         else
-         {  $utrad = "$ny 0 obj " . $$del1;
-         }
-         $objekt[$ny] = $pos;
-         $pos += syswrite UTFIL, $utrad;
-      }
-   }
-        
-   close INFIL;
-   return $nr;   
-   
-}
-
-##############################################################
-#  Interaktiva funktioner knutna till ett formulär återskapas
-##############################################################
-
-sub AcroFormsEtc
-{  my ($infil, $sidnr) =  @_;
-   
-   my ($Names, $AARoot, $AAPage, $AcroForm);
-   @skapa = ();
-   
-   my ($res, $corr, $nyDel1, @objData, $del1, $del2, $utrad);
-   my $fSource = $infil . '_' . $sidnr;
-
-   $behandlad{$infil}->{old} = {} 
-        unless (defined $behandlad{$infil}->{old});
-   $processed{$infil}->{oldObject} = {} 
-        unless (defined $processed{$infil}->{oldObject});   
-   $processed{$infil}->{unZipped} = {} 
-        unless (defined $processed{$infil}->{unZipped});   
-
-   *old       = $behandlad{$infil}->{old};
-   *oldObject = $processed{$infil}->{oldObject};
-   *unZipped  = $processed{$infil}->{unZipped};
-        
-   my @stati = stat($infil);
-   if ($form{$fSource}[fID] != $stati[9])
-   {    print "$stati[9] ne $form{$fSource}[fID]\n";
-        errLog("Modification time for $fSource has changed, aborting");
-   }
-    
-   open (INFIL, "<$infil") || errLog("The file $infil couldn't be opened, aborting $!");
-   binmode INFIL;
-
-   my $fdSidnr = $intAct{$fSource}[iSTARTSIDA];
-   $old{$fdSidnr} = $sidObjNr;
-
-   if (($intAct{$fSource}[iNAMES]) ||(scalar @jsfiler) || (scalar @inits) || (scalar %fields))
-   {  $Names  = behandlaNames($intAct{$fSource}[iNAMES], $fSource);
-   }
-   
-   ##################################
-   # Referenser behandlas och skrivs
-   ##################################
-         
-   if (defined $intAct{$fSource}[iACROFORM])
-   {   $AcroForm = $intAct{$fSource}[iACROFORM];
-       $AcroForm =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs;
-   }
-   if (defined $intAct{$fSource}[iAAROOT])
-   {  $AARoot = $intAct{$fSource}[iAAROOT];
-      $AARoot =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs;
-   }
-   
-   if (defined $intAct{$fSource}[iAAPAGE])
-   {   $AAPage = $intAct{$fSource}[iAAPAGE];
-       $AAPage =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs;
-   }
-   if (defined $intAct{$fSource}[iANNOTS])
-   {  for (@{$intAct{$fSource}[iANNOTS]})
-      {  push @annots, quickxform($_);
-      }
-   }
-
-   ##################################
-   #  Skriv ut underordnade objekt
-   ################################## 
-   while (scalar @skapa)
-   {  my @process = @skapa;
-      @skapa = ();
-      for (@process)
-      {  my $gammal = $$_[0];
-         my $ny     = $$_[1];
-         
-         my $oD   = \@{$intAct{$fSource}[0]->{$gammal}};
-         @objData = @{$$oD[oNR]};
-
-         if (defined $$oD[oSTREAMP])
-         {  $res = sysseek INFIL, ($objData[0] + $$oD[oPOS]), 0;
-            $corr = sysread INFIL, $del1, ($$oD[oSTREAMP] - $$oD[oPOS]) ;
-            if (defined  $$oD[oKIDS]) 
-            {   $del1 =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs;
-            }
-            $res = sysread INFIL, $del2, ($objData[1] - $corr); 
-            $utrad = "$ny 0 obj\n<<" . $del1 . $del2;
-         }
-         else
-         {  $del1 = getObject($gammal);
-            $del1 = substr($del1, $$oD[oPOS]);
-            if (defined  $$oD[oKIDS])
-            {   $del1 =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs;
-            }
-            $utrad = "$ny 0 obj " . $del1;
-         }
-
-         $objekt[$ny] = $pos;
-         $pos += syswrite UTFIL, $utrad;
-      }
-   }
-    
-   close INFIL;
-   return ($Names, $AARoot, $AAPage, $AcroForm);
-} 
-
-##############################
-# Ett namnobjekt extraheras
-##############################
-
-sub extractName
-{  my ($infil, $sidnr, $namn) = @_;
-   
-   my ($res, $del1, $resType, $key, $corr, $formRes, $kids, $nr, $utrad);
-   my $del2 = '';
-   @skapa = ();
-   
-   $behandlad{$infil}->{old} = {} 
-        unless (defined $behandlad{$infil}->{old});
-   $processed{$infil}->{oldObject} = {} 
-        unless (defined $processed{$infil}->{oldObject});   
-   $processed{$infil}->{unZipped} = {} 
-        unless (defined $processed{$infil}->{unZipped});
-
-   *old       = $behandlad{$infil}->{old};
-   *oldObject = $processed{$infil}->{oldObject};
-   *unZipped  = $processed{$infil}->{unZipped};
-   
-   my $fSource = $infil . '_' . $sidnr;
-
-   my @stati = stat($infil);
-
-   if ($form{$fSource}[fID] != $stati[9])
-   {    errLog("$stati[9] ne $form{$fSource}[fID] aborts");
-   }
-   if ($checkId) 
-   {  if ($checkId ne $stati[9])
-      {  my $mess =  "$checkId \<\> $stati[9] \n"
-                  . "The Pdf-file $fSource has not the correct modification time. \n"
-                  .  "The program is aborted";
-         errLog($mess);
-      }
-      undef $checkId;
-    }
-    if ($ldir)
-    {  $log .= "Cid~$stati[9]\n";
-    }
-
-   open (INFIL, "<$infil") || errLog("The file $infil couldn't be opened, aborting $!");
-   binmode INFIL;
-
-   #################################
-   # Resurserna läses
-   #################################
-
-   $formRes = $form{$fSource}->[fRESOURCE];
-   
-   if ($formRes !~ m'<<.*>>'os)                   # If not a directory, get it
-   {   if ($formRes =~ m'\b(\d+)\s{1,2}\d+\s{1,2}R'o)
-       {  $key   = $1;
-          $formRes = getKnown(\$form{$fSource}, $key);
-       }
-       else
-       {  return undef;
-       }
-   }
-   undef $key;
-   while ($formRes =~ m'\/(\w+)\s*\<\<([^>]+)\>\>'osg)
-   {   $resType = $1;
-       my $str  = $2;
-       if ($str =~ m|$namn\s+(\d+)\s{1,2}\d+\s{1,2}R|s)
-       {   $key = $1;
-           last;
-       }
-   }
-   if (! defined $key)                      # Try to expand the references
-   {   my ($str, $del1, $del2);
-       while ($formRes =~ m'(\/\w+)\s+(\d+)\s{1,2}\d+\s{1,2}R'ogs)
-       { $str .= $1 . ' ';
-         ($del1, $del2) = getKnown(\$form{$fSource}, $2);
-         my $string =  $$del1;
-         $str .= $string . ' ';
-       }
-       $formRes = $str;
-       while ($formRes =~ m'\/(\w+)\s*\<\<([^>]+)\>\>'osg)
-       {   $resType = $1;
-           my $str  = $2;
-           if ($str =~ m|$namn (\d+)\s{1,2}\d+\s{1,2}R|s)
-           {   $key = $1;
-               last;
-           }
-       }
-       return undef unless $key;
-   }
-    
-   ########################################
-   #  Read the top object of the hierarchy
-   ########################################
-
-   ($del1, $del2) = getKnown(\$form{$fSource}, $key);
-
-   $objNr++;
-   $nr = $objNr;
-
-   if ($resType eq 'Font')
-   {  my ($Font, $extNamn);
-      if ($$del1 =~ m'/BaseFont\s*/([^\s\/]+)'os)
-      {  $extNamn = $1;
-         if (! exists $font{$extNamn})
-         {  $fontNr++;
-            $Font = 'Ft' . $fontNr;
-            $font{$extNamn}[foINTNAMN]       = $Font;
-            $font{$extNamn}[foORIGINALNR]    = $nr;
-            $fontSource{$Font}[foSOURCE]     = $fSource;
-            $fontSource{$Font}[foORIGINALNR] = $nr;            
-         }
-         $font{$extNamn}[foREFOBJ]   = $nr;
-         $Font = $font{$extNamn}[foINTNAMN];
-         $namn = $Font;
-         $objRef{$Font}  = $nr;
-      }
-      else
-      {  errLog("Inconsitency in $fSource, font $namn can't be found, aborting");
-      }
-   }
-   elsif ($resType eq 'ColorSpace')
-   {  $colorSpace++;
-      $namn = 'Cs' . $colorSpace;
-      $objRef{$namn} = $nr;
-   }
-   elsif ($resType eq 'Pattern')
-   {  $pattern++;
-      $namn = 'Pt' . $pattern;
-      $objRef{$namn} = $nr;
-   }
-   elsif ($resType eq 'Shading')
-   {  $shading++;
-      $namn = 'Sh' . $shading;
-      $objRef{$namn} = $nr;
-   }
-   elsif ($resType eq 'ExtGState')
-   {  $gSNr++;
-      $namn = 'Gs' . $gSNr;
-      $objRef{$namn} = $nr;
-   }
-   elsif ($resType eq 'XObject')
-   {  if (defined $form{$fSource}->[0]->{$nr}->[oIMAGENR])
-      {  $namn = 'Im' . $form{$fSource}->[0]->{$nr}->[oIMAGENR];
-      }
-      else
-      {  $formNr++;
-         $namn = 'Fo' . $formNr;
-      }
-      
-      $objRef{$namn} = $nr;
-   }
-
-   $$del1 =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs;
-
-   if (defined $$del2)
-   {  $utrad = "$nr 0 obj\n<<" . $$del1 . $$del2;
-   }
-   else
-   {  $utrad = "$nr 0 obj " . $$del1;
-   }
-   $objekt[$nr] = $pos;
-   $pos += syswrite UTFIL, $utrad;
-
-   ##################################
-   #  Skriv ut underordnade objekt
-   ##################################
- 
-   while (scalar @skapa)
-   {  my @process = @skapa;
-      @skapa = ();
-      for (@process)
-      {  my $gammal = $$_[0];
-         my $ny     = $$_[1];
-         
-         ($del1, $del2, $kids) = getKnown(\$form{$fSource}, $gammal);
-         
-         $$del1 =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs
-                                     unless (! defined $kids);      
-         if (defined $$del2)
-         {  $utrad = "$ny 0 obj\n<<" . $$del1 . $$del2;
-         }
-         else
-         {  $utrad = "$ny 0 obj " . $$del1;
-         }
-         $objekt[$ny] = $pos;
-         $pos += syswrite UTFIL, $utrad;
-      }
-   }
-   close INFIL;
-   
-   return $namn;   
- 
-}
- 
-########################
-# Ett objekt extraheras
-########################
-
-sub extractObject
-{  no warnings;
-   my ($infil, $sidnr, $key, $typ) = @_;
-   
-   my ($res, $del1, $corr, $namn, $kids, $nr, $utrad);
-   my $del2 = '';
-   @skapa = ();
-
-   $behandlad{$infil}->{old} = {} 
-        unless (defined $behandlad{$infil}->{old});
-   $processed{$infil}->{oldObject} = {} 
-        unless (defined $processed{$infil}->{oldObject});   
-   $processed{$infil}->{unZipped} = {} 
-        unless (defined $processed{$infil}->{unZipped});
-
-   *old       = $behandlad{$infil}->{old};
-   *oldObject = $processed{$infil}->{oldObject};
-   *unZipped  = $processed{$infil}->{unZipped};
-   
-   my $fSource = $infil . '_' . $sidnr;
-   my @stati = stat($infil);
-
-   if ($form{$fSource}[fID] != $stati[9])
-   {    errLog("$stati[9] ne $form{$fSource}[fID] aborts");
-   }
-   if ($checkId) 
-   {  if ($checkId ne $stati[9])
-      {  my $mess =  "$checkId \<\> $stati[9] \n"
-                  . "The Pdf-file $fSource has not the correct modification time. \n"
-                  .  "The program is aborted";
-         errLog($mess);
-      }
-      undef $checkId;
-    }
-    if ($ldir)
-    {  $log .= "Cid~$stati[9]\n";
-       my $indata = prep($infil);
-       $log .= "Form~$indata~$sidnr~~load~1\n";
-    }
-
-   open (INFIL, "<$infil") || errLog("The file $infil couldn't be opened, aborting $!");
-   binmode INFIL;
-
-   ########################################
-   #  Read the top object of the hierarchy
-   ########################################
-
-   ($del1, $del2, $kids) = getKnown(\$form{$fSource}, $key);
-        
-   if (exists $old{$key})
-   {  $nr = $old{$key}; }
-   else
-   {  $old{$key} = ++$objNr;
-      $nr = $objNr;
-   }     
- 
-   if ($typ eq 'Font')
-   {  my ($Font, $extNamn);
-      if ($$del1 =~ m'/BaseFont\s*/([^\s\/]+)'os)
-      {  $extNamn = $1;
-         $fontNr++;
-         $Font = 'Ft' . $fontNr;
-         $font{$extNamn}[foINTNAMN]    = $Font;
-         $font{$extNamn}[foORIGINALNR] = $key;
-         if ( ! defined $fontSource{$extNamn}[foSOURCE])
-         {  $fontSource{$extNamn}[foSOURCE]     = $fSource;
-            $fontSource{$extNamn}[foORIGINALNR] = $key;            
-         }
-         $font{$extNamn}[foREFOBJ]   = $nr;
-         $Font = $font{$extNamn}[foINTNAMN];
-         $namn = $Font;
-         $objRef{$Font}  = $nr;
-      }
-      else
-      {  errLog("Error in $fSource, $key is not a font, aborting");
-      }
-   }
-   elsif ($typ eq 'ColorSpace')
-   {  $colorSpace++;
-      $namn = 'Cs' . $colorSpace;
-      $objRef{$namn} = $nr;
-   }
-   elsif ($typ eq 'Pattern')
-   {  $pattern++;
-      $namn = 'Pt' . $pattern;
-      $objRef{$namn} = $nr;
-   }
-   elsif ($typ eq 'Shading')
-   {  $shading++;
-      $namn = 'Sh' . $shading;
-      $objRef{$namn} = $nr;
-   }
-   elsif ($typ eq 'ExtGState')
-   {  $gSNr++;
-      $namn = 'Gs' . $gSNr;
-      $objRef{$namn} = $nr;
-   }
-   elsif ($typ eq 'XObject')
-   {  if (defined $form{$fSource}->[0]->{$nr}->[oIMAGENR])
-      {  $namn = 'Im' . $form{$fSource}->[0]->{$nr}->[oIMAGENR];
-      }
-      else
-      {  $formNr++;
-         $namn = 'Fo' . $formNr;
-      }
-      
-      $objRef{$namn} = $nr;
-   }
-
-   $$del1 =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs 
-                                  unless (! defined $kids);      
-   if (defined $$del2)
-   {  $utrad = "$nr 0 obj\n<<" . $$del1 . $$del2;
-   }
-   else
-   {  $utrad = "$nr 0 obj " . $$del1;
-   }
-
-   $objekt[$nr] = $pos;
-   $pos += syswrite UTFIL, $utrad;
-
-   ##################################
-   #  Skriv ut underordnade objekt
-   ##################################
- 
-   while (scalar @skapa)
-   {  my @process = @skapa;
-      @skapa = ();
-      for (@process)
-      {  my $gammal = $$_[0];
-         my $ny     = $$_[1];
-         
-         ($del1, $del2, $kids) = getKnown(\$form{$fSource}, $gammal);
-
-         $$del1 =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs
-                                 unless (! defined  $kids);
-       
-         if (defined $$del2)          
-         {  $utrad = "$ny 0 obj<<" . $$del1 . $$del2;
-         }
-         else
-         {  $utrad = "$ny 0 obj " . $$del1;
-         } 
-
-         $objekt[$ny] = $pos;
-         $pos += syswrite UTFIL, $utrad;
-      }
-   }
-   close INFIL;
-   return $namn;      
-}
- 
-
-##########################################
-# En fil analyseras och sidorna kopieras
-##########################################
-
-sub analysera
-{  my $infil = shift;
-   my $from  = shift || 1;
-   my $to    = shift || 0;
-   my ($i, $res, @underObjekt, @sidObj, $vektor, $resources, $valid,
-       $strPos, $sidor, $filId, $Root, $del1, $del2, $utrad);
-
-   my $extraherade = 0;
-   my $sidAcc = 0;
-   @skapa     = ();
-  
-   $behandlad{$infil}->{old} = {}
-        unless (defined $behandlad{$infil}->{old});
-   $processed{$infil}->{oldObject} = {} 
-        unless (defined $processed{$infil}->{oldObject});   
-   $processed{$infil}->{unZipped} = {} 
-        unless (defined $processed{$infil}->{unZipped});
-   *old       = $behandlad{$infil}->{old};
-   *oldObject = $processed{$infil}->{oldObject};
-   *unZipped  = $processed{$infil}->{unZipped};
-
-   $root      = (exists $processed{$infil}->{root}) 
-                    ? $processed{$infil}->{root} : 0;
-             
-   my ($AcroForm, $Annots, $Names, $AARoot);
-   undef $taInterAkt;
-   undef %script;
-   
-   my $checkIdOld = $checkId;
-   ($infil, $checkId) = findGet($infil, $checkIdOld);
-   if (($ldir) && ($checkId) && ($checkId ne $checkIdOld))
-   {  $log .= "Cid~$checkId\n";
-   }
-   undef $checkId;
-   my @stati = stat($infil);
-   open (INFIL, "<$infil") || errLog("Couldn't open $infil,aborting.  $!");
-   binmode INFIL;
-  
-   if (! $root)
-   {  $root      = xRefs($stati[7], $infil);
-   }   
-   #############
-   # Hitta root
-   #############           
-
-   my $offSet;
-   my $bytes;
-   my $objektet = getObject($root);
-   
-   if ((! $interActive) && ( ! $to) && ($from == 1))
-   {  if ($objektet =~ m'/AcroForm(\s+\d+\s{1,2}\d+\s{1,2}R)'so)
-      {  $AcroForm = $1;
-      }      
-      if ($objektet =~ m'/Names\s+(\d+)\s{1,2}\d+\s{1,2}R'so)
-      {  $Names = $1;
-      }
-      if ((scalar %fields) || (scalar @jsfiler) || (scalar @inits))
-      {   $Names  = behandlaNames($Names);
-      }
-      elsif ($Names)
-      {  $Names = quickxform($Names);
-      }
-
-      #################################################
-      #  Finns ett dictionary för Additional Actions ?
-      #################################################
-      if ($objektet =~ m'/AA(\s+\d+\s{1,2}\d+\s{1,2}R)'os)   # Hänvisning
-      {  $AARoot = $1; }
-      elsif ($objektet =~ m'/AA\s*\<\<\s*[^\>]+[^\>]+'so) # AA är ett dictionary
-      {  my $k;
-         my ($dummy, $obj) = split /\/AA/, $objektet;
-         $obj =~ s/\<\</\#\<\</gs;
-         $obj =~ s/\>\>/\>\>\#/gs;
-         my @ord = split /\#/, $obj;
-         for ($i = 0; $i <= $#ord; $i++)
-         {   $AARoot .= $ord[$i];
-             if ($ord[$i] =~ m'\S+'os)
-             {  if ($ord[$i] =~ m'<<'os)
-                {  $k++; }
-                if ($ord[$i] =~ m'>>'os)
-                {  $k--; }
-                if ($k == 0)
-                {  last; }
-             } 
-          }
-       }
-       $taInterAkt = 1;   # Flagga att ta med interaktiva funktioner
-   } 
-   
-   #
-   # Hitta pages
-   #
- 
-   if ($objektet =~ m'/Pages\s+(\d+)\s{1,2}\d+\s{1,2}R'os)
-   {  $objektet = getObject($1);
-      ($resources, $valid) = kolla($objektet);
-      if ($objektet =~ m'/Count\s+(\d+)'os)
-      {  $sidor = $1; }   
-   }
-   else
-   { errLog("Didn't find pages "); }
-
-   my @levels;
-   my $li = -1;
-
-   if ($objektet =~ m'/Kids\s*\[([^\]]+)'os)
-   {  $vektor = $1;  
-      while ($vektor =~ m'(\d+)\s{1,2}\d+\s{1,2}R'go)
-      {   push @sidObj, $1;       
-      }
-      $li++;
-      $levels[$li] = \@sidObj;
-   }
-
-   while (($li > -1) && ($sidAcc < $sidor))
-   {  if (scalar @{$levels[$li]})
-      {   my $j = shift @{$levels[$li]};
-          $objektet = getObject($j);
-          ($resources, $valid) = kolla($objektet, $resources); 
-          if ($objektet =~ m'/Kids\s*\[([^\]]+)'os)
-          {  $vektor = $1; 
-             my @sObj; 
-             while ($vektor =~ m'(\d+)\s{1,2}\d+\s{1,2}R'go)
-             {   push @sObj, $1;       
-             }
-             $li++;
-             $levels[$li] = \@sObj;
-          }
-          else
-          {  $sidAcc++;
-             if ($sidAcc >= $from)
-             {   if ($to)
-                 {  if ($sidAcc <= $to)
-                    {  sidAnalys($j, $objektet, $resources);
-                       $extraherade++;
-                       $sida++;
-                    }
-                    else
-                    {  $sidAcc = $sidor;
-                    }
-                 }
-                 else
-                 {  sidAnalys($j, $objektet, $resources);
-                    $extraherade++;
-                    $sida++;
-                 }
-              }
-          }
-      }
-      else
-      {  $li--;
-      }
-   }
-   
-   if (defined $AcroForm)
-   {  $AcroForm =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs;
-   }
-   if (defined $AARoot)
-   {  $AARoot =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs;
-   }
-   
-   while (scalar @skapa)
-   {  my @process = @skapa;
-      @skapa = ();
-      for (@process)
-      {  my $gammal = $$_[0];
-         my $ny     = $$_[1];
-         $objektet  = getObject($gammal);         
-
-         if ($objektet =~ m'^(\d+ \d+ obj\s*<<)(.+)(>>\s*stream)'os)
-         {  $del1 = $2;
-            $strPos = length($2) + length($3) + length($1);
-            $del1 =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs;
-            $objekt[$ny] = $pos;
-            $utrad = "$ny 0 obj<<" . "$del1" . '>>stream';
-            $del2   = substr($objektet, $strPos);
-            $utrad .= $del2; 
-
-            $pos += syswrite UTFIL, $utrad;
-         }
-         else
-         {  if ($objektet =~ m'^(\d+ \d+ obj)'os)
-            {  my $preLength = length($1);
-               $objektet = substr($objektet, $preLength);
-            }
-            $objektet =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs;
-            $objekt[$ny] = $pos;
-            $utrad = "$ny 0 obj$objektet";
-            $pos += syswrite UTFIL, $utrad;
-         }
-      }
-  }
-  close INFIL;
-  $processed{$infil}->{root}         = $root;
-
-  return ($extraherade, $Names, $AARoot, $AcroForm);
-}
-
-sub sidAnalys
-{  my ($oNr, $obj, $resources) = @_;
-   my ($ny, $strPos, $spar, $closeProc, $del1, $del2, $utrad, $Annots);
-
-   if (! $parents[0])
-   { $objNr++;
-     $parents[0] = $objNr;
-   }
-   my $parent = $parents[0];
-   $objNr++;
-   $ny = $objNr; 
-
-   $old{$oNr} = $ny;
-     
-   if ($obj =~ m'/Parent\s+(\d+)\s{1,2}\d+\s{1,2}R\b'os)
-   {  $old{$1} = $parent;
-   }
-   
-   if ($obj =~ m'^(\d+ \d+ obj\s*<<)(.+)(>>\s*stream)'os)
-   {  $del1   = $2;
-      $strPos = length($2) + length($3) + length($1);
-      $del2   = substr($obj, $strPos);
-   }
-   elsif ($obj =~ m'^\d+ \d+ obj\s*<<(.+)>>\s*endobj'os)
-   {  $del1 = $1;
-   }
-   if (%links)
-   {   my $tSida = $sida + 1;
-       if (defined (@{$links{'-1'}}) || (defined @{$links{$tSida}}))
-       {   if ($del1 =~ m'/Annots\s*([^\/\<\>]+)'os)
-           {  $Annots  = $1;
-              @annots = (); 
-              if ($Annots =~ m'\[([^\[\]]*)\]'os)
-              {  ; }
-              else
-              {  if ($Annots =~ m'\b(\d+)\s{1,2}\d+\s{1,2}R\b'os)
-                 {  $Annots = getObject($1);
-                 }
-              }
-              while ($Annots =~ m'\b(\d+)\s{1,2}\d+\s{1,2}R\b'ogs)
-              {   push @annots, xform();
-              }
-              $del1 =~ s?/Annots\s*([^\/\<\>]+)??os;
-           }
-           $Annots = '/Annots ' . mergeLinks() . ' 0 R';
-       }
-   }
-
-   if (! $taInterAkt)
-   {  $del1 =~ s?\s*/AA\s*<<[^>]*>>??os;
-   }
-   if ($del1 !~ m'/Resources'o)
-   {  $del1 .= "/Resources $resources";
-   }
-       
-   $del1 =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs;
-   if ($Annots)
-   {  $del1 .= $Annots;
-   }
-
-   $utrad = "$ny 0 obj<<$del1>>";
-   if (defined $del2)
-   {   $utrad .= "stream\n$del2";
-   }
-   else
-   {  $utrad .= "endobj\n";
-   }
-
-   $objekt[$ny] = $pos;
-   $pos += syswrite UTFIL, $utrad;
-     
-   push @{$kids[0]}, $ny;
-   $counts[0]++;
-   if ($counts[0] > 9)
-   {  ordnaNoder(8); 
-   }
-}  
-
-
-sub translate
-{ if (exists $old{$1})
-  { $old{$1}; }
-  else
-  {  $old{$1} = ++$objNr;
-  }     
-}  
-
-sub behandlaNames
-{  my ($namnObj, $iForm) = @_;
-   
-   my ($low, $high, $antNod0, $entry, $nyttNr, $ny, $obj,
-       $fObjnr, $offSet, $bytes, $res, $key, $func, $corr, @objData);
-   my (@nod0, @nodUpp, @kid, @soek, %nytt);
-   
-   my $objektet  = '';
-   my $vektor    = '';   
-   my $antal     = 0;
-   my $antNodUpp = 0;
-   if ($namnObj)
-   {  if ($iForm)                                # Läsning via interntabell
-      {   $objektet = getObject($namnObj, 1);
-
-          if ($objektet =~ m'<<(.+)>>'ogs)
-          { $objektet = $1; }
-          if ($objektet =~ s'/JavaScript\s+(\d+)\s{1,2}\d+\s{1,2}R''os)
-          {  my $byt = $1; 
-             push @kid, $1;
-             while (scalar @kid)
-             {  @soek = @kid;
-                @kid = ();
-                for my $sObj (@soek)
-                {  $obj = getObject($sObj, 1);
-                   if ($obj =~ m'/Kids\s*\[([^]]+)'ogs)
-                   {  $vektor = $1;
-                   }
-                   while ($vektor =~ m'\b(\d+)\s{1,2}\d+\s{1,2}R\b'ogs)
-                   {  push @kid, $1;
-                   }
-                   $vektor = '';
-                   if ($obj =~ m'/Names\s*\[([^]]+)'ogs)
-                   {   $vektor = $1;
-                   }
-                   while ($vektor =~ m'\(([^\)]+)\)\s*(\d+) \d R'gos)
-                   {   $script{$1} = $2;                
-                   }
-                }
-             }
-          }
-      }
-      else                                #  Läsning av ett "doc"
-      {  $objektet = getObject($namnObj);             
-         if ($objektet =~ m'<<(.+)>>'ogs)
-         {  $objektet = $1; }
-         if ($objektet =~ s'/JavaScript\s+(\d+)\s{1,2}\d+\s{1,2}R''os)
-         {  my $byt = $1; 
-            push @kid, $1;
-            while (scalar @kid)
-            {  @soek = @kid;
-               @kid = ();
-               for my $sObj (@soek)
-               {  $obj = getObject($sObj);  
-                  if ($obj =~ m'/Kids\s*\[([^]]+)'ogs)
-                  {  $vektor = $1;
-                  }
-                  while ($vektor =~ m'\b(\d+)\s{1,2}\d+\s{1,2}R\b'ogs)
-                  {  push @kid, $1;
-                  }
-                  undef $vektor;
-                  if ($obj =~ m'/Names\s*\[([^]]+)'ogs)
-                  {  $vektor = $1;
-                  }
-                  while ($vektor =~ m'\(([^\)]+)\)\s*(\d+) \d R'gos)
-                  {   $script{$1} = $2;                
-                  }
-               }        
-             }
-          }
-      } 
-   }
-   for my $filnamn (@jsfiler)
-   {   inkludera($filnamn);
-   }
-   my @nya = (keys %nyaFunk);
-   while (scalar @nya)
-   {   my @behandla = @nya;
-       @nya = ();
-       for $key (@behandla)
-       {   if (exists $initScript{$key})
-           {  if (exists $nyaFunk{$key})
-              {   $initScript{$key} = $nyaFunk{$key};
-              }
-              if (exists $script{$key})   # företräde för nya funktioner !
-              {   delete $script{$key};    # gammalt script m samma namn plockas bort
-              } 
-              my @fall = ($initScript{$key} =~ m'([\w\d\_\$]+)\s*\('ogs);
-              for (@fall)
-              {   if (($_ ne $key) && (exists $nyaFunk{$_}))
-                  {  $initScript{$_} = $nyaFunk{$_}; 
-                     push @nya, $_; 
-                  }
-              }
-           }
-       }
-   }
-   while  (($key, $func) = each %nyaFunk)
-   {  $fObjnr = skrivJS($func);
-      $script{$key} = $fObjnr;
-      $nytt{$key}   = $fObjnr;
-   }
-     
-   if (scalar %fields)
-   {  push @inits, 'Ladda();';
-      $fObjnr = defLadda();
-      if ($duplicateInits)
-      {  $script{'Ladda'} = $fObjnr;
-         $nytt{'Ladda'} = $fObjnr;
-      }
-   }
-
-   if ((scalar @inits) && ($duplicateInits))
-   {  $fObjnr = defInit();
-      $script{'Init'} = $fObjnr;
-      $nytt{'Init'} = $fObjnr;
-   }
-   undef @jsfiler;
- 
-   for my $key (sort (keys %script))
-   {  if (! defined $low)
-      {  $objNr++;
-         $ny = $objNr;     
-         $objekt[$ny] = $pos;
-         $obj = "$ny 0 obj\n";
-         $low  = $key;
-         $obj .= '<< /Names [';
-      }
-      $high = $key;
-      $obj .= '(' . "$key" . ')';
-      if (! exists $nytt{$key})
-      {  $nyttNr = quickxform($script{$key});
-      }
-      else
-      {  $nyttNr = $script{$key};
-      }
-      $obj .= "$nyttNr 0 R\n";      
-      $antal++;
-      if ($antal > 9)
-      {   $obj .= ' ]/Limits [(' . "$low" . ')(' . "$high" . ')] >>' . "endobj\n";
-          $pos += syswrite UTFIL, $obj;
-          push @nod0, \[$ny, $low, $high];
-          $antNod0++; 
-          undef $low;
-          $antal = 0; 
-      }
-   }
-   if ($antal)
-   {   $obj .= ']/Limits [(' . $low . ')(' . $high . ')]>>' . "endobj\n";
-       $pos += syswrite UTFIL, $obj;
-       push @nod0, \[$ny, $low, $high];
-       $antNod0++;
-   }
-   $antal = 0;
-
-   while (scalar @nod0)
-   {   for $entry (@nod0)
-       {   if ($antal == 0)
-           {   $objNr++;     
-               $objekt[$objNr] = $pos;
-               $obj = "$objNr 0 obj\n";
-               $low  = $$entry->[1];
-               $obj .= '<</Kids [';
-           }
-           $high = $$entry->[2];
-           $obj .= " $$entry->[0] 0 R";
-           $antal++;
-           if ($antal > 9)
-           {   $obj .= ']/Limits [(' . $low . ')(' . $high . ')]>>' . "endobj\n";
-               $pos += syswrite UTFIL, $obj;
-               push @nodUpp, \[$objNr, $low, $high];
-               $antNodUpp++; 
-               undef $low;
-               $antal = 0; 
-           } 
-       }
-       if ($antal > 0)
-       {   if ($antNodUpp == 0)     # inget i noderna över
-           {   $obj .= ']>>' . "endobj\n";
-               $pos += syswrite UTFIL, $obj;
-           }
-           else
-           {   $obj .= ']/Limits [(' . "$low" . ')(' . "$high" . ')]>>' . "endobj\n";
-               $pos += syswrite UTFIL, $obj;
-               push @nodUpp, \[$objNr, $low, $high];
-               $antNodUpp++; 
-               undef $low;
-               $antal = 0; 
-           }
-       }
-       @nod0    = @nodUpp;
-       $antNod0 = $antNodUpp;
-       undef @nodUpp;
-       $antNodUpp = 0;
-   }
-      
-  
-   $ny = $objNr;
-   $objektet =~ s|\s*/JavaScript\s*\d+\s{1,2}\d+\s{1,2}R||os;
-   $objektet =~ s/\b(\d+)\s{1,2}\d+\s{1,2}R\b/xform() . ' 0 R'/oegs;
-   if (scalar %script)
-   {  $objektet .= "\n/JavaScript $ny 0 R\n";
-   }
-   $objNr++;
-   $ny = $objNr;
-   $objekt[$ny] = $pos;
-   $objektet = "$ny 0 obj<<" . $objektet . ">>endobj\n";
-   $pos += syswrite UTFIL, $objektet;
-   return $ny;
-}
-
-
-sub quickxform
-{  my $inNr = shift;
-   if (exists $old{$inNr})
-   {  $old{$inNr}; }
-   else
-   {  push @skapa, [$inNr, ++$objNr];
-      $old{$inNr} = $objNr;                   
-   } 
-} 
-
-
-sub skrivKedja
-{  my $code = ' ';
-   
-   for (values %initScript)
-   {   $code .= $_ . "\n";
-   }
-   $code .= "function Init()\r{\r";
-   $code .= 'if (typeof this.info.ModDate == "object")' . "\r{ return true; }\r"; 
-   for (@inits)
-   {  $code .= $_ . "\n";
-   }
-   $code .= "}\r Init(); ";
-
-   my $spar = skrivJS($code);
-   undef @inits;
-   undef %initScript;
-   return $spar;
-}
-
-
-
-sub skrivJS
-{  my $kod = shift;
-   my $obj;
-   if (($compress) && (length($kod) > 99))
-   {  $objNr++;
-      $objekt[$objNr] = $pos;
-      my $spar = $objNr;
-      $kod = compress($kod);
-      my $langd = length($kod);
-      $obj = "$objNr 0 obj<</Filter/FlateDecode"
-                           .  "/Length $langd>>stream\n" . $kod 
-                           .  "\nendstream\nendobj\n";
-      $pos += syswrite UTFIL, $obj;
-      $objNr++;
-      $objekt[$objNr] = $pos;
-      $obj = "$objNr 0 obj<</S/JavaScript/JS $spar 0 R >>endobj\n";
-   }
-   else
-   {  $kod =~ s'\('\\('gso;
-      $kod =~ s'\)'\\)'gso;
-      $objNr++;
-      $objekt[$objNr] = $pos;
-      $obj = "$objNr 0 obj<</S/JavaScript/JS " . '(' . $kod . ')';
-      $obj .= ">>endobj\n";
-   }
-   $pos += syswrite UTFIL, $obj;           
-   return $objNr;
-}
-
-sub inkludera
-{   my $jsfil = shift;
-    my $fil;
-    if ($jsfil !~ m'\{'os)
-    {   open (JSFIL, "<$jsfil") || return;
-        while (<JSFIL>)
-        { $fil .= $_;}
-
-        close JSFIL;
-    }
-    else
-    {  $fil = $jsfil;
-    }
-    $fil =~ s|function\s+([\w\_\d\$]+)\s*\(|"zXyZcUt function $1 ("|sge;
-    my @funcs = split/zXyZcUt /, $fil;
-    for my $kod (@funcs)
-    {   if ($kod =~ m'^function ([\w\_\d\$]+)'os)
-        {   $nyaFunk{$1} = $kod;
-        }
-    }   
-}
-
-
-sub defLadda
-{  my $code = "function Ladda()\r{\r";
-   for (keys %fields)
-   {  my $val = $fields{$_};
-      if ($val =~ m'\s*js\s*\:(.+)'oi) 
-      {   $val = $1;
-          $code .= "if (this.getField('$_')) this.getField('$_').value = $val;\r";
-      }
-      else
-      {  $val =~ s/([^A-Za-z0-9\-_.!* ])/sprintf("%%%02X", ord($1))/ge;
-         $code .= "if (this.getField('$_')) this.getField('$_').value = unescape('$val');\r";
-      }
-
-   }  
-   $code .= " 1;}\r";
-   
-   
-   $initScript{'Ladda'} = $code;
-   if ($duplicateInits) 
-   {  my $ny = skrivJS($code);        
-      return $ny;
-   }
-   else
-   {  return 1;
-   }
-}
-
-sub defInit
-{  my $code = "function Init()\r{\r";
-   $code .= 'if (typeof this.info.ModDate == "object")' . "\r{ return true; }\r"; 
-   for (@inits)
-   {  $code .= $_ . "\n";
-   }
-   $code .= '}';
-             
-   my $ny = skrivJS($code);        
-   return $ny;
-
-}
-
-
-
-sub errLog
-{   no strict 'refs';
-    my $mess = shift;
-    my $endMess  = " $mess \n More information might be found in"; 
-    if ($runfil)
-    {   $log .= "Log~Err: $mess\n";
-        $endMess .= "\n   $runfil";
-        if (! $pos)
-        {  $log .= "Log~Err: No pdf-file has been initiated\n";
-        }
-        elsif ($pos > 15000000)
-        {  $log .= "Log~Err: Current pdf-file is very big: $pos bytes, will not try to finnish it\n"; 
-        }
-        else
-        {  $log .= "Log~Err: Will try to finnish current pdf-file\n";
-           $endMess .= "\n   $utfil";
-        }
-    }
-    my $errLog = 'error.log';
-    my $now = localtime();
-    my $lpos = $pos || 'undef';
-    my $lobjNr = $objNr || 'undef';
-    my $lutfil = $utfil || 'undef';
-    
-    my $lrunfil = $runfil || 'undef'; 
-    open (ERRLOG, ">$errLog") || croak "$mess can't open an error logg, $!";
-    print ERRLOG "\n$mess\n\n";
-    print ERRLOG Carp::longmess("The error occurred when executing:\n");
-    print ERRLOG "\nSituation when the error occurred\n\n";
-    print ERRLOG "   Bytes written to the current pdf-file,    pos    = $lpos\n";
-    print ERRLOG "   Object processed, not necessarily written objNr  = $lobjNr\n";
-    print ERRLOG "   Current pdf-file,                         utfil  = $lutfil\n";
-    print ERRLOG "   File logging the run,                     runfil = $lrunfil\n";
-    print ERRLOG "   Local time                                       = $now\n"; 
-    print ERRLOG "\n\n";    
-    close ERRLOG;
-    $endMess .= "\n   $errLog";
-    if (($pos) && ($pos < 15000000))
-    {  prEnd();
-    }
-    print STDERR Carp::shortmess("An error occurred \n");
-    croak "$endMess\n";      
-}
diff --git a/Master/texmf-dist/scripts/xetex/perl/lib/PDF/Reuse/Util.pm b/Master/texmf-dist/scripts/xetex/perl/lib/PDF/Reuse/Util.pm
deleted file mode 100644
index ee48a6aa205..00000000000
--- a/Master/texmf-dist/scripts/xetex/perl/lib/PDF/Reuse/Util.pm
+++ /dev/null
@@ -1,326 +0,0 @@
-package PDF::Reuse::Util;

-use PDF::Reuse;

-require    Exporter;

-our @ISA     = qw(Exporter);

-our @EXPORT  = qw(hyperLink);

-

-

-use strict;

-

-our %font_widths = ( 

-    'Courier'             => 600,

-    'Courier-Bold'        => 600,

-    'Courier-BoldOblique' => 600,

-    'Courier-Oblique'     => 600,

-    'Times-Roman'         => 

-	 [000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  

-	  250,   333,   408,   500,   500,   833,   778,   180, 

-	  333,   333,   500,   564,   250,   333,   250,   278,  

-	  500,   500,   500,   500,   500,   500,   500,   500,  

-	  500,   500,   278,   278,   564,   564,   564,   444,  

-	  921,   722,   667,   667,   722,   611,   556,   722,  

-	  722,   333,   389,   722,   611,   889,   722,   722,  

-	  556,   722,   667,   556,   611,   722,   722,   944,  

-	  722,   722,   611,   333,   278,   333,   469,   500,  

-	  333,   444,   500,   444,   500,   444,   333,   500,  

-	  500,   278,   278,   500,   278,   778,   500,   500,  

-	  500,   500,   333,   389,   278,   500,   500,   722,  

-	  500,   500,   444,   480,   200,   480,   541,   350,   

-	  500,   350,   333,   500,   443,   1000,   500,   500, 

-	  333,   1000,   555,   333,  889,   350,   611,  350,   

-	  350,   333,   333,   443,   443,   350,   500,   1000, 

-	  333,   980,   388,   333,   722,   350,   444,   721,  

-	  250,   333,   500,   500,   500,   500,   200,   500, 

-	  333,   760,   276,   500,   564,   333,   760,   333, 

-	  400,   564,   300,   300,   333,   510,   453,   250, 

-	  333,   300,   310,   500,   750,   750,   750,   444, 

-	  722,   722,   722,   722,   722,   722,   889,   667, 

-	  611,   611,   611,   611,   333,   333,   333,   333,  

-	  722,   722,   722,   722,   722,   722,   722,   564,  

-	  722,   722,   722,   722,   722,   722,   556,   500,  

-	  444,   444,   444,   444,   444,   444,   667,   444,  

-	  444,   444,   444,   444,   278,   278,   278,   278,  

-	  500,   500,   500,   500,   500,   500,   500,   564,  

-	  500,   500,   500,   500,   500,   500,   500,   500],

-     'Times-Bold' => 

-	 [000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  

-	  250,   333,   555,   500,   500,  1000,   833,   278,   

-	  333,   333,   500,   570,   250,   333,   250,   278,  

-	  500,   500,   500,   500,   500,   500,   500,   500,  

-	  500,   500,   333,   333,   570,   570,   570,   500,  

-	  930,   722,   667,   722,   722,   667,   611,   778,  

-	  778,   389,   500,   778,   667,   944,   722,   778,  

-	  611,   778,   722,   556,   667,   722,   722,  1000,  

-	  722,   722,   667,   333,   278,   333,   581,   500,  

-	  333,   500,   556,   444,   556,   444,   333,   500,  

-	  556,   278,   333,   556,   278,   833,   556,   500,  

-	  556,   556,   444,   389,   333,   556,   500,   722,  

-	  500,   500,   444,   394,   220,   394,   520,   350,  

-	  500,   350,   333,   500,   500,   1000,   500,   500,

-	  333,   1000,   556,   333,  1000,   350,   667,  350, 

-	  350,   333,   333,   500,   500,   350,   500,   1000,

-	  333,   1000,   389,   333,   723,   350,   444,   722,  

-	  250,   333,   500,   500,   500,   500,   220,   500, 

-	  333,   747,   300,   500,   570,   333,   747,   333, 

-	  400,   570,   300,   300,   333,   601,   540,   250, 

-	  333,   300,   330,   500,   750,   750,   750,   500, 

-	  722,   722,   722,   722,   722,   722,  1000,   722,  

-	  667,   667,   667,   667,   389,   389,   389,   389,  

-	  722,   722,   778,   778,   778,   778,   778,   570,  

-	  778,   722,   722,   722,   722,   722,   611,   556,  

-	  500,   500,   500,   500,   500,   500,   722,   444,  

-	  444,   444,   444,   444,   278,   278,   278,   278,  

-	  500,   556,   500,   500,   500,   500,   500,   570,  

-	  500,   556,   556,   556,   556,   500,   556,   500],

-     'Times-Italic' =>

-	 [000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  

-	  250,   333,   420,   500,   500,   833,   778,   214, #39 

-	  333,   333,   500,   675,   250,   333,   250,   278, #47

-	  500,   500,   500,   500,   500,   500,   500,   500, #55

-	  500,   500,   333,   333,   675,   675,   675,   500, #63

-	  920,   611,   611,   667,   722,   611,   611,   722, #71

-	  722,   333,   444,   667,   556,   833,   667,   722, #79

-	  611,   722,   611,   500,   556,   722,   611,   833, #87

-	  611,   556,   556,   389,   278,   389,   422,   500, #95

-	  333,   500,   500,   444,   500,   444,   278,   500, #103 

-	  500,   278,   278,   444,   278,   722,   500,   500, #111

-	  500,   500,   389,   389,   278,   500,   444,   667, #119

-	  444,   444,   389,   400,   275,   400,   541,   350,  # 127 

-	  500,   350,   333,   500,   556,   889,   500,   500,  # 135

-	  333,   1000,   500,   333,  944,   350,   556,  350,   # 143

-	  350,   333,   333,   556,   556,   350,   500,   890,  # 151

-	  333,   980,   389,   333,   668,   350,   390,   557, # 159  

-	  250,   389,   500,   500,   500,   500,   275,   500, # 167 

-	  333,   760,   276,   500,   675,   333,   760,   333, # 175 

-	  400,   675,   300,   300,   333,   514,   523,   250, # 183 

-	  333,   300,   310,   500,   750,   750,   750,   500, # 191 

-	  611,   611,   611,   611,   611,   611,   889,   667,  

-	  611,   611,   611,   611,   333,   333,   333,   333,  

-	  722,   667,   722,   722,   722,   722,   722,   675,  

-	  722,   722,   722,   722,   722,   556,   611,   500,  

-	  500,   500,   500,   500,   500,   500,   667,   444,  

-	  444,   444,   444,   444,   278,   278,   278,   278,  

-	  500,   500,   500,   500,   500,   500,   500,   675,  

-	  500,   500,   500,   500,   500,   444,   500,   444],

-

-    'Times-BoldItalic' =>

-	 [000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  

-	  250,   389,   555,   500,   500,   833,   778,   278,  

-	  333,   333,   500,   570,   250,   333,   250,   278,  

-	  500,   500,   500,   500,   500,   500,   500,   500,  

-	  500,   500,   333,   333,   570,   570,   570,   500,  

-	  832,   667,   667,   667,   722,   667,   667,   722,  

-	  778,   389,   500,   667,   611,   889,   722,   722,  

-	  611,   722,   667,   556,   611,   722,   667,   889,  

-	  667,   611,   611,   333,   278,   333,   570,   500,  

-	  333,   500,   500,   444,   500,   444,   333,   500,  

-	  556,   278,   278,   500,   278,   778,   556,   500,  

-	  500,   500,   389,   389,   278,   556,   444,   667,  

-	  500,   444,   389,   348,   220,   348,   570,   350,  # 127 

-	  500,   350,   333,   500,   502,   1000,   500,   500,  # 135

-	  333,   1000,   555,   333,  944,   350,   610,  350,   # 143

-	  350,   333,   333,   500,   500,   350,   500,   1000,  # 151

-	  333,   1000,   389,   333,   721,   350,   390,   610,  # 159   

-	  250,   389,   500,   500,   500,   500,   220,   500,  #167

-	  333,   747,   266,   500,   606,   333,   747,   333,  #175

-	  400,   570,   300,   300,   333,   532,   500,   250,  #183

-	  333,   300,   300,   500,   750,   750,   750,   500,  

-	  667,   667,   667,   667,   667,   667,   944,   667,  

-	  667,   667,   667,   667,   389,   389,   389,   389,  

-	  722,   722,   722,   722,   722,   722,   722,   570,  

-	  722,   722,   722,   722,   722,   611,   611,   500,  

-	  500,   500,   500,   500,   500,   500,   722,   444,  

-	  444,   444,   444,   444,   278,   278,   278,   278,  

-	  500,   556,   500,   500,   500,   500,   500,   570,  

-	  500,   556,   556,   556,   556,   444,   500,   444],   

-

-    'Helvetica' =>

-	 [000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  

-	  278,   278,   355,   556,   556,   889,   667,   192,  

-	  333,   333,   389,   584,   278,   333,   278,   278,  

-	  556,   556,   556,   556,   556,   556,   556,   556,  

-	  556,   556,   278,   278,   584,   584,   584,   556,  

-	 1015,   667,   667,   722,   722,   667,   611,   778,  

-	  722,   278,   500,   667,   556,   833,   722,   778,  

-	  667,   778,   722,   667,   611,   722,   667,   944,  

-	  667,   667,   611,   278,   278,   278,   469,   557,  

-	  334,   556,   556,   500,   556,   556,   278,   556,  

-	  556,   222,   222,   500,   222,   833,   556,   556,  

-	  556,   556,   333,   500,   278,   556,   500,   722,  

-	  500,   500,   500,   334,   260,   334,   584,   350,  # 127 

-	  556,   350,   222,   556,   333,   1000,   556,   556,  # 135

-	  333,   1000,   667,   333,   1000,   351,   611,  350,   # 143

-	  350,   223,   222,   333,   333,   351,   557,   1000,  # 151

-	  333,   1000,   500,   333,   945,   350,   500,   667, # 159 

-	  278,   333,   556,   556,   556,   556,   260,   556,  # 167

-	  333,   737,   370,   556,   584,   333,   737,   333,  # 175

-	  400,   584,   333,   333,   333,   578,   537,   278,  # 183

-	  333,   333,   365,   556,   835,   835,   835,   611,  # 191

-	  667,   667,   667,   667,   667,   667,  1000,   722,  

-	  667,   667,   667,   667,   278,   278,   278,   278,  

-	  722,   722,   778,   778,   778,   778,   778,   584,  

-	  778,   722,   722,   722,   722,   667,   667,   611,  

-	  556,   556,   556,   556,   556,   556,   889,   500,  

-	  556,   556,   556,   556,   278,   278,   278,   278,  

-	  556,   556,   556,   556,   556,   556,   556,   584,  

-	  611,   556,   556,   556,   556,   500,   556,   500],

-

-    'Helvetica-Bold' =>

-	 [000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  #31 

-	  278,   333,   474,   556,   556,   889,   722,   238,  #39

-	  333,   333,   389,   584,   278,   333,   278,   278,  #47

-	  556,   556,   556,   556,   556,   556,   556,   556,  #55

-	  556,   556,   333,   333,   584,   584,   584,   611,  #63

-	  975,   722,   722,   722,   722,   667,   611,   778,  #71

-	  722,   278,   556,   722,   611,   833,   722,   778,  #79

-	  667,   778,   722,   667,   611,   722,   667,   944,  #87

-	  667,   667,   611,   333,   278,   333,   584,   556,  #95

-	  333,   556,   611,   556,   611,   556,   333,   611,  #103

-	  611,   278,   278,   556,   278,   889,   611,   611,  #111

-	  611,   611,   389,   556,   333,   611,   556,   778,  #119

-	  556,   556,   500,   389,   280,   389,   584,   350,  # 127 

-	  556,   350,   278,   556,   500,   1000,   556,   556,  # 135

-	  333,   1000,   667,   333,   1000,   350,   611,  350,   # 143

-	  350,   278,   278,   500,   500,   350,   556,   1000,  # 151

-	  333,   1000,   556,   333,   944,   350,   500,   667, # 159

-	  278,   333,   556,   556,   556,   556,   280,   556,  #167

-	  333,   737,   370,   556,   584,   333,   737,   333,  

-	  400,   584,   333,   333,   333,   611,   556,   278,  

-	  333,   333,   365,   556,   834,   834,   834,   611,  

-	  722,   722,   722,   722,   722,   722,  1000,   722,  

-	  667,   667,   667,   667,   278,   278,   278,   278,  

-	  722,   722,   778,   778,   778,   778,   778,   584,  

-	  778,   722,   722,   722,   722,   667,   667,   611,  

-	  556,   556,   556,   556,   556,   556,   889,   556,  

-	  556,   556,   556,   556,   278,   278,   278,   278,  

-	  611,   611,   611,   611,   611,   611,   611,   584,  

-	  611,   611,   611,   611,   611,   556,   611,   556],

-

-    'Helvetica-Oblique' =>

-	 [000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  

-	  278,   278,   355,   556,   556,   889,   667,   191,  

-	  333,   333,   389,   584,   278,   333,   278,   278,  

-	  556,   556,   556,   556,   556,   556,   556,   556,  

-	  556,   556,   278,   278,   584,   584,   584,   556,  

-	 1015,   667,   667,   722,   722,   667,   611,   778,  

-	  722,   278,   500,   667,   556,   833,   722,   778,  

-	  667,   778,   722,   667,   611,   722,   667,   944,  

-	  667,   667,   611,   278,   278,   278,   469,   556,  

-	  333,   556,   556,   500,   556,   556,   278,   556,  

-	  556,   222,   222,   500,   222,   833,   556,   556,  

-	  556,   556,   333,   500,   278,   556,   500,   722,  

-	  500,   500,   500,   334,   260,   334,   584,   350,  # 127 

-	  556,   350,   222,   556,   333,   1000,   556,   556,  # 135

-	  333,   1000,   667,   333,   1000,   351,   611,  350,   # 143

-	  350,   223,   222,   333,   333,   351,   557,   1000,  # 151

-	  333,   1000,   500,   333,   945,   350,   500,   667, # 159 

-	  278,   333,   556,   556,   556,   556,   260,   556,  # 167

-	  333,   737,   370,   556,   584,   333,   737,   333,  # 175

-	  400,   584,   333,   333,   333,   578,   537,   278,  # 183

-	  333,   333,   365,   556,   834,   834,   834,   611,  # 191

-	  667,   667,   667,   667,   667,   667,  1000,   722,  

-	  667,   667,   667,   667,   278,   278,   278,   278,  

-	  722,   722,   778,   778,   778,   778,   778,   584,  

-	  778,   722,   722,   722,   722,   667,   667,   611,  

-	  556,   556,   556,   556,   556,   556,   889,   500,  

-	  556,   556,   556,   556,   278,   278,   278,   278,  

-	  556,   556,   556,   556,   556,   556,   556,   584,  

-	  611,   556,   556,   556,   556,   500,   556,   500],

-

-    'Helvetica-BoldOblique' =>

-	 [000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  

-	  000,   000,   000,   000,   000,   000,   000,   000,  

-	  278,   333,   474,   556,   556,   889,   722,   238, #39  

-	  333,   333,   389,   584,   278,   333,   278,   278, #47 

-	  556,   556,   556,   556,   556,   556,   556,   556, #55 

-	  556,   556,   333,   333,   584,   584,   584,   611, #63

-	  975,   722,   722,   722,   722,   667,   611,   778, #71 

-	  722,   278,   556,   722,   611,   833,   722,   778, #79 

-	  667,   778,   722,   667,   611,   722,   667,   944, #87

-	  667,   667,   611,   333,   278,   333,   584,   556, #95

-	  333,   556,   611,   556,   611,   556,   333,   611, #103

-	  611,   278,   278,   556,   278,   889,   611,   611, #111

-	  611,   611,   389,   556,   333,   611,   556,   778, #119

-	  556,   556,   500,   389,   280,   389,   584,   350,  # 127 

-	  556,   350,   278,   556,   500,   1000,   556,   556,  # 135

-	  333,   1000,   667,   333,   1000,   350,   611,  350,   # 143

-	  350,   278,   278,   500,   500,   350,   556,   1000,  # 151

-	  333,   1000,   556,   333,   944,   350,   500,   667, # 159

-	  278,   333,   556,   556,   556,   556,   280,   556,  

-	  333,   737,   370,   556,   584,   333,   737,   333,  

-	  400,   584,   333,   333,   333,   611,   556,   278,  

-	  333,   333,   365,   556,   834,   834,   834,   611,  

-	  722,   722,   722,   722,   722,   722,  1000,   722,  

-	  667,   667,   667,   667,   278,   278,   278,   278,  

-	  722,   722,   778,   778,   778,   778,   778,   584,  

-	  778,   722,   722,   722,   722,   667,   667,   611,  

-	  556,   556,   556,   556,   556,   556,   889,   556,  

-	  556,   556,   556,   556,   278,   278,   278,   278,  

-	  611,   611,   611,   611,   611,   611,   611,   584,  

-	  611,   611,   611,   611,   611,   556,   611,   556]

-     );

-1;

-

-sub hyperLink

-{   my $x    = shift;

-    my $y    = shift;

-    my $text = shift || ' ';

-    my $URI  = shift;

-    my $fontSize = shift;

-    my ($actualSize, $fontSizeBeforetheChange, $height, $x2, $y2);

-    if ((! defined $x) || (! defined $y) || (! defined $URI))

-    {  return undef;

-    }

-    my ($internalName, $externalName, $oldInternalName, $oldExternalname) =

-         PDF::Reuse::prFont('HO');

-    if (! defined $fontSize) 

-    {  ($actualSize, $fontSizeBeforetheChange) = PDF::Reuse::prFontSize();

-       $fontSize = $fontSizeBeforetheChange;

-       PDF::Reuse::prFontSize($fontSize) if ($actualSize != $fontSizeBeforetheChange);

-    }

-    else

-    {  ($actualSize, $fontSizeBeforetheChange) = PDF::Reuse::prFontSize($fontSize);

-    }

-    $height = $fontSize + 2.5;

-    my $width = PDF::Reuse::prStrWidth($text);

-    $y2 = $y - 2;

-    $x2 = $x + $width;

-    PDF::Reuse::prAdd("q\n 0.3 0.3 1 RG 0.3 0.3 1 rg\n$x $y2 m\n$x2 $y2 l\n B*\n");

-    $y2 -= 1;

-    PDF::Reuse::prText($x, $y, $text);

-    PDF::Reuse::prLink( { x => $x,

-                          y => $y2,

-                          width => $width,

-                          height => $height,

-                          URI    => $URI } );

-    

-    PDF::Reuse::prAdd("0 0 0 RG 0 0 0 rg\nQ\n");

-    PDF::Reuse::prFont($oldExternalname) 

-                 if ($oldExternalname ne $externalName);

-    PDF::Reuse::prFontSize($fontSizeBeforetheChange)

-                 if ($fontSizeBeforetheChange != $fontSize);

-    return $x2;

-}
\ No newline at end of file
diff --git a/Master/texmf-dist/scripts/xetex/perl/xdv2pdf_mergemarks b/Master/texmf-dist/scripts/xetex/perl/xdv2pdf_mergemarks
deleted file mode 100755
index ce36f1e8116..00000000000
--- a/Master/texmf-dist/scripts/xetex/perl/xdv2pdf_mergemarks
+++ /dev/null
@@ -1,205 +0,0 @@
-#!/usr/bin/perl
-
-# /****************************************************************************\
-#  Part of the XeTeX typesetting system
-#  copyright (c) 1994-2005 by SIL International
-#  written by Jonathan Kew
-# 
-#  This software is distributed under the terms of the Common Public License,
-#  version 1.0.
-#  For details, see <http://www.opensource.org/licenses/cpl1.0.php> or the file
-#  cpl1.0.txt included with the software.
-# \****************************************************************************/
-
-BEGIN {
-	# try to locate our private Perl module directory
-	my $p = `kpsewhich -progname=xetex -format=texmfscripts Reuse.pm`;
-	chomp $p;
-	if ($p eq '') {
-		# try a known location
-		$p = '/usr/local/teTeX/share/texmf.local/scripts/xetex/perl/lib/PDF/Reuse.pm';
-		die "can't find Reuse.pm!" unless -e $p;
-	}
-	$p =~ s!/PDF/Reuse.pm!!;
-	die "perl/lib directory $p not found!" unless -d $p;
-	unshift @INC, $p;
-};
-
-use strict;
-use PDF::Reuse;
-
-die "usage: $0 <pdf-file> <mark-file>\n" unless $#ARGV == 1;
-
-my $infile = $ARGV[0];
-my $markfile = $ARGV[1];
-my $outfile = "$ARGV[0].tmp";
-
-my $newlink = undef;
-my $seenbox = 0;
-my %dest;
-my @links;
-my @bookmarks;
-
-sub toUtf16
-{
-	my $txt = shift;
-	$txt =~ s/\\([\\\(\)])/$1/g;
-	$txt = pack('n*', 0xfeff, unpack('U*', $txt));
-	$txt =~ s/\\/\\\\/g;
-	$txt =~ s/\(/\\(/g;
-	$txt =~ s/\)/\\)/g;
-	return $txt;
-}
-
-open FH, "<:utf8", "$markfile" or die "failed to read mark-file $markfile\n";
-while (<FH>) {
-	chomp;
-	my ($page, $xpos, $ypos, $txt) = split(/\t/, $_, 4);
-	if ($txt =~ /^\s*dest/o) {
-		$txt =~ /^\s*dest\s+\(([^\)]+)\)\s*(\[.+\])/o;
-		my $destname = $1;
-		$dest{$destname} = $2;
-		my $zp = $page - 1;
-		$dest{$destname} =~ s/\/View\s\[(.+)\]/$1/;
-		$dest{$destname} =~ s/\@thispage/$zp/;
-		$dest{$destname} =~ s/\@xpos/$xpos/;
-		$dest{$destname} =~ s/\@ypos/$ypos/;
-	}
-
-	elsif ($txt =~ /^\s*bann/o) {
-		if ($txt =~ m!<+\s*/Type\s*/Annot\s*/Subtype\s*/Link\s*.*/A\s*<+([^>]+)>>\s*>>!o) {
-			$newlink = { page => $page, x => $xpos, y => $ypos, action => $1 };
-			if ($txt =~ m!/Border\s*(\[[^]]+\])!o) {
-				$newlink->{border} = $1;
-			}
-			if ($txt =~ m!/C\s*(\[[^]]+\])!o) {
-				$newlink->{color} = $1;
-			}
-		}
-		$seenbox = 0;
-	}
-	
-	elsif ($txt =~ /^\s*ABOX/o) {
-		if (defined $newlink) {
-			$txt =~ m/\[\s*(-?\d+(?:\.\d+)?)\s+(-?\d+(?:\.\d+)?)\s+(-?\d+(?:\.\d+)?)\s+(-?\d+(?:\.\d+)?)\s*\]/o;
-			my $boxlink = { page => $newlink->{page}, action => $newlink->{action} };
-			$boxlink->{border} = $newlink->{border} if exists $newlink->{border};
-			$boxlink->{color} = $newlink->{color} if exists $newlink->{color};
-			$boxlink->{x} = $1 < $3 ? $1 : $3;
-			$boxlink->{y} = $2 < $4 ? $2 : $4;
-			$boxlink->{width} = abs($1 - $3);
-			$boxlink->{height} = abs($2 - $4);
-			push @links, $boxlink;
-			$seenbox = 1;
-		}
-	}
-
-	elsif ($txt =~ /^\s*eann/o) {
-		if ((defined $newlink) && ($seenbox == 0)) {
-			$newlink->{width} = $xpos - $newlink->{x};
-			if ($newlink->{width} < 0) {
-				$newlink->{width} = -$newlink->{width};
-				$newlink->{x} = $xpos;
-			}
-			$newlink->{height} = $ypos - $newlink->{y};
-			if ($newlink->{height} < 0) {
-				$newlink->{height} = -$newlink->{height};
-				$newlink->{y} = $ypos;
-			}
-			push @links, $newlink;
-			undef $newlink;
-		}
-	}
-	
-	elsif ($txt =~ /^\s*ann/o) {
-		$txt =~ m!width\s+(\d+(?:\.\d*)?)pt\s+height\s+(\d+(?:\.\d*)?)pt\s+.*/A\s*<+([^>]+)>>!o;
-		if (defined $1) {
-			$newlink = { page => $page, x => $xpos, y => $ypos, width => $1, height => $2, action => $3 };
-			if ($txt =~ m!/Border\s*(\[[^]]+\])!o) {
-				$newlink->{border} = $1;
-			}
-			if ($txt =~ m!/C\s*(\[[^]]+\])!o) {
-				$newlink->{color} = $1;
-			}
-			push @links, $newlink;
-			undef $newlink;
-		}
-	}
-
-	elsif ($txt =~ /^\s*outline/o) {
-		$txt =~ m!outline\s+(-?\d+)\s*<+\s*/Title\s*\(((?:[^\)]|\\\))+)\)\s*/A\s*<+([^>]+)>>\s*>>!o;
-		my ($level, $title, $action) = ($1, $2, $3);
-		my $bm = { 'text' => &toUtf16($title), 'pdfact' => $action, '_lvl' => $level };
-		if ((scalar @bookmarks == 0) || ($level <= $bookmarks[$#bookmarks]->{'_lvl'})) {
-			push @bookmarks, $bm;
-		}
-		else {
-			my $parent = $bookmarks[$#bookmarks];
-			my $plevel = $parent->{'_lvl'};
-			while ($plevel + 1 < $level) {
-				if (exists $parent->{'kids'}) {
-					$parent = $parent->{'kids'}[$#{$parent->{'kids'}}];
-					$plevel = $parent->{'_lvl'};
-				}
-				else {
-					last;
-				}
-			}
-			push @{$parent->{'kids'}}, $bm;
-		}
-	}
-
-}
-close FH;
-
-fixActions(\@bookmarks);
-
-prFile("$outfile");
-
-prBookmark(\@bookmarks);
-
-foreach (@links) {
-	my $action = $_->{action};
-	if ($action =~ m!/S\s/GoTo\s/D\s\(([^\)]+)\)!o) {
-		my $destname = $1;
-		my $explicit = $dest{$destname};
-		$action =~ s/\(.+\)/$explicit/;
-		$_->{action} = $action;
-	}
-	prLink($_);
-}
-
-prDoc($infile);
-
-prEnd();
-
-unlink($markfile);
-
-unlink($infile);
-rename($outfile, $infile);
-
-exit(0);
-
-sub fixActions
-{
-	my $bookmarks = shift;
-	foreach (@$bookmarks) {
-		$_->{'pdfact'} = fixAct($_->{'pdfact'});
-		if (exists $_->{'kids'}) {
-			fixActions($_->{'kids'});
-		}
-	}
-}
-
-sub fixAct
-{
-	my $action = shift;
-	if ($action =~ m!/S\s*/GoTo\s*/D\s*\(([^\)]+)\)!o) {
-		my $destname = $1;
-		if (exists $dest{$destname}) {
-			$action = "/Type /Action /S /GoTo /D $dest{$destname}";
-		}
-	}
-	return $action;
-}
-