[Euslisp-commit] SF.net SVN: euslisp:[613] trunk/EusLisp/lisp/c/eus.c

[<k-...@us...>]

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.