quickjs-tart

quickjs-based runtime for wallet-core logic
Log | Files | Refs | README | LICENSE

curlmain.c (3513B)

      1 /***************************************************************************
      2  *                                  _   _ ____  _
      3  *  Project                     ___| | | |  _ \| |
      4  *                             / __| | | | |_) | |
      5  *                            | (__| |_| |  _ <| |___
      6  *                             \___|\___/|_| \_\_____|
      7  *
      8  * Copyright (C) Daniel Stenberg, <daniel@haxx.se>, et al.
      9  *
     10  * This software is licensed as described in the file COPYING, which
     11  * you should have received as part of this distribution. The terms
     12  * are also available at https://curl.se/docs/copyright.html.
     13  *
     14  * You may opt to use, copy, modify, merge, publish, distribute and/or sell
     15  * copies of the Software, and permit persons to whom the Software is
     16  * furnished to do so, under the terms of the COPYING file.
     17  *
     18  * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
     19  * KIND, either express or implied.
     20  *
     21  * SPDX-License-Identifier: curl
     22  *
     23  *
     24  ***************************************************************************/
     25 
     26 /*
     27  * QADRT/QADRTMAIN2 substitution program.
     28  * This is needed because the IBM-provided QADRTMAIN2 does not
     29  * properly translate arguments by default or if no locale is provided.
     30  */
     31 
     32 #include <stdlib.h>
     33 #include <string.h>
     34 #include <iconv.h>
     35 #include <errno.h>
     36 #include <locale.h>
     37 
     38 /* Do not use qadrt.h since it defines unneeded static procedures. */
     39 extern void     QadrtInit(void);
     40 extern int      QadrtFreeConversionTable(void);
     41 extern int      QadrtFreeEnviron(void);
     42 extern char *   setlocale_a(int, const char *);
     43 
     44 
     45 /* The ASCII main program. */
     46 extern int      main_a(int argc, char * * argv);
     47 
     48 /* Global values of original EBCDIC arguments. */
     49 int             ebcdic_argc;
     50 char **         ebcdic_argv;
     51 
     52 
     53 int main(int argc, char **argv)
     54 {
     55   int i;
     56   int j;
     57   iconv_t cd;
     58   size_t bytecount = 0;
     59   char *inbuf;
     60   char *outbuf;
     61   size_t inbytesleft;
     62   size_t outbytesleft;
     63   char dummybuf[128];
     64   /* To/From codes are 32 byte long strings with
     65      reserved fields initialized to ZEROs */
     66   const char tocode[32]   = {"IBMCCSID01208"}; /* Use UTF-8. */
     67   const char fromcode[32] = {"IBMCCSID000000000010"};
     68 
     69   ebcdic_argc = argc;
     70   ebcdic_argv = argv;
     71 
     72   /* Build the encoding converter. */
     73   cd = iconv_open(tocode, fromcode);
     74 
     75   /* Measure the arguments. */
     76   for(i = 0; i < argc; i++) {
     77     inbuf = argv[i];
     78     do {
     79       inbytesleft = 0;
     80       outbuf = dummybuf;
     81       outbytesleft = sizeof(dummybuf);
     82       j = iconv(cd, &inbuf, &inbytesleft, &outbuf, &outbytesleft);
     83       bytecount += outbuf - dummybuf;
     84     } while(j == -1 && errno == E2BIG);
     85 
     86     /* Reset the shift state. */
     87     iconv(cd, NULL, &inbytesleft, &outbuf, &outbytesleft);
     88    }
     89 
     90   /* Allocate memory for the ASCII arguments and vector. */
     91   argv = (char **) malloc((argc + 1) * sizeof(*argv) + bytecount);
     92 
     93   /* Build the vector and convert argument encoding. */
     94   outbuf = (char *) (argv + argc + 1);
     95   outbytesleft = bytecount;
     96 
     97   for(i = 0; i < argc; i++) {
     98     argv[i] = outbuf;
     99     inbuf = ebcdic_argv[i];
    100     inbytesleft = 0;
    101     iconv(cd, &inbuf, &inbytesleft, &outbuf, &outbytesleft);
    102     iconv(cd, NULL, &inbytesleft, &outbuf, &outbytesleft);
    103   }
    104 
    105   iconv_close(cd);
    106   argv[argc] = NULL;
    107 
    108   /* Try setting the locale regardless of QADRT_ENV_LOCALE. */
    109   setlocale_a(LC_ALL, "");
    110 
    111   /* Call the program. */
    112   i = main_a(argc, argv);
    113 
    114   /* Clean-up allocated items. */
    115   free((char *) argv);
    116   QadrtFreeConversionTable();
    117   QadrtFreeEnviron();
    118 
    119   /* Terminate. */
    120   return i;
    121 }