/*
 * This is a code fragment from a patched version of dospecial.c
 * dvips version 5.47
 *
 * The changed lines are between the TJD comments.
 * The patch allows for zcat input to plotfile commands.
 *
 */


   if (strncmp(p, "ps:", 3)==0) {
        hvpos() ;
        psflush() ; /* now anything can happen. */
        if (p[3]==':') {
           if (strncmp(p+4, "[begin]", 7) == 0)
              nlcmdout(&p[11]);
           else if (strncmp(p+4, "[end]", 5) == 0)
              nlcmdout(&p[9]);
           else nlcmdout(&p[4]);
        } else if (strncmp(p+3, " plotfile ", 10) == 0) {
           char *sfp ;
           p += 13;
	   /*
	    *  Fixed to allow popen input for plotfile
	    *  TJD 10/20/91
	    */
	   while (*p == ' ') p++;
	   if (*p == '"') {
	     p++;
	     for (sfp = p; *sfp && *sfp != '"'; sfp++) ;
           } else {
	     for (sfp = p; *sfp && *sfp != ' '; sfp++) ;
           }
           *sfp = '\0';
	   if (*p == '`') 
	     figcopyfile(p+1, 1);
	   else
	     figcopyfile (p, 0);
	   /* End TJD changes */
        } else
           nlcmdout(&p[3]);
        return;
   }