| #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); |
| } |