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

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

EX    =    "select pages of dcl.ps file"

USAGE =  "% dclpsselect [p=<page>] [from=<page>] [to=<page>] <file>"

#----------------------------------------------------------------------------
# OPTIONS
          p=0;      q["p"]   ="select single page [0]"
          from=0;   q["from"]="select range of page from: [0]"
          to=0;     q["to"]  ="select range of page to: [0]"

	  if (ARGV[1]=="help") { 
	      print "  " ID,DATE
	      print " --- " EX
	      print " usage : " USAGE
              print "Options:"
	      for (i in q) 
		printf("+ %8s : %s\n",i,q[i])
              exit
          }

    	  page=0;
          pages=0 
          body=0; 

}

/(^%%Page:)|(translate$)/ { page++; body=1
                   if ( p==0 && from ==0  && to==0 ) p=1
		   if      ( body==0+0 || page == p+0 ) pages++
	           else if ( page >= from+0 && page <= to+0 ) pages++ }

/^%%Trailer/     { print 
	           print "%%Pages : ", pages
	           print "%%EOF"
		   exit
      	         }

	         { if      ( body==0 || page == p ) print
	           else if ( page >= from+0 && page <= to+0 ) print
                   if ( page > p+0 && page > to+0 ) 
	 	    { print "%%Trailer"
                      print "%%Pages : ", pages
                      print "%%EOF"
		      exit
		    }
                 }


