add SGN, INT, DATA, RESTORE, ATAN, ATAN2, CEIL, ROUND, FMOD, ASN, ACS, EXP, LOG, DEG, RAD to bring REAL functions up to BASIC IV standard

Author: braindigitalis

include/basic.h

@@ -599,6 +599,8 @@ int64_t basic_cpuid(struct basic_ctx* ctx);
 int64_t basic_atoi(struct basic_ctx* ctx);
 int64_t basic_shl(struct basic_ctx* ctx);
 int64_t basic_shr(struct basic_ctx* ctx);
+int64_t basic_sgn(struct basic_ctx* ctx);
+int64_t basic_int(struct basic_ctx* ctx);
 
 /*
  * Builtin string functions
@@ -649,6 +651,8 @@ void rmdir_statement(struct basic_ctx* ctx);
 void write_statement(struct basic_ctx* ctx);
 void chdir_statement(struct basic_ctx* ctx);
 char* basic_filetype(struct basic_ctx* ctx);
+void data_statement(struct basic_ctx* ctx);
+void restore_statement(struct basic_ctx* ctx);
 
 /*
  * Builtin real (double) functions
@@ -658,7 +662,17 @@ void basic_cos(struct basic_ctx* ctx, double* res);
 void basic_tan(struct basic_ctx* ctx, double* res);
 void basic_pow(struct basic_ctx* ctx, double* res);
 void basic_sqrt(struct basic_ctx* ctx, double* res);
-
+void basic_atan(struct basic_ctx* ctx, double* res);
+void basic_atan2(struct basic_ctx* ctx, double* res);
+void basic_ceil(struct basic_ctx* ctx, double* res);
+void basic_round(struct basic_ctx* ctx, double* res);
+void basic_fmod(struct basic_ctx* ctx, double* res);
+void basic_asn(struct basic_ctx* ctx, double* res);
+void basic_acs(struct basic_ctx* ctx, double* res);
+void basic_exp(struct basic_ctx* ctx, double* res);
+void basic_log(struct basic_ctx* ctx, double* res);
+void basic_deg(struct basic_ctx* ctx, double* res);
+void basic_rad(struct basic_ctx* ctx, double* res);
 
 /*
  * Context control functions

include/basic_tokenizer.h

@@ -112,6 +112,8 @@
 	T(POINT) \
 	T(OPENOUT) \
 	T(OPENUP) \
+	T(DATA) \
+	T(RESTORE) \
 	T(WRITE) \
 	T(MKDIR) \
 	T(RMDIR) \

include/maths.h

@@ -7,6 +7,11 @@
 
 #include "kernel.h"
 
+static inline double rr_nan(void) {
+	union { uint64_t u; double d; } v = { 0x7ff8000000000000ULL }; // NaN
+	return v.d;
+}
+
 /**
  * @brief Raise base to the power of exp
  * 
@@ -58,3 +63,111 @@ double tan(double rads);
  * @return double calculated square root of `x`
  */
 double sqrt(double x);
