Add Luau language

.gitmodules

@@ -848,6 +848,9 @@
 [submodule "vendor/grammars/lua.tmbundle"]
 	path = vendor/grammars/lua.tmbundle
 	url = https://github.com/textmate/lua.tmbundle
+[submodule "vendor/grammars/Luau.tmLanguage"]
+	path = vendor/grammars/Luau.tmLanguage
+	url = https://github.com/JohnnyMorganz/Luau.tmLanguage.git
 [submodule "vendor/grammars/m3"]
 	path = vendor/grammars/m3
 	url = https://github.com/newgrammars/m3

grammars.yml

@@ -809,6 +809,8 @@ vendor/grammars/logtalk.tmbundle:
 - source.logtalk
 vendor/grammars/lua.tmbundle:
 - source.lua
+vendor/grammars/Luau.tmLanguage:
+- source.luau
 vendor/grammars/m3:
 - source.modula-3
 vendor/grammars/make.tmbundle:

lib/linguist/languages.yml

@@ -3879,6 +3879,18 @@ Lua:
   interpreters:
   - lua
   language_id: 213
+Luau:
+  type: programming
+  tm_scope: source.luau
+  ace_mode: lua
+  codemirror_mode: lua
+  codemirror_mime_type: text/x-lua
+  color: "#00A2FF"
+  extensions:
+  - ".luau"
+  interpreters:
+  - luau
+  language_id: 365050359
 M:
   type: programming
   aliases:

samples/Luau/createProcessor.luau

@@ -0,0 +1,22 @@
+--// Authored by @sinlerdev (https://github.com/sinlerdev)
+--// Fetched from (https://github.com/vinum-team/Vinum/blob/b80a6c194e6901f9d400968293607218598e1386/src/Utils/createProcessor.luau)
+--// Licensed under the MIT License (https://github.com/vinum-team/Vinum/blob/b80a6c194e6901f9d400968293607218598e1386/LICENSE)
+
+--!strict
+local function createProcessor(valueChecker: (a: any, b: any) -> boolean, cleaner: (taskItem: any) -> ())
+	return function<T>(old: T, new: T, isDestroying: boolean)
+		if isDestroying then
+			cleaner(old)
+			return false
+		end
+
+		if valueChecker(old, new) then
+			return false
+		end
+
+		cleaner(old)
+		return true
+	end
+end
+
+return createProcessor

samples/Luau/createSignal.luau

@@ -0,0 +1,37 @@
+--// Authored by @AmaranthineCodices (https://github.com/AmaranthineCodices)
+--// Fetched from (https://github.com/Floral-Abyss/recs/blob/be123afef8f1fddbd9464b7d34d5178393601ae3/recs/createSignal.luau)
+--// Licensed under the MIT License (https://github.com/Floral-Abyss/recs/blob/master/LICENSE.md)
+
+--!strict
+
+local function createSignal()
+	local listeners = {}
+	local signal = {}
+
+	function signal:Connect(listener)
+		listeners[listener] = true
+
+		local connection = {
+			Connected = true,
+		}
+
+		function connection.Disconnect()
+			connection.Connected = false
+			listeners[listener] = nil
+		end
+		connection.disconnect = connection.Disconnect
+
+		return connection
+	end
+	signal.connect = signal.Connect
+
+	local function fire(...)
+		for listener, _ in pairs(listeners) do
+			spawn(listener, ...)
+		end
+	end
+
+	return signal, fire
+end
+
+return createSignal

samples/Luau/equals.luau

@@ -0,0 +1,17 @@
+--// Authored by @sinlerdev (https://github.com/sinlerdev)
+--// Fetched from (https://github.com/vinum-team/Vinum/blob/b80a6c194e6901f9d400968293607218598e1386/src/Utils/equals.luau)
+--// Licensed under the MIT License (https://github.com/vinum-team/Vinum/blob/b80a6c194e6901f9d400968293607218598e1386/LICENSE)
+
+--!strict
+
+local function equals(a: any, b: any): boolean
+	-- INFO: Vinum doesn't officially support immutability currently- so, we just assume
+	-- that every new table entry is not equal. See issue 26
+	if type(a) == "table" then
+		return false
+	end
+
+	return a == b
+end
+
+return equals

samples/Luau/isEmpty.luau

@@ -0,0 +1,21 @@
+--// Authored by @benbrimeyer (https://github.com/benbrimeyer)
+--// Fetched from (https://github.com/duckarmor/Freeze/blob/670bb6593d8cc54cdcbb96cd94d1273ee0420abb/source/isEmpty.luau)
+--// Licensed under the MIT License (https://github.com/duckarmor/Freeze/blob/670bb6593d8cc54cdcbb96cd94d1273ee0420abb/LICENSE)
+
+--!strict
+--[=[
+	Returns true if the collection is empty.
+
+	```lua
+	Freeze.isEmpty({})
+	-- true
+	```
+
+	@within Freeze
+	@function isEmpty
+	@return boolean
+]=]
+
+return function(collection)
+	return next(collection) == nil
+end

samples/Luau/none.luau

@@ -0,0 +1,21 @@
+--// Authored by @benbrimeyer (https://github.com/benbrimeyer)
+--// Fetched from (https://github.com/duckarmor/Freeze/blob/670bb6593d8cc54cdcbb96cd94d1273ee0420abb/source/None.luau)
+--// Licensed under the MIT License (https://github.com/duckarmor/Freeze/blob/670bb6593d8cc54cdcbb96cd94d1273ee0420abb/LICENSE)
+
+--[=[
+	@prop None None
+	@within Freeze
+
+	Since lua tables cannot distinguish between values not being present and a value of nil,
+	`Freeze.None` exists to represent values that should be interpreted as `nil`.
+
+	This is useful when removing values with functions such as [`Freeze.Dictionary.merge`](../api/Dictionary#merge).
+]=]
+
+local None = newproxy(true)
+
+getmetatable(None).__tostring = function()
+	return "Freeze.None"
+end
+
+return None