formatting

Author: CapsAdmin

examples/projects/luajit/src/platforms/unix/filesystem.nlua

@@ -183,7 +183,7 @@ do
 
 	local dot = string.byte(".")
 
-	local function is_dots(ptr: {[number] = number})--FFIArray<|3, number|>)
+	local function is_dots(ptr: {[number] = number}) --FFIArray<|3, number|>)
 		if ptr[0] == dot then
 			if ptr[1] == dot and ptr[2] == 0 then return true end
 

language_server/main.lua

@@ -43,7 +43,6 @@ local jit_profiler = require("test.helpers.jit_profiler")
 
 while true do
 	local body = read_message()
-
 	local stop_profiler = jit_profiler.Start(
 		{
 			mode = "line",
@@ -52,7 +51,6 @@ while true do
 			sample_threshold = 100,
 		}
 	)
-
 	local res = rpc_util.ReceiveJSON(body, lsp.methods)
 
 	if stop_profiler then print(stop_profiler()) end

nattlua/c_declarations/analyzer.lua

@@ -181,9 +181,7 @@ local function cast(self, node)
 
 		local t = node.modifiers[1]
 
-		if t == "const" then
-			t = assert(node.modifiers[2])
-		end
+		if t == "const" then t = assert(node.modifiers[2]) end
 
 		if valid_qualifiers[t] then
 			return Number()

nattlua/definitions/attest.nlua

@@ -2,6 +2,7 @@ local type attest = {}
 
 analyzer function attest.equal(A: any, B: any, level: nil | 0 .. inf)
 	local ok, reason = A:Equal(B)
+
 	if not ok then
 		analyzer:ThrowError(
 			"expected " .. tostring(B) .. " got " .. tostring(A) .. ": " .. tostring(reason),

nattlua/types/number.lua

@@ -27,18 +27,16 @@ end
 	Type = "union",
 	GetLargestNumber = function=(self)>(TNumber | nil, nil | any),
 }]]
-
 local VERSION = jit and "LUAJIT" or _VERSION
 
 local function tostring_number(num)
 	local s = tostring(tonumber(num))
+
 	if VERSION == "LUAJIT" then return s end
 
 	if s == "-nan" then return "nan" end
 
-	if s:sub(-2) == ".0" then
-		s = s:sub(1, -3)
-	end
+	if s:sub(-2) == ".0" then s = s:sub(1, -3) end
 
 	return s
 end
