From 60699af63f92f43cc4b4b9e3050fcdd2a8468281 Mon Sep 17 00:00:00 2001
From: Andrew Opalach <andrew@akon.city>
Date: Wed, 10 Apr 2019 15:14:00 -0400
Subject: add opengl fronend, remove sdl frontend, refactor build system

---
 .../CEdev/examples/fileio_os_vars/src/main.c       | 101 +++++++++++++++++++++
 1 file changed, 101 insertions(+)
 create mode 100644 frontends/calculator/CEdev/examples/fileio_os_vars/src/main.c

(limited to 'frontends/calculator/CEdev/examples/fileio_os_vars/src')

diff --git a/frontends/calculator/CEdev/examples/fileio_os_vars/src/main.c b/frontends/calculator/CEdev/examples/fileio_os_vars/src/main.c
new file mode 100644
index 0000000..657f9d9
--- /dev/null
+++ b/frontends/calculator/CEdev/examples/fileio_os_vars/src/main.c
@@ -0,0 +1,101 @@
+#include <stdbool.h>
+#include <stddef.h>
+#include <stdint.h>
+#include <tice.h>
+
+#include <math.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include <fileioc.h>
+
+/* Some function prototypes. Maybe in the future these functions will become a library */
+cplx_t Int24sToCplx(int real, int imag);
+cplx_t FloatsToCplx(float real, float imag);
+cplx_t RealsToCplx(real_t real, real_t imag);
+cplx_t StrsToCplx(char *real, char **real_end, char *imag, char **imag_end);
+
+/* Main Function */
+void main(void) {
+    /* Declare some variables */
+    equ_t    *my_equ;
+    list_t   *my_list;
+    matrix_t *my_matrix;
+    real_t    my_real;
+    cplx_t    my_cplx;
+    real_t    real_1_5 = os_FloatToReal(1.5);
+    real_t    real_2_5 = os_FloatToReal(2.5);
+    real_t    real_3_5 = os_FloatToReal(3.5);
+
+    /* Store the value '1.5+2.5i' into the variable B */
+    my_cplx = FloatsToCplx(1.5, 2.5);
+    ti_SetVar(TI_CPLX_TYPE, ti_B, &my_cplx);
+
+    /* Store the value '1.5' into the variable A */
+    my_real = real_1_5;
+    ti_SetVar(TI_REAL_TYPE, ti_A, &my_real);
+
+    /* Store the equation "2+2" into the Y1 variable */
+    my_equ = ti_MallocEqu(3); // Same as ti_AllocEqu(3, malloc)
+    my_equ->data[0] = '2';
+    my_equ->data[1] = tAdd;
+    my_equ->data[2] = '2';
+    ti_SetVar(TI_EQU_TYPE, ti_Y1, my_equ);
+    free(my_equ);
+
+    /* Store the list {1.5,2.5,3.5} to L1 */
+    my_list = ti_MallocList(3); // Same as ti_AllocList(3, malloc)
+    my_list->items[0] = real_1_5;
+    my_list->items[1] = real_2_5;
+    my_list->items[2] = real_3_5;
+    ti_SetVar(TI_REAL_LIST_TYPE, ti_L1, my_list);
+    free(my_list);
+
+    /* Store the matrix [[2.5,2.5]] to Ans */
+    my_matrix = ti_MallocMatrix(1,2); // Same as ti_AllocMatrix(1, 2, malloc)
+    matrix_element(my_matrix, 0, 0) = real_2_5;
+    matrix_element(my_matrix, 0, 1) = real_2_5;
+    ti_SetVar(TI_MATRIX_TYPE, ti_Ans, my_matrix);
+    free(my_matrix);
+}
+
+/* Stores some ints to a complex variable type */
+cplx_t Int24sToCplx(int real, int imag) {
+    cplx_t res;
+    res.real = os_Int24ToReal(real);
+    res.real.sign |= TI_CPLX_TYPE;
+    res.imag = os_Int24ToReal(imag);
+    res.imag.sign |= TI_CPLX_TYPE;
+    return res;
+}
+
+/* Stores some floats to a complex variable type */
+cplx_t FloatsToCplx(float real, float imag) {
+    cplx_t res;
+    res.real = os_FloatToReal(real);
+    res.real.sign |= TI_CPLX_TYPE;
+    res.imag = os_FloatToReal(imag);
+    res.imag.sign |= TI_CPLX_TYPE;
+    return res;
+}
+
+/* Converts a pair of reals to a complex number */
+cplx_t RealsToCplx(real_t real, real_t imag) {
+    cplx_t res;
+    res.real = real;
+    res.real.sign |= TI_CPLX_TYPE;
+    res.imag = imag;
+    res.imag.sign |= TI_CPLX_TYPE;
+    return res;
+}
+
+/* Converts strings to a complex variable type */
+cplx_t StrsToCplx(char *real, char **real_end, char *imag, char **imag_end) {
+    cplx_t res;
+    res.real = os_StrToReal(real, real_end);
+    res.real.sign |= TI_CPLX_TYPE;
+    res.imag = os_StrToReal(imag, imag_end);
+    res.imag.sign |= TI_CPLX_TYPE;
+    return res;
+}
-- 
cgit v1.2.3-101-g0448