1/*
2  Copyright (c) 1990-1999 Info-ZIP.  All rights reserved.
3
4  See the accompanying file LICENSE, version 1999-Oct-05 or later
5  (the contents of which are also included in zip.h) for terms of use.
6  If, for some reason, both of these files are missing, the Info-ZIP license
7  also may be found at:  ftp://ftp.cdrom.com/pub/infozip/license.html
8*/
9/*
10 * VM/CMS specific things.
11 */
12
13#include "zip.h"
14
15int procname(n, caseflag)
16char *n;                /* name to process */
17int caseflag;           /* true to force case-sensitive match */
18/* Process a name or sh expression to operate on (or exclude).  Return
19   an error code in the ZE_ class. */
20{
21  FILE *stream;
22
23  if (strcmp(n, "-") == 0)   /* if compressing stdin */
24    return newname(n, 0, caseflag);
25  else {
26     if ((stream = fopen(n, "r")) != (FILE *)NULL)
27        {
28        fclose(stream);
29        return newname(n, 0, caseflag);
30        }
31     else return ZE_MISS;
32  }
33  return ZE_OK;
34}
35