|
|
1.1 root 1: /* cstrings.c - */
2:
3: #ifndef lint
4: static char *rcsid = "$Header: /f/osi/quipu/RCS/cstrings.c,v 7.1 90/07/09 14:45:33 mrose Exp $";
5: #endif
6:
7: /*
8: * $Header: /f/osi/quipu/RCS/cstrings.c,v 7.1 90/07/09 14:45:33 mrose Exp $
9: *
10: *
11: * $Log: cstrings.c,v $
12: * Revision 7.1 90/07/09 14:45:33 mrose
13: * sync
14: *
15: * Revision 7.0 89/11/23 22:16:59 mrose
16: * Release 6.0
17: *
18: */
19:
20: /*
21: * NOTICE
22: *
23: * Acquisition, use, and distribution of this module and related
24: * materials are subject to the restrictions of a license agreement.
25: * Consult the Preface in the User's Manual for the full terms of
26: * this agreement.
27: *
28: */
29:
30:
31: #include "psap.h"
32:
33: static char arg_error [1024];
34: static char arg_flag [100];
35: int chase_flag = 2;
36: extern char * result_sequence;
37:
38: reset_arg ()
39: {
40: arg_error [0] = 0;
41: arg_flag [0] = 0;
42: chase_flag = 2;
43: if (result_sequence)
44: free (result_sequence);
45: result_sequence = NULLCP;
46: }
47:
48: print_arg_error (opt)
49: PS opt;
50: {
51: if (arg_error [0] != 0) {
52: ps_printf (opt,"'%s' ambiguous, specify\n%s",arg_flag,arg_error);
53: return (OK);
54: } else
55: return (NOTOK);
56: }
57:
58:
59: int test_arg (x, y, c)
60: char *x;
61: char *y;
62: int c;
63: {
64: int count = 0;
65: char * top, *topx;
66:
67: top = y;
68: topx = x;
69:
70: if (*y == '-' )
71: count--;
72:
73: for (; (*y != 0) || (*x != 0); y++) {
74: if (*x == 0)
75: if (count >= c)
76: return (1);
77: else {
78: (void) strcat (arg_error, top);
79: (void) strcat (arg_error, "\n");
80: (void) strcpy (arg_flag,topx);
81: return (0);
82: }
83: if (chrcnv[*x] != chrcnv[*y])
84: return (0);
85:
86: count++;
87: x++;
88: }
89:
90: if (count >= c)
91: return (1);
92: else {
93: (void) strcat (arg_error, top);
94: (void) strcat (arg_error, "\n");
95: (void) strcpy (arg_flag, topx);
96: return (0);
97: }
98: }
99:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.