5 #include <openssl/e_os2.h>
6 #include <openssl/buffer.h>
7 #include <openssl/crypto.h>
9 int main(int argc
, char *argv
[])
11 char *p
, *q
= 0, *program
;
13 p
= strrchr(argv
[0], '/');
15 p
= strrchr(argv
[0], '\\');
16 #ifdef OPENSSL_SYS_VMS
18 p
= strrchr(argv
[0], ']');
24 p
= strrchr(argv
[0], ':');
37 program
= BUF_strdup("(unknown)");
39 program
= OPENSSL_malloc((q
- p
) + 1);
40 strncpy(program
, p
, q
- p
);
41 program
[q
- p
] = '\0';
44 for (p
= program
; *p
; p
++)
45 if (islower((unsigned char)(*p
)))
46 *p
= toupper((unsigned char)(*p
));
48 q
= strstr(program
, "TEST");
49 if (q
> p
&& q
[-1] == '_')
53 printf("No %s support\n", program
);
55 OPENSSL_free(program
);