29 #include <openssl/opensslv.h> 30 #include <openssl/crypto.h> 34 #include <libclidef.h> 39 const struct dsc$descriptor_s * symbol,
40 const struct dsc$descriptor_s *
value,
41 const unsigned long * table_type);
43 int main(
int argc,
char ** argv) {
47 const char * (*ssl_version)(
int t);
51 puts(
"report_openssl_version filename");
55 libptr = dlopen(argv[1], 0);
57 ssl_version = (
const char * (*)(int))dlsym(libptr,
"SSLeay_version");
58 if ((
void *)ssl_version == NULL) {
59 ssl_version = (
const char * (*)(int))dlsym(libptr,
"ssleay_version");
60 if ((
void *)ssl_version == NULL) {
61 ssl_version = (
const char * (*)(int))dlsym(libptr,
"SSLEAY_VERSION");
67 if ((
void *)ssl_version == NULL) {
68 puts(
"Unable to lookup version of OpenSSL");
72 version = ssl_version(SSLEAY_VERSION);
79 struct dsc$descriptor_s symbol_dsc;
80 struct dsc$descriptor_s value_dsc;
81 const unsigned long table_type = LIB$K_CLI_LOCAL_SYM;
83 symbol_dsc.dsc$a_pointer = argv[2];
84 symbol_dsc.dsc$w_length = strlen(argv[2]);
85 symbol_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
86 symbol_dsc.dsc$b_class = DSC$K_CLASS_S;
88 value_dsc.dsc$a_pointer = (
char *)version;
89 value_dsc.dsc$w_length = strlen(version);
90 value_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
91 value_dsc.dsc$b_class = DSC$K_CLASS_S;
93 status = LIB
$SET_SYMBOL(&symbol_dsc, &value_dsc, &table_type);
94 if (!$VMS_STATUS_SUCCESS(status)) {
geometry_msgs::TransformStamped t
unsigned long LIB $SET_SYMBOL(const struct dsc $descriptor_s *symbol, const struct dsc $descriptor_s *value, const unsigned long *table_type)
int main(int argc, char **argv)
UNITTEST_START int * value