• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
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 
main(int argc,char ** argv)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   char tocode[32];
65   char fromcode[32];
66 
67   ebcdic_argc = argc;
68   ebcdic_argv = argv;
69 
70   /* Build the encoding converter. */
71   strncpy(tocode, "IBMCCSID01208", sizeof(tocode));      /* Use UTF-8. */
72   strncpy(fromcode, "IBMCCSID000000000010", sizeof(fromcode));
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 }
122