[BACK]Return to asirgui.mac CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / windows / post-msg-asirgui

Diff for /OpenXM_contrib2/windows/post-msg-asirgui/asirgui.mac between version 1.3 and 1.8

version 1.3, 2013/11/14 17:21:51 version 1.8, 2013/12/19 04:24:39
Line 1 
Line 1 
 // $OpenXM: OpenXM_contrib2/windows/post-msg-asirgui/asirgui.mac,v 1.2 2013/11/13 15:43:31 ohara Exp $  // $OpenXM: OpenXM_contrib2/windows/post-msg-asirgui/asirgui.mac,v 1.7 2013/11/28 03:02:19 takayama Exp $
 // Keep shift-jis code!  // Keep shift-jis code!
   //   run "cmd /c "+$asirpath+"cmdasir %f" + " >con"; output debugmsg
 call Main;  call Main;
 endmacro;  endmacro;
 Main:  Main:
Line 8  $asir_rootdir=getenv("ASIR_ROOTDIR"); 
Line 9  $asir_rootdir=getenv("ASIR_ROOTDIR"); 
 if($asir_rootdir!="" && existfile($asir_rootdir+"\\bin\\asirgui.exe")) {  if($asir_rootdir!="" && existfile($asir_rootdir+"\\bin\\asirgui.exe")) {
     $asirpath=$asir_rootdir+"\\bin\\";      $asirpath=$asir_rootdir+"\\bin\\";
 }  }
 menu "asirgui起動","編集中のファイルの実行","選択範囲の実行","行の実行","選択範囲の実行(paste)","行の実行(paste)";  menu "asirgui起動","編集中のファイルの実行","選択範囲の実行","行の実行","選択範囲の実行(paste)","行の実行(paste)","計算中断";
 if (result==0) endmacro;  if (result==0) endmacro;
 else if (result == 1) {  else if (result == 1) {
   run $asirpath+"asirgui";    run $asirpath+"asirgui";
 } else if (result == 2) {  } else if (result == 2) {
   run "cmd /c "+$asirpath+"cmdasir %f";    run "cmd /c \""+$asirpath+"cmdasir\" %f";
 } else if (result == 3) {  } else if (result == 3) {
   call ExecuteSelectedArea;    call ExecuteSelectedArea;
 } else if (result == 4) {  } else if (result == 4) {
Line 22  else if (result == 1) { 
Line 23  else if (result == 1) { 
   call ExecuteSelectedAreaByPaste;    call ExecuteSelectedAreaByPaste;
 } else if (result == 6) {  } else if (result == 6) {
   call ExecuteSelectedLineByPaste;    call ExecuteSelectedLineByPaste;
   } else if (result == 7) {
     call AbortAsir;
 }  }
 return true;  return true;
 ExecuteSelectedArea:  ExecuteSelectedArea:
Line 31  ExecuteSelectedArea: 
Line 34  ExecuteSelectedArea: 
     $tmp_fname = getenv("TEMP")+"\\cmdasir-tmp-hidemaru.rr";      $tmp_fname = getenv("TEMP")+"\\cmdasir-tmp-hidemaru.rr";
     run "cmd /c del "+$tmp_fname ;      run "cmd /c del "+$tmp_fname ;
     call MakeFile $tmp_fname,$s;      call MakeFile $tmp_fname,$s;
     run "cmd /c "+$asirpath+"cmdasir "+$tmp_fname;      run "cmd /c \""+$asirpath+"cmdasir\" "+$tmp_fname;
   } else {    } else {
   message "範囲選択されていません";    message "範囲選択されていません";
   }    }
Line 75  ExecuteSelectedAreaByPaste: 
Line 78  ExecuteSelectedAreaByPaste: 
     $tmp_fname = getenv("TEMP")+"\\cmdasir-tmp-hidemaru.rr";      $tmp_fname = getenv("TEMP")+"\\cmdasir-tmp-hidemaru.rr";
     run "cmd /c del "+$tmp_fname ;      run "cmd /c del "+$tmp_fname ;
     call MakeFile $tmp_fname,$s;      call MakeFile $tmp_fname,$s;
     run "cmd /c "+$asirpath+"cmdasir --paste-contents "+$tmp_fname;      run "cmd /c \""+$asirpath+"cmdasir\" --paste-contents "+$tmp_fname;
   } else {    } else {
   message "範囲選択されていません";    message "範囲選択されていません";
   }    }
Line 86  ExecuteSelectedLineByPaste: 
Line 89  ExecuteSelectedLineByPaste: 
   golineend;    golineend;
 //  message(str(seltopx) + "," + str(seltopy) + "," + str(selendx) + "," + str(selendy));  //  message(str(seltopx) + "," + str(seltopy) + "," + str(selendx) + "," + str(selendy));
   call ExecuteSelectedAreaByPaste;    call ExecuteSelectedAreaByPaste;
     return true;
   
   AbortAsir:
     run "\""+$asirpath+"cmdasir\" --abort"+" >nul";
   return true;    return true;
   

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.8

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>