OpenSSL  1.0.1c
 All Classes Files Functions Variables Typedefs Enumerations Enumerator Macros
jpaketest.c
Go to the documentation of this file.
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  }