crypto/openssl/test/dummytest.c

   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         }