+
+/**
+ * @brief Returns the absolute value of a floating point number.
+ *
+ * @param x The input value.
+ * @return The absolute value of x (|x|).
+ */
+double fabs(double x);
+
+/**
+ * @brief Rounds a floating point number down to the nearest integer value.
+ *
+ * @param x The input value.
+ * @return The largest integer value less than or equal to x, as a double.
+ */
+double floor(double x);
+
+/**
+ * @brief Computes the floating-point remainder of x / y.
+ *
+ * The result is x - n * y, where n is the integer quotient of x / y,
+ * truncated toward zero.
+ *
+ * @param x Dividend.
+ * @param y Divisor (must not be zero).
+ * @return The remainder of x divided by y.
+ */
+double fmod(double x, double y);
+
+/**
+ * @brief Rounds a floating-point value up to the nearest integer.
+ *
+ * @param x Input value.
+ * @return The smallest integer value not less than x.
+ */
+double ceil(double x);
+
+/**
+ * @brief Rounds a floating-point value to the nearest integer.
+ *
+ * Values halfway between two integers are rounded away from zero.
+ *
+ * @param x Input value.
+ * @return The nearest integer as a double.
+ */
+double round(double x);
+
+/**
+ * @brief Computes the arc tangent of y/x using the signs of both arguments
+ * to determine the correct quadrant of the result.
+ *
+ * @param y y-coordinate (numerator).
+ * @param x x-coordinate (denominator).
+ * @return The angle in radians between -PI and PI.
+ */
+double atan2(double y, double x);
+
+/**
+ * @brief Computes the arc tangent of x (inverse tangent).
+ *
+ * The result is in radians, between -PI/2 and PI/2.
+ *
+ * @param x The input value.
+ * @return The arc tangent of x.
+ */
+double atan(double x);
+
+/**
+ * @brief Returns the arc sine (inverse sine) of x.
+ * @param x Input value (must be between -1 and 1).
+ * @return The arcsin of x in radians.
+ */
+double asin(double x);
+
+/**
+ * @brief Returns the arc cosine (inverse cosine) of x.
+ * @param x Input value (must be between -1 and 1).
+ * @return The arccos of x in radians.
+ */
+double acos(double x);
+
+/**
+ * @brief Calculates e raised to the power of x.
+ * @param x Exponent.
+ * @return e^x.
+ */
+double exp(double x);
+
+/**
+ * @brief Computes the natural logarithm (ln) of x.
+ * @param x Input value (must be > 0).
+ * @return ln(x).
+ */
+double log(double x);
+
+/**
+ * @brief Converts radians to degrees.
+ * @param radians Value in radians.
+ * @return Value in degrees.
+ */
+double deg(double radians);
+
+/**
+ * @brief Converts degrees to radians.
+ * @param degrees Value in degrees.
+ * @return Value in radians.
+ */
+double rad(double degrees);

src/basic/file_io.c

@@ -83,6 +83,16 @@ void read_statement(struct basic_ctx* ctx)
 	tokenizer_error_print(ctx, "READ is a function");
 }
 
+void data_statement(struct basic_ctx* ctx)
+{
+	tokenizer_error_print(ctx, "DATA statements are not supported in Retro Rocket BASIC. Use files instead.");
+}
+
+void restore_statement(struct basic_ctx* ctx)
+{
+	tokenizer_error_print(ctx, "Nothing to RESTORE. DATA statements are not supported.");
+}
+
 void close_statement(struct basic_ctx* ctx)
 {
 	accept_or_return(CLOSE, ctx);

src/basic/function.c

@@ -48,6 +48,8 @@ struct basic_int_fn builtin_int[] =
 	{ basic_get_text_max_y,      "TERMHEIGHT"    },
 	{ basic_get_text_max_x,      "TERMWIDTH"     },
 	{ basic_val,                 "VAL"           },
+	{ basic_sgn,                 "SGN"           },
+	{ basic_int,                 "INT"           },
 	{ NULL,                      NULL            }
 };
 
@@ -59,6 +61,18 @@ struct basic_double_fn builtin_double[] = {
 	{ basic_sin,         "SIN"     },
 	{ basic_tan,         "TAN"     },
 	{ basic_sqrt,        "SQRT"    },
+	{ basic_sqrt,        "SQR"     },
+	{ basic_atan,        "ATAN"    },
+	{ basic_atan2,       "ATAN2"   },
+	{ basic_ceil,        "CEIL"    },
+	{ basic_round,       "ROUND"   },
+	{ basic_fmod,        "FMOD"    },
+	{ basic_asn,         "ASN"     },
+	{ basic_acs,         "ACS"     },
+	{ basic_exp,         "EXP"     },
+	{ basic_log,         "LOG"     },
+	{ basic_deg,         "DEG"     },
+	{ basic_rad,         "RAD"     },
 	{ NULL,              NULL      },
 };
 

src/basic/main.c

@@ -685,6 +685,10 @@ void statement(struct basic_ctx* ctx)
 			return openup_statement(ctx);
 		case READ:
 			return read_statement(ctx);
+		case DATA:
+			return data_statement(ctx);
+		case RESTORE:
+			return restore_statement(ctx);
 		case CLOSE:
 			return close_statement(ctx);
 		case EOF: