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

@@ -34,7 +34,6 @@
 # test changes in `test/test_blob.rb`.
 #
 # Please keep this list alphabetized. Capitalization comes before lowercase.
----
 1C Enterprise:
   type: programming
   color: "#814CCC"
@@ -3879,6 +3878,17 @@ 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: "#14a5ff"
+  extensions:
+  - ".luau"
+  interpreters:
+  - lua
 M:
   type: programming
   aliases:

samples/Luau/signal.luau

@@ -0,0 +1,37 @@
+--[[
+Simple signal/slot implementation
+]]
+local signal_mt = {
+    __index = {
+        register = table.insert
+    }
+}
+function signal_mt.__index:emit(... --[[ Comment in params ]])
+    for _: number, slot: any in ipairs(self) do
+        slot(self, ...)
+    end
+end
+local function create_signal(): typeof(signal_mt)
+    return setmetatable({}, signal_mt)
+end
+
+-- Signal test
+local signal: typeof(signal_mt) = create_signal()
+signal:register(function(_signal, ...)
+    print(...)
+end)
+signal:emit('Answer to Life, the Universe, and Everything:', 42)
+
+-- Output test
+local testNumber: number = 10
+
+print(`this is line, and "testNumber" equals to: {testNumber}.`)
+
+--[==[ [=[ [[
+Nested ]]
+multi-line ]=]
+comment ]==]
+[==[ Nested
+[=[ multi-line
+[[ string
+]] ]=] ]==]

samples/Luau/vector.luau

@@ -0,0 +1,170 @@
+--// Vector
+--// Written by Demo (R0BL0XIAN_D3M0)
+--// [https://www.roblox.com/users/289025524/profile]
+--// 11/09/2023
+
+--// Types
+type TVector = Vector2 | Vector3
+
+--[=[
+	@class Vector
+
+	A collection of very useful vector-related functions.
+]=]
+local Vector = {}
+
+--// Functions
+
+--[=[
+	@within Vector
+
+	@param vector Vector2 -- The `Vector2` coordinate.
+
+	@return Vector3 -- Return the newly created `Vector3`.
+
+	Create a `Vector3` from a `Vector2` within the XY plane.
+]=]
+function Vector.FromVector2XY(vector: Vector2): Vector3
+	return (Vector3.new(vector.X, vector.Y, 0))
+end
+
+--[=[
+	@within Vector
+
+	@param vector Vector2 -- The `Vector2` coordinate.
+
+	@return Vector3 -- Return the newly created `Vector3`.
+
+	Create a `Vector3` from a `Vector2` within the XZ plane, unlike `FromVector2XY`.
+]=]
+function Vector.FromVector2XZ(vector: Vector2): Vector3
+	return (Vector3.new(vector.X, 0, vector.Y))
+end
+
+--[=[
+	@within Vector
+
+	@param vector Vector2 -- The initial `Vector2` coordinate.
+
+	@param _vector Vector2 -- The secondary `Vector2` coordinate.
+
+	@return number -- Return the computed angle in a numerical form or nil.
+
+	Compute the angle between two vectors in radians.
+]=]
+function Vector.RetrieveAngleRadian(vector: Vector2, _vector: Vector2): number?
+	if vector.Magnitude == 0 then
+		return nil
+	end
+
+	return (math.acos(vector:Dot(_vector)))
+end
+
+--[=[
+	@within Vector
+
+	@param vector Vector2 -- The initial `Vector2` coordinate.
+
+	@param _vector Vector2 -- The secondary `Vector2` coordinate.
+
+	@return number -- Return the computed angle in a numerical form.
+
+	Compute the angle between two vectors.
+]=]
+function Vector.AngleBetweenVectors(vector: Vector2, _vector: Vector2): number
+	local newVector: Vector2 = (_vector.Magnitude * vector)
+	local _newVector: Vector2 = (vector.Magnitude * _vector)
+
+	return (2 * (math.atan2((_newVector - newVector).Magnitude, (newVector + _newVector).Magnitude)))
+end
+
+--[=[
+	@within Vector
+
+	@param vector Vector3 -- The original `Vector3` coordinate.
+
+	@param amount number -- The primary amount.
+
+	@return Vector3 -- Return the rounded `Vector3`.
+
+	Round the specified `Vector3` to the nearest number.
+]=]
+function Vector.Round(vector: Vector3, amount: number): Vector3
+	return (
+		Vector3.new(
+			((math.round(vector.X / amount)) * amount),
+			((math.round(vector.Y / amount)) * amount),
+			((math.round(vector.Z / amount)) * amount)
+		)
+	)
+end
+
+--[=[
+	@within Vector
+
+	@param vector TVector -- The vector coordinate (`Vector2` or `Vector3`).
+
+	@param maxMagnitude number -- The maximum magnitude.
+
+	@return number -- Return the clamped magnitude.
+
+	Clamp the magnitude of a vector so it is only a certain length.
+]=]
+function Vector.ClampMagnitude(vector: TVector, maxMagnitude: number): number
+	return ((vector.Magnitude > maxMagnitude) and (vector.Unit * maxMagnitude) or vector)
+end
+
+--[=[
+	@within Vector
+
+	@param vector TVector -- The initial vector coordinate (`Vector2` or `Vector3`).
+
+	@param _vector TVector -- The secondary vector coordinate (`Vector2` or `Vector3`).
+
+	@return number -- Return the radianed angle.
+
+	Finds the angle in radians between two vectors.
+]=]
+function Vector.AngleBetween(vector: TVector, _vector: TVector): number
+	return (math.acos(math.clamp(vector.Unit:Dot(_vector.Unit), -1, 1)))
+end
+
+--[=[
+	@within Vector
+
+	@param vector TVector -- The initial vector coordinate (`Vector2` or `Vector3`).
+
+	@param _vector TVector -- The secondary vector coordinate (`Vector2` or `Vector3`).
+
+	@param axisVector Vector -- The axis vector coordinate (`Vector` or `Vector3`).
+
+	@return number -- Return the radianed angle.
+
+	Finds the angle in radians between two vectors and returns a signed value.
+]=]
+function Vector.AngleBetweenSigned(vector: TVector, _vector: TVector, axisVector: TVector): number
+	local angle: number = Vector.AngleBetween(vector, _vector)
+
+	return (angle * (math.sign(axisVector:Dot(vector:Cross(_vector)))))
+end
+
+--[=[
+	@within Vector
+
+	@return Vector3 -- Return the random `Vector3` coordinate.
+
+	Return a random unit vector (could be used for equal distribution around a sphere).
+]=]
+function Vector.RetrieveRandomUnitVector(): Vector3
+	local randomX: number = (2 * ((math.random()) - 0.5))
+	local randomY: number = (6.2831853071796 * (math.random()))
+	local randomZ: number = ((1 - (randomX * randomX)) ^ 0.5)
+
+	local X: number = randomX
+	local Y: number = (randomZ * (math.cos(randomZ)))
+	local Z: number = (randomZ * (math.sin(randomY)))
+
+	return (Vector3.new(X, Y, Z))
+end
+
+return Vector

