mirror of
https://github.com/kanaka/mal.git
synced 2024-09-21 10:37:58 +03:00
dd7a4f55f3
Fixes made to: ada, c, chuck, clojure, coffee, common-lisp, cpp, crystal, d, dart, elm, erlang, es6, factor, fsharp, gnu-smalltalk, groovy, guile, haxe, hy, js, livescript, matlab, miniMAL, nasm, nim, objc, objpascal, ocaml, perl, perl6, php, plsql, ps, python, r, rpython, ruby, scheme, swift3, tcl, ts, vb, vimscript, wasm, yorick. Catchless try* test is an optional test. Not all implementations support catchless try* but a number were fixed so they at least don't crash on catchless try*.
45 lines
778 B
C
45 lines
778 B
C
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <unistd.h>
|
|
|
|
#ifdef USE_READLINE
|
|
#include <readline/readline.h>
|
|
#include <readline/history.h>
|
|
#else
|
|
#include <editline/readline.h>
|
|
#endif
|
|
|
|
char *READ(char prompt[]) {
|
|
char *line;
|
|
line = readline(prompt);
|
|
if (!line) return NULL; // EOF
|
|
add_history(line); // Add input to history.
|
|
return line;
|
|
}
|
|
|
|
char *EVAL(char *ast, void *env) {
|
|
return ast;
|
|
}
|
|
|
|
char *PRINT(char *exp) {
|
|
return exp;
|
|
}
|
|
|
|
int main()
|
|
{
|
|
char *ast, *exp;
|
|
char prompt[100];
|
|
|
|
// Set the initial prompt
|
|
snprintf(prompt, sizeof(prompt), "user> ");
|
|
|
|
for(;;) {
|
|
ast = READ(prompt);
|
|
if (!ast) return 0;
|
|
exp = EVAL(ast, NULL);
|
|
puts(PRINT(exp));
|
|
|
|
free(ast); // Free input string
|
|
}
|
|
}
|