70 lines
2.0 KiB
C
70 lines
2.0 KiB
C
/*
|
|
* File: functions.h
|
|
* Author: sam
|
|
*
|
|
* Created on 18 May 2014, 22:41
|
|
*/
|
|
|
|
#ifndef FUNCTIONS_H
|
|
#define FUNCTIONS_H
|
|
|
|
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
|
|
#include "lang.h"
|
|
|
|
typedef enum BUILTIN_OP_TYPE BUILTIN_OP_TYPE;
|
|
|
|
enum BUILTIN_OP_TYPE {
|
|
BUILTIN_OP_ADD, BUILTIN_OP_SUB, BUILTIN_OP_DIV, BUILTIN_OP_MUL, BUILTIN_OP_POW,
|
|
BUILTIN_COMP_GT, BUILTIN_COMP_LT, BUILTIN_COMP_GE, BUILTIN_COMP_LE,
|
|
BUILTIN_COMP_EQ, BUILTIN_COMP_NEQ
|
|
};
|
|
|
|
char* builtin_op_strname(BUILTIN_OP_TYPE op);
|
|
|
|
void lenv_add_builtin(lenv* env, char* sym, lbuiltin func);
|
|
|
|
void lenv_add_builtin_funcs(lenv* env);
|
|
|
|
//Math functions
|
|
lval* builtin_op(lenv* env, lval* val, BUILTIN_OP_TYPE op);
|
|
lval* builtin_add(lenv* env, lval* val);
|
|
lval* builtin_sub(lenv* env, lval* val);
|
|
lval* builtin_div(lenv* env, lval* val);
|
|
lval* builtin_mul(lenv* env, lval* val);
|
|
lval* builtin_pow(lenv* env, lval* val);
|
|
|
|
//Comparison Functions
|
|
lval* builtin_comp_num(lenv* env, lval* val, BUILTIN_OP_TYPE op);
|
|
lval* builtin_comp_gt(lenv* env, lval* val);
|
|
lval* builtin_comp_lt(lenv* env, lval* val);
|
|
lval* builtin_comp_ge(lenv* env, lval* val);
|
|
lval* builtin_comp_le(lenv* env, lval* val);
|
|
lval* builtin_comp_value(lenv* env, lval* val, BUILTIN_OP_TYPE op);
|
|
lval* builtin_comp_eq(lenv* env, lval* val);
|
|
lval* builtin_comp_neq(lenv* env, lval* val);
|
|
|
|
//List/Util functions
|
|
lval* builtin_list(lenv* env, lval* val);
|
|
lval* builtin_eval(lenv* env, lval* val);
|
|
lval* builtin_join(lenv* env, lval* val);
|
|
lval* builtin_head(lenv* env, lval* val);
|
|
lval* builtin_tail(lenv* env, lval* val);
|
|
|
|
//ENV Functions
|
|
lval* builtin_envdef(lenv* env, lval* val, char* type);
|
|
lval* builtin_def(lenv* env, lval* val);
|
|
lval* builtin_var(lenv* env, lval* val);
|
|
lval* builtin_listenv(lenv* env, lval* val);
|
|
lval* builtin_exit(lenv* env, lval* val);
|
|
lval* builtin_lambda(lenv* env, lval* val);
|
|
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|
|
|
|
#endif /* FUNCTIONS_H */
|
|
|