1  /**
  2  ***     QADRT/QADRTMAIN2 substitution program.
  3  ***     This is needed because the IBM-provided QADRTMAIN2 does not
  4  ***     properly translate arguments by default or if no locale is provided.
  5  ***
  6  ***     See Copyright for the status of this software.
  7  ***
  8  ***     Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
  9  **/
 10  
 11  #include <stdlib.h>
 12  #include <string.h>
 13  #include <iconv.h>
 14  #include <errno.h>
 15  #include <locale.h>
 16  
 17  /* Do not use qadrt.h since it defines unneeded static procedures. */
 18  extern void     QadrtInit(void);
 19  extern int      QadrtFreeConversionTable(void);
 20  extern int      QadrtFreeEnviron(void);
 21  extern char *   setlocale_a(int, const char *);
 22  
 23  
 24  /* The ASCII main program. */
 25  extern int      main_a(int argc, char * * argv);
 26  
 27  /* Global values of original EBCDIC arguments. */
 28  int             ebcdic_argc;
 29  char * *        ebcdic_argv;
 30  
 31  
 32  int
 33  main(int argc, char * * argv)
 34  
 35  {
 36          int i;
 37          int j;
 38          iconv_t cd;
 39          size_t bytecount = 0;
 40          char * inbuf;
 41          char * outbuf;
 42          size_t inbytesleft;
 43          size_t outbytesleft;
 44          char dummybuf[128];
 45          char tocode[32];
 46          char fromcode[32];
 47  
 48          ebcdic_argc = argc;
 49          ebcdic_argv = argv;
 50  
 51          /* Build the encoding converter. */
 52          strncpy(tocode, "IBMCCSID01208", sizeof tocode);
 53          strncpy(fromcode, "IBMCCSID000000000010", sizeof fromcode);
 54          cd = iconv_open(tocode, fromcode);
 55  
 56          /* Measure the arguments. */
 57          for (i = 0; i < argc; i++) {
 58                  inbuf = argv[i];
 59                  do {
 60                          inbytesleft = 0;
 61                          outbuf = dummybuf;
 62                          outbytesleft = sizeof dummybuf;
 63                          j = iconv(cd,
 64                                    &inbuf, &inbytesleft, &outbuf, &outbytesleft);
 65                          bytecount += outbuf - dummybuf;
 66                  } while (j == -1 && errno == E2BIG);
 67                  /* Reset the shift state. */
 68                  iconv(cd, NULL, &inbytesleft, &outbuf, &outbytesleft);
 69                  }
 70  
 71          /* Allocate memory for the ASCII arguments and vector. */
 72          argv = (char * *) malloc((argc + 1) * sizeof *argv + bytecount);
 73  
 74          /* Build the vector and convert argument encoding. */
 75          outbuf = (char *) (argv + argc + 1);
 76          outbytesleft = bytecount;
 77  
 78          for (i = 0; i < argc; i++) {
 79                  argv[i] = outbuf;
 80                  inbuf = ebcdic_argv[i];
 81                  inbytesleft = 0;
 82                  iconv(cd, &inbuf, &inbytesleft, &outbuf, &outbytesleft);
 83                  iconv(cd, NULL, &inbytesleft, &outbuf, &outbytesleft);
 84                  }
 85  
 86          iconv_close(cd);
 87          argv[argc] = NULL;
 88  
 89          /* Try setting the locale regardless of QADRT_ENV_LOCALE. */
 90          setlocale_a(LC_ALL, "");
 91  
 92          /* Call the program. */
 93          i = main_a(argc, argv);
 94  
 95          /* Clean-up allocated items. */
 96          free((char *) argv);
 97          QadrtFreeConversionTable();
 98          QadrtFreeEnviron();
 99  
100          /* Terminate. */
101          return i;
102  }