]>
Commit | Line | Data |
---|---|---|
1cc67fa8 RL |
1 | #include <stdio.h> |
2 | #include <stdlib.h> | |
3 | #include <string.h> | |
4 | #include <ctype.h> | |
5 | #include <openssl/e_os2.h> | |
6 | #include <openssl/buffer.h> | |
7 | #include <openssl/crypto.h> | |
8 | ||
9 | int main(int argc, char *argv[]) | |
10 | { | |
8435a755 | 11 | char *p, *q = 0, *program; |
1cc67fa8 RL |
12 | |
13 | p = strrchr(argv[0], '/'); | |
14 | if (!p) p = strrchr(argv[0], '\\'); | |
15 | #ifdef OPENSSL_SYS_VMS | |
16 | if (!p) p = strrchr(argv[0], ']'); | |
17 | if (p) q = strrchr(p, '>'); | |
18 | if (q) p = q; | |
19 | if (!p) p = strrchr(argv[0], ':'); | |
20 | q = 0; | |
21 | #endif | |
22 | if (p) p++; | |
23 | if (!p) p = argv[0]; | |
24 | if (p) q = strchr(p, '.'); | |
25 | if (p && !q) q = p + strlen(p); | |
26 | ||
27 | if (!p) | |
28 | program = BUF_strdup("(unknown)"); | |
29 | else | |
30 | { | |
31 | program = OPENSSL_malloc((q - p) + 1); | |
32 | strncpy(program, p, q - p); | |
33 | program[q - p] = '\0'; | |
34 | } | |
35 | ||
36 | for(p = program; *p; p++) | |
8435a755 RL |
37 | if (islower((unsigned char)(*p))) |
38 | *p = toupper((unsigned char)(*p)); | |
1cc67fa8 RL |
39 | |
40 | q = strstr(program, "TEST"); | |
41 | if (q > p && q[-1] == '_') q--; | |
42 | *q = '\0'; | |
43 | ||
44 | printf("No %s support\n", program); | |
45 | ||
46 | OPENSSL_free(program); | |
47 | return(0); | |
48 | } |