2088 |
char ifile[256], ofile[256], efile[256]; |
char ifile[256], ofile[256], efile[256]; |
2089 |
char *comname = 0; |
char *comname = 0; |
2090 |
char procname[100]; |
char procname[100]; |
2091 |
|
int in_string; |
2092 |
|
|
2093 |
/* Parse IO redirection. */ |
/* Parse IO redirection. */ |
2094 |
|
|
2110 |
pnamedsc.dsc$b_dtype = DSC$K_DTYPE_T; |
pnamedsc.dsc$b_dtype = DSC$K_DTYPE_T; |
2111 |
pnamedsc.dsc$b_class = DSC$K_CLASS_S; |
pnamedsc.dsc$b_class = DSC$K_CLASS_S; |
2112 |
|
|
2113 |
|
in_string = 0; |
2114 |
/* Handle comments and redirection. */ |
/* Handle comments and redirection. */ |
2115 |
for (p = argv, q = cmd; *p; p++, q++) |
for (p = argv, q = cmd; *p; p++, q++) |
2116 |
{ |
{ |
2117 |
|
if (*p == '"') |
2118 |
|
in_string = !in_string; |
2119 |
|
if (in_string) |
2120 |
|
{ |
2121 |
|
*q = *p; |
2122 |
|
continue; |
2123 |
|
} |
2124 |
switch (*p) |
switch (*p) |
2125 |
{ |
{ |
2126 |
case '#': |
case '#': |
2176 |
} |
} |
2177 |
} |
} |
2178 |
*q = *p; |
*q = *p; |
2179 |
|
while (isspace ((unsigned char)*--q)) |
2180 |
|
*q = '\0'; |
2181 |
|
|
2182 |
if (strncmp (cmd, "builtin_", 8) == 0) |
if (strncmp (cmd, "builtin_", 8) == 0) |
2183 |
{ |
{ |