add more documentation

4 files changed, 137 insertions, 9 deletions

diff --git a/Doxyfile b/Doxyfile
index fba1270..66eac04 100644
--- a/Doxyfile
+++ b/Doxyfile
@@ -524,7 +524,7 @@ TIMESTAMP              = NO
 # normally produced when WARNINGS is set to YES.
 # The default value is: NO.
 
-EXTRACT_ALL            = NO
+EXTRACT_ALL            = YES
 
 # If the EXTRACT_PRIVATE tag is set to YES, all private members of a class will
 # be included in the documentation.
diff --git a/Makefile b/Makefile
index d09ee2c..74ffb56 100644
--- a/Makefile
+++ b/Makefile
@@ -27,3 +27,7 @@ install:
 
 doc:
 	doxygen
+
+site:
+	doxygen
+	rsync -uvrP --delete-after "html/" root@nullring.xyz:/var/www/stemdoc
diff --git a/include/builtins.h b/include/builtins.h
index dc2ba65..629b935 100644
--- a/include/builtins.h
+++ b/include/builtins.h
@@ -1,56 +1,163 @@
 #ifndef BUILTINS_H_
 #define BUILTINS_H_
 #include <stem.h>
-/* TODO: comment this entire thing */
+
+/*! @brief adds two numbers together, pushes result on the stack */
 void stemadd(value_t *v);
+
+/*! @brief subtracts two numbers together, pushes result on the stack */
 void stemsub(value_t *v);
+
+/*! @brief multiplies two numbers together, pushes result on the stack */
 void stemmul(value_t *v);
+
+/*! @brief divides two numbers together, pushes result on the stack */
 void stemdiv(value_t *v);
+
+/*! @brief [word] [quote] func, creates function with name [word] and value
+ * [quote] */
 void stemfunc(value_t *v);
+
+/*! @brief takes first number to the power of the second, pushes result on the
+ * stack */
 void stempow(value_t *v);
+
+/*! @brief takes sine of first value on the stack */
 void stemsin(value_t *v);
+
+/*! @brief takes cosine of first value on the stack */
 void stemcos(value_t *v);
+
+/*! @brief takes exp of first value on the stack */
 void stemexp(value_t *v);
+
+/*! @brief evaluates the first value on the stack */
 void stemeval(value_t *v);
+
+/*! @brief takes ln of first value on the stack */
 void stemln(value_t *v);
+
+/*! @brief takes ceiling function of first value on the stack */
 void stemceil(value_t *v);
+
+/*! @brief takes floor function of first value on the stack */
 void stemfloor(value_t *v);
+
+/*! @brief converts valid stem code string and converts it into a quote, pushes
+ * quote onto the stack */
 void strquote(value_t *v);
+
+/* @brief [value] [quote] curry  */
 void curry(value_t *v);
+
+/*! @brief does literally nothing */
 void nop(value_t *v);
+
+/*! @brief reads a file into a string, returns on the stack */
 void stemfread(value_t *v);
+
+/*! @brief reads stdin into string */
 void stemread(value_t *v);
+
+/*! @brief exits the program */
 void stemexit(value_t *v);
+
+/*! @brief quotes first value on the stack */
 void quote(value_t *v);
+
+/*! @brief returns type of first stack element as an integer */
 void stemtype(value_t *v);
+
+/*! @brief discards and frees the first element of the stack */
 void dsc(value_t *v);
+
+/*! @brief swaps the top two values of the stack */
 void swap(value_t *v);
+
+/*! @brief [VWORD] isdef; returns 1 if name of function is defined */
 void isdef(value_t *v);
+
+/*! @brief deep copies first value of the stack */
 void stemdup(value_t *v);
+
+/*! @brief prints the entire stack */
 void questionmark(value_t *v);
+
+/*! @brief pops first value off of the stack and prints it */
 void period(value_t *v);
+
+/*! @brief [VWORD/VSTR/VQUOTE] len; returns length of value */
 void stemlen(value_t *v);
+
+/*! @brief pops first element, evaluates second element, then pushes first
+ * element back */
 void dip(value_t *v);
+
+/*! @brief keeps value on the stack after evaluating the value */
 void keep(value_t *v);
