Posted by yatsu Tue, 18 Mar 2008 10:27:41 GMT
『プログラミングGauche』を読んでいます。
TextMateでSchemeを書くには、Scheme.tmbundleを使えばよいのですが、⌘R でファイルを実行するときに gosh を使うには、以下の変更をして、設定の「Advanced」→「Shell Variables」で TM_SCHEME_INTERPRETER を gosh とすればいいようです。
diff -uNr Scheme.tmbundle.org/Commands/Run Script.plist Scheme.tmbundle/Commands/Run Script.plist
--- Scheme.tmbundle.org/Commands/Run Script.plist 2008-03-15 15:54:26.000000000 +0900
+++ Scheme.tmbundle/Commands/Run Script.plist 2008-03-15 16:42:15.000000000 +0900
@@ -28,6 +28,8 @@
"$INTERPRET" -s "$TM_FILEPATH" 2>"$TM_ERRORTEMP" | "$SHOWOUTPUT" "$INTERPRET" "$TM_ERRORTEMP"
elif [ $CMD = "guile" ] ; then
"$INTERPRET" -s "$TM_FILEPATH" 2>"$TM_ERRORTEMP" | "$SHOWOUTPUT" "$INTERPRET" "$TM_ERRORTEMP"
+elif [ $CMD = "gosh" ] ; then
+ "$INTERPRET" "$TM_FILEPATH" 2>"$TM_ERRORTEMP" | "$SHOWOUTPUT" "$INTERPRET" "$TM_ERRORTEMP"
fi
# Delete tempfiles
diff -uNr Scheme.tmbundle.org/Support/showoutput.rb Scheme.tmbundle/Support/showoutput.rb
--- Scheme.tmbundle.org/Support/showoutput.rb 2008-03-15 15:54:26.000000000 +0900
+++ Scheme.tmbundle/Support/showoutput.rb 2008-03-15 17:02:29.000000000 +0900
@@ -126,7 +126,8 @@
schemesystem = File.basename(interpreter)
systems = { "csi" => "Chicken Scheme",
- "mzscheme" => "PLT MzScheme" }
+ "mzscheme" => "PLT MzScheme",
+ "gosh" => "Gauche" }
# Start HTML output.
printheader(systems[schemesystem], interpreter)
