xref: /freebsd/crypto/openssl/apps/lib/vms_decc_argv.c (revision b077aed33b7b6aefca7b17ddb250cf521f938613)
1  /*
2   * Copyright 2015-2021 The OpenSSL Project Authors. All Rights Reserved.
3   *
4   * Licensed under the Apache License 2.0 (the "License").  You may not use
5   * this file except in compliance with the License.  You can obtain a copy
6   * in the file LICENSE in the source distribution or at
7   * https://www.openssl.org/source/license.html
8   */
9  
10  #include <stdlib.h>
11  #include <openssl/crypto.h>
12  #include "platform.h"            /* for copy_argv() */
13  
14  char **newargv = NULL;
15  
cleanup_argv(void)16  static void cleanup_argv(void)
17  {
18      OPENSSL_free(newargv);
19      newargv = NULL;
20  }
21  
copy_argv(int * argc,char * argv[])22  char **copy_argv(int *argc, char *argv[])
23  {
24      /*-
25       * The note below is for historical purpose.  On VMS now we always
26       * copy argv "safely."
27       *
28       * 2011-03-22 SMS.
29       * If we have 32-bit pointers everywhere, then we're safe, and
30       * we bypass this mess, as on non-VMS systems.
31       * Problem 1: Compaq/HP C before V7.3 always used 32-bit
32       * pointers for argv[].
33       * Fix 1: For a 32-bit argv[], when we're using 64-bit pointers
34       * everywhere else, we always allocate and use a 64-bit
35       * duplicate of argv[].
36       * Problem 2: Compaq/HP C V7.3 (Alpha, IA64) before ECO1 failed
37       * to NULL-terminate a 64-bit argv[].  (As this was written, the
38       * compiler ECO was available only on IA64.)
39       * Fix 2: Unless advised not to (VMS_TRUST_ARGV), we test a
40       * 64-bit argv[argc] for NULL, and, if necessary, use a
41       * (properly) NULL-terminated (64-bit) duplicate of argv[].
42       * The same code is used in either case to duplicate argv[].
43       * Some of these decisions could be handled in preprocessing,
44       * but the code tends to get even uglier, and the penalty for
45       * deciding at compile- or run-time is tiny.
46       */
47  
48      int i, count = *argc;
49      char **p = newargv;
50  
51      cleanup_argv();
52  
53      /*
54       * We purposefully use OPENSSL_malloc() rather than app_malloc() here,
55       * to avoid symbol name clashes in test programs that would otherwise
56       * get them when linking with all of libapps.a.
57       * See comment in test/build.info.
58       */
59      newargv = OPENSSL_malloc(sizeof(*newargv) * (count + 1));
60      if (newargv == NULL)
61          return NULL;
62  
63      /* Register automatic cleanup on first use */
64      if (p == NULL)
65          OPENSSL_atexit(cleanup_argv);
66  
67      for (i = 0; i < count; i++)
68          newargv[i] = argv[i];
69      newargv[i] = NULL;
70      *argc = i;
71      return newargv;
72  }
73