vendor/README.md

@@ -313,6 +313,7 @@ This is a list of grammars that Linguist selects to provide syntax highlighting
 - **LookML:** [atom/language-yaml](https://github.com/atom/language-yaml)
 - **LoomScript:** [ambethia/Sublime-Loom](https://github.com/ambethia/Sublime-Loom)
 - **Lua:** [textmate/lua.tmbundle](https://github.com/textmate/lua.tmbundle)
+- **Luau:** [JohnnyMorganz/Luau.tmLanguage](https://github.com/JohnnyMorganz/Luau.tmLanguage)
 - **M4:** [Alhadis/language-etc](https://github.com/Alhadis/language-etc)
 - **M4Sugar:** [Alhadis/language-etc](https://github.com/Alhadis/language-etc)
 - **MATLAB:** [mathworks/MATLAB-Language-grammar](https://github.com/mathworks/MATLAB-Language-grammar)

vendor/licenses/git_submodule/luau.tmLanguage.dep.yml

@@ -0,0 +1,56 @@
+name: Luau.tmLanguag
+version: 9f320add6dd099f99897a03c5e2ce3ca5f176d7f
+type: git_submodule
+homepage: https://github.com/JohnnyMorganz/Luau.tmLanguage.git
+license: mit
+licenses:
+- sources: LICENSE.md
+  text: |-
+    Copyright (c) JohnnyMorganz
+    All rights reserved.
+
+    MIT License
+
+    Permission is hereby granted, free of charge, to any person obtaining a copy
+    of this software and associated documentation files (the "Software"), to deal
+    in the Software without restriction, including without limitation the rights
+    to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+    copies of the Software, and to permit persons to whom the Software is
+    furnished to do so, subject to the following conditions:
+
+    The above copyright notice and this permission notice shall be included in
+    all copies or substantial portions of the Software.
+
+    THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+    IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+    FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+    AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+    LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+    OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+    THE SOFTWARE.
+
+    ===
+
+    Copyright (c) Microsoft Corporation
+    All rights reserved.
+
+    MIT License
+
+    Permission is hereby granted, free of charge, to any person obtaining a copy
+    of this software and associated documentation files (the "Software"), to deal
+    in the Software without restriction, including without limitation the rights
+    to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+    copies of the Software, and to permit persons to whom the Software is
+    furnished to do so, subject to the following conditions:
+
+    The above copyright notice and this permission notice shall be included in
+    all copies or substantial portions of the Software.
+
+    THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+    IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+    FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+    AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+    LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+    OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+    THE SOFTWARE.
+notices: []