/* vms.c -- target dependent functions for VMS * This is free software; you can redistribute it and/or modify it under the * terms of the GNU General Public License, see the file COPYING. * * This file was written by Karl-Jose Filler * and updated by Jean-loup Gailly. */ #include static char **vms_argv = NULL; static int max_files = 10000; struct Str_desc { int length; char *addr; }; vms_expand_args(old_argc, argv) int *old_argc; char **argv[]; { int i; int new_argc = 0; int context, status; char buf[255], *p; vms_argv = (char**)xmalloc((max_files+1)*sizeof(char*)); vms_argv[new_argc++] = **argv; for (i=1; i < *old_argc; i++) { if (*argv[0][i] == '-') { /* switches */ if (new_argc < max_files) { vms_argv[new_argc++] = argv[0][i]; } } else { /* Files */ context = 0; if (find_file_c(argv[0][i], buf, sizeof(buf), &context) & 1 != 1) { /* * Wrong file ? * forward it to gzip */ if (new_argc < max_files) { vms_argv[new_argc++] = argv[0][i]; } } else { p = (char*)xmalloc(strlen(buf)+1); strcpy(p, buf); if (new_argc < max_files) { vms_argv[new_argc++] = p; } while (find_file_c(argv[0][i], buf, sizeof(buf), &context) & 1 == 1) { p = (char*)xmalloc(strlen(buf)+1); strcpy(p, buf); if (new_argc < max_files) { vms_argv[new_argc++] = p; } } } } } if (new_argc <= max_files) { *old_argc = new_argc; vms_argv[new_argc] = NULL; *argv = vms_argv; } else { free(vms_argv); /* the expanded file names should also be freed ... */ vms_argv = NULL; max_files = new_argc + 1; vms_expand_args(old_argc, argv); } } int find_file_c(in,out,out_len,context) char *in; char *out; int out_len; int *context; { struct Str_desc in_desc,out_desc; int status; char *p; in_desc.addr = in; in_desc.length = strlen(in); out_desc.addr = out; out_desc.length = out_len; status = lib$find_file(&in_desc,&out_desc,context); p = out_desc.addr; while(*p != ' ') { p++; } *p = 0; return status; }