「拡張子からコンソール実行」の版間の差分

← 古い編集新しい編集 →

@@ 8行目: / 8行目: @@
 == [[File:拡張子でコンソール実行.png]] 対応済み言語処理系一覧 ==
-C、C++(VC++、BCC32、GCC、G++)、D、C#、Java、Scala、Groovy、Perl、PHP(Phalanger)、Go、Dart、<br>
+C、C++(VC++、BCC32、GCC、G++)、D、C#(Momo)、scriptcs、Java、Scala、Groovy、Perl、PHP(Phalanger)、<br>
-JavaScript(Node.js、JScript、JScript.NET、Rhino)、TypeScript、Fortran(G)、VBScript、VB.NET、<br>
+Go、Dart、R言語、JavaScript(Node.js、JScript、JScript.NET、Rhino)、TypeScript、Fortran(G)、<br>
-Pascal(FPC)、Ada(GNAT)、Ruby(JRuby、IR)、Lua(JIT)、Python(PyPy、Jython、IPy)、CoffeeScript、<br>
+VBScript、VB.NET(Mono)、Pascal(FPC)、Ada(GNAT)、Ruby(JRuby、IR)、Lua(JIT)、Python(PyPy、Jython、IPy)、<br>
-CommonLisp(CLISP、SBCL、MKCL、CCL)、Scheme(Gauche)、Clojure(JVM、CLR)、F#、Haskell(GHC)、<br>
+なでしこ、CoffeeScript、CommonLisp(CLISP、SBCL、MKCL、CCL)、Scheme(Gauche)、Clojure(JVM、CLR)、<br>
-CASL II、NASM、.NetIL(ilasm)、BAT、WSF、PowerShell<br>
+F#、Haskell(GHC)、CASL II、NASM、.NetIL(ilasm)、BAT、WSF、PowerShell<br>
 <br>
 ※ただし、基本的にはパスが通っていることが前提。<br>
-HSPはコマンドラインコンパイラが標準で用意されていないため断念。(同様になでしこ。)<br>
+HSPはコマンドラインコンパイラが標準で用意されていないため断念。<br>
 公式プラグインの[[プラグイン:HSPコンパイル実行プラグイン|HSPコンパイル実行プラグイン]]をご利用ください。
 == [[File:拡張子でコンソール実行.png]] ZIP ==
-[[Media:拡張子でコンソール実行inマクロ.zip|ダウンロード【2016/05/03版】]]<br>
+[[Media:拡張子でコンソール実行inマクロ.zip|ダウンロード【2016/05/14版】]]<br>
 [[:File:拡張子でコンソール実行inマクロ.zip|旧版]]<br>
 変換済みicoファイル込<br>
@@ 50行目: / 50行目: @@
 Function ENGINE(file_format)
 	Select Case LCase(file_format)
-		'C, C++
+		'C言語
-		Case "c","cpp"
+		Case "c"
+			ENGINE="bcc32"
+			'ENGINE="gcc"
+		'C++
+		Case "cpp"
 			'ENGINE="cl"
 			'ENGINE="bcc32"
-			'ENGINE="gcc"
 			ENGINE="g++"
+		'C#
+		Case "cs"
+			ENGINE="csc"
+			'ENGINE="mcs"
 		'Perl
 		Case "pl"
@@ 66行目: / 73行目: @@
 		'JavaScript
 		Case "js"
-			'ENGINE="node"
+			ENGINE="node"
-			ENGINE="jscript"
+			'ENGINE="jscript"
 			'ENGINE="jsc"
 			'ENGINE="rhino"
+		'VB.NET
+		Case "vb"
+			'ENGINE="vbc"
+			ENGINE="vbnc"
 		'Ruby
 		Case "rb"
@@ 87行目: / 98行目: @@
 			'ENGINE="ipy64"
 		'LISP, CommonLisp
-		Case "l","lisp","lsp"
+		Case "l","lisp","lsp","cl"
 			ENGINE="clisp"
 			'ENGINE="sbcl"
@@ 104行目: / 115行目: @@
 	Select Case LCase(file_format)
 		'C#, VB.NET
-		Case "cs","vb"
+		Case "csc","vbc"
 			ENGINE_PATH="%SYSTEMROOT%\Microsoft.NET\Framework\v4.0.30319"
 			'ENGINE_PATH="%ProgramFiles%\MSBuild\12.0\Bin"
@@ 110行目: / 121行目: @@
 			'ENGINE_PATH="%ProgramFiles(x86)%\MSBuild\12.0\Bin"
 			'ENGINE_PATH="%ProgramFiles(x86)%\MSBuild\14.0\Bin"
+		'Mono C#, VB.NET
+		Case "mcs","vbnc"
+			ENGINE_PATH="%ProgramFiles%\Mono\lib\mono\4.5"
+			'ENGINE_PATH="%ProgramFiles(x86)%\Mono\lib\mono\4.5"
 		'JScript.NET
 		Case "jsc"
@@ 129行目: / 144行目: @@
 			ENGINE_PATH="%HOMEDRIVE%\clojure-1.8.0"
 		'F#
-		Case "fs"
+		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"
@@ 228行目: / 243行目: @@
 			PKG_FILES="*.cs"
 		End If
-		TITLE="C# "+ Document.Name
+		Select Case ENGINE(file_format)
-		EXEC_COMMAND=Join(Array( _
+			Case "csc"		'C#
-			"""",ENGINE_PATH(file_format),"\csc"" ", _
+				TITLE="C# "+ Document.Name
-			"/nologo /out:",DOC_NAME,".exe ",PKG_FILES," /optimize+",br, _
+				EXEC_COMMAND=Join(Array( _
-			DOC_NAME,".exe" _
+					"""",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" _
+				),"")
+		End Select
+	Case "csx"
+		TITLE="scriptcs "+ Document.Name
+		EXEC_COMMAND="scriptcs " & Document.Name
 	Case "java"		'Java
@@ 303行目: / 333行目: @@
 			"dart ",Document.Name _
 		),"")
+	Case "r","q","s"	'R言語
+		TITLE="R言語 " & Document.Name
+		EXEC_COMMAND="rscript " & Document.Name
 	Case "js"		'JavaScript
@@ 373行目: / 407行目: @@
 			PKG_FILES="*.vb"
 		End If
-		TITLE="VB.NET "+ Document.Name
+		Select Case ENGINE(file_format)
-		EXEC_COMMAND=Join(Array( _
+			Case "vbc"
-			"""",ENGINE_PATH(file_format),"\vbc""", _
+				TITLE="VB.NET "+ Document.Name
-			" /nologo /out:",DOC_NAME,".exe ",PKG_FILES," /optimize+",br, _
+				EXEC_COMMAND=Join(Array( _
-			DOC_NAME,".exe" _
+					"""",ENGINE_PATH(ENGINE(file_format)),"\vbc""", _
-		),"")
+					" /nologo /out:",DOC_NAME,".exe ",PKG_FILES," /optimize+",br, _
+					DOC_NAME,".exe" _
+				),"")
+			Case "vbnc"
+				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" _
+				),"")
+		End Select
 	Case "pas","pp"	'PASCAL
@@ 470行目: / 515行目: @@
 		),"")
-	Case "l","lisp","lsp"	'LISP, CommonLisp
+	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
@@ 558行目: / 621行目: @@
 		End Select
-	Case "fs"		'F#
+	Case "fs","ml","mli"		'F#
 		PKG_FILES=Document.Name
@@ 646行目: / 709行目: @@
 </syntaxhighlight>
 <br>
 ;exec_sbcl_comp.lisp
 <syntaxhighlight lang=Lisp line>