[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.5 and 1.9

version 1.5, 2013/11/19 13:03:59 version 1.9, 2014/03/28 04:28:02
Line 1 
Line 1 
 // $OpenXM: OpenXM_contrib2/windows/post-msg-asirgui/asirgui.mac,v 1.4 2013/11/14 17:28:29 ohara Exp $  // $OpenXM: OpenXM_contrib2/windows/post-msg-asirgui/asirgui.mac,v 1.8 2013/12/19 04:24:39 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) {
     save ;
   run "cmd /c \""+$asirpath+"cmdasir\" %f";    run "cmd /c \""+$asirpath+"cmdasir\" %f";
 } else if (result == 3) {  } else if (result == 3) {
   call ExecuteSelectedArea;    call ExecuteSelectedArea;
Line 22  else if (result == 1) { 
Line 24  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 86  ExecuteSelectedLineByPaste: 
Line 90  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.5  
changed lines
  Added in v.1.9

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