瀏覽代碼

rigsc: fix detection of rig bin path more

Kyle P Davis 9 年之前
父節點
當前提交
362b1aa167
共有 1 個文件被更改,包括 6 次插入1 次删除
  1. 6 1
      rigsc.446/src/rc_.c

+ 6 - 1
rigsc.446/src/rc_.c

@@ -740,7 +740,12 @@ _L97:
     if (V.batfile == NULL)
       _EscIO(FileNotFound);
     fprintf(V.batfile, "#!/bin/csh -f\n");
-    fprintf(V.batfile, "if !($?rig) set rig=`dirname \"%s\"`\n", getenv("_"));
+
+    char *binpath = realpath(an_argv[0], NULL);
+    if (binpath == NULL) binpath = strdup(getenv("_"));
+    fprintf(V.batfile, "if !($?rig) set rig=`dirname \"%s\"`\n", binpath);
+    free(binpath);
+
     fprintf(V.batfile, "$rig/anrig -p N.TMP\n");
     fprintf(V.batfile, "$rig/genrigd  S -p N.TMP\n");
     fprintf(V.batfile, " cc   -w ");