Commit ca80756c authored by Richard Levitte's avatar Richard Levitte
Browse files

VMS below version 7 doesn't have strcasecmp, so let's roll our own on VMS. 

PR: 184
parent ef0baf60

apps/apps.c

+16 −0
Original line number Diff line number Diff line
@@ -354,6 +354,22 @@ int WIN32_rename(char *from, char *to) 
	}

#endif



#ifdef OPENSSL_SYS_VMS

int VMS_strcasecmp(const char *str1, const char *str2)

	{

	while (*str1 && *str2)

		{

		int res = toupper(*str1) - toupper(*str2);

		if (res) return res < 0 ? -1 : 1;

		}

	if (*str1)

		return 1;

	if (*str2)

		return -1;

	return 0;

	}

#endif



int chopup_args(ARGS *arg, char *buf, int *argc, char **argv[])

	{

	int num,len,i;

apps/apps.h

+6 −0
Original line number Diff line number Diff line
@@ -139,6 +139,12 @@ long app_RAND_load_files(char *file); /* `file' is a list of files to read, 
int WIN32_rename(char *oldname,char *newname);

#endif



/* VMS below version 7.0 doesn't have strcasecmp() */

#ifdef OPENSSL_SYS_VMS

#define strcasecmp(str1,str2) VMS_strcasecmp((str1),(str2))

int VMS_strcasecmp(const char *str1, const char *str2);

#endif



#ifndef MONOLITH



#define MAIN(a,v)	main(a,v)