Added Floats and Rounding

Author: EliteAsian123

LowLevel/Floats.scope

@@ -0,0 +1,15 @@
+import "LowLevel/BitManip";
+
+/%
+Returns the exponent of @"d" as a raw int.
+%/
+func int exponentPart(dec d) {
+	ret and(shr(rawCastIntToDec(d), 52), 2047);
+}
+
+/%
+Returns the mantissa of @"d" as a raw int.
+%/
+func int mantissaPart(dec d) {
+	ret and(rawCastIntToDec(d), 4503599627370495);
+}

Math/Rounding.scope

@@ -0,0 +1,44 @@
+import "LowLevel/Floats";
+
+/%
+Rounds @"input" down to the nearest whole.
+
+`5.9` -> `5.0`
+`-86.1` -> `-86.0`
+`1.0` -> `1.0`
+%/
+func dec floor(dec input) {
+	// Floating point magic!
+	int asInt = rawCastDecToInt(input);
+	int exponent = exponentPart(input) - 1023;
+	if (exponent < 52) {
+		if (exponent < 0) {
+			// Return 0 * sign(input) if |input| < 1
+			if (asInt > -1) {
+				asInt = 0;
+			} else if (and(asInt, 9223372036854775807) != 0) { 
+				asInt = -4616189618054758400;
+			}
+		} else {
+			int i = shr(4503599627370495, exponent);
+
+			if (and(asInt, i) == 0) { 
+				ret input;
+			}
+			
+			if (asInt < 0) {
+				// input is integral
+				asInt += shr(4503599627370496, exponent);
+			}
+
+			asInt = and(asInt, not(i));
+		}
+
+		input = rawCastIntToDec(asInt);
+	} else {
+		// inf or NaN
+		ret input + input;
+	}
+
+	ret input;
+}