From e91641596376e0aa3cb68a4930ca19e82d36490b Mon Sep 17 00:00:00 2001
From: Benjamin Pollack <benjamin.pollack@gmail.com>
Date: Fri, 8 Sep 2006 06:06:11 +0000
Subject: [PATCH] Added initial TextMate language bundle

---
 .../Syntaxes/Factor.tmLanguage                | 95 +++++++++++++++++++
 contrib/textmate/Factor.tmbundle/info.plist   | 10 ++
 2 files changed, 105 insertions(+)
 create mode 100644 contrib/textmate/Factor.tmbundle/Syntaxes/Factor.tmLanguage
 create mode 100644 contrib/textmate/Factor.tmbundle/info.plist

diff --git a/contrib/textmate/Factor.tmbundle/Syntaxes/Factor.tmLanguage b/contrib/textmate/Factor.tmbundle/Syntaxes/Factor.tmLanguage
new file mode 100644
index 0000000000..5b01909a04
--- /dev/null
+++ b/contrib/textmate/Factor.tmbundle/Syntaxes/Factor.tmLanguage
@@ -0,0 +1,95 @@
+<?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>factor</string>
+	</array>
+	<key>foldingStartMarker</key>
+	<string>^\s*(M|C)?:|#(V|H|C)\{</string>
+	<key>foldingStopMarker</key>
+	<string>^\s*$</string>
+	<key>keyEquivalent</key>
+	<string>^~F</string>
+	<key>name</key>
+	<string>Factor</string>
+	<key>patterns</key>
+	<array>
+		<dict>
+			<key>captures</key>
+			<dict>
+				<key>3</key>
+				<dict>
+					<key>name</key>
+					<string>keyword.colon.factor</string>
+				</dict>
+				<key>4</key>
+				<dict>
+					<key>name</key>
+					<string>keyword.colon.factor</string>
+				</dict>
+				<key>5</key>
+				<dict>
+					<key>name</key>
+					<string>keyword.colon.factor</string>
+				</dict>
+				<key>6</key>
+				<dict>
+					<key>name</key>
+					<string>entity.name.class.factor</string>
+				</dict>
+				<key>7</key>
+				<dict>
+					<key>name</key>
+					<string>comment.stack-effect.factor</string>
+				</dict>
+			</dict>
+			<key>match</key>
+			<string>^(((M:)\s+[^\s]+)|(:)|(C:))\s*([^\s]+)\s*(\(\s.*\))?</string>
+			<key>name</key>
+			<string>definition.word.factor</string>
+		</dict>
+		<dict>
+			<key>match</key>
+			<string>\b(drop|2drop|3drop|nip|2nip|dup|2dup|3dup|dupd|over|pick|tuck|swap|rot|-rot|2swap|swapd|&gt;r|r&gt;)\b</string>
+			<key>name</key>
+			<string>keyword.control.stack.factor</string>
+		</dict>
+		<dict>
+			<key>match</key>
+			<string>\b(f|t)\b</string>
+			<key>name</key>
+			<string>constant.language.factor</string>
+		</dict>
+		<dict>
+			<key>begin</key>
+			<string>"</string>
+			<key>end</key>
+			<string>"</string>
+			<key>name</key>
+			<string>string.quoted.double.factor</string>
+		</dict>
+		<dict>
+			<key>begin</key>
+			<string>#!|!</string>
+			<key>end</key>
+			<string>$</string>
+			<key>name</key>
+			<string>comment.line.factor</string>
+		</dict>
+		<dict>
+			<key>begin</key>
+			<string>\(\s+</string>
+			<key>end</key>
+			<string>\s+\)</string>
+			<key>name</key>
+			<string>comment.parens.factor</string>
+		</dict>
+	</array>
+	<key>scopeName</key>
+	<string>source.factor</string>
+	<key>uuid</key>
+	<string>3C9C9C2A-314A-475B-A4E4-A68BAAF3F36E</string>
+</dict>
+</plist>
diff --git a/contrib/textmate/Factor.tmbundle/info.plist b/contrib/textmate/Factor.tmbundle/info.plist
new file mode 100644
index 0000000000..8def3807d7
--- /dev/null
+++ b/contrib/textmate/Factor.tmbundle/info.plist
@@ -0,0 +1,10 @@
+<?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>Factor</string>
+	<key>uuid</key>
+	<string>8061D2F3-B603-411D-AFFE-61784A07906D</string>
+</dict>
+</plist>