#ifndef LISPVER1_H
#define LISPVER1_H 1
/* $Id: lispver1.h,v 1.2 1999/01/03 02:06:08 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved  */

/* DOS version of LispVersionToUnixVersion */
#define LispVersionToUnixVersion(pathname, ver)				\
  do {									\
									\
    char	*cp;						\
    char	*vp;						\
    char		ver_buf[VERSIONLEN];				\
									\
    cp = pathname;							\
    vp = NULL;								\
    while (*cp)								\
      {									\
	switch (*cp)							\
	  {								\
									\
	    case ';':							\
		*cp = 0;						\
		cp++;							\
		vp = cp;						\
		break;							\
									\
	    case '\'':							\
		if (*(cp + 1) != 0) cp += 2; 				\
		else cp++;						\
		break;							\
									\
	    default:							\
		cp++;							\
		break;							\
	  }								\
      }									\
									\
    if (vp)								\
      {									\
	NumericStringP(vp, YES, NO);					\
       NO: *vp = 0;							\
       YES:								\
	if ((*vp)) ver = strtol(vp, (char **)NULL, 10);                \
	else ver = -1;							\
      }									\
      else ver = -1;							\
    } while (0)
#endif /* LISPVER1_H */