Permalink
Browse files

• major update to the Standard ML bundle from George Kuan

git-svn-id: http://svn.textmate.org/trunk/Bundles/Standard ML.tmbundle@7504 dfb7d73b-c2ec-0310-8fea-fb051d288c6d
  • Loading branch information...
1 parent 5625bf2 commit 752311db21ad6fd2002264cb31373f2b8d859f75 @sorbits sorbits committed Jun 11, 2007
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>beforeRunningCommand</key>
+ <string>nop</string>
+ <key>command</key>
+ <string>if [[ -d "$TM_SMLNJ_HOME/base/system" ]]; then
+ cd "$TM_SMLNJ_HOME/base/system"
+ make
+else
+ echo "No such folder: $TM_SMLNJ_HOME/base/system"
+fi
+</string>
+ <key>input</key>
+ <string>none</string>
+ <key>keyEquivalent</key>
+ <string>@b</string>
+ <key>name</key>
+ <string>Build SML</string>
+ <key>output</key>
+ <string>showAsHTML</string>
+ <key>scope</key>
+ <string>source.ml</string>
+ <key>uuid</key>
+ <string>0E144686-095D-4B69-94D0-6E0ECA41C90D</string>
+</dict>
+</plist>
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>beforeRunningCommand</key>
+ <string>nop</string>
+ <key>command</key>
+ <string>require_cmd "${TM_SML:=sml}"
+echo "CM.make \"sources.cm\";"|"$TM_SML"|pre</string>
+ <key>input</key>
+ <string>none</string>
+ <key>keyEquivalent</key>
+ <string>^R</string>
+ <key>name</key>
+ <string>Build CM</string>
+ <key>output</key>
+ <string>showAsHTML</string>
+ <key>scope</key>
+ <string>source.ml</string>
+ <key>uuid</key>
+ <string>1EA6E877-4B4E-44EC-9118-9295A0F1432D</string>
+</dict>
+</plist>
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>beforeRunningCommand</key>
+ <string>nop</string>
+ <key>command</key>
+ <string>ruby -- "$TM_SUPPORT_PATH/bin/checknest.rb" '(?x) (functor|structure) (.+) = (?=\s*struct)' 'end' 'end (* $1 $2 *)' -n$TM_LINE_NUMBER</string>
+ <key>input</key>
+ <string>document</string>
+ <key>keyEquivalent</key>
+ <string>~@.</string>
+ <key>name</key>
+ <string>Close Current Struct/Functor/Signature</string>
+ <key>output</key>
+ <string>afterSelectedText</string>
+ <key>scope</key>
+ <string>source.ml</string>
+ <key>uuid</key>
+ <string>C008E916-56AE-4310-9C05-D3070AAF1CF8</string>
+</dict>
+</plist>
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>beforeRunningCommand</key>
+ <string>nop</string>
+ <key>command</key>
+ <string>require_cmd "$TM_SMLNJ_HOME/bin/sml"
+"$TM_SMLNJ_HOME/bin/sml"|pre</string>
+ <key>input</key>
+ <string>selection</string>
+ <key>name</key>
+ <string>Run in SML (Plain)</string>
+ <key>output</key>
+ <string>showAsHTML</string>
+ <key>scope</key>
+ <string>source.ml</string>
+ <key>uuid</key>
+ <string>7AC3E384-CF13-4B70-BDAF-B3EFC22A23B9</string>
+</dict>
+</plist>
@@ -7,8 +7,8 @@
<key>beforeRunningCommand</key>
<string>nop</string>
<key>command</key>
- <string>require_cmd sml
-cat |sml |pre</string>
+ <string>require_cmd "${TM_SML:=sml}"
+"$TM_SML"|pre</string>
<key>input</key>
<string>selection</string>
<key>keyEquivalent</key>
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>name</key>
+ <string>Indentation Rules</string>
+ <key>scope</key>
+ <string>source.ml</string>
+ <key>settings</key>
+ <dict>
+ <key>decreaseIndentPattern</key>
+ <string>^(?!(struct|sig))\s*(end|in)\b</string>
+ <key>increaseIndentPattern</key>
+ <string>(?x) .*\bsig\b(?!.*\bend\b)
+ | .*\bstruct\b(?!.*\bend\b)
+ | .*\blet\b(?!.*\bin\b.*\bend\b)
+ | \blocal\b(?!.*\bin\b.*\bend\b)
+ | \bin\b(?!.*\bend\b)
+ | .*\(case\b(?!\))
+ | .*\bcase\b(?!(.*of.*=&gt;.*))</string>
+ <key>indentNextLinePattern</key>
+ <string>(?x) ^ .* : \s*(\(\* .* \*\))? \s* $
+ | ^.*fun.*(?=\n\s*\|)
+ | ^.*(?=\n\s*\|)</string>
+ </dict>
+ <key>uuid</key>
+ <string>12572377-6CB1-45C3-8012-4E2918D182C5</string>
+</dict>
+</plist>
@@ -8,10 +8,6 @@
<string>source.ml</string>
<key>settings</key>
<dict>
- <key>decreaseIndentPattern</key>
- <string>\bend\b</string>
- <key>increaseIndentPattern</key>
- <string>\b(struct|sig)\b</string>
<key>shellVariables</key>
<array>
<dict>
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>functor $1($2) : $3 =
+struct
+ $4
+end</string>
+ <key>name</key>
+ <string>Base Functor</string>
+ <key>scope</key>
+ <string>source.ml</string>
+ <key>tabTrigger</key>
+ <string>functor</string>
+ <key>uuid</key>
+ <string>37C2F4AF-A285-4455-BE67-579CE6612A09</string>
+</dict>
+</plist>
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>signature $1 =
+sig
+ $2
+end</string>
+ <key>name</key>
+ <string>Base Signature</string>
+ <key>scope</key>
+ <string>source.ml, source.sig</string>
+ <key>tabTrigger</key>
+ <string>sig</string>
+ <key>uuid</key>
+ <string>21E2CB12-84F2-48DF-A99B-0266CD96C439</string>
+</dict>
+</plist>
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>structure $1 =
+struct
+ $2
+end</string>
+ <key>name</key>
+ <string>Base Structure</string>
+ <key>scope</key>
+ <string>source.ml</string>
+ <key>tabTrigger</key>
+ <string>struct</string>
+ <key>uuid</key>
+ <string>E757D38B-C220-4E37-9F23-52B9B23BAB36</string>
+</dict>
+</plist>
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>structure ${1:Map} = RedBlackMapFn(struct
+ type ord_key = $2
+ val compare = $3
+ end)</string>
+ <key>name</key>
+ <string>RedBlackMap</string>
+ <key>scope</key>
+ <string>source.ml</string>
+ <key>tabTrigger</key>
+ <string>rbm</string>
+ <key>uuid</key>
+ <string>11C8B9AA-1C41-479A-800D-EEE0465BF9CD</string>
+</dict>
+</plist>
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>structure ${1:Set} = RedBlackSetFn (struct
+ type ord_key = $2
+ val compare = $3
+ end)
+</string>
+ <key>name</key>
+ <string>RedBlackSet</string>
+ <key>scope</key>
+ <string>source.ml</string>
+ <key>tabTrigger</key>
+ <string>rbs</string>
+ <key>uuid</key>
+ <string>292E34A2-BD32-4BD2-8B17-1B1B1A5099DC</string>
+</dict>
+</plist>
View
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>fileTypes</key>
+ <array>
+ <string>cm</string>
+ </array>
+ <key>foldingStartMarker</key>
+ <string>\(\*</string>
+ <key>foldingStopMarker</key>
+ <string>\*\)</string>
+ <key>name</key>
+ <string>CM</string>
+ <key>patterns</key>
+ <array>
+ <dict>
+ <key>begin</key>
+ <string>\(\*</string>
+ <key>captures</key>
+ <dict>
+ <key>0</key>
+ <dict>
+ <key>name</key>
+ <string>punctuation.definition.comment.cm</string>
+ </dict>
+ </dict>
+ <key>end</key>
+ <string>\*\)</string>
+ <key>name</key>
+ <string>comment.block.cm</string>
+ </dict>
+ <dict>
+ <key>match</key>
+ <string>\b(Library|is|Group|structure|signature|functor)\b</string>
+ <key>name</key>
+ <string>keyword.other.cm</string>
+ </dict>
+ <dict>
+ <key>begin</key>
+ <string>^\s*(#(if).*)</string>
+ <key>captures</key>
+ <dict>
+ <key>1</key>
+ <dict>
+ <key>name</key>
+ <string>meta.preprocessor.cm</string>
+ </dict>
+ <key>2</key>
+ <dict>
+ <key>name</key>
+ <string>keyword.control.import.if.cm</string>
+ </dict>
+ </dict>
+ <key>end</key>
+ <string>^\s*(#(endif))</string>
+ <key>name</key>
+ <string>meta.directive.cm</string>
+ </dict>
+ <dict>
+ <key>begin</key>
+ <string>"</string>
+ <key>end</key>
+ <string>"</string>
+ <key>name</key>
+ <string>string.quoted.double.cm</string>
+ <key>patterns</key>
+ <array>
+ <dict>
+ <key>match</key>
+ <string>\\.</string>
+ <key>name</key>
+ <string>constant.character.escape.cm</string>
+ </dict>
+ </array>
+ </dict>
+ </array>
+ <key>scopeName</key>
+ <string>source.cm</string>
+ <key>uuid</key>
+ <string>AEF91285-0D21-4BB0-B702-F5D0CEDBA4B8</string>
+</dict>
+</plist>
Oops, something went wrong.

0 comments on commit 752311d

Please sign in to comment.