+
+/*! @brief deletes value at index from quote, string, or word */
 void del(value_t *v);
+
+/*! @brief clears the stack and frees all elements */
 void clear(value_t *v);
+
+/*! @brief [cond] [if true] [if false] if; evaluates 2nd term if cond is true;
+ * otherwise evaluates the other one. */
 void stemif(value_t *v);
+
+/*! @brief greater than or equals */
 void gtequals(value_t *v);
+
+/*! @brief less than or equals */
 void ltequals(value_t *v);
+
+/*! @brief greater than */
 void gthan(value_t *v);
+
+/*! @brief less than */
 void lthan(value_t *v);
+
+/*! @brief polymorphic equals; arguments cannot be quotes */
 void equals(value_t *v);
+
+/*! @brief polymorphic not equals; arguments cannot be quotes */
 void nequals(value_t *v);
+
+/*! @brief converts word to string */
 void wtostr(value_t *v);
+
+/*! @brief joins two quotes together, pushes a new quote. Also joins two strings
+ * together and pushes a new string. */
 void compose(value_t *v);
+
+/*! @brief checks if string is a number. */
 void isnum(value_t *v);
+
+/*! @brief string to integer */
 void stoi(value_t *v);
+
+/*! @brief returns current stack size */
 void ssize(value_t *v);
+
+/*! @brief puts entire stack into a quote, then pushes that quote onto the stack
+ */
 void qstack(value_t *v);
+
+/*! @brief [number] [VQUOTE/VSTR/VWORD] vat; gets the value at a certain index.
+ */
 void vat(value_t *v);
+
+/*! @brief */
 void stemfwrite(value_t *v);
+
+/*! @brief [VINT/VFLOAT] sleep; sleeps for an amount of seconds. */
 void stemsleep(value_t *v);
 
+/*! @brief adds all the custom objects defined to OBJ_TABLE */
 void add_objs();
+
+/*! @brief Adds functions to FLIT table */
 void add_funcs();
+
 #endif // BUILTINS_H_
diff --git a/src/main.c b/src/main.c
index 884a198..cbf7f34 100644
--- a/src/main.c
+++ b/src/main.c
@@ -1,5 +1,6 @@
 #include <builtins.h>
 #include <dlfcn.h>
+#include <signal.h>
 #include <stdio.h>
 #include <stdlib.h>
 #include <stem.h>
@@ -13,17 +14,38 @@ extern array_t *EVAL_STACK;
 extern ht_t *OBJ_TABLE;
 extern ht_t *FLIT;
 
+/*! prints usage then exits */
 void usage() {
   printf("Usage: stem [-hv] [file]\n");
   exit(1);
 }
 
+/*! prints version and exits */
 void version() {
   printf("Author: Preston Pan, MIT License 2023\n");
   printf("stem, version 1.2 alpha\n");
   exit(0);
 }
 
+/*! frees all global variables */
+void global_free() {
+  free(PARSER->source);
+  ht_free(WORD_TABLE, value_free);
+  ht_free(FLIT, func_free);
+  ht_free(OBJ_TABLE, custom_free);
+  array_free(STACK);
+  free(PARSER);
+  array_free(EVAL_STACK);
+}
+
+/*! handles SIGINT signal; frees memory before exit */
+void sigint_handler(int signum) {
+  signal(SIGINT, sigint_handler);
+  global_free();
+  fflush(stdout);
+  exit(1);
+}
+
 int main(int argc, char **argv) {
   value_t *v;
   size_t len;
@@ -59,6 +81,7 @@ int main(int argc, char **argv) {
   OBJ_TABLE = init_ht(500);
 
   add_funcs();
+  signal(SIGINT, sigint_handler);
 
   /* parse and eval loop */
   while (1) {
@@ -69,12 +92,6 @@ int main(int argc, char **argv) {
   }
 
   /* Free all global variables */
-  free(PARSER->source);
-  ht_free(WORD_TABLE, value_free);
-  ht_free(FLIT, func_free);
-  ht_free(OBJ_TABLE, custom_free);
-  array_free(STACK);
-  free(PARSER);
-  array_free(EVAL_STACK);
+  global_free();
   return 0;
 }