拡張子からコンソール実行
概要
コンソール実行をVBSに移植して、1ファイルのみで多言語対応出来るように機能強化したものです。
拡張子からコマンドを判別するため、以前のように呼び出す時に設定する必要はありません。
足りない言語についても、Caseを追加して実行コマンドを設定することで使用できるようになります。
不具合要望などは以下のリンクまで。
もう少しリファレンス
対応済み言語・処理系一覧
C、C++(VC++/BCC32/GCC/G++)、D、C#(.NET framework/Mono/.NET Core/.NET)、C#Script(csi/Mono/scriptcs/dotnet-script)、
Java、Scala、Groovy、Perl、PHP(Phalanger)、Go、Dart、Rust、R言語、
JavaScript(Node.js/JScript/JScript.NET/Rhino)、TypeScript(tsc/ts-node)、Fortran(G)、
VBScript、VB.NET(.NET framework/Mono/.NET Core/.NET)、BASIC(FreeBasic)、HSP3(hspc)、Pascal(FPC)、Ada(GNAT)、Ruby(JRuby/IR)、Lua(JIT)、
Matlab(Octave)、Scilab、Python(CPython/PyPy/Jython/IPy)、なでしこ、CoffeeScript、
CommonLisp(CLISP/SBCL/MKCL/CCL)、EmacsLisp、Scheme(Gauche/Sagittarius)、Clojure(JVM/CLR/ClojureScript)、
F#、Haskell(GHC)、CASL II、NASM、.NetIL(ilasm)、BAT、WSF、PowerShell
※ただし、基本的にはパスが通っていることが前提。
HSPはコマンドラインコンパイラが標準で用意されていないため断念。
公式プラグインのHSPコンパイル実行プラグインをご利用ください。
⇒hspcを使うことで部分的に対応しました。
コンソールアプリを使用する場合はこちらを使用した方が良いかと思います。
※2 処理系ではないけどjs系はUglify.jsがコメント追記で呼べるようになりました。
ZIP
ダウンロード【2020/12/12版】
旧版
変換済みicoファイル込
アイコン
ソース
#icon="exec_cmd.ico"
#title="コンソール実行"
' exec_cmd.vbs
' 2020/12/10 22:09
Dim cmd:Set cmd=CreateObject("WScript.Shell")
'ファイルの保存
Document.Save()
'保存してなければ終了。
If Document.Name="" Then
MsgBox "ファイルが保存されてません。"
Quit
End If
'タイトル名
Dim TITLE
'実行コマンド
Dim EXEC_COMMAND
'使用エンジン選択
Function ENGINE(file_format)
Select Case LCase(file_format)
'C言語
Case "c"
'ENGINE="bcc32"
ENGINE="gcc"
'C++
Case "cpp"
ENGINE="cl"
'ENGINE="bcc32"
'ENGINE="g++"
'ENGINE="clang"
'D言語
Case "d"
ENGINE="dmd"
'ENGINE="gdc"
'ENGINE="ldc"
'C#
Case "cs"
ENGINE="csc"
'ENGINE="mcs"
'ENGINE="msbuild"
'ENGINE="dotnet"
'C#Script
Case "csx"
'ENGINE="csi"
'ENGINE="csharp"
'ENGINE="scriptcs"
ENGINE="dotnet-script"
'Perl
Case "pl"
ENGINE="perl"
'ENGINE="perl6"
'PHP
Case "php"
ENGINE="php"
'ENGINE="phpc"
'JavaScript
Case "js"
ENGINE="node"
'ENGINE="jscript"
'ENGINE="jsc"
'ENGINE="rhino"
'TypeScript
Case "ts"
ENGINE="tsc"
'ENGINE="ts-node"
'VB.NET
Case "vb"
ENGINE="vbc"
'ENGINE="vbnc"
'ENGINE="msbuild"
'ENGINE="dotnet"
'Ruby
Case "rb"
ENGINE="ruby"
'ENGINE="jruby"
'ENGINE="ir"
'Lua
Case "lua"
ENGINE="lua"
'ENGINE="luajit"
'MATLAB
Case "m"
'ENGINE="matlab"
ENGINE="octave"
'Python
Case "py"
'ENGINE="python"
'ENGINE="python2"
ENGINE="python3"
'ENGINE="pypy"
'ENGINE="pypy3"
'ENGINE="jython"
'ENGINE="ipy"
'ENGINE="ipy64"
'LISP, CommonLisp
Case "l","lisp","lsp","cl"
'ENGINE="clisp"
ENGINE="sbcl"
'ENGINE="ccl"
'ENGINE="ccl64"
'ENGINE="mkcl"
'LISP, CommonLisp
Case "scm"
'ENGINE="gosh"
ENGINE="sash"
'Clojure
Case "clj","cljs"
'ENGINE="clojure"
'ENGINE="clojure-clr"
'ENGINE="clojure-script"
ENGINE="boot"
'ENGINE="lumo"
End Select
End Function
'使用するエンジンのパス パスが通しにくかったり通らないものを記述
Function ENGINE_PATH(file_format)
Select Case LCase(file_format)
'VC++
Case "cl"
'ENGINE_PATH="%ProgramFiles%\Microsoft Visual Studio 14.0\VC\bin"
ENGINE_PATH="%ProgramFiles(x86)%\Microsoft Visual Studio 14.0\VC\bin"
'C#, VB.NET
Case "csc","vbc"
'ENGINE_PATH="%SYSTEMROOT%\Microsoft.NET\Framework\v4.0.30319"
'ENGINE_PATH="%ProgramFiles%\MSBuild\12.0\Bin"
'ENGINE_PATH="%ProgramFiles(x86)%\MSBuild\12.0\Bin"
'ENGINE_PATH="%ProgramFiles%\MSBuild\14.0\Bin"
'ENGINE_PATH="%ProgramFiles(x86)%\MSBuild\14.0\Bin"
'ENGINE_PATH="%ProgramFiles(x86)%\Microsoft Visual Studio\2017\BuildTools\MSBuild\15.0\Bin\Roslyn"
'ENGINE_PATH="%ProgramFiles%\Mono\bin"
'ENGINE_PATH="%ProgramFiles%\Microsoft Visual Studio\2019\Community\MSBuild\Current\Bin\Roslyn"
ENGINE_PATH="%ProgramFiles(x86)%\Microsoft Visual Studio\2019\Community\MSBuild\Current\Bin\Roslyn"
'Mono C#, Mono VB.NET
Case "mcs","vbnc"
'ENGINE_PATH="%ProgramFiles%\Mono\lib\mono\4.5"
ENGINE_PATH="%ProgramFiles(x86)%\Mono\lib\mono\4.5"
'C#Script
Case "csi"
'ENGINE_PATH="%ProgramFiles(x86)%\Microsoft Visual Studio\2017\BuildTools\MSBuild\15.0\Bin\Roslyn"
'ENGINE_PATH="%ProgramFiles%\Microsoft Visual Studio\2017\BuildTools\MSBuild\15.0\Bin\Roslyn"
'ENGINE_PATH="%ProgramFiles(x86)%\Microsoft Visual Studio\2017\Community\MSBuild\15.0\Bin\Roslyn"
'ENGINE_PATH="%ProgramFiles%\MSBuild\14.0\Bin"
'ENGINE_PATH="%ProgramFiles(x86)%\MSBuild\14.0\Bin"
'ENGINE_PATH="%ProgramFiles%\Microsoft Visual Studio\2019\Community\MSBuild\Current\Bin\Roslyn"
ENGINE_PATH="%ProgramFiles(x86)%\Microsoft Visual Studio\2019\Community\MSBuild\Current\Bin\Roslyn"
'Mono C#Script
Case "csharp"
ENGINE_PATH="%ProgramFiles%\Mono\lib\mono\4.5"
'ENGINE_PATH="%ProgramFiles(x86)%\Mono\lib\mono\4.5"
'JScript.NET
Case "msbuild"
'ENGINE_PATH="msbuild"
'ENGINE_PATH="%ProgramFiles%\Microsoft Visual Studio\2017\Community\MSBuild\15.0\Bin\MSBuild"
ENGINE_PATH="%ProgramFiles(x86)%\Microsoft Visual Studio\2017\Community\MSBuild\15.0\Bin\MSBuild"
'ENGINE_PATH="%ProgramFiles%\Mono\bin\msbuild"
Case "jsc"
ENGINE_PATH="%SYSTEMROOT%\Microsoft.NET\Framework\v2.0.50727"
'Rhino
Case "rhino"
ENGINE_PATH="%HOMEDRIVE%\rhino"
'TypeScript
Case "ts"
'ENGINE_PATH="%ProgramFiles%\Microsoft SDKs\TypeScript\1.0"
'ENGINE_PATH="%ProgramFiles(x86)%\Microsoft SDKs\TypeScript\1.0"
ENGINE_PATH="%APPDATA%\npm"
'CoffeeScript
Case "coffee"
ENGINE_PATH="%APPDATA%\npm"
'Clojure(JVM)
Case "clojure"
'clojure-x.x.xのバージョン表記"-x.x.x"を消すと動かなくなる。
ENGINE_PATH="%HOMEDRIVE%\clojure-1.8.0"
'F#
Case "fs","ml","mli"
ENGINE_PATH="%ProgramFiles%\Microsoft SDKs\F#\3.1\Framework\v4.0"
'ENGINE_PATH="%ProgramFiles(x86)%\Microsoft SDKs\F#\3.1\Framework\v4.0"
'HSP
Case "hsp"
'HSPのバージョンによってパスを変更すること。
ENGINE_PATH="%HOMEDRIVE%\hsp35"
'CASL II
Case "cas"
ENGINE_PATH="%HOMEDRIVE%\javaCASL2"
'NASM LINK用(VC++必須)
Case "link"
ENGINE_PATH="%ProgramFiles%\Microsoft Visual Studio 12.0\VC\bin"
'ENGINE_PATH="%ProgramFiles(x86)%\Microsoft Visual Studio 12.0\VC\bin"
Case "msvcrt"
ENGINE_PATH="%ProgramFiles%\Microsoft Visual Studio 12.0\VC\lib"
'ENGINE_PATH="%ProgramFiles(x86)%Microsoft Visual Studio 12.0\VC\lib"
Case "kernel32"
ENGINE_PATH="%ProgramFiles%\Microsoft SDKs\Windows\v7.1A\Lib"
'ENGINE_PATH="%ProgramFiles(x86)%\Microsoft SDKs\Windows\v7.1A\Lib"
Case "addlib"
'ライブラリが他に必要であれば空白区切りで与えてください。
'(ファイルパスに空白を含む時は注意)
ENGINE_PATH=""
'NASM LINK用ここまで
'.NetILアセンブラ
Case "il"
ENGINE_PATH="%SYSTEMROOT%\Microsoft.NET\Framework\v4.0.30319"
End Select
End Function
'js圧縮コマンド(uglifyjs)
Function COMP_JS()
COMP_JS=Join(Array( _
"uglifyjs -m -o ",DOC_NAME,".min.js ",DOC_NAME,".js",br, _
"javascript-obfuscator ",DOC_NAME,".min.js --renameGlobals true --rotateStringArray true、--selfDefending true --stringArrayThreshold 0.75" _
),"")
End Function
'パッケージファイル
Dim PKG_FILES
'コマンドオプション
Dim CMD_OPTION
'ビルドメッセージ
'頭の&は何も無い所に付け加えるため必須とする。
Dim BUILDED
BUILDED=" & Echo Complited."
Dim br:br=" & " '改行用
'Document.Name:現在のファイル名
Dim doc_names:doc_names=Split(Document.Name,".")
'拡張子
Dim file_format:file_format=doc_names(UBound(doc_names))
doc_names(UBound(doc_names))=""
'拡張子を除いたファイル名
Dim DOC_NAME
DOC_NAME=Join(doc_names,".")
DOC_NAME=Mid(DOC_NAME,1,Len(DOC_NAME)-1)
'実行時exe、class、obj、js、min.jsにコンパイルする形式の場合は一行目にコメントで
' delexe, delclass, delobj, deljs, delmin を含めることで
'事前にexe, class, obj, js, min.jsを削除することができます。
'タイトル、実行コマンド
If load_option("cmd:") Then
'一行目に"cmd:"を含めるとそれ以降が実行コマンドになる。
'ただし、既定の実行エンジンも指定されないため、
'そこを含めてのコマンド設定が必要。
EXEC_COMMAND=Split(LCase(Document.GetLine(1)),"cmd:")(1)
Else
Select Case LCase(file_format)
Case "c","cpp" 'C, C++
Select Case ENGINE(file_format)
Case "cl" 'Visual C++
TITLE="Visual C++ " & Document.Name
EXEC_COMMAND=Join(Array( _
"""",Replace(ENGINE_PATH(ENGINE(file_format)),"\bin",""),"\vcvarsall"" & ",_
"""",ENGINE_PATH(ENGINE(file_format)),"\cl"" /nologo /EHsc /openmp ",Document.Name,br, _
DOC_NAME,".exe" _
),"")
Case "bcc32" 'Borland C++
TITLE="Borland C++ " & Document.Name
EXEC_COMMAND=Join(Array( _
"bcc32 ",Document.Name,br, _
DOC_NAME,".exe" _
),"")
Case "gcc" 'GCC C
TITLE="GCC C " & Document.Name
EXEC_COMMAND=Join(Array( _
"gcc -o ",DOC_NAME,".exe ",Document.Name,br, _
DOC_NAME,".exe" _
),"")
Case "g++" 'GCC C++
'コンパイルオプション
'一行目に //not11 と入力するとC++11以前のコンパイルを行う。
If load_option("//not11") Then
CMD_OPTION=""
Else
CMD_OPTION="-std=c++11 "
End If
TITLE="GCC C++ " & Document.Name
EXEC_COMMAND=Join(Array( _
"g++ ",CMD_OPTION,"-o ",DOC_NAME,".exe ",Document.Name,br, _
DOC_NAME,".exe" _
),"")
Case "clang" 'clang C++
TITLE="clang C++ " & Document.Name
EXEC_COMMAND=Join(Array( _
"clang ",CMD_OPTION,"-o ",DOC_NAME,".exe ",Document.Name,br, _
DOC_NAME,".exe" _
),"")
End Select
Case "d" 'D言語
Select Case ENGINE(file_format)
Case "dmd"
TITLE="D言語(dmd) " & Document.Name
EXEC_COMMAND="dmd " & Document.Name & br & DOC_NAME & ".exe"
Case "gdc"
TITLE="D言語(gdc) " & Document.Name
EXEC_COMMAND="gdc " & Document.Name & br & DOC_NAME & ".exe"
Case "ldc"
TITLE="D言語(ldc) " & Document.Name
EXEC_COMMAND="ldc2 " & Document.Name & br & DOC_NAME & ".exe"
End Select
Case "cs" 'C#
'コンパイルファイル選択
'デフォルトでフォルダ内全てをコンパイル。
'一行目に //only と加えることでそのファイルのみコンパイルを行う。
If load_option("//only") Then
PKG_FILES=Document.Name
Else
PKG_FILES="*.cs"
End If
Select Case ENGINE(file_format)
Case "csc" 'C#
TITLE="C# " & Document.Name
EXEC_COMMAND=Join(Array( _
"""",ENGINE_PATH(ENGINE(file_format)),"\csc"" ", _
"/nologo /out:",DOC_NAME,".exe ",PKG_FILES," /optimize+",br, _
DOC_NAME,".exe" _
),"")
Case "mcs" 'Mono C#
TITLE="Mono C# " & Document.Name
EXEC_COMMAND=Join(Array( _
"""",ENGINE_PATH(ENGINE(file_format)),"\mcs"" ", _
"-out:",DOC_NAME,".exe ",PKG_FILES," -optimize+",br, _
DOC_NAME,".exe" _
),"")
Case "msbuild" 'C# MSbuild
TITLE="C# MSBuild" & Document.Name
EXEC_COMMAND="""" & ENGINE_PATH(ENGINE(file_format)) & """"
Case "dotnet" 'C# .NET Core/.NET
TITLE="C# .NET" & Document.Name
EXEC_COMMAND="dotnet run"
End Select
Case "csx" 'C#Script
Select Case ENGINE(file_format)
Case "csi" 'C#Script
TITLE="C#Script " & Document.Name
EXEC_COMMAND=Join(Array( _
"""",ENGINE_PATH(ENGINE(file_format)),"\csi"" ",Document.Name _
),"")
Case "csharp" 'Mono C#Script
TITLE="Mono C#Script " & Document.Name
EXEC_COMMAND=Join(Array( _
"""",ENGINE_PATH(ENGINE(file_format)),"\csharp"" ",Document.Name _
),"")
Case "scriptcs" 'ScriptCS
TITLE="scriptcs " & Document.Name
EXEC_COMMAND="scriptcs " & Document.Name
Case "dotnet-script" 'dotnet script
TITLE="detnet script " & Document.Name
EXEC_COMMAND="dotnet-script " & Document.Name
End Select
Case "java" 'Java
'jar化は手順が面倒そうなので保留
TITLE="Java " & Document.Name
EXEC_COMMAND=Join(Array( _
"javac ",Document.Name,br, _
"java ",DOC_NAME _
),"")
Case "scala" 'Scala
'コンパイルオプション
'一行目に //class と加えることでclassファイルにコンパイルを行う。
TITLE="Scala " & Document.Name
If load_option("//class") Then
EXEC_COMMAND="scalac " & Document.Name
Else
EXEC_COMMAND="scala " & Document.Name
End If
Case "groovy" 'Groovy
'コンパイルオプション
'一行目に //class と加えることでclassファイルにコンパイルを行う。
TITLE="Groovy " & Document.Name
If load_option("//class") Then
EXEC_COMMAND="groovyc " & Document.Name
Else
EXEC_COMMAND="groovy " & Document.Name
End If
Case "pl" 'Perl
Select Case ENGINE(file_format)
Case "perl" 'Perl5まで
TITLE="Perl " & Document.Name
EXEC_COMMAND="perl " & Document.Name
Case "perl6" 'Perl6
TITLE="Perl6 " & Document.Name
EXEC_COMMAND="perl6 " & Document.Name
End Select
Case "php" 'PHP
Select Case ENGINE(file_format)
Case "php" 'PHP
TITLE="PHP " & Document.Name
EXEC_COMMAND="php " & Document.Name
Case "phpc" 'Phalanger
TITLE="Phalanger " & Document.Name
EXEC_COMMAND=Join(Array( _
"phpc /debug- /quiet ",Document.Name,br, _
"bin\",DOC_NAME,".exe" _
),"")
End Select
Case "go" 'Go
'コンパイルオプション
'一行目に//buildでビルドを行う。
If load_option("//build") Then
CMD_OPTION="build "
Else
CMD_OPTION="run "
End If
TITLE="Go " & Document.Name
EXEC_COMMAND=Join(Array( _
"go ",CMD_OPTION,Document.Name _
),"")
Case "dart" 'Dart
TITLE="Dart " & Document.Name
EXEC_COMMAND="dart " & Document.Name _
Case "rs" 'Rust
TITLE="Rust " & Document.Name
EXEC_COMMAND=Join(Array( _
"rustc ",Document.Name,br, _
DOC_NAME,".exe" _
),"")
Case "r","q","s" 'R言語
TITLE="R言語 " & Document.Name
EXEC_COMMAND="rscript " & Document.Name
Case "js" 'JavaScript
If load_option("//comp") Then
'js圧縮モード
'一行目にコメントで //compと加える。
TITLE="Uglify.js " & Document.Name
EXEC_COMMAND=COMP_JS & BUILDED
Else
Select Case ENGINE(file_format)
Case "node" 'Node.js
'デバッグオプション
'一行目に、
' //debug 又は //inspect
'と加えることでデバッグモードでの実行を行う。
If load_option("//debug") _
Or load_option("//inspect") Then
CMD_OPTION="--inspect"
Else
CMD_OPTION=""
End If
TITLE="Node.js " & Document.Name
EXEC_COMMAND=Join(Array("node ",CMD_OPTION," ",Document.Name),"")
Case "jscript" 'JScript
TITLE="JScript " & Document.Name
EXEC_COMMAND="cscript //nologo //E:JScript " & Document.Name
Case "jsc" 'JScript.NET
PKG_FILES=Document.Name
TITLE="JScript.NET " & Document.Name
EXEC_COMMAND=Join(Array( _
"""",ENGINE_PATH(ENGINE(file_format)),"\jsc"" /nologo /out:", _
DOC_NAME,".exe ",PKG_FILES,br, _
DOC_NAME,".exe" _
),"")
Case "rhino" 'Rhino
TITLE="Rhino " & Document.Name
EXEC_COMMAND=Join(Array("java -jar ",ENGINE_PATH(ENGINE(file_format)),"\js.jar ",Document.Name),"")
End Select
End If
Case "ts" 'TypeScript
TITLE="TypeScript to " & ENGINE("js") & " " & Document.Name
EXEC_COMMAND=Join(Array("tsc --locale ja-JP -t esnext ",Document.Name,br),"")
If load_option("//comp") Then
'js圧縮モード
'一行目にコメントで //compと加える。
TITLE="Uglify.js + " & TITLE
EXEC_COMMAND=EXEC_COMMAND & COMP_JS & BUILDED
Else
Select Case ENGINE("ts")
Case "tsc"
'JavaScript実行
Select Case ENGINE("js")
Case "node" 'Node.js
EXEC_COMMAND=Join(Array(EXEC_COMMAND, _
"node ",DOC_NAME,".js" _
),"")
Case "jscript" 'JScript
EXEC_COMMAND=Join(Array(EXEC_COMMAND, _
"cscript //nologo //E:JScript ",DOC_NAME,".js" _
),"")
End Select
Case "ts-node" 'ts-node
EXEC_COMMAND="ts-node " & Document.Name
End Select
End If
Case "f","f90","f95","f03" 'Fortran
TITLE="GFortran " & Document.Name
EXEC_COMMAND=Join(Array( _
"gfortran -o ",DOC_NAME," ",Document.Name,br, _
DOC_NAME,".exe" _
),"")
Case "vbs" 'VBScript
TITLE="VBScript " & Document.Name
EXEC_COMMAND="cscript //nologo //E:VBScript " & Document.Name
Case "vb" 'VB.NET
'コンパイルファイル選択
'デフォルトでフォルダ内全てをコンパイル。
'一行目に 'only と加えることでそのファイルのみコンパイルを行う。
If load_option("'only") Then
PKG_FILES=Document.Name
Else
PKG_FILES="*.vb"
End If
Select Case ENGINE(file_format)
Case "vbc" 'VB.Net
TITLE="VB.Net " & Document.Name
EXEC_COMMAND=Join(Array( _
"""",ENGINE_PATH(ENGINE(file_format)),"\vbc""", _
" /removeintchecks /nologo /out:",DOC_NAME,".exe ",PKG_FILES," /optimize+",br, _
DOC_NAME,".exe" _
),"")
Case "vbnc" 'Mono VB.NET
TITLE="Mono VB.NET"
EXEC_COMMAND=Join(Array( _
"""",ENGINE_PATH(ENGINE(file_format)),"\vbnc""", _
" /quiet /nologo /out:",DOC_NAME,".exe ",PKG_FILES," /optimize+",br, _
DOC_NAME,".exe" _
),"")
Case "msbuild" 'VB.Net MSBuild
TITLE="VB.Net MSBuild" & Document.Name
EXEC_COMMAND="""" & ENGINE_PATH(ENGINE(file_format)) & """"
Case "dotnet" 'VB.Net .NET Core/.NET
TITLE="VB.Net .NET" & Document.Name
EXEC_COMMAND="dotnet run"
End Select
Case "bas" 'BASIC
TITLE="FreeBasic " & Document.Name
EXEC_COMMAND=Join(Array( _
"fbc -lang deprecated ",Document.Name,br, _
DOC_NAME,".exe" _
),"")
Case "hsp","as" 'HSP
TITLE="HSP " & Document.Name
EXEC_COMMAND=Join(Array( _
ENGINE_PATH(file_format),"\hspc -mP -C ",Document.Name,br, _
"(if exist start.ax ", _
"cls",br, _
"del start.ax",br, _
"del packfile",br, _
"move /y hsptmp.exe ",DOC_NAME,".exe > nul", _
")",br, _
DOC_NAME,".exe" _
),"")
Case "pas","pp" 'PASCAL
TITLE="FreePascal " & Document.Name
EXEC_COMMAND=Join(Array( _
"fpc ",Document.Name,br, _
DOC_NAME,".exe" _
),"")
Case "adb" 'Ada
TITLE="GNAT Ada " & Document.Name
EXEC_COMMAND=Join(Array( _
"gnatmake ",Document.Name,br _
,DOC_NAME,".exe" _
),"")
Case "rb" 'Ruby
Select Case ENGINE(file_format)
Case "ruby" 'Ruby
TITLE="Ruby " & Document.Name
EXEC_COMMAND="ruby " & Document.Name
Case "jruby" 'JRuby
TITLE="JRuby " & Document.Name
EXEC_COMMAND="jruby " & Document.Name
Case "ir" 'IronRuby
TITLE="IronRuby " & Document.Name
EXEC_COMMAND="ir " & Document.Name
End Select
Case "lua" 'Lua
Select Case ENGINE(file_format)
Case "lua" 'Lua
TITLE="Lua " & Document.Name
EXEC_COMMAND="lua " & Document.Name
Case "luajit" 'LuaJIT
TITLE="LuaJIT " & Document.Name
EXEC_COMMAND="luajit " & Document.Name
End Select
Case "m" 'MATLAB
Select Case ENGINE(file_format)
Case "matlab" 'MATLAB
'環境不所持により、動作未確認。
TITLE="Matlab " & Document.Name
EXEC_COMMAND="matlab -nodisplay " & Document.Name
Case "octave" 'GNU Octave
TITLE="GNU Octave " & Document.Name
EXEC_COMMAND="octave-cli " & Document.Name
End Select
Case "sce" 'Scilab
'最後にexitを実行しないとreplに移行します。
'また、日本語で文字化け注意。
TITLE="Scilab " & Document.Name
EXEC_COMMAND="Scilex -nwni -nb -l ja -f " & Document.Name
Case "py","pyw" 'Python
Select Case ENGINE(file_format)
Case "python" 'Python
'コンパイルオプション
'一行目に #pyc と加えることでコンパイルを行う。
If load_option("#pyc") Then
CMD_OPTION="-m compileall"
Else
CMD_OPTION=""
End If
TITLE="Python " & Document.Name
EXEC_COMMAND=Join(Array( _
"python ",CMD_OPTION," ",Document.Name _
),"")
Case "python2" 'Python2
TITLE="Python2 " & Document.Name
EXEC_COMMAND="py -2 " & Document.Name
Case "python3" 'Python3
TITLE="Python3 " & Document.Name
EXEC_COMMAND="py -3 " & Document.Name
Case "pypy" 'PyPy
TITLE="PyPy " & Document.Name
EXEC_COMMAND="pypy " & Document.Name
Case "pypy3" 'PyPy3
TITLE="PyPy3 " & Document.Name
EXEC_COMMAND="pypy3 " & Document.Name
Case "jython" 'Jython
TITLE="Jython " & Document.Name
EXEC_COMMAND="jython " & Document.Name
Case "ipy" 'IronPython
TITLE="IronPython " & Document.Name
EXEC_COMMAND="ipy " & Document.Name
Case "ipy64" 'IronPython
TITLE="IronPython64 " & Document.Name
EXEC_COMMAND="ipy64 " & Document.Name
End Select
Case "coffee" 'CoffeeScript
'コンパイルオプション
'一行目に #js と加えることでjsファイルにコンパイルを行う。
If load_option("#js") Then
CMD_OPTION="--compile"
Else
CMD_OPTION=""
BUILDED=""
End If
TITLE="CoffeeScript " & Document.Name
EXEC_COMMAND=Join(Array( _
"""",ENGINE_PATH(file_format),"\coffee"" ",CMD_OPTION," ",Document.Name, _
BUILDED _
),"")
If load_option("#js") And load_option("comp") Then
'js圧縮モード
'一行目にコメントで #comp と加える。
TITLE="Uglify.js + " & TITLE
EXEC_COMMAND=Join(Array(EXEC_COMMAND,br,COMP_JS,BUILDED),"")
End If
Case "nako" 'なでしこ
'起動オプション
'一行目にコメントで下記を含める。なしでコンソール実行
' vnako: 標準GUI
' gnako: 簡易GUI
' pad: なでしこエディタ起動(コンパイルはエディタから行う)
TITLE="なでしこ " & Document.Name
If load_option("vnako") Then
EXEC_COMMAND="vnako " & Document.Name
ElseIf load_option("gnako") Then
EXEC_COMMAND="gnako " & Document.Name
ElseIf load_option("pad") Then
EXEC_COMMAND="nakopad " & Document.Name
Else
EXEC_COMMAND="cnako " & Document.Name
End If
Case "l","lisp","lsp","cl" 'LISP, CommonLisp
Select Case ENGINE(file_format)
Case "clisp" 'CLISP
'コンパイルオプション
'一行目に ;fas と加えることでfasファイルにコンパイルを行う。
If load_option(";fas") Then
CMD_OPTION="-c"
Else
CMD_OPTION=""
End If
TITLE="CLISP " & Document.Name
EXEC_COMMAND=Join(Array("clisp ",CMD_OPTION," ",Document.Name),"")
Case "sbcl" 'SteelBankCommonLisp
'コンパイルオプション
'一行目に ;fasl と加えることでfaslファイルにコンパイルを行う。
'(Macros\exec_cmdフォルダにexec_sbcl_comp.lisp 必須)
'なお、SBCLのEXE化は以下の設定文をlispファイルに書き加えることで可能となる。
'(sb-ext:save-lisp-and-die "Hello.exe" ;ファイル名
' :toplevel #'main ;初期起動関数
' :executable t)
If load_option(";fasl") Then
Dim me_paths:me_paths=Split(Editor.FullName,"\")
me_paths(UBound(me_paths))=""
'Macrosフォルダのパス取得
Dim me_path:me_path=Join(me_paths,"\") & "Macros\exec_cmd\"
CMD_OPTION=me_path & "exec_sbcl_comp.lisp"
Else
CMD_OPTION=""
End If
TITLE="SBCL " & Document.Name
EXEC_COMMAND=Join(Array( _
"sbcl --script ",CMD_OPTION," ",Document.Name _
),"")
Case "ccl" 'ClozureLisp
'オプション無し。コンパイルはlispファイルに以下のような設定文を書き加える。
'(ccl:save-application "hello.exe" ;ファイル名
' :toplevel-function #'main ;初期起動関数
' :prepend-kernel t)
TITLE="ClozureLisp " & Document.Name
EXEC_COMMAND="wx86cl -K CP932 --load " & Document.Name & " --eval '(ccl:quit)'"
Case "ccl64" 'ClozureLisp64
TITLE="ClozureLisp64 " & Document.Name
EXEC_COMMAND="wx86cl64 -K CP932 --load " & Document.Name & " --eval '(ccl:quit)'"
Case "mkcl" 'ManKaiCommonLisp
'コンパイルオプション
'一行目に ;fas でfasファイル生成。
' ;exe でexeファイル生成
If load_option(";fas") Then
CMD_OPTION="-compile " & Document.Name
ElseIf load_option(";exe") Then
TITLE="MKCL " & Document.Name
CMD_OPTION=Join(Array( _
"-not-fasl-p -compile ",Document.Name,br, _
"timeout /t 1 > nul",br, _
"mkcl -o ",DOC_NAME,".exe -link ",DOC_NAME,".o", _
BUILDED _
),"")
'mkcl -not-fasl-p -compile a.lisp & mkcl -o a.exe -link a.o
'exe化失敗を防ぐためにwaitの小細工
Else
CMD_OPTION="-shell " & Document.Name
End If
TITLE="MKCL " & Document.Name
EXEC_COMMAND="mkcl " & CMD_OPTION
End Select
Case "el" 'EmacsLisp
'コンパイルオプション
'一行目に ;elc でelcファイル生成。
If load_option(";elc") Then
CMD_OPTION="-batch -f batch-byte-compile"
Else
CMD_OPTION="-Q --script"
End If
TITLE="EmacsLisp " & Document.Name
EXEC_COMMAND=Join(Array( _
"emacs ",CMD_OPTION," ",Document.Name _
),"")
Case "scm" 'Scheme
Select Case ENGINE(file_format)
Case "gosh" 'Gauche
TITLE="Gauche " & Document.Name
EXEC_COMMAND="gosh " & Document.Name
Case "sash" 'SagittariusScheme
TITLE="Sagittarius Scheme " & Document.Name
EXEC_COMMAND="sash " & Document.Name
End Select
Case "clj","cljs" 'Clojure
Select Case ENGINE(file_format)
Case "clojure" 'Clojure(JVM)
Dim version
version=Split(ENGINE_PATH(ENGINE(file_format)),"-")
TITLE="Clojure " & Document.Name
EXEC_COMMAND=Join(Array( _
"java -jar """,ENGINE_PATH(ENGINE(file_format)), _
"\clojure-",version(UBound(version)),".jar"" ",Document.Name _
),"")
Case "boot" 'Boot(Clojure)
TITLE="Boot(Clojure) " & Document.Name
EXEC_COMMAND="boot -f " & Document.Name
Case "clojure-clr" 'ClojureCLR
TITLE="ClojureCLR " & Document.Name
EXEC_COMMAND="Clojure.Main " & Document.Name
Case "clojure-script" 'ClojureCLR
TITLE="ClojureCLR " & Document.Name
EXEC_COMMAND="cljs " & Document.Name
Case "lumo" 'lumo(ClojureScript)
TITLE="Lumo(ClojureScript) " & Document.Name
EXEC_COMMAND="lumo " & Document.Name
End Select
Case "tcl" 'Tcl
TITLE="Tcl " & Document.Name
EXEC_COMMAND=Join(Array( _
"tclsh ",Document.Name _
),"")
Case "fs","ml","mli" 'F#
PKG_FILES=Document.Name
TITLE="F# " & Document.Name
EXEC_COMMAND=Join(Array( _
"""",ENGINE_PATH(file_format),"\fsc""", _
" --nologo --out:",DOC_NAME,".exe ",PKG_FILES," --optimize+",br, _
DOC_NAME,".exe" _
),"")
Case "hs" 'Haskell
TITLE="GHC " & Document.Name
EXEC_COMMAND=Join(Array( _
"ghc --make ",Document.Name,br, _
DOC_NAME,".exe" _
),"")
Case "cas" 'CASL II
TITLE="Java CASL II " & Document.Name
EXEC_COMMAND=Join(Array( _
"java -jar """,ENGINE_PATH(file_format),"\casl2.jar"" ",Document.Name,br, _
"java -jar ",ENGINE(file_format),"\run.jar ",DOC_NAME,".obj" _
),"")
'java -jar casl2.jar aaa.cas
'java -jar run.jar aaa.obj
Case "asm" 'NASM
TITLE="NAST " & Document.Name
EXEC_COMMAND=Join(Array("nasm -f win32 ",Document.Name,br, _
"""",ENGINE_PATH("link"),"\link"" /nologo /out:",DOC_NAME,".exe ",DOC_NAME,".obj ", _
"""",ENGINE_PATH("msvcrt"),"\msvcrt.lib"" """,ENGINE_PATH("kernel32"),"\Kernel32.lib"" ", _
ENGINE_PATH("addlib"),br, _
DOC_NAME,".exe" _
),"")
'nasm -f win32 aaa.asm
'link /nologo /out:aaa.exe aaa.obj msvcrt.lib Kernel32.lib
'aaa.exe
Case "il" '.NetILアセンブラ
TITLE=".NetIL " & Document.Name
EXEC_COMMAND=Join(Array( _
"""",ENGINE_PATH(file_format),"\ilasm"" /nologo /quiet ",Document.Name,br, _
DOC_NAME,".exe" _
),"")
Case "bat" 'BAT
TITLE="BAT " & Document.Name
EXEC_COMMAND=Document.Name
Case "wsf" 'WSF
TITLE="WSF " & Document.Name
EXEC_COMMAND="cscript //nologo " & Document.Name
Case "ps1" 'PowerShell
TITLE="PowerShell " & Document.Name
EXEC_COMMAND="powershell " & Document.Name
Case "htm","xhtml","html" 'HTML
TITLE="HTML " & Document.Name
EXEC_COMMAND="start chrome " & Document.Name
Case Else 'Other
TITLE=Document.Name
EXEC_COMMAND=Document.Name
End Select
End If
'コマンドライン起動
cmd.Run Join(Array( _
"cmd /C """, _
"title ",TITLE,br, _
"cd/d ",Document.Path,br, _
DEL_BINARY(), _
EXEC_COMMAND,br, _
"pause > nul",br, _
"exit"""),""),1
Set cmd=Nothing
'コマンドラインオプションの読込
Function load_option(opt)
load_option=Instr(LCase(Document.GetLine(1)),opt)
End Function
'exe、class、obj、min.js、jsファイルを削除するかどうか
Function DEL_BINARY()
DEL_BINARY=""
If load_option("delexe") Then _
DEL_BINARY=DEL_BINARY & Join(Array("del ",DOC_NAME,".exe",br),"")
If load_option("delclass") Then _
DEL_BINARY=DEL_BINARY & Join(Array("del ",DOC_NAME,".class",br),"")
If load_option("delobj") Then _
DEL_BINARY=DEL_BINARY & Join(Array("del ",DOC_NAME,".obj",br),"")
If load_option("deljs") And file_format<>"js" Then _
DEL_BINARY=DEL_BINARY & Join(Array("del ",DOC_NAME,".js",br),"")
If load_option("delmin") Then _
DEL_BINARY=DEL_BINARY & Join(Array("del ",DOC_NAME,".min.js",br),"")
End Function
- exec_sbcl_comp.lisp
;exec_sbcl_comp.lisp
;exec_cmd.vbs SBCLコンパイル用
;Mery以下のMacro\exec_cmd\に配置してください。
(compile-file (elt *posix-argv* 1))