1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
|
/*
COPYRIGHT
The following is a notice of limited availability of the code, and disclaimer
which must be included in the prologue of the code and in all source listings
of the code.
(C) COPYRIGHT 2008 University of Chicago
Permission is hereby granted to use, reproduce, prepare derivative works, and
to redistribute to others. This software was authored by:
D. Levine
Mathematics and Computer Science Division
Argonne National Laboratory Group
with programming assistance of participants in Argonne National
Laboratory's SERS program.
GOVERNMENT LICENSE
Portions of this material resulted from work developed under a
U.S. Government Contract and are subject to the following license: the
Government is granted for itself and others acting on its behalf a paid-up,
nonexclusive, irrevocable worldwide license in this computer software to
reproduce, prepare derivative works, and perform publicly and display
publicly.
DISCLAIMER
This computer code material was prepared, in part, as an account of work
sponsored by an agency of the United States Government. Neither the United
States, nor the University of Chicago, nor any of their employees, makes any
warranty express or implied, or assumes any legal liability or responsibility
for the accuracy, completeness, or usefulness of any information, apparatus,
product, or process disclosed, or represents that its use would not infringe
privately owned rights.
*/
/*****************************************************************************
* FILE: cmdline.c: This file contains routines needed to parse the
* command line.
*
* Authors: David M. Levine, Philip L. Hallstrom, David M. Noelle,
* Brian P. Walenz
*****************************************************************************/
#include "pgapack.h"
extern char PGAProgram[100];
#define bad_arg(a) ( ((a)==NULL) || ((*(a)) == '-') )
/*I****************************************************************************
PGAReadCmdLin - Code that looks at the arguments, recognizes any that
are for PGAPack, uses the arguments, and removes them from the command
line args.
Inputs:
ctx - context variable
argc - address of the count of the number of command line argumen
argv - array of command line arguments
Outputs:
None
Example:
void main(int argc, char **argv) {
PGAContext *ctx;
:
PGAReadCmdLine(ctx, &argc, argv);
}
****************************************************************************I*/
void PGAReadCmdLine( PGAContext *ctx, int *argc, char **argv )
{
int c;
char *s, **a;
/* Put name of called program (according to the args) into PGAProgram */
s = (char *) strrchr(*argv, '/');
if (s)
strcpy(PGAProgram, s + 1);
else
strcpy(PGAProgram, *argv);
/* Set all command line flags (except procgroup) to their defaults */
/* Move to last argument, so that we can go backwards. */
a = &argv[*argc - 1];
/*
* Loop backwards through arguments, catching the ones that start with
* '-'. Backwards is more efficient when you are stripping things out.
*/
for (c = (*argc); c > 1; c--, a--)
{
if (**a != '-')
continue;
if ( !strcmp(*a, "-pgadbg") || !strcmp(*a, "-pgadebug") )
{
if bad_arg(a[1])
PGAUsage(ctx);
#if OPTIMIZE==0
PGAParseDebugArg( ctx, a[1] );
#endif
PGAStripArgs(a, argc, &c, 2);
continue;
}
if ( !strcmp(*a, "-pgaversion") )
{
PGAStripArgs(a, argc, &c, 1);
PGAPrintVersionNumber( ctx );
PGADestroy(ctx);
exit(-1);
}
if (!strcmp(*a, "-pgahelp") )
{
if (a[1] == NULL)
PGAUsage(ctx);
else
if (!strcmp(a[1], "debug"))
PGAPrintDebugOptions(ctx);
else
fprintf(stderr, "Invalid option following"
"-pgahelp.\n");
}
}
}
#if OPTIMIZE==0
/*I****************************************************************************
PGAParseDebugArg - routine to parse debug command line options, and set
the appropriate debug level (via PGASetDebugLevel).
Inputs:
ctx - context variable
st - debug command line options
Outputs:
None
Example:
Internal function. Called only by PGAReadCmdLine.
****************************************************************************I*/
void PGAParseDebugArg(PGAContext *ctx, char *st)
{
int num2index = 0, num1index = 0, index, num1 = 0, num2 = 0, x;
unsigned long length = strlen(st);
char range = 0, num1ch[4], num2ch[4];
length--;
for(index=0; index <= length; index++)
{
if (!isdigit(st[index]) && st[index] != ',' && st[index] != '-')
PGAError(ctx, "PGASetDebugLevel: Invalid Debug Value:",
PGA_FATAL, PGA_CHAR, (void *) st);
if (st[index] == '-')
{
range = 1;
num1ch[num1index] = '\0';
num1 = atoi(num1ch);
if (num1 < 0 || num1 > PGA_DEBUG_MAXFLAGS)
PGAError(ctx,
"PGASetDebugLevel: Lower Limit Out of Range:",
PGA_FATAL, PGA_INT, (void *) &num1);
num1index = 0;
}
else
{
if (isdigit(st[index]))
if (range)
num2ch[num2index++] = st[index];
else
num1ch[num1index++] = st[index];
if (st[index] == ',' || index == length)
{
if (range)
{
num2ch[num2index] = '\0';
num2 = atoi(num2ch);
if (num2 < 0 || num2 > PGA_DEBUG_MAXFLAGS)
PGAError(ctx,
"PGASetDebugLevel: Upper Limit Out of"
" Range:",
PGA_FATAL, PGA_INT, (void *) &num2);
if (num1 <= num2)
{
for (x = num1; x <= num2; x++)
{
if (x == 212)
printf("%s %s\n", num1ch, num2ch);
PGASetDebugLevel(ctx, x);
}
}
else
PGAError(ctx,
"PGASetDebugLevel: Lower Limit Exceeds"
"Upper:", PGA_FATAL, PGA_INT,
(void *) &num1);
num2index = 0;
range = 0;
}
else
{
num1ch[num1index] = '\0';
num1 = atoi(num1ch);
if (num1 < 0 || num1 > PGA_DEBUG_MAXFLAGS)
PGAError(ctx, "PGASetDebugLevel: Debug Number"
"Out of Range:", PGA_FATAL, PGA_INT,
(void *) &num1);
if (num1 == 212)
printf("%s\n", num1ch);
PGASetDebugLevel(ctx, num1);
num1index = 0;
}
}
}
}
}
#endif
/*I****************************************************************************
PGAStripArgs - code to strip arguments out of command list
Inputs:
argc - address of the count of the number of command line arguments
argv - array of command line arguments
c -
num -
Outputs:
None
Example:
Internal function. Called only by PGAReadCmdLine.
****************************************************************************I*/
void PGAStripArgs(char **argv, int *argc, int *c, int num)
{
char **a;
int i;
/* Strip out the argument. */
for (a = argv, i = (*c); i <= *argc; i++, a++)
*a = (*(a + num));
(*argc) -= num;
}
|
