mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-14 07:30:21 +00:00
cdffa541ef
* Remove extra semicolons, convert #define x() {...} to do {...} while (0) style
* Fix missing brace in INIT-specific definition of init_kbd_startup
48 lines
1.1 KiB
C
48 lines
1.1 KiB
C
#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 */
|