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:         {
   11:         char *p, *q = 0, *program;
   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++)
   37:                 if (islower((unsigned char)(*p)))
   38:                         *p = toupper((unsigned char)(*p));
   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:         }