Imported Upstream version 1.5

[debian/gzip] / vms / vms.c

diff --git a/vms/vms.c b/vms/vms.c
deleted file mode 100644 (file)
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;
-}