You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
57 lines
1.1 KiB
57 lines
1.1 KiB
#include <stdio.h> |
|
#include <stdlib.h> |
|
#include <string.h> |
|
#include <ctype.h> |
|
#include <openssl/e_os2.h> |
|
#include <openssl/buffer.h> |
|
#include <openssl/crypto.h> |
|
|
|
int main(int argc, char *argv[]) |
|
{ |
|
char *p, *q = 0, *program; |
|
|
|
p = strrchr(argv[0], '/'); |
|
if (!p) |
|
p = strrchr(argv[0], '\\'); |
|
#ifdef OPENSSL_SYS_VMS |
|
if (!p) |
|
p = strrchr(argv[0], ']'); |
|
if (p) |
|
q = strrchr(p, '>'); |
|
if (q) |
|
p = q; |
|
if (!p) |
|
p = strrchr(argv[0], ':'); |
|
q = 0; |
|
#endif |
|
if (p) |
|
p++; |
|
if (!p) |
|
p = argv[0]; |
|
if (p) |
|
q = strchr(p, '.'); |
|
if (p && !q) |
|
q = p + strlen(p); |
|
|
|
if (!p) |
|
program = BUF_strdup("(unknown)"); |
|
else { |
|
program = OPENSSL_malloc((q - p) + 1); |
|
strncpy(program, p, q - p); |
|
program[q - p] = '\0'; |
|
} |
|
|
|
for (p = program; *p; p++) |
|
if (islower((unsigned char)(*p))) |
|
*p = toupper((unsigned char)(*p)); |
|
|
|
q = strstr(program, "TEST"); |
|
if (q > p && q[-1] == '_') |
|
q--; |
|
*q = '\0'; |
|
|
|
printf("No %s support\n", program); |
|
|
|
OPENSSL_free(program); |
|
return (0); |
|
}
|
|
|