aboutsummaryrefslogtreecommitdiff
path: root/builtin.h
diff options
context:
space:
mode:
Diffstat (limited to 'builtin.h')
-rw-r--r--builtin.h129
1 files changed, 129 insertions, 0 deletions
diff --git a/builtin.h b/builtin.h
new file mode 100644
index 0000000..a4468ae
--- /dev/null
+++ b/builtin.h
@@ -0,0 +1,129 @@
+#ifndef BUILTIN_H
+#define BUILTIN_H
+
+#include "model.h"
+#include <string>
+
+using std::string;
+
+/** @class BoolObj
+ * Booleans
+ */
+class BoolObj: public EvalObj {
+ private:
+ bool val; /**< true for #t, false for #f */
+ public:
+ BoolObj(bool);
+ bool is_true(); /**< Override EvalObj `is_true()` */
+#ifdef DEBUG
+ string _debug_repr();
+#endif
+ string ext_repr();
+};
+
+/** @class IntObj
+ * A simple implementation of integers
+ * Will be removed in the future
+ */
+class IntObj: public NumberObj {
+ private:
+ int val;
+ public:
+ IntObj(int);
+#ifdef DEBUG
+ string _debug_repr();
+#endif
+ string ext_repr();
+};
+
+/** @class FloatObj
+ * Floating point numbers
+ */
+class FloatObj: public NumberObj {
+ private:
+ double val;
+ public:
+ FloatObj(double);
+#ifdef DEBUG
+ string _debug_repr();
+#endif
+ string ext_repr();
+};
+
+
+/** @class SpecialOptIf
+ * The implementation of `if` operator
+ */
+class SpecialOptIf: public SpecialOptObj {
+ private:
+ unsigned char state; /**< 0 for prepared, 1 for pre_called */
+ /**
+ * The evaluator will call this after the <condition> exp is evaluated.
+ * And this function tells the evaluator which of <consequence> and
+ * <alternative> should be evaluted. */
+ void pre_call(ArgList *arg_list, Cons *pc,
+ Environment *envt);
+ /** The system will call this again after the desired result is
+ * evaluated, so just return it to let the evaluator know the it's the
+ * answer.
+ */
+ EvalObj *post_call(ArgList *arg_list, Cons *pc,
+ Environment *envt);
+ public:
+ SpecialOptIf();
+ void prepare(Cons *pc);
+ Cons *call(ArgList *arg_list, Environment * &envt,
+ Continuation * &cont, FrameObj ** &top_ptr);
+#ifdef DEBUG
+ string _debug_repr();
+#endif
+ string ext_repr();
+};
+
+/** @class SpecialOptLambda
+ * The implementation of `lambda` operator
+ */
+class SpecialOptLambda: public SpecialOptObj {
+ public:
+ SpecialOptLambda();
+ void prepare(Cons *pc);
+ Cons *call(ArgList *arg_list, Environment * &envt,
+ Continuation * &cont, FrameObj ** &top_ptr);
+
+#ifdef DEBUG
+ string _debug_repr();
+#endif
+ string ext_repr();
+};
+
+/** @class SpecialOptDefine
+ * The implementation of `define` operator
+ */
+class SpecialOptDefine: public SpecialOptObj {
+ public:
+ SpecialOptDefine();
+ void prepare(Cons *pc);
+ Cons *call(ArgList *arg_list, Environment * &envt,
+ Continuation * &cont, FrameObj ** &top_ptr);
+#ifdef DEBUG
+ string _debug_repr();
+#endif
+ string ext_repr();
+};
+
+/** @class SpecialOptSet
+ * The implementation of `set!` operator
+ */
+class SpecialOptSet: public SpecialOptObj {
+ public:
+ SpecialOptSet();
+ void prepare(Cons *pc);
+ Cons *call(ArgList *arg_list, Environment * &envt,
+ Continuation * &cont, FrameObj ** &top_ptr);
+#ifdef DEBUG
+ string _debug_repr();
+#endif
+ string ext_repr();
+};
+
+#endif