Revision: 613
http://sourceforge.net/p/euslisp/code/613
Author: k-okada
Date: 2013-04-20 13:27:54 +0000 (Sat, 20 Apr 2013)
Log Message:
-----------
fix wrong comme r612
Revision Links:
--------------
http://sourceforge.net/p/euslisp/code/612
Modified Paths:
--------------
trunk/EusLisp/lisp/c/eus.c
Modified: trunk/EusLisp/lisp/c/eus.c
===================================================================
--- trunk/EusLisp/lisp/c/eus.c 2013-04-20 13:20:52 UTC (rev 612)
+++ trunk/EusLisp/lisp/c/eus.c 2013-04-20 13:27:54 UTC (rev 613)
@@ -1092,18 +1092,16 @@
register context *ctx;
{ pointer argv, p, in;
int i,j;
- char *eusdir, *archdir, *eusrt;
+ char *eusdir, *eusrt;
char fname[1024];
extern pointer SRCLOAD();
/* reset stack pointer and frame pointers*/
j=(int)eussetjmp(topjbuf);
- fprintf(stderr, "set ARCHDIR to Linux64\n");
- archdir= "Linux64";
- setenv("ARCHDIR",archdir,1);
- fprintf(stderr, "set EUSDIR to /home/k-okada/ros/fuerte/jsk-ros-pkg/euslisp/jskeus/eus\n");
- eusdir= "/home/k-okada/ros/fuerte/jsk-ros-pkg/euslisp/jskeus/eus";
- setenv("EUSDIR",eusdir,1);
+ eusdir=(char *)getenv("EUSDIR");
+ if (eusdir==NULL) {
+ fprintf(stderr, "EUSDIR is not setenved, assuming /usr/local/eus\n");
+ eusdir= "/usr/local/eus/"; }
sprintf(fname,"%s/lib/eus.init.l", eusdir);
#if !Solaris2 || GCC
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
