2 * Copyright 2016 The OpenSSL Project Authors. All Rights Reserved.
4 * Licensed under the OpenSSL license (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
11 * This program allows for easy execution of programs in the OpenSSL build
12 * directory, in a manner that's similar to how util/shlib_wrap.sh. Simply
13 * take the command you want to execute and prefix that with
14 * 'mcr [.util]shlib_wrap', for example:
16 * $ mcr [.util]shlib_wrap mcr [.apps]openssl s_client -connect www.openssl.org:443
26 #include <lib$routines.h>
28 use File::Spec::Functions qw(rel2abs);
29 our $sv = sprintf "%02d%02d", $config{shlib_major}, $config{shlib_minor};
30 our $pz = $config{pointer_size};
31 our $bldd = rel2abs($config{builddir});
34 /* The logical name table we check and affect */
35 $DESCRIPTOR(lnm_process_table, "LNM$PROCESS_TABLE");
37 /* The first logical name we deal with, the buffer for its old value,
38 * and its temporary new value
40 const $DESCRIPTOR(lnm1, "OSSL$LIBCRYPTO{- $sv -}_SHR{- $pz -}");
41 char lnm1oldbuf[256]; short lnm1oldlen = 0;
42 $DESCRIPTOR(lnm1old, lnm1oldbuf);
43 const $DESCRIPTOR(lnm1new, "{- $bldd -}OSSL$LIBCRYPTO{- $sv -}_SHR{- $pz -}.EXE");
45 /* The second logical name we deal with, the buffer for its old value,
46 * and its temporary new value
48 const $DESCRIPTOR(lnm2, "OSSL$LIBSSL{- $sv -}_SHR{- $pz -}");
49 char lnm2oldbuf[256]; short lnm2oldlen = 0;
50 $DESCRIPTOR(lnm2old, lnm2oldbuf);
51 const $DESCRIPTOR(lnm2new, "{- $bldd -}OSSL$LIBSSL{- $sv -}_SHR{- $pz -}.EXE");
53 /* The foreign command we want to run with the logical names above set
54 * to their temporary values
56 char foreign_cmd_buf[4096]; short foreign_cmd_len = 0;
57 $DESCRIPTOR(foreign_cmd, foreign_cmd_buf);
62 int lnm1status = 0, lnm2status = 0;
64 /* Fetch the command line. lib$get_foreign() is nice enough to
65 * strip away the program name, thus only returning the arguments,
66 * which is exactly what we need.
68 lib$get_foreign(&foreign_cmd, 0, &foreign_cmd_len);
69 foreign_cmd.dsc$w_length = foreign_cmd_len;
72 foreign_cmd_buf[foreign_cmd_len] = '\0';
73 printf("[%d] %s\n\n", foreign_cmd_len, foreign_cmd_buf);
76 /* Fetch the first logical name value and save the status */
77 lnm1status = lib$get_logical(&lnm1, &lnm1old, &lnm1oldlen,
79 if (lnm1status == SS$_NORMAL)
80 lnm1old.dsc$w_length = lnm1oldlen;
81 else if (lnm1status != SS$_NOLOGNAM)
84 /* Fetch the first logical name value and save the status */
85 lnm2status = lib$get_logical(&lnm2, &lnm2old, &lnm2oldlen,
87 if (lnm2status == SS$_NORMAL)
88 lnm2old.dsc$w_length = lnm2oldlen;
89 else if (lnm2status != SS$_NOLOGNAM)
92 /* Set the temporary new values for both logical names */
93 lib$set_logical(&lnm1, &lnm1new, &lnm_process_table);
94 lib$set_logical(&lnm2, &lnm2new, &lnm_process_table);
96 /* Execute the arguments as a command. The better be a command! */
97 status = lib$spawn(&foreign_cmd);
99 /* If the logical names we set had old values, restore them.
100 * Otherwise, simply delete their current values.
102 if (lnm1status == SS$_NORMAL)
103 lib$set_logical(&lnm1, &lnm1old, &lnm_process_table);
105 lib$delete_logical(&lnm1, &lnm_process_table);
106 if (lnm2status == SS$_NORMAL)
107 lib$set_logical(&lnm2, &lnm2old, &lnm_process_table);
109 lib$delete_logical(&lnm2, &lnm_process_table);
111 /* Return the status from the execution of the foreign command */