===================================================================
RCS file: /home/cvs/OpenXM_contrib2/windows/post-msg-asirgui/asirgui.mac,v
retrieving revision 1.1
retrieving revision 1.3
diff -u -p -r1.1 -r1.3
--- OpenXM_contrib2/windows/post-msg-asirgui/asirgui.mac	2013/08/27 05:51:50	1.1
+++ OpenXM_contrib2/windows/post-msg-asirgui/asirgui.mac	2013/11/14 17:21:51	1.3
@@ -1,14 +1,19 @@
-// $OpenXM$
+// $OpenXM: OpenXM_contrib2/windows/post-msg-asirgui/asirgui.mac,v 1.2 2013/11/13 15:43:31 ohara Exp $
 // Keep shift-jis code! 
 call Main;
 endmacro;
 Main:
+$asirpath=getenv("HOMEPATH")+"\\Desktop\\asir\\bin\\";
+$asir_rootdir=getenv("ASIR_ROOTDIR");
+if($asir_rootdir!="" && existfile($asir_rootdir+"\\bin\\asirgui.exe")) {
+    $asirpath=$asir_rootdir+"\\bin\\";
+}
 menu "asirgui起動","編集中のファイルの実行","選択範囲の実行","行の実行","選択範囲の実行(paste)","行の実行(paste)";
 if (result==0) endmacro;
 else if (result == 1) {
-  run getenv("HOMEPATH")+"\\Desktop\\asir\\bin\\asirgui";
+  run $asirpath+"asirgui";
 } else if (result == 2) {
-  run "cmd /c "+getenv("HOMEPATH")+"\\Desktop\\asir\\bin\\cmdasir %f";
+  run "cmd /c "+$asirpath+"cmdasir %f";
 } else if (result == 3) {
   call ExecuteSelectedArea;
 } else if (result == 4) {
@@ -26,7 +31,7 @@ ExecuteSelectedArea:
     $tmp_fname = getenv("TEMP")+"\\cmdasir-tmp-hidemaru.rr";
     run "cmd /c del "+$tmp_fname ;
     call MakeFile $tmp_fname,$s;
-    run "cmd /c "+getenv("HOMEPATH")+"\\Desktop\\asir\\bin\\cmdasir "+$tmp_fname;
+    run "cmd /c "+$asirpath+"cmdasir "+$tmp_fname;
   } else { 
   message "範囲選択されていません";
   }
@@ -70,7 +75,7 @@ ExecuteSelectedAreaByPaste:
     $tmp_fname = getenv("TEMP")+"\\cmdasir-tmp-hidemaru.rr";
     run "cmd /c del "+$tmp_fname ;
     call MakeFile $tmp_fname,$s;
-    run "cmd /c "+getenv("HOMEPATH")+"\\Desktop\\asir\\bin\\cmdasir --paste-contents "+$tmp_fname;
+    run "cmd /c "+$asirpath+"cmdasir --paste-contents "+$tmp_fname;
   } else { 
   message "範囲選択されていません";
   }