projects
/
unix-history
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
BSD 4 release
[unix-history]
/
usr
/
src
/
cmd
/
lisp
/
lisp.c
diff --git
a/usr/src/cmd/lisp/lisp.c
b/usr/src/cmd/lisp/lisp.c
index
04c2837
..
d73dc05
100644
(file)
--- a/
usr/src/cmd/lisp/lisp.c
+++ b/
usr/src/cmd/lisp/lisp.c
@@
-1,3
+1,5
@@
+static char *sccsid = "@(#)lisp.c 34.1 10/3/80";
+
#include "global.h"
/* main *****************************************************************/
#include "global.h"
/* main *****************************************************************/
@@
-11,14
+13,19
@@
extern int rlevel;
static int virgin = 0;
int Xargc;
char **Xargv;
static int virgin = 0;
int Xargc;
char **Xargv;
+extern int environ;
-main(argc,argv)
+main(argc,argv
,arge
)
char **argv;
{
lispval temp, matom();
extern int errp;
char **argv;
{
lispval temp, matom();
extern int errp;
+ extern int holbeg,holend,usehole;
+ extern int *curhbeg;
+
snpand(0);
snpand(0);
+ environ = arge;
setbuf(stdout,_sobuf);
Xargc = argc;
Xargv = argv;
setbuf(stdout,_sobuf);
Xargc = argc;
Xargv = argv;
@@
-50,11
+57,11
@@
char **argv;
}
Ntpl()
{
}
Ntpl()
{
- lispval Lread();
+ lispval Lread()
,Istsrch()
;
snpand(0);
if (virgin == 0) {
snpand(0);
if (virgin == 0) {
- fputs(
"Franz Lisp, Opus 32"
,poport);
+ fputs(
Istsrch(matom("version"))->d.cdr->d.cdr->d.cdr
,poport);
virgin = 1;
}
lbot = np;
virgin = 1;
}
lbot = np;
@@
-70,6
+77,7
@@
Ntpl()
}
}
}
}
+#ifndef VMS
exit(code)
{
extern int fvirgin;
exit(code)
{
extern int fvirgin;
@@
-79,3
+87,4
@@
exit(code)
proflush();
_exit(code);
}
proflush();
_exit(code);
}
+#endif