#! /usr/local/bin/gawk -f
BEGIN { 

ID    =    "dclpsseparate 0.3"
DATE  =                               "95/03/19(numaguti)" 

EX    =    "separate multi-page dcl.ps into single page files"

USAGE =  "% dclpsseparate <file>"

#----------------------------------------------------------------------------
# NO OPTIONS

	  if (ARGV[1]=="help") { 
	      exithelp=1
	      print "  " ID,DATE
	      print " --- " EX
	      print " usage : " USAGE
              exit
          }
          exithelp=0

          head=1; body=0; page=0
	  "echo /tmp/sgks.$$" | getline head 
	  fout=""
}

/^%%Page:/ 	 { if ( fout != "" ) {
                     print "%%Trailer"  >> fout
	             print "%%Pages: 1" >> fout
	             print "%%EOF"   >> fout
                     close(fout)
                   }
                   page++; body=1;

	           fout = sprintf("dcl_%03d.ps", page)
                   system( "cat " head " > " fout )
                   print "%%Page: " page " 1" >> fout
                   next 
                 }

/^%%Trailer/     { exit }

	         { if ( body==0 ) print > head
		   else print >> fout       
                 }

END		 { if(exithelp==0 ) {
                      if (fout != "") {
                         print "%%Trailer"  >> fout
	                 print "%%Pages: 1" >> fout
	                 print "%%EOF"   >> fout
                        close(fout)
                      }
                      system( "rm -f " head )
                   }
                 }

