mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-18 00:52:33 +00:00
45 lines
1021 B
C
Executable File
45 lines
1021 B
C
Executable File
/* $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) \
|
|
{ \
|
|
\
|
|
register char *cp; \
|
|
register 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 = atoi(vp); \
|
|
else ver = -1; \
|
|
} \
|
|
else ver = -1; \
|
|
}
|