PSFILE *psopenPostScript()
{
  return ps_open_PostScript();
}

PSFILE *psclosePostScript()
{
  return ps_close_PostScript();
}

int psflushPostScript()
{
  return ps_flush_PostScript();
}

int psioerror(file)
int file;
{
    switch (file) {
      case 0:
        return psio_error(PostScriptInput);
      default:
        fprintf(stderr, "Unknown psio_error argument.\n");
        fflush(stderr);
    }
}

int psioeof(file)
int file;
{
    switch (file) {
      case 0:
        return psio_eof(PostScriptInput);
      default:
        fprintf(stderr, "Unknown psio_error argument\n.");
        fflush(stderr);
    }
}

/* for string input */

int get_char(addr)
char *addr;
{
       return (int)*addr;
}