diff options
| -rw-r--r-- | Doxyfile | 2 | ||||
| -rw-r--r-- | Makefile | 4 | ||||
| -rw-r--r-- | include/builtins.h | 109 | ||||
| -rw-r--r-- | src/main.c | 31 |
4 files changed, 137 insertions, 9 deletions
@@ -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. @@ -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_ @@ -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; } |