/* 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 <pla_jfi@pki-nbg.philips.de> * and updated by Jean-loup Gailly. */#include <stdio.h>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;}