tools/MergePCBPS

   1 #!/bin/sh
   2 #
   3 # $Id$
   4 #
   5 # merges PostScript files created by pcb (version >= 1.4.2) into
   6 # a single file for backward compatibility
   7 #
   8 # Usage: name files...
   9 #
  10 # by Thomas Nau 9/96
  11 #
  12
  13 if [ $# -eq 0 ]; then
  14         echo "Usage: `basename $0` files..." >&2
  15         exit 1
  16 fi
  17
  18 # some system need nawk
  19 #
  20 case `uname` in
  21         SunOS)  AWK=nawk;;
  22         *)              AWK=awk;;
  23 esac
  24
  25 $AWK '
  26         BEGIN                                                           { filecount = 0; }
  27         /^%!PS/                                                         { filecount++; }
  28         /^%!PS/,/^% PCBENDDATA/                         {
  29                 if (filecount == 1)
  30                 {
  31                         if (index($0, "%%Title:") == 1)
  32                                 sub(",.*$", ", merged layouts");
  33                         print $0;
  34                         next;
  35                 }
  36         }
  37         /^% PCBSTARTDATA/,/^% PCBENDDATA/       {
  38                 if (filecount > 1)
  39                 {
  40                         print $0;
  41                         next;
  42                 }
  43         }
  44                                                                                 { next; }
  45         END                                                                     {
  46                 print "showpage";
  47                 print "%%EOF";
  48         }
  49 ' $@