Add bitwise AND, OR and XOR modes to math block

.gitignore

@@ -1,3 +1,4 @@
 /cache/
+/Cache/
 /description.json
-preview.png
+preview.png

Scripts/interactable/NumberLogic/MathBlock.lua

@@ -56,6 +56,9 @@ MathBlock.modetable = {--"value" aka "savevalue", gets saved, gets loaded.
 	{value = 29, icon = "seated",  name = "Seated"                ,description = "Becomes active and outputs the value of input seats occupied"},
 	{value = 30, icon = "A/D",     name = "A/D"                   ,description = "Outputs the A/D value, range: -1 to 1\nMultiple driverseat inputs: average of A/D output of inputs,\nExcellent for teamwork!"},
 	{value = 31, icon = "W/S",     name = "W/S"                   ,description = "Outputs the W/S value, range: -1 to 1\nMultiple driverseat inputs: average of W/S output of inputs,\nExcellent for teamwork!"},
+	{value = 39, icon = "OR",      name = "Bitwise OR"            ,description = "Outputs a number where each bit is 1 if the corresponding bit of ANY input is 1\n\nNegative inputs are treated as 0, non-integer inputs are rounded"},
+	{value = 40, icon = "AND",     name = "Bitwise AND"           ,description = "Outputs a number where each bit is 1 if the corresponding bit of ALL inputs is 1\n\nNegative inputs are treated as 0, non-integer inputs are rounded"},
+	{value = 41, icon = "XOR",     name = "Bitwise XOR"           ,description = "Outputs a number where each bit is 1 if the corresponding bit of AN ODD NUMBER of inputs is 1\n\nNegative inputs are treated as 0, non-integer inputs are rounded"},
 }
 MathBlock.savemodes = {}
 for k,v in pairs(MathBlock.modetable) do
@@ -823,7 +826,67 @@ MathBlock.modeFunctions = {
 				end
 			end
 			self:sv_setValue(power)
+		end,
+
+	[39] = function(self, parents)  -- bitiwise or
+			local bits = {}
+
+			for k, parent in pairs(parents) do
+				local value = math.round(sm.interactable.getValue(parent) or parent.power)
+				for bit in math.bitsiter(value) do
+					bits[bit] = true
+				end
+			end
+
+			local result = 0
+			for bit, value in pairs(bits) do
+				if value == true then
+					result = result + 2 ^ bit
+				end
+			end
+
+			self:sv_setValue(result)
+		end,
+
+	[40] = function(self, parents)  -- bitiwise and
+		local bitcounts = {}
+
+		for k, parent in pairs(parents) do
+			local value = math.round(sm.interactable.getValue(parent) or parent.power)
+			for bit in math.bitsiter(value) do
+				bitcounts[bit] = (bitcounts[bit] or 0) + 1
+			end
 		end
+
+		local result = 0
+		for bit, value in pairs(bitcounts) do
+			if value == #parents then
+				result = result + 2 ^ bit
+			end
+		end
+
+		self:sv_setValue(result)
+	end,
+
+	[41] = function(self, parents)  -- bitiwise xor
+		local bits = {}
+
+		for k, parent in pairs(parents) do
+			local value = math.round(sm.interactable.getValue(parent) or parent.power)
+			for bit in math.bitsiter(value) do
+				bits[bit] = not bits[bit]
+			end
+		end
+
+		local result = 0
+		for bit, value in pairs(bits) do
+			if value == true then
+				result = result + 2 ^ bit
+			end
+		end
+
+		self:sv_setValue(result)
+	end,
 }
 
 
@@ -904,7 +967,7 @@ function MathBlock.client_onInteract(self, character, lookAt)
 		for i = 0, 23 do
 			self.gui:setButtonCallback( "Operation" .. tostring( i ), "cl_onModeButtonClick" )
 		end
-		
+
 		for i = 1, 3 do
 			self.gui:setButtonCallback( "Page" .. tostring( i ), "cl_onPageButtonClick" )
 		end

Scripts/libs/math.lua

@@ -14,10 +14,43 @@ function math.roundby( x, by)
 
 end
 
+--- Returns a stateful iterator function that returns the indexes
+--- of the bits of x, from least significant to most significant.
+---
+--- The iterator returns no bits if x is negative.
+--- If x is not an integer, it will be rounded to the nearest integer
+--- using math.round().
+---
+--- Generator complexity: O(log2 x)
+function math.bitsiter(x)
+	x = math.round(x)
+
+	if x < 0 then
+		return function ()
+			return nil
+		end
+	end
+
+	local i = 0
+	return function()
+		while x % 2 == 0 do
+			x = math.floor(x / 2)
+			i = i + 1
+			if x <= 0 then
+				return nil
+			end
+		end
+
+		x = math.floor(x / 2)
+		i = i + 1
+		return i-1
+	end
+end
+
 function table.size(tablename)
 	local i = 0
 	for k, v in pairs(tablename) do
 		i = i +1
 	end
 	return i
-end
+end