utils/Install/sfxzip/rexxapi.c

   1 /**********************************************************************
   2 *   REXXAPI.C                                                         *
   3 *                                                                     *
   4 *   This program adds a ZIP engine directly to the REXX language.     *
   5 *   The functions are:                                                *
   6 *       UZDropFuncs         -- Makes all functions in this package    *
   7 *                              unknown to REXX.                       *
   8 *       UZLoadFuncs         -- Makes all functions in this package    *
   9 *                              known to REXX so REXX programs may     *
  10 *                              call them.                             *
  11 *       UZFileTree          -- Searches for files matching a given    *
  12 *                              filespec, including files in           *
  13 *                              subdirectories.                        *
  14 *       UZUnZip             -- Unzip command-line entry point.        *
  15 *                              This is functionally equivalent to     *
  16 *                              using Unzip as an external program.    *
  17 *       UZUnZipToVar            -- Unzip one file to a variable       *
  18 *       UZUnZipToStem       -- Unzip files to a variable array        *
  19 *       UZVer               -- Returns the Unzip version number       *
  20 *                                                                     *
  21 **********************************************************************/
  22 /* Include files */
  23
  24 #ifdef OS2DLL
  25
  26 #define  INCL_DOS
  27 #define  INCL_DOSMEMMGR
  28 #include <string.h>
  29 #include <stdlib.h>
  30 #include <stdio.h>
  31 #include <stdarg.h>
  32
  33 #define UNZIP_INTERNAL
  34 #include "../unzip.h"
  35 #include "../version.h"
  36
  37
  38 /*********************************************************************/
  39 /*  Various definitions used by various functions.                   */
  40 /*********************************************************************/
  41
  42 RexxFunctionHandler UZDropFuncs;
  43 RexxFunctionHandler UZLoadFuncs;
  44 RexxFunctionHandler UZFileTree;
  45 RexxFunctionHandler UZUnZip;
  46 RexxFunctionHandler UZUnZipToVar;
  47 RexxFunctionHandler UZUnZipToStem;
  48 RexxFunctionHandler UZVer;
  49 RexxFunctionHandler UZAPIVer;
  50
  51
  52 int SetOutputVar(__GPRO__ const char *name);
  53 int SetOutputVarStem(__GPRO__ const char *name);
  54 int SetOutputVarLength(__GPRO);
  55 int WriteToVariable(__GPRO__ const char *name, char *buffer, int len);
  56 int PrintToSubVariable(__GPRO__ int idx, const char *format,...);
  57 int PrintToVariable(__GPRO__ const char *name, const char *format,...);
  58 int _PrintToVariable(__GPRO__ const char *name, const char *format, va_list arg_ptr);
  59 int TextSetNext(__GPRO__ char *format, int len, int all);
  60
  61 #define EZRXSTRING(r,p)  {(r).strptr=(PCH)p;(r).strlength=(ULONG)strlen((r).strptr);}
  62
  63
  64 /*********************************************************************/
  65 /* RxFncTable                                                        */
  66 /*   Array of names of the UNZIPAPI functions.                       */
  67 /*   This list is used for registration and deregistration.          */
  68 /*********************************************************************/
  69
  70 static PSZ  RxFncTable[] =
  71    {
  72       "UZDropFuncs",
  73       "UZLoadFuncs",
  74       "UZFileSearch",
  75       "UZFileTree",
  76       "UZUnZip",
  77       "UZUnZipToVar",
  78       "UZUnZipToStem",
  79       "UZVer",
  80    };
  81
  82 /*********************************************************************/
  83 /* Numeric Error Return Strings                                      */
  84 /*********************************************************************/
  85
  86 #define  NO_UTIL_ERROR    "0"          /* No error whatsoever        */
  87 #define  ERROR_NOMEM      "2"          /* Insufficient memory        */
  88
  89 /*********************************************************************/
  90 /* Numeric Return calls                                              */
  91 /*********************************************************************/
  92
  93 #define  INVALID_ROUTINE 40            /* Raise Rexx error           */
  94 #define  VALID_ROUTINE    0            /* Successful completion      */
  95
  96 /*********************************************************************/
  97 /* Some useful macros                                                */
  98 /*********************************************************************/
  99
 100 #define BUILDRXSTRING(t, s) { \
 101   strcpy((t)->strptr,(s));\
 102   (t)->strlength = strlen((s)); \
 103 }
 104
 105
 106 /*********************************************************************/
 107 /****************  UNZIPAPI Supporting Functions  ********************/
 108 /****************  UNZIPAPI Supporting Functions  ********************/
 109 /****************  UNZIPAPI Supporting Functions  ********************/
 110 /*********************************************************************/
 111
 112
 113 int RexxReturn(__GPRO__ int nodefault, RXSTRING *retstr)
 114 {
 115   int ret = G.os2.rexx_error;
 116   if (G.filenotfound)
 117     G.os2.rexx_mes = "file not found";
 118   if (*G.os2.rexx_mes != '0') {
 119     if (retstr->strlength > 255) {
 120       DosFreeMem(retstr->strptr);
 121       retstr->strptr = NULL;
 122     }
 123   } else if (nodefault)
 124     goto noBuild;
 125   BUILDRXSTRING(retstr, G.os2.rexx_mes);
 126  noBuild:
 127   DESTROYGLOBALS();
 128   return ret;
 129 }
 130
 131 /* Get a variable from REXX, return 0 if OK */
 132 int GetVariable(__GPRO__ const char *name)
 133 {
 134   G.os2.request.shvnext = NULL;
 135   EZRXSTRING(G.os2.request.shvname, name);
 136   G.os2.request.shvnamelen = G.os2.request.shvname.strlength;
 137   G.os2.request.shvvalue.strptr = G.os2.buffer;
 138   G.os2.request.shvvalue.strlength = IBUF_LEN;
 139   G.os2.request.shvvaluelen = IBUF_LEN;
 140   G.os2.request.shvcode = RXSHV_SYFET;
 141   G.os2.request.shvret = 0;
 142   switch (RexxVariablePool(&G.os2.request)) {
 143   case RXSHV_MEMFL:
 144     G.os2.rexx_mes = ERROR_NOMEM;
 145     break;
 146   case RXSHV_BADN:
 147   case RXSHV_NEWV:
 148     G.os2.request.shvvaluelen = 0;
 149   case RXSHV_OK:
 150     *(G.os2.buffer+G.os2.request.shvvaluelen) = 0;
 151     return G.os2.request.shvvaluelen;
 152   }
 153   return 0;
 154 }
 155
 156
 157 /* Get REXX compound variable */
 158 /* Stem must exist in G.os2.getvar_buf w/ length in G.os2.getvar_len */
 159 int GetVariableIndex(__GPRO__ int index)
 160 {
 161   sprintf(G.os2.getvar_buf+G.os2.getvar_len,"%d",index);
 162   return GetVariable(__G__ G.os2.getvar_buf);
 163 }
 164
 165
 166 /* Transfer REXX array to standard C string array */
 167 /* Returns number of elements */
 168 /* User is responsible for calling KillStringArray */
 169
 170 int CompoundToStringArray(__GPRO__ char ***pointer, const char *name)
 171 {
 172   int count;
 173   int total;
 174   char **trav;
 175
 176   G.os2.getvar_len = strlen(name);
 177   memcpy(G.os2.getvar_buf,name,G.os2.getvar_len+1);
 178   if (*(G.os2.getvar_buf+G.os2.getvar_len-1) != '.')
 179     *(G.os2.getvar_buf+G.os2.getvar_len++) = '.', *(G.os2.getvar_buf+G.os2.getvar_len) = 0;
 180
 181   if (GetVariableIndex(__G__ 0))
 182     return 0;
 183
 184   total = atoi(G.os2.buffer);
 185   *pointer = (char **)malloc((total+1)<<2);
 186   trav = *pointer;
 187   for (count = 1; count <= total; count++) {
 188     GetVariableIndex(__G__ count);
 189     trav[count-1] = (char *)malloc(strlen(G.os2.buffer)+1);
 190     strcpy(trav[count-1],G.os2.buffer);
 191   }
 192   trav[count-1] = NULL;
 193   return total;
 194 }
 195
 196
 197 /* Kill string array created by CompoundToStringArray */
 198
 199 void KillStringArray(char **pointer)
 200 {
 201   char **trav=pointer;
 202   while (*trav != NULL) {
 203     free(*trav);
 204     trav++;
 205   }
 206   free(pointer);
 207 }
 208
 209
 210 /*************************************************************************
 211 * Function:  UZDropFuncs                                                 *
 212 *                                                                        *
 213 * Syntax:    call UZDropFuncs                                            *
 214 *                                                                        *
 215 * Return:    NO_UTIL_ERROR - Successful.                                 *
 216 *************************************************************************/
 217
 218 ULONG UZDropFuncs(CHAR *name, ULONG numargs, RXSTRING args[],
 219                   CHAR *queuename, RXSTRING *retstr)
 220 {
 221   INT     entries;                     /* Num of entries             */
 222   INT     j;                           /* Counter                    */
 223
 224   if (numargs != 0)                    /* no arguments for this      */
 225     return INVALID_ROUTINE;            /* raise an error             */
 226
 227   retstr->strlength = 0;               /* return a null string result*/
 228
 229   entries = sizeof(RxFncTable)/sizeof(PSZ);
 230
 231   for (j = 0; j < entries; j++)
 232     RexxDeregisterFunction(RxFncTable[j]);
 233
 234   return VALID_ROUTINE;                /* no error on call           */
 235 }
 236
 237
 238 /*************************************************************************
 239 * Function:  UZFileTree                                                  *
 240 *                                                                        *
 241 * Syntax:    call UZFileTree zipfile, stem[, include-filespec]           *
 242 *                                [, exclude-filespec][, options]         *
 243 *                                                                        *
 244 * Params:    zipfile  - Name of zip file to search.                      *
 245 *            stem     - Name of stem var to store results in.            *
 246 *            include  - Filespec to search for (may include * and ?).    *
 247 *            exclude  - Filespec to exclude (may include * and ?).       *
 248 *            options  - Either of the following:                         *
 249 *                       'F' - Give file statistics.                      *
 250 *                          Length Date Time Name                         *
 251 *                       'Z' - Give zip statistics, too.                  *
 252 *                          Length Method Size Ratio Date Time CRC-32 Name*
 253 *                       Default is to return only filenames              *
 254 *                                                                        *
 255 * Return:    NO_UTIL_ERROR   - Successful.                               *
 256 *            ERROR_NOMEM     - Out of memory.                            *
 257 *************************************************************************/
 258
 259 ULONG UZFileTree(CHAR *name, ULONG numargs, RXSTRING args[],
 260                  CHAR *queuename, RXSTRING *retstr)
 261 {
 262                                        /* validate arguments         */
 263   char *incname[2];
 264   char *excname[2];
 265   CONSTRUCTGLOBALS();
 266
 267   if (numargs < 2 || numargs > 5 ||
 268       !RXVALIDSTRING(args[0]) ||
 269       !RXVALIDSTRING(args[1]) ||
 270       args[0].strlength > 255) {
 271     DESTROYGLOBALS();
 272     return INVALID_ROUTINE;            /* Invalid call to routine    */
 273   }
 274                                        /* initialize data area       */
 275   SetOutputVarStem(__G__ args[1].strptr);
 276   G.wildzipfn = args[0].strptr;
 277   G.process_all_files = TRUE;
 278
 279   uO.lflag = 1;
 280   uO.zipinfo_mode = TRUE;
 281   uO.C_flag = 1;
 282   G.extract_flag = FALSE;
 283   uO.qflag = 2;
 284
 285   if (numargs >= 3 &&                  /* check third option         */
 286       !RXNULLSTRING(args[2]) &&
 287       args[2].strlength > 0) {            /* a zero length string isn't */
 288     if (!(G.filespecs = CompoundToStringArray(__G__ &G.pfnames,args[2].strptr))) {
 289       G.pfnames = incname;
 290       incname[0] = args[2].strptr;
 291       incname[1] = NULL;
 292       G.filespecs = 1;
 293     }
 294     G.process_all_files = FALSE;
 295   }
 296
 297   if (numargs >= 4 &&                  /* check third option         */
 298       !RXNULLSTRING(args[3]) &&
 299       args[3].strlength > 0) {            /* a zero length string isn't */
 300     if (!(G.xfilespecs = CompoundToStringArray(__G__ &G.pxnames,args[3].strptr))) {
 301       G.pxnames = excname;
 302       excname[0] = args[3].strptr;
 303       excname[1] = NULL;
 304       G.xfilespecs = 1;
 305     }
 306     G.process_all_files = FALSE;
 307   }
 308
 309   if (numargs == 5 &&                  /* check third option         */
 310       !RXNULLSTRING(args[4]) &&
 311       args[4].strlength > 0) {            /* a zero length string isn't */
 312     int first = *args[4].strptr & 0x5f;
 313
 314     if (first == 'Z')
 315       uO.vflag = 2, uO.lflag = 0, uO.zipinfo_mode = FALSE;
 316     else if (first == 'F')
 317       uO.vflag = 1, uO.lflag = 0, uO.zipinfo_mode = FALSE;
 318   }
 319
 320   process_zipfiles(__G);
 321   SetOutputVarLength(__G);
 322   if (G.filespecs > 0 && G.pfnames != incname)
 323     KillStringArray(G.pfnames);
 324   if (G.xfilespecs > 0 && G.pxnames != excname)
 325     KillStringArray(G.pxnames);
 326   return RexxReturn(__G__ 0,retstr);        /* no error on call           */
 327 }
 328
 329
 330 /*************************************************************************
 331 * Function:  UZUnZipToVar                                                *
 332 *                                                                        *
 333 * Syntax:    call UZUnZipToVar zipfile, filespec [, stem]                *
 334 *                                                                        *
 335 * Params:    zipfile  - Name of zip file to search.                      *
 336 *            filespec - File to extract                                  *
 337 *            stem     - If you specify a stem variable, the file will be *
 338 *                       extracted to the variable, one line per index    *
 339 *                       In this case, 0 will be returned                 *
 340 *                                                                        *
 341 * Return:    Extracted file                                              *
 342 *            ERROR_NOMEM     - Out of memory.                            *
 343 *************************************************************************/
 344
 345 ULONG UZUnZipToVar(CHAR *name, ULONG numargs, RXSTRING args[],
 346                           CHAR *queuename, RXSTRING *retstr)
 347 {
 348   CONSTRUCTGLOBALS();
 349   UzpBuffer *ub = (UzpBuffer *)retstr;
 350                                        /* validate arguments         */
 351   if (numargs < 2 || numargs > 3 ||
 352       !RXVALIDSTRING(args[0]) ||
 353       !RXVALIDSTRING(args[1]) ||
 354       args[0].strlength == 0 ||
 355       args[1].strlength == 0) {
 356     DESTROYGLOBALS();
 357     return INVALID_ROUTINE;            /* Invalid call to routine    */
 358   }
 359
 360   uO.C_flag = 1;
 361   G.redirect_data=1;
 362   if (numargs == 3) {
 363     if (!RXVALIDSTRING(args[2]) ||
 364         RXNULLSTRING(args[1]) ||
 365         args[2].strlength == 0) {
 366       DESTROYGLOBALS();
 367       return INVALID_ROUTINE;            /* Invalid call to routine    */
 368     }
 369     SetOutputVarStem(__G__ args[2].strptr);
 370     G.redirect_text = 0;
 371     G.redirect_data++;
 372   }
 373   unzipToMemory(__G__ args[0].strptr, args[1].strptr,
 374                 G.redirect_data==1 ? ub : NULL);
 375   return RexxReturn(__G__ G.redirect_data==1,retstr);
 376 }
 377
 378
 379 /*************************************************************************
 380 * Function:  UZUnZipToStem                                               *
 381 *                                                                        *
 382 * Syntax:    call UZUnZipToStem zipfile, stem[, include-filespec]        *
 383 *                                [, exclude-filespec][, mode]            *
 384 *                                                                        *
 385 * Params:    zipfile  - Name of zip file to search.                      *
 386 *            stem     - Name of stem var to store files in.              *
 387 *            include  - Filespec to search for (may include * and ?).    *
 388 *            exclude  - Filespec to exclude (may include * and ?).       *
 389 *            mode     - Specifies 'F'lat or 'T'ree mode.  Umm, this is   *
 390 *                        hard to explain so I'll give an example, too.   *
 391 *                       Assuming a file unzip.zip containing:            *
 392 *                               unzip.c                                  *
 393 *                               unshrink.c                               *
 394 *                               extract.c                                *
 395 *                               os2/makefile.os2                         *
 396 *                               os2/os2.c                                *
 397 *                               os2/dll/dll.def                          *
 398 *                               os2/dll/unzipapi.c                       *
 399 *                                                                        *
 400 *                       -- In flat mode, each file is stored in          *
 401 *                          stem.fullname i.e. stem."os2/dll/unzipapi.c"  *
 402 *                          A list of files is created in stem.<index>    *
 403 *                                                                        *
 404 *                       Flat mode returns:                               *
 405 *                               stem.0 = 7                               *
 406 *                               stem.1 = unzip.c                         *
 407 *                               stem.2 = unshrink.c                      *
 408 *                               stem.3 = extract.c                       *
 409 *                               stem.4 = os2/makefile.os2                *
 410 *                               stem.5 = os2/os2.c                       *
 411 *                               stem.6 = os2/dll/dll.def                 *
 412 *                               stem.7 = os2/dll/unzipapi.c              *
 413 *                                                                        *
 414 *                       And the following contain the contents of the    *
 415 *                       various programs:                                *
 416 *                               stem.unzip.c                             *
 417 *                               stem.unshrink.c                          *
 418 *                               stem.extract.c                           *
 419 *                               stem.os2/makefile.os2                    *
 420 *                               stem.os2/os2.c                           *
 421 *                               stem.os2/dll/dll.def                     *
 422 *                               stem.os2/dll/unzipapi.c                  *
 423 *                                                                        *
 424 *                       -- In tree mode, slashes are converted to periods*
 425 *                          in the pathname thus the above file would have*
 426 *                          been stored in stem.os2.dll.unzipapi.c        *
 427 *                          The index would then be stored in stem.OS2.   *
 428 *                          DLL.<index>.                                  *
 429 *                                                                        *
 430 *                       NOTE: All path names are converted to uppercase  *
 431 *                                                                        *
 432 *                       Tree mode returns:                               *
 433 *                               stem.0 = 4                               *
 434 *                               stem.1 = unzip.c                         *
 435 *                               stem.2 = unshrink.c                      *
 436 *                               stem.3 = extract.c                       *
 437 *                               stem.4 = OS2/                            *
 438 *                                                                        *
 439 *                               stem.OS2.0 = 3                           *
 440 *                               stem.OS2.1 = makefile.os2                *
 441 *                               stem.OS2.2 = os2.c                       *
 442 *                               stem.OS2.3 = DLL/                        *
 443 *                                                                        *
 444 *                               stem.OS2.DLL.0 = 2                       *
 445 *                               stem.OS2.DLL.1 = def                     *
 446 *                               stem.OS2.DLL.2 = unzipapi.c              *
 447 *                                                                        *
 448 *                       And the following contain the contents of the    *
 449 *                       various programs:                                *
 450 *                               stem.unzip.c                             *
 451 *                               stem.unshrink.c                          *
 452 *                               stem.extract.c                           *
 453 *                               stem.OS2.makefile.os2                    *
 454 *                               stem.OS2.os2.c                           *
 455 *                               stem.OS2.DLL.dll.def                     *
 456 *                               stem.OS2.DLL.unzipapi.c                  *
 457 *                                                                        *
 458 *                                                                        *
 459 * Return:    NO_UTIL_ERROR   - Successful.                               *
 460 *            ERROR_NOMEM     - Out of memory.                            *
 461 *************************************************************************/
 462
 463 ULONG UZUnZipToStem(CHAR *name, ULONG numargs, RXSTRING args[],
 464                           CHAR *queuename, RXSTRING *retstr)
 465 {
 466   char *incname[2];
 467   char *excname[2];
 468   CONSTRUCTGLOBALS();
 469                                        /* validate arguments         */
 470   if (numargs < 2 || numargs > 5 ||
 471       !RXVALIDSTRING(args[0]) ||
 472       !RXVALIDSTRING(args[1]) ||
 473       args[0].strlength > 255) {
 474     DESTROYGLOBALS();
 475     return INVALID_ROUTINE;            /* Invalid call to routine    */
 476   }
 477                                        /* initialize data area       */
 478   G.wildzipfn = args[0].strptr;
 479   G.process_all_files = TRUE;
 480
 481   uO.C_flag = 1;
 482   G.extract_flag = TRUE;
 483   SetOutputVarStem(__G__ args[1].strptr);
 484   G.redirect_data = 3;
 485   G.redirect_text = 0;
 486
 487   if (numargs >= 3 &&                  /* check third option         */
 488       !RXNULLSTRING(args[2]) &&
 489       args[2].strlength > 0) {            /* a zero length string isn't */
 490     if (!(G.filespecs = CompoundToStringArray(__G__ &G.pfnames,args[2].strptr))) {
 491       G.pfnames = incname;
 492       incname[0] = args[2].strptr;
 493       incname[1] = NULL;
 494       G.filespecs = 1;
 495     }
 496     G.process_all_files = FALSE;
 497   }
 498
 499   if (numargs >= 4 &&                  /* check third option         */
 500       !RXNULLSTRING(args[3]) &&
 501       args[3].strlength > 0) {            /* a zero length string isn't */
 502     if (!(G.xfilespecs = CompoundToStringArray(__G__ &G.pxnames,args[3].strptr))) {
 503       G.pxnames = excname;
 504       excname[0] = args[3].strptr;
 505       excname[1] = NULL;
 506       G.xfilespecs = 1;
 507     }
 508     G.process_all_files = FALSE;
 509   }
 510
 511   if (numargs == 5 &&                  /* check third option         */
 512       !RXNULLSTRING(args[4]) &&
 513       (*args[4].strptr & 0x5f) == 'T') {
 514     G.redirect_data++;
 515     G.os2.request.shvnext = NULL;
 516     EZRXSTRING(G.os2.request.shvname, args[4].strptr);
 517     G.os2.request.shvnamelen = G.os2.request.shvname.strlength;
 518     G.os2.request.shvcode = RXSHV_SYDRO;
 519     G.os2.request.shvret = 0;
 520     RexxVariablePool(&G.os2.request);
 521   }
 522
 523
 524   uO.qflag = 2;
 525
 526   process_zipfiles(__G);
 527   if (G.filespecs > 0 && G.pfnames != incname)
 528     KillStringArray(G.pfnames);
 529   if (G.xfilespecs > 0 && G.pxnames != excname)
 530     KillStringArray(G.pxnames);
 531   if (G.redirect_data == 3)
 532     SetOutputVarLength(__G);
 533   return RexxReturn(__G__ 0,retstr);            /* no error on call           */
 534 }
 535
 536
 537 /*************************************************************************
 538 * Function:  UZLoadFuncs                                                 *
 539 *                                                                        *
 540 * Syntax:    call UZLoadFuncs [option]                                   *
 541 *                                                                        *
 542 * Params:    none                                                        *
 543 *                                                                        *
 544 * Return:    null string                                                 *
 545 *************************************************************************/
 546
 547 ULONG UZLoadFuncs(CHAR *name, ULONG numargs, RXSTRING args[],
 548                            CHAR *queuename, RXSTRING *retstr)
 549 {
 550   INT    entries;                      /* Num of entries             */
 551   INT    j;                            /* Counter                    */
 552
 553   retstr->strlength = 0;               /* set return value           */
 554                                        /* check arguments            */
 555   if (numargs > 0)
 556     return INVALID_ROUTINE;
 557
 558   entries = sizeof(RxFncTable)/sizeof(PSZ);
 559
 560   for (j = 0; j < entries; j++) {
 561     RexxRegisterFunctionDll(RxFncTable[j],
 562           "UNZIP32", RxFncTable[j]);
 563   }
 564   return VALID_ROUTINE;
 565 }
 566
 567
 568
 569 /*************************************************************************
 570 * Function:  UZVer                                                       *
 571 *                                                                        *
 572 * Syntax:    call UZVer                                                  *
 573 *                                                                        *
 574 * Return:    Version of Unzip                                            *
 575 *************************************************************************/
 576
 577 ULONG UZVer(CHAR *name, ULONG numargs, RXSTRING args[],
 578                         CHAR *queuename, RXSTRING *retstr)
 579 {
 580   if (numargs > 1)                    /* validate arg count         */
 581     return INVALID_ROUTINE;
 582
 583   if (numargs == 0 || (*args[0].strptr & 0x5f) != 'L')
 584     /* strcpy( retstr->strptr, UZ_VERNUM );    "5.13a BETA" */
 585     sprintf( retstr->strptr, "%d.%d%d%s", UZ_MAJORVER, UZ_MINORVER,
 586       PATCHLEVEL, BETALEVEL );
 587   else
 588     /* strcpy( retstr->strptr, UZ_VERSION );   UZ_VERNUM" of 26 Sep 94" */
 589     sprintf( retstr->strptr, "%d.%d%d%s of %s", UZ_MAJORVER, UZ_MINORVER,
 590       PATCHLEVEL, BETALEVEL, VERSION_DATE );
 591   retstr->strlength = strlen(retstr->strptr);
 592   return VALID_ROUTINE;
 593 }
 594
 595
 596 /*************************************************************************
 597 * Function:  UZUnZip                                                     *
 598 *                                                                        *
 599 * Syntax:    call UZUnZip                                                *
 600 *                                                                        *
 601 * Return:    Unzip return code                                           *
 602 *************************************************************************/
 603
 604 ULONG UZUnZip(CHAR *name, ULONG numargs, RXSTRING args[],
 605                         CHAR *queuename, RXSTRING *retstr)
 606 {
 607   char *argv[30];
 608   char *scan;
 609   int argc=0;
 610   int idx;
 611   CONSTRUCTGLOBALS();
 612
 613   if (numargs < 1 || numargs > 2 ||
 614       args[0].strlength > 255) {
 615     DESTROYGLOBALS();
 616     return INVALID_ROUTINE;            /* Invalid call to routine    */
 617   }
 618                                        /* initialize data area       */
 619   if (numargs == 2)
 620     SetOutputVarStem(__G__ args[1].strptr);
 621
 622   scan = args[0].strptr;
 623   argv[argc++] = "";         /* D:\\SOURCECODE\\UNZIP51S\\UNZIP.COM"; */
 624   while (*scan == ' ')
 625     scan++;
 626   argv[argc++] = scan;
 627   while ( (scan = strchr(scan,' ')) != NULL) {
 628     *scan++ = 0;
 629     while (*scan == ' ')
 630       scan++;
 631     argv[argc++] = scan;
 632   }
 633   if (*argv[argc-1] == 0)
 634     argc--;
 635   argv[argc] = 0;
 636
 637          /* GRR:  should resetMainFlags() be called in here somewhere? */
 638
 639   sprintf(retstr->strptr, "%d", unzip(__G__ argc, argv));   /* a.k.a. MAIN() */
 640   if (numargs == 2)
 641     SetOutputVarLength(__G);
 642   retstr->strlength = strlen(retstr->strptr);
 643   return RexxReturn(__G__ 1,retstr);
 644 }
 645
 646 int varmessage(__GPRO__ uch *buf, ulg size)
 647 {
 648   if (size > 0)
 649     memcpy(G.os2.buffer+G.os2.putchar_idx,buf,size);
 650     G.os2.putchar_idx = TextSetNext(__G__ G.os2.buffer, size+G.os2.putchar_idx,0);
 651   return 0;
 652 }
 653
 654 int varputchar(__GPRO__ int c)
 655 {
 656   G.os2.buffer[G.os2.putchar_idx++] = c;
 657   if (c == '\n') {
 658     G.os2.buffer[G.os2.putchar_idx] = 0;
 659     if (G.os2.output_var[0])
 660       G.os2.putchar_idx = TextSetNext(__G__ G.os2.buffer, G.os2.putchar_idx,0);
 661     else {
 662       G.os2.buffer[--G.os2.putchar_idx] = 0;
 663       puts(G.os2.buffer);
 664       G.os2.putchar_idx = 0;
 665     }
 666   }
 667   return 1;
 668 }
 669
 670
 671
 672 int SetOutputVarStem(__GPRO__ const char *name)
 673 {
 674   int len=strlen(name);
 675   G.redirect_text=1;
 676   G.os2.output_idx = 0;
 677   strcpy(G.os2.output_var, name);
 678   if (len) {
 679     strupr(G.os2.output_var);                 /* uppercase the name         */
 680     if (*(G.os2.output_var+len-1) != '.') {
 681       *(G.os2.output_var+len) = '.';
 682       len++;
 683       *(G.os2.output_var+len) = 0;
 684     }
 685     WriteToVariable(__G__ G.os2.output_var,"",0);
 686   }
 687   G.os2.stem_len = len;
 688   return G.os2.stem_len;
 689 }
 690
 691 int SetOutputVar(__GPRO__ const char *name)
 692 {
 693   int len=strlen(name);
 694   G.redirect_text=1;
 695   G.os2.output_idx = 0;
 696   strcpy(G.os2.output_var, name);
 697   strupr(G.os2.output_var);                 /* uppercase the name         */
 698   if (*(name+len-1) == '.')
 699     G.os2.stem_len = len;
 700   else
 701     G.os2.stem_len = 0;
 702   return G.os2.stem_len;
 703 }
 704
 705 int SetOutputVarLength(__GPRO)
 706 {
 707   if (G.os2.stem_len > 0) {
 708     if (G.os2.putchar_idx)
 709       TextSetNext(__G__ G.os2.buffer,G.os2.putchar_idx,1);
 710     return PrintToSubVariable(__G__ 0,"%d",G.os2.output_idx);
 711   }
 712   return 0;
 713 }
 714
 715 int PrintToVariable(__GPRO__ const char *name, const char *format,...)
 716 {
 717   va_list arg_ptr;
 718   int ret;
 719
 720   va_start(arg_ptr, format);
 721   ret = _PrintToVariable(__G__ name, format, arg_ptr);
 722   va_end(arg_ptr);
 723   return ret;
 724 }
 725
 726 int WriteToVariable(__GPRO__ const char *name, char *buffer, int len)
 727 {
 728   G.os2.request.shvnext = NULL;
 729   EZRXSTRING(G.os2.request.shvname, name);
 730   G.os2.request.shvnamelen = G.os2.request.shvname.strlength;
 731   G.os2.request.shvvalue.strptr = buffer;
 732   G.os2.request.shvvalue.strlength = len;
 733   G.os2.request.shvvaluelen = len;
 734   G.os2.request.shvcode = RXSHV_SET;
 735   G.os2.request.shvret = 0;
 736   switch (RexxVariablePool(&G.os2.request)) {
 737   case RXSHV_BADN:
 738     G.os2.rexx_error = INVALID_ROUTINE;
 739     break;
 740   case RXSHV_MEMFL:
 741     G.os2.rexx_mes = ERROR_NOMEM;
 742     break;
 743   case RXSHV_OK:
 744     return 0;
 745   }
 746   return INVALID_ROUTINE;      /* error on non-zero          */
 747 }
 748
 749 int _PrintToVariable(__GPRO__ const char *name, const char *format, va_list arg_ptr)
 750 {
 751   int ret = vsprintf(G.os2.buffer, format, arg_ptr);
 752   WriteToVariable(__G__ name, G.os2.buffer, strlen(G.os2.buffer));
 753   return ret;
 754 }
 755
 756 int PrintToSubVariable(__GPRO__ int idx, const char *format, ...)
 757 {
 758   va_list arg_ptr;
 759   int ret;
 760
 761   if (G.os2.stem_len == 0)
 762     return INVALID_ROUTINE;      /* error on non-zero          */
 763   sprintf(G.os2.output_var+G.os2.stem_len,"%d",idx);
 764
 765   va_start(arg_ptr, format);
 766   ret = _PrintToVariable(__G__ G.os2.output_var, format, arg_ptr);
 767   va_end(arg_ptr);
 768   return ret;
 769 }
 770
 771
 772 int WriteToNextVariable(__GPRO__ char *buffer, int len)
 773 {
 774   if (G.os2.stem_len > 0) {
 775     G.os2.output_idx++;
 776     sprintf(G.os2.output_var+G.os2.stem_len,"%d",G.os2.output_idx);
 777   }
 778   return WriteToVariable(__G__ G.os2.output_var, buffer, len);
 779 }
 780
 781
 782 int TextSetNext(__GPRO__ char *buffer, int len, int all)
 783 {
 784   char *scan = buffer, *next, *base=buffer;
 785   int remaining=len;
 786   int ret;
 787
 788   while ((next = strchr(scan,'\n')) != NULL && remaining > 0) {
 789     if (next > scan && *(next-1) == 0xd)
 790       *(next-1) = 0;
 791     else
 792       *next = 0;
 793     if (WriteToNextVariable(__G__ scan,strlen(scan)))
 794       return 0;
 795     next++;
 796     remaining -= (next-scan);
 797     scan = next;
 798   }
 799   if (remaining > 0)
 800     if (all) {
 801       *(scan+remaining) = 0;
 802       WriteToNextVariable(__G__ scan,remaining);
 803     } else {
 804       memcpy(buffer,scan,remaining);
 805       return remaining;
 806     }
 807
 808   return 0;
 809 }
 810
 811 int finish_REXX_redirect(__GPRO)
 812 {
 813   char *scan, *ptr;
 814   int idx=0, first=1, offset;
 815
 816   if (!G.redirect_size)
 817     return 0;
 818   switch(G.redirect_data) {
 819   case 1:
 820     break;
 821   case 2:
 822     TextSetNext(__G__ G.redirect_buffer, G.redirect_size, 1);
 823     SetOutputVarLength(__G);
 824     DosFreeMem(G.redirect_buffer);
 825     G.redirect_buffer = NULL;
 826     G.redirect_size = 0;
 827     break;
 828   case 3:
 829     WriteToNextVariable(__G__ G.filename,strlen(G.filename));
 830     sprintf(G.os2.output_var+G.os2.stem_len,G.filename);
 831     WriteToVariable(__G__ G.os2.output_var, G.redirect_buffer, G.redirect_size);
 832     DosFreeMem(G.redirect_buffer);
 833     G.redirect_buffer = NULL;
 834     G.redirect_size = 0;
 835     break;
 836   case 4:
 837     if ((scan = strrchr(G.filename,'/')) != NULL) {
 838       idx = *scan;
 839       *scan = 0;
 840       strupr(G.filename);
 841       *scan = idx;
 842     }
 843     scan = G.os2.output_var+G.os2.stem_len;
 844     strcpy(scan,G.filename);
 845     while ((scan = strchr(scan,'/')) != NULL)
 846       *scan = '.';
 847     WriteToVariable(__G__ G.os2.output_var, G.redirect_buffer, G.redirect_size);
 848     DosFreeMem(G.redirect_buffer);
 849     G.redirect_buffer = NULL;
 850     G.redirect_size = 0;
 851     strcpy(G.os2.getvar_buf, G.os2.output_var);
 852     do {
 853       if ((scan = strrchr(G.filename,'/')) == NULL)
 854         offset = 0;
 855       else
 856         offset = scan-G.filename+1;
 857       if (first || !GetVariable(__G__ G.os2.output_var)) {
 858         ptr = G.os2.getvar_buf+offset+G.os2.stem_len;
 859         *ptr = '0';
 860         *(ptr+1) = 0;
 861         if (!GetVariable(__G__ G.os2.getvar_buf))
 862           idx = 1;
 863         else
 864           idx = atoi(G.os2.buffer)+1;
 865         PrintToVariable(__G__ G.os2.getvar_buf,"%d",idx);
 866         sprintf(ptr,"%d",idx);
 867         if (!first) {
 868           PrintToVariable(__G__ G.os2.output_var,"%d",idx);
 869           idx = strlen(G.filename);
 870           *(G.filename+idx)   = '/';
 871           *(G.filename+idx+1) = 0;
 872         }
 873         WriteToVariable(__G__ G.os2.getvar_buf,G.filename+offset,strlen(G.filename+offset));
 874         first=0;
 875       }
 876       if (offset) {
 877         *(G.os2.output_var+G.os2.stem_len+offset-1)   = 0;
 878         *scan = 0;
 879       }
 880     } while (offset);
 881     break;
 882   }
 883   return 0;
 884 }
 885
 886 #endif /* OS2DLL */