curl-w32/packages/OS400/curlcl.c

178 lines
4.1 KiB
C

/***************************************************************************
* _ _ ____ _
* Project ___| | | | _ \| |
* / __| | | | |_) | |
* | (__| |_| | _ <| |___
* \___|\___/|_| \_\_____|
*
* Copyright (C) Daniel Stenberg, <daniel@haxx.se>, et al.
*
* This software is licensed as described in the file COPYING, which
* you should have received as part of this distribution. The terms
* are also available at https://curl.se/docs/copyright.html.
*
* You may opt to use, copy, modify, merge, publish, distribute and/or sell
* copies of the Software, and permit persons to whom the Software is
* furnished to do so, under the terms of the COPYING file.
*
* This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
* KIND, either express or implied.
*
* SPDX-License-Identifier: curl
*
*
***************************************************************************/
/* CL interface program to curl cli tool. */
#include <stdio.h>
#include <stdlib.h>
#include <milib.h>
#include <miptrnam.h>
#include <mih/callpgmv.h>
#ifndef CURLPGM
#define CURLPGM "CURL"
#endif
/* Variable-length string, with 16-bit length. */
struct vary2 {
short len;
char string[5000];
};
/* Arguments from CL command. */
struct arguments {
char *pgm; /* Program name. */
struct vary2 *cmdargs; /* Command line arguments. */
};
static int
is_ifs(char c)
{
return c == ' ' || c == '\t' || c == '\r' || c == '\n';
}
static int
parse_command_line(const char *cmdargs, size_t len,
size_t *argc, char **argv,
size_t *argsize, char *argbuf)
{
const char *endline = cmdargs + len;
char quote = '\0';
int inarg = 0;
*argc = 0;
*argsize = 0;
while(cmdargs < endline) {
char c = *cmdargs++;
if(!inarg) {
/* Skip argument separator. */
if(is_ifs(c))
continue;
/* Start a new argument. */
++*argc;
if(argv)
*argv++ = argbuf;
inarg = 1;
}
/* Check for quoting end. */
if(quote && quote == c) {
quote = '\0';
continue;
}
/* Check for backslash-escaping. */
if(quote != '\'' && c == '\\') {
if(cmdargs >= endline) {
fputs("Trailing backslash in command\n", stderr);
return -1;
}
c = *cmdargs++;
}
else if(!quote && is_ifs(c)) { /* Check for end of argument. */
inarg = 0;
c = '\0'; /* Will store a string terminator. */
}
/* Store argument character and count it. */
if(argbuf)
*argbuf++ = c;
++*argsize;
}
if(quote) {
fprintf(stderr, "Unterminated quote: %c\n", quote);
return -1;
}
/* Terminate last argument. */
if(inarg) {
if(argbuf)
*argbuf = '\0';
++*argsize;
}
/* Terminate argument list. */
if(argv)
*argv = NULL;
return 0;
}
int
main(int argsc, struct arguments *args)
{
size_t argc;
char **argv;
size_t argsize;
int i;
int exitcode;
char library[11];
/* Extract current program library name. */
for(i = 0; i < 10; i++) {
char c = args->pgm[i];
if(!c || c == '/')
break;
library[i] = c;
}
library[i] = '\0';
/* Measure arguments size. */
exitcode = parse_command_line(args->cmdargs->string, args->cmdargs->len,
&argc, NULL, &argsize, NULL);
if(!exitcode) {
/* Allocate space for parsed arguments. */
argv = (char **) malloc((argc + 1) * sizeof(*argv) + argsize);
if(!argv) {
fputs("Memory allocation error\n", stderr);
exitcode = -2;
}
else {
_SYSPTR pgmptr = rslvsp(WLI_PGM, (char *) CURLPGM, library, _AUTH_NONE);
_LU_Work_Area_T *luwrka = (_LU_Work_Area_T *) _LUWRKA();
parse_command_line(args->cmdargs->string, args->cmdargs->len,
&argc, argv, &argsize, (char *) (argv + argc + 1));
/* Call program. */
_CALLPGMV((void *) &pgmptr, argv, argc);
exitcode = luwrka->LU_RC;
free(argv);
}
}
return exitcode;
}