X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=vms%2Fvms.c;fp=vms%2Fvms.c;h=0000000000000000000000000000000000000000;hb=dc84183747ce1703eb99685b5dbde1f65a143c06;hp=3383ee9a4e7f78bda48c31ee7917d18d2d81f1ad;hpb=a2016c1de6e4884f6c8ed5cc498f3bf821c25ca4;p=debian%2Fgzip

diff --git a/vms/vms.c b/vms/vms.c
deleted file mode 100644
index 3383ee9..0000000
--- a/vms/vms.c
+++ /dev/null
@@ -1,103 +0,0 @@
-/* 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 <config.h>
-#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 = 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 = 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 = 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;
-}