int main(void)
{
logfp = fopen(LOGFILE, "w+");
if (NULL == logfp)
{
log_err("freopen failed on %s", LOGFILE);
return 1;
}
errfp = freopen(ERRFILE, "w+", stderr);
if (NULL == errfp)
{
log_err("freopen failed on %s", ERRFILE);
return 1;
}
init_parser();
environment = lenv_new();
init_env(environment);
// TODO a lot of these tests are functional tests rather than unit tests
int ret = run_tests();
lenv_del(environment);
fclose(logfp);
fclose(errfp);
mpc_cleanup(7, Long, Double, Symbol, Qexpr, Sexpr, Expr, Lisp);
return ret;
}
lval* lval_lambda(lval* formals, lval* body){
lval* v = malloc(sizeof(lval));
v->type = LVAL_FUN;
v->builtin = NULL;
v->env = lenv_new();
v->formals = formals;
v->body = body;
return v;
}
struct lval* lval_lambda(struct lval* args, struct lval* body) {
struct lval* v = malloc(sizeof(struct lval));
v->type = LVAL_FUN;
v->fun_type = LVAL_FUN_LAMBDA;
v->env = lenv_new();
v->args = args;
v->body = body;
return v;
}
lval *lval_lambda(lval *formals, lval *body)
{
lval *a = malloc(sizeof(lval));
a->type = LVAL_FUN;
a->builtin_fun = NULL;
a->env = lenv_new();
a->formals = formals;
a->body = body;
return a;
}
lval* lval_lambda(lval* formals, lval* body) {
lval* val = lval_new(LVAL_FUNC);
val->data.func = calloc(1, sizeof(lval_func));
val->data.func->builtin = NULL;
val->data.func->name = NULL;
val->data.func->env = lenv_new();
val->data.func->formals = formals;
val->data.func->body = body;
return val;
}
int main(int argc, char* *argv){
init_parser();
lenv *e = lenv_new();
lenv_add_builtins(e);
if (access(STD_LIB, F_OK) != -1){
lval *err = builtin_load(e, lval_add(lval_sexpr(), lval_str((char *)STD_LIB)));
if (err->type == LVAL_ERR) lval_println(err);
lval_del(err);
} else {
printf("Can't find stdlib at %s.\n", STD_LIB);
}
if (argc > 1){
for (int i = 1; i < argc; i++){
lval *args = lval_add(lval_sexpr(), lval_str(argv[i]));
lval *x = builtin_load(e, args);
if (x->type == LVAL_ERR) lval_println(x);
lval_del(x);
}
} else {
puts("Aroma Version v0.0.0.1");
puts("Press Ctrl+C to Exit.");
char *input = NULL;
mpc_result_t r;
while (true){
input = readline(">>> ");
if (strlen(input) < 1) {
continue;
}
add_history(input);
if (mpc_parse("<stdin>", input, Lispy, &r)){
/* mpc_ast_print(r.output); */
lval *x = lval_eval(e, lval_read(r.output));
lval_println(x);
lval_del(x);
mpc_ast_delete(r.output);
} else {
mpc_err_print(r.error);
mpc_err_delete(r.error);
}
/* printf("%s\n", input); */
free(input);
}
}
lenv_del(e);
cleanup_parser();
return 0;
}
int main(int argc, char *argv[])
{
/* Create types */
mpc_parser_t *Number = mpc_new("number");
mpc_parser_t *Bool = mpc_new("bool");
mpc_parser_t *Symbol = mpc_new("symbol");
mpc_parser_t *Sexp = mpc_new("sexp");
mpc_parser_t *Qexp = mpc_new("qexp");
mpc_parser_t *Expr = mpc_new("expr");
mpc_parser_t *Smallisp = mpc_new("Smallisp");
/* Definintions */
mpca_lang(MPC_LANG_DEFAULT,
"number : /-?[0-9]+/ ; "
"bool : \"true\" | \"false\" ; "
"symbol : /[a-zA-Z0-9_+\\-*\\/=<>!&]+/; "
"sexp : '(' <expr>* ')'; "
"qexp : '{' <expr>* '}'; "
"expr : <number> | <bool> | <char> | <symbol> | <sexp> | <qexp>; "
"Smallisp : /^/ <sexp>* /$/ ; ",
Number, Bool, Symbol, Sexp, Qexp, Expr, Smallisp, NULL);
puts("Lispy version 0.0.0.7\n");
puts("Press Ctrl-C to exit\n");
lenv *env = lenv_new();
lenv_add_builtins(env);
while(1) {
char *input = readline("slisp> ");
add_history(input);
mpc_result_t r;
if (mpc_parse("<stdin>", input, Smallisp, &r)) {
/* On success print AST */
lval *result = lval_eval(env, lval_read(r.output));
lval_println(result);
lval_del(result);
mpc_ast_print(r.output);
mpc_ast_delete(r.output);
} else {
/* Print error */
mpc_err_print(r.error);
mpc_err_print(r.error);
}
free(input);
}
lenv_del(env);
mpc_cleanup(7, Number, Bool, Symbol, Sexp, Qexp, Expr, Smallisp);
return 0;
}
lval* lval_lambda(lval* formals, lval* body) {
lval* v = new_lval(LVAL_FUN, 0);
v->type = LVAL_FUN;
v->builtin = NULL;
v->env = lenv_new();
v->formals = formals;
v->body = body;
return v;
}
void init(void) {
parser_init();
lispy = parser_get();
env = lenv_new();
builtins_init(env);
_parse("(def {nil} {})");
_parse("(def {true} 1)");
_parse("(def {otherwise} true)");
_parse(
"(def {function} (lambda {args body} {\
def (head args) (lambda (tail args) body)\
}))"
int main(int argc, char** argv){
puts("yafl Version 0.0.1");
puts("Press CTRL+C to Exit\n");
gen_parsers();
lenv* e = lenv_new();
lenv_add_builtins(e);
lval* core = lval_add(lval_sexpr(), lval_str("src/yfl/core.yfl"));
//printf("gets here");
lval* core_loaded = builtin_load(e, core);
if(core_loaded->type == LVAL_ERR) {lval_println(core_loaded);}
lval_del(core_loaded);
if(argc >= 2){ //execute file
for(int i = 1; i < argc; i++){
lval* args = lval_add(lval_sexpr(), lval_str(argv[i]));
lval* x = builtin_load(e, args);
if(x->type == LVAL_ERR) { lval_println(x); }
lval_del(x);
}
}
else{ //Start REPL
while(1){
char* input = readline("yafl> ");
add_history(input);
mpc_result_t r;
if(mpc_parse("<stdin>", input, Yafl, &r)){
lval* x = lval_eval(e, lval_read(r.output));
lval_println(x);
lval_del(x);
mpc_ast_delete(r.output);
}else{
mpc_err_print(r.error);
mpc_err_delete(r.error);
}
free(input);
}
}
teardown_parsers();
return 0;
}
lval* lval_lambda(lval* formals, lval* body) {
lval* v = malloc(sizeof(lval));
v->type = LVAL_FUN;
/* Set Builtin to Null */
v->builtin = NULL;
/* Build new environment */
v->env = lenv_new();
/* Set Formals and Body */
v->formals = formals;
v->body = body;
return v;
}
int main(int argc, char** argv) {
init_parser();
/* initialize environment */
lenv* e = lenv_new();
lenv_add_builtins(e);
/* load standard library functions */
lval* x = builtin_load(e, lval_add(lval_sexpr(), lval_str("prelude.lsp")));
if (x->type == LVAL_ERR) { lval_println(x); }
lval_del(x);
if (argc >= 2) {
/* read from command line */
parse_args(e, argc, argv);
} else {
/* interactive prompt */
say_hello();
while (1) {
char* input = prompt();
lval* x = parse(input);
if (x != NULL) {
x = lval_eval(e, x);
lval_println(x);
lval_del(x);
}
free(input);
}
}
/* cleanup */
lenv_del(e);
free_parser();
return 0;
}
int main(int argc, char** argv) {
// Initialization
parser_init();
lenv* env = lenv_new();
builtins_init(env);
if (argc >= 2) {
// Loop over file names
for (int i = 1; i < argc; i++) {
lval* args = lval_add(lval_sexpr(), lval_str(argv[i]));
lval* result = builtin_load(env, args);
if (result->type == LVAL_ERR) {
lval_println(env, result);
}
lval_del(result);
}
} else {
// Welcome message
puts("MLisp Version 0.1dev");
puts("Enter 'quit' to exit\n");
while (1) {
char* input = read_input();
add_history(input);
if (input == NULL || strstr(input, "exit") || strstr(input, "quit")) {
puts("Bye!");
if (input != NULL) {
xfree(input);
}
break;
}
lval* result = NULL;
mpc_err_t* parser_error = NULL;
if (parse("<stdin>", input, env, &result, &parser_error)) {
if (!(result->type == LVAL_SEXPR && result->count == 0)) {
char* repr = lval_repr(env, result);
printf("%s\n", repr);
xfree(repr);
}
lval_del(result);
} else {
mpc_err_print(parser_error);
mpc_err_delete(parser_error);
}
xfree(input);
}
}
lenv_del(env);
// Undefine and delete our parsers
parser_cleanup();
return 0;
}
int main(int argc, char** argv)
{
mpc_parser_t* Bool = mpc_new("bool");
mpc_parser_t* Number = mpc_new("number");
mpc_parser_t* Symbol = mpc_new("symbol");
mpc_parser_t* Sexp = mpc_new("sexp");
mpc_parser_t* Qexp = mpc_new("qexp");
mpc_parser_t* Expr = mpc_new("expr");
mpc_parser_t* Program = mpc_new("program");
mpca_lang(MPCA_LANG_DEFAULT,
" \
bool : /#[tf]/ ; \
number : /-?[0-9]+/ ; \
symbol : /[a-zA-Z0-9_+\\-*\\/\\\\=<>!&\\^?]+/ ; \
sexp : '(' <expr>* ')' ; \
qexp : '{' <expr>* '}' ; \
expr : <bool> | <number> | <symbol> | \
<sexp> | <qexp> ; \
program : /^/ <expr> /$/ ; \
",
Bool, Number, Symbol, Sexp, Qexp, Expr, Program);
puts("Welcome to gLenISP Version 0.0.0.1");
puts("You have 1000 parentheses remaining");
puts("Press Ctrl+c to Exit\n");
struct lenv* e = lenv_new();
lenv_add_builtins(e);
while (1) {
char* input = readline("glenisp> ");
if (input == NULL) {
break;
}
add_history(input);
mpc_result_t r;
if (mpc_parse("<stdin>", input, Program, &r)) {
//mpc_ast_print(r.output);
struct lval* x = lval_read(r.output);
mpc_ast_delete(r.output);
puts("Input:");
lval_print(x);
putchar('\n');
struct lval* r = lval_eval(e, x);
puts("Output:");
lval_print(r);
putchar('\n');
lval_del(r);
} else {
mpc_err_print(r.error);
mpc_err_delete(r.error);
}
free(input);
}
mpc_cleanup(6, Bool, Number, Symbol, Sexp, Qexp, Expr, Program);
return 0;
}
int main(int argc, char** argv) {
printf("KLisp Version %s\n", VERSION);
//Init environment
lenv* env = lenv_new();
lenv_add_builtin_funcs(env);
setup_parsers();
//Attempt to import/run files specified on the command line
if (argc > 1) {
for(int i = 1; i < argc; i++) {
lval* loadargs = lval_add(lval_s_expr(), lval_str(argv[i]));
lval* result = builtin_load(env, loadargs);
if (result->type == LVAL_ERR) {
lval_println(result);
}
lval_delete(result);
}
}
int exitcode = EXIT_SUCCESS;
while(1) {
char *input = readline("> ");
if (NULL == input) {
break;
}
add_history(input);
mpc_ast_t* ast_result = tokenize(input);
free(input);
if (ast_result != NULL) {
//Parse the ast
lval* result = parse(ast_result);
if (result == NULL) {
result = lval_err(LERR_OTHER);
}
//Evaluate
result = eval(env, result);
BOOL exit = FALSE;
if (result != NULL && result->type == LVAL_EXIT) {
exit = TRUE;
exitcode = result->data.exitcode;
} else {
//print the result
lval_println(result);
}
//Cleanup
lval_delete(result);
mpc_ast_delete(ast_result);
if (exit == TRUE) {;
break;
}
}
}
lenv_delete(env);
cleanup_parsers();
return (exitcode);
}