@@ -614,8 +612,17 @@ do
 end
 
 local function string_to_integer(str--[[#: string]])
-	if not jit and (_VERSION == "Lua 5.1" or _VERSION == "Lua 5.2" or _VERSION == "Lua 5.3" or _VERSION == "Lua 5.4") then
+	if
+		not jit and
+		(
+			_VERSION == "Lua 5.1" or
+			_VERSION == "Lua 5.2" or
+			_VERSION == "Lua 5.3" or
+			_VERSION == "Lua 5.4"
+		)
+	then
 		str = str:lower():sub(-3)
+
 		if str == "ull" then
 			str = str:sub(1, -4)
 		elseif str:sub(-2) == "ll" then

nattlua/types/string.lua

@@ -19,20 +19,18 @@ META:GetSet("PatternContract", false--[[# as false | string]])
 
 function META.Equal(a--[[#: TString]], b--[[#: TString]])
 	if a.Type ~= b.Type then return false, "types differ" end
+
 	return a.Hash == b.Hash, "string values are equal"
 end
 
 local STRING_ID = "string"
 
 local function compute_hash(data, pattern)
-	if pattern then
-		return pattern
-	elseif data then
-		return data
-	end
+	if pattern then return pattern elseif data then return data end
 
 	return STRING_ID
 end
+
 function META:GetHashForMutationTracking()
 	if self.Data then return self.Hash end
 
@@ -147,7 +145,7 @@ local function new(data--[[#: string | nil]], pattern--[[#: string | nil]])
 			Parent = false,
 			Contract = false,
 			MetaTable = false,
-			Hash = compute_hash(data, pattern)
+			Hash = compute_hash(data, pattern),
 		},
 		META
 	)
@@ -183,6 +181,7 @@ end
 
 function META:Widen()
 	if self.PatternContract then return self end
+
 	return META.New()
 end
 
@@ -205,9 +204,9 @@ function META:CopyLiteralness(obj--[[#: TBaseType]])
 				if str then if str.PatternContract then return self end end
 			end
 
-			if not obj:IsLiteral() then 
-				self.Data = false 
-				self.Hash = compute_hash(self.Data, self.PatternContract) 
+			if not obj:IsLiteral() then
+				self.Data = false
+				self.Hash = compute_hash(self.Data, self.PatternContract)
 			end
 		end
 	end

nattlua/types/table.lua

@@ -485,9 +485,7 @@ end
 local function read_cache_no_error(self, key)
 	local hash = get_hash(key)
 
-	if hash then
-		return self.LiteralDataCache[hash]
-	end
+	if hash then return self.LiteralDataCache[hash] end
 
 	return nil
 end
@@ -622,7 +620,6 @@ function META:FindKeyValWide(key--[[#: TBaseType]])
 	return false, type_errors.because(type_errors.table_index(self, key), reasons)
 end
 
-
 function META:Insert(val--[[#: TBaseType]])
 	self.size = self.size or 1
 	self:Set(LNumber(self.size), val)
@@ -683,7 +680,6 @@ function META:SetExplicit(key--[[#: TBaseType]], val--[[#: TBaseType]])
 
 	-- if the key exists, check if we can replace it and maybe the value
 	AddKey(self, read_cache_no_error(self, key), key, val)
-	
 	return true
 end
 

nlconfig.lua

@@ -74,7 +74,6 @@ config["build-for-ai"] = function(mode)
 		["nattlua/parser.lua"] = "parses lua code into an AST",
 	}
 	local tokens = {}
-
 	local f = io.open("nattlua_for_ai.lua", "w")
 
 	for _, path in ipairs(paths) do

test/helpers/coverage.lua

@@ -78,38 +78,36 @@ function coverage.Preprocess(code, key)
 	lua = lua .. [[called[key][3] = called[key][3] + 1;]]
 	lua = lua .. [[return ...;]]
 	lua = lua .. [[end; ]]
-
 	local gen = compiler:Emit()
 
 	if code:find("clock_gettime", nil, true) then
-
 		function _G.diff(input, expect)
 			local a = os.tmpname()
 			local b = os.tmpname()
-		
+
 			do
 				local f = assert(io.open(a, "w"))
 				f:write(input)
 				f:close()
 			end
-		
+
 			do
 				local f = assert(io.open(b, "w"))
 				f:write(expect)
 				f:close()
 			end
-		
+
 			os.execute("meld " .. a .. " " .. b)
 		end
-		
 
 		local old = code
 		local new = gen
 
 		for i = 1, 100 do
-			local temp, count = new:gsub(" __CLCT%b()", function(str) 
+			local temp, count = new:gsub(" __CLCT%b()", function(str)
 				return str:match("^ __CLCT%(%d+,%d+,(.+)%)")
 			end)
+
 			if count == 0 then break end
 
 			new = temp

test/helpers/jit_profiler.lua

@@ -234,7 +234,6 @@ function profiler.Start(config--[[#: Config | nil]])
 	config.depth = config.depth or 1
 	config.sampling_rate = config.sampling_rate or 10
 	config.sample_threshold = config.sample_threshold or 50
-
 	local raw_samples--[[#: List<|{
 		stack = string,
 		sample_count = number,

test/tests/coverage.lua

@@ -40,13 +40,14 @@ collect[[
 
     end
 ]]
-
-assert(collect[[
+assert(
+	collect[[
 local x = 1
 local y = 2
 local z = x + y or true]] == [=[local x = --[[1]]1
 local y = --[[1]]2
-local z = --[[1]]--[[1]]--[[1]]x + --[[1]]y or true]=])
+local z = --[[1]]--[[1]]--[[1]]x + --[[1]]y or true]=]
+)
 collect([=[
 --ANALYZE
 local setmetatable = _G.setmetatable
@@ -249,4 +250,4 @@ local code = META.New([[
 ]], "test")
 
 
-]=])
+]=])

test/tests/nattlua/analyzer/analyzer.lua

@@ -688,8 +688,6 @@ local type b = (1, 2, 3, 4)
 attest.equal<|b[4], 4|>
 
 ]])
-
-
 analyze[[
 local x: {["a" | "b" | "c"] = 1 | 2 | 3} = {a = 2}
-]]
+]]

test/tests/nattlua/analyzer/list.lua

@@ -40,8 +40,10 @@ check(
 	analyze[[local a: {[1 .. inf] = any} = {[1234] = 1}]],
 	"{ [1234 as 1..inf] = number as any }"
 )
-
-check(analyze([[local a: {["a" | "b" | "c"] = 1 | 2 | 3} = {a = 2}]]), [[{ ["a" as "a" | "b" | "c"] = 2 as 1 | 2 | 3 }]])
+check(
+	analyze([[local a: {["a" | "b" | "c"] = 1 | 2 | 3} = {a = 2}]]),
+	[[{ ["a" as "a" | "b" | "c"] = 2 as 1 | 2 | 3 }]]
+)
 analyze([[local a: {[1 .. inf] = any} = {[-1234] = 1}]], [[has no key %-1234]])
 analyze[[
         -- traditional array