From f5f03fddd700419905d58b75ad1d02c053c684bb Mon Sep 17 00:00:00 2001 From: Teddy Date: Fri, 9 Aug 2013 18:04:18 +0800 Subject: removed trailing spaces --- builtin.cpp | 128 ++++++++++++++++++++++++++++++------------------------------ 1 file changed, 64 insertions(+), 64 deletions(-) (limited to 'builtin.cpp') diff --git a/builtin.cpp b/builtin.cpp index a5d8b15..610cdec 100644 --- a/builtin.cpp +++ b/builtin.cpp @@ -19,7 +19,7 @@ static const int NUM_LVL_INT = 3; if (args == empty_list || \ args->cdr == empty_list || \ TO_PAIR(args->cdr)->cdr != empty_list) \ - throw TokenError(name, RUN_ERR_WRONG_NUM_OF_ARGS) + throw TokenError(name, RUN_ERR_WRONG_NUM_OF_ARGS) #define ARGS_EXACTLY_ONE \ if (args == empty_list || \ @@ -46,7 +46,7 @@ string int_to_str(int val) { double str_to_double(string repr, bool &flag) { const char *nptr = repr.c_str(); - char *endptr; + char *endptr; double val = strtod(nptr, &endptr); if (endptr == nptr || endptr != nptr + repr.length()) { @@ -59,7 +59,7 @@ double str_to_double(string repr, bool &flag) { int str_to_int(string repr, bool &flag) { const char *nptr = repr.c_str(); - char *endptr; + char *endptr; int val = strtol(nptr, &endptr, 10); if (endptr == nptr || endptr != nptr + repr.length()) { @@ -95,10 +95,10 @@ CompNumObj::CompNumObj(double _real, double _imag) : spos = i; sign = repr[i] == '-'; } - else if (repr[i] == 'i' || repr[i] == 'I') + else if (repr[i] == 'i' || repr[i] == 'I') ipos = i; - if (spos == -1 || ipos == -1 || !(spos < ipos)) + if (spos == -1 || ipos == -1 || !(spos < ipos)) return NULL; double real = 0, imag = 1; @@ -118,7 +118,7 @@ CompNumObj::CompNumObj(double _real, double _imag) : #ifndef GMP_SUPPORT real = rat_ptr->a / double(rat_ptr->b); #else - real = rat_ptr->val.get_d(); + real = rat_ptr->val.get_d(); #endif else if ((real_ptr = RealNumObj::from_string(real_str))) real = real_ptr->real; @@ -148,11 +148,11 @@ CompNumObj::CompNumObj(double _real, double _imag) : } CompNumObj *CompNumObj::convert(NumObj *obj) { - switch (obj->level) + switch (obj->level) { - case NUM_LVL_COMP : + case NUM_LVL_COMP : return static_cast(obj); break; - case NUM_LVL_REAL : + case NUM_LVL_REAL : return new CompNumObj(static_cast(obj)->real, 0); break; case NUM_LVL_RAT : @@ -238,7 +238,7 @@ RealNumObj *RealNumObj::from_string(string repr) { RealNumObj *RealNumObj::convert(NumObj *obj) { switch (obj->level) { - case NUM_LVL_REAL: + case NUM_LVL_REAL: return static_cast(obj); break; case NUM_LVL_RAT: { @@ -296,7 +296,7 @@ ReprCons *RealNumObj::get_repr_cons() { ExactNumObj::ExactNumObj(NumLvl level) : NumObj(level, true) {} #ifndef GMP_SUPPORT -RatNumObj::RatNumObj(int _a, int _b) : +RatNumObj::RatNumObj(int _a, int _b) : ExactNumObj(NUM_LVL_RAT), a(_a), b(_b) { int g = gcd(a, b); a /= g; @@ -318,13 +318,13 @@ RatNumObj *RatNumObj::from_string(string repr) { return new RatNumObj(a, b); } #else -RatNumObj::RatNumObj(mpq_class _val) : +RatNumObj::RatNumObj(mpq_class _val) : ExactNumObj(NUM_LVL_RAT), val(_val) { val.canonicalize(); } RatNumObj *RatNumObj::from_string(string repr) { - try + try { mpq_class ret(repr, 10); return new RatNumObj(ret); @@ -347,7 +347,7 @@ RatNumObj *RatNumObj::convert(NumObj *obj) { return new RatNumObj(static_cast(obj)->val, 1); #else return new RatNumObj(mpq_class( - static_cast(obj)->val, + static_cast(obj)->val, mpz_class(1))); #endif } @@ -463,7 +463,7 @@ int IntNumObj::get_i() { return val; } #else IntNumObj::IntNumObj(mpz_class _val) : ExactNumObj(NUM_LVL_INT), val(_val) {} IntNumObj *IntNumObj::from_string(string repr) { - try + try { mpz_class ret(repr, 10); return new IntNumObj(ret); @@ -538,7 +538,7 @@ void SpecialOptIf::prepare(Pair *pc) { if (pc->cdr->is_pair_obj()) first = TO_PAIR(pc->cdr); - else + else IF_EXP_ERR; if (first->cdr->is_pair_obj()) @@ -565,7 +565,7 @@ void SpecialOptIf::pre_call(ArgList *args, Pair *pc, Environment *envt) { // prepare has guaranteed ... pc = TO_PAIR(pc->car); - Pair *first = TO_PAIR(pc->cdr); + Pair *first = TO_PAIR(pc->cdr); Pair *second = TO_PAIR(first->cdr); Pair *third = TO_PAIR(second->cdr); @@ -590,10 +590,10 @@ EvalObj *SpecialOptIf::post_call(ArgList *args, Pair *pc, return TO_PAIR(args->cdr)->car; } -Pair *SpecialOptIf::call(ArgList *args, Environment * &envt, +Pair *SpecialOptIf::call(ArgList *args, Environment * &envt, Continuation * &cont, FrameObj ** &top_ptr) { Pair *ret_addr = static_cast(*top_ptr)->addr; - if (state) + if (state) { *top_ptr++ = post_call(args, ret_addr, envt); return ret_addr->next; // Move to the next instruction @@ -608,8 +608,8 @@ Pair *SpecialOptIf::call(ArgList *args, Environment * &envt, } } -ReprCons *SpecialOptIf::get_repr_cons() { - return new ReprStr("#"); +ReprCons *SpecialOptIf::get_repr_cons() { + return new ReprStr("#"); } SpecialOptLambda::SpecialOptLambda() : SpecialOptObj("lambda") {} @@ -661,7 +661,7 @@ void SpecialOptLambda::prepare(Pair *pc) { pc->next = NULL; } -Pair *SpecialOptLambda::call(ArgList *args, Environment * &envt, +Pair *SpecialOptLambda::call(ArgList *args, Environment * &envt, Continuation * &cont, FrameObj ** &top_ptr) { Pair *ret_addr = static_cast(*top_ptr)->addr; @@ -673,10 +673,10 @@ Pair *SpecialOptLambda::call(ArgList *args, Environment * &envt, // is expected if (first->cdr == empty_list) throw TokenError(name, SYN_ERR_MISS_OR_EXTRA_EXP); - + // Restore the next pointer pc->next = TO_PAIR(pc->cdr); // CHECK_COM made it always okay - + if (first->car->is_simple_obj()) CHECK_SYMBOL(first->car); else @@ -692,8 +692,8 @@ Pair *SpecialOptLambda::call(ArgList *args, Environment * &envt, return ret_addr->next; // Move to the next instruction } -ReprCons *SpecialOptLambda::get_repr_cons() { - return new ReprStr("#"); +ReprCons *SpecialOptLambda::get_repr_cons() { + return new ReprStr("#"); } SpecialOptDefine::SpecialOptDefine() : SpecialOptObj("define") {} @@ -712,14 +712,14 @@ void SpecialOptDefine::prepare(Pair *pc) { pc->next = second; // Skip the identifier second->next = NULL; } // Procedure definition - else + else { CHECK_COM(pc); pc->next = NULL; // Skip all parts } } -Pair *SpecialOptDefine::call(ArgList *args, Environment * &envt, +Pair *SpecialOptDefine::call(ArgList *args, Environment * &envt, Continuation * &cont, FrameObj ** &top_ptr) { Pair *ret_addr = static_cast(*top_ptr)->addr; Pair *pc = static_cast(ret_addr->car); @@ -748,7 +748,7 @@ Pair *SpecialOptDefine::call(ArgList *args, Environment * &envt, id = static_cast(plst->car); EvalObj *params = plst->cdr; - + // Restore the next pointer pc->next = TO_PAIR(pc->cdr); @@ -767,8 +767,8 @@ Pair *SpecialOptDefine::call(ArgList *args, Environment * &envt, return ret_addr->next; } -ReprCons *SpecialOptDefine::get_repr_cons() { - return new ReprStr("#"); +ReprCons *SpecialOptDefine::get_repr_cons() { + return new ReprStr("#"); } void SpecialOptSet::prepare(Pair *pc) { @@ -781,14 +781,14 @@ void SpecialOptSet::prepare(Pair *pc) { throw TokenError(name, RUN_ERR_WRONG_NUM_OF_ARGS); second = TO_PAIR(pc->cdr); - if (second->cdr != empty_list) + if (second->cdr != empty_list) throw TokenError(name, RUN_ERR_WRONG_NUM_OF_ARGS); pc->next = second; second->next = NULL; } -Pair *SpecialOptSet::call(ArgList *args, Environment * &envt, +Pair *SpecialOptSet::call(ArgList *args, Environment * &envt, Continuation * &cont, FrameObj ** &top_ptr) { Pair *ret_addr = static_cast(*top_ptr)->addr; Pair *pc = static_cast(ret_addr->car); @@ -807,8 +807,8 @@ Pair *SpecialOptSet::call(ArgList *args, Environment * &envt, SpecialOptSet::SpecialOptSet() : SpecialOptObj("set!") {} -ReprCons *SpecialOptSet::get_repr_cons() { - return new ReprStr("#"); +ReprCons *SpecialOptSet::get_repr_cons() { + return new ReprStr("#"); } SpecialOptQuote::SpecialOptQuote() : SpecialOptObj("quote") {} @@ -819,7 +819,7 @@ void SpecialOptQuote::prepare(Pair *pc) { pc->next = NULL; } -Pair *SpecialOptQuote::call(ArgList *args, Environment * &envt, +Pair *SpecialOptQuote::call(ArgList *args, Environment * &envt, Continuation * &cont, FrameObj ** &top_ptr) { Pair *ret_addr = static_cast(*top_ptr)->addr; Pair *pc = static_cast(ret_addr->car); @@ -829,8 +829,8 @@ Pair *SpecialOptQuote::call(ArgList *args, Environment * &envt, return ret_addr->next; } -ReprCons *SpecialOptQuote::get_repr_cons() { - return new ReprStr("#"); +ReprCons *SpecialOptQuote::get_repr_cons() { + return new ReprStr("#"); } SpecialOptEval::SpecialOptEval() : SpecialOptObj("eval") {} @@ -839,7 +839,7 @@ void SpecialOptEval::prepare(Pair *pc) { state = 0; } -Pair *SpecialOptEval::call(ArgList *args, Environment * &envt, +Pair *SpecialOptEval::call(ArgList *args, Environment * &envt, Continuation * &cont, FrameObj ** &top_ptr) { if (args->cdr == empty_list || TO_PAIR(args->cdr)->cdr != empty_list) @@ -858,8 +858,8 @@ Pair *SpecialOptEval::call(ArgList *args, Environment * &envt, } } -ReprCons *SpecialOptEval::get_repr_cons() { - return new ReprStr("#"); +ReprCons *SpecialOptEval::get_repr_cons() { + return new ReprStr("#"); } SpecialOptAnd::SpecialOptAnd() : SpecialOptObj("and") {} @@ -873,7 +873,7 @@ void SpecialOptAnd::prepare(Pair *pc) { } } -Pair *SpecialOptAnd::call(ArgList *args, Environment * &envt, +Pair *SpecialOptAnd::call(ArgList *args, Environment * &envt, Continuation * &cont, FrameObj ** &top_ptr) { Pair *ret_addr = static_cast(*top_ptr)->addr; Pair *pc = static_cast(ret_addr->car); @@ -906,8 +906,8 @@ Pair *SpecialOptAnd::call(ArgList *args, Environment * &envt, throw NormalError(INT_ERR); } -ReprCons *SpecialOptAnd::get_repr_cons() { - return new ReprStr("#"); +ReprCons *SpecialOptAnd::get_repr_cons() { + return new ReprStr("#"); } BUILTIN_PROC_DEF(make_pair) { @@ -951,7 +951,7 @@ BUILTIN_PROC_DEF(num_add) { _res = opr->convert(_res); res = _res->add(opr); } - return res; + return res; } BUILTIN_PROC_DEF(num_sub) { @@ -974,7 +974,7 @@ BUILTIN_PROC_DEF(num_sub) { _res = opr->convert(_res); res = _res->sub(opr); } - return res; + return res; } @@ -993,7 +993,7 @@ BUILTIN_PROC_DEF(num_mul) { _res = opr->convert(_res); res = _res->mul(opr); } - return res; + return res; } BUILTIN_PROC_DEF(num_div) { @@ -1016,7 +1016,7 @@ BUILTIN_PROC_DEF(num_div) { _res = opr->convert(_res); res = _res->div(opr); } - return res; + return res; } BUILTIN_PROC_DEF(num_lt) { @@ -1026,7 +1026,7 @@ BUILTIN_PROC_DEF(num_lt) { if (!args->car->is_num_obj()) throw TokenError("a number", RUN_ERR_WRONG_TYPE); - NumObj *last = static_cast(args->car), *opr; + NumObj *last = static_cast(args->car), *opr; for (; args != empty_list; args = TO_PAIR(args->cdr), last = opr) { if (!args->car->is_num_obj()) // not a number @@ -1050,7 +1050,7 @@ BUILTIN_PROC_DEF(num_gt) { if (!args->car->is_num_obj()) throw TokenError("a number", RUN_ERR_WRONG_TYPE); - NumObj *last = static_cast(args->car), *opr; + NumObj *last = static_cast(args->car), *opr; for (; args != empty_list; args = TO_PAIR(args->cdr), last = opr) { if (!args->car->is_num_obj()) // not a number @@ -1074,7 +1074,7 @@ BUILTIN_PROC_DEF(num_eq) { if (!args->car->is_num_obj()) throw TokenError("a number", RUN_ERR_WRONG_TYPE); - NumObj *last = static_cast(args->car), *opr; + NumObj *last = static_cast(args->car), *opr; for (; args != empty_list; args = TO_PAIR(args->cdr), last = opr) { if (!args->car->is_num_obj()) // not a number @@ -1148,14 +1148,14 @@ BUILTIN_PROC_DEF(num_is_exact) { ARGS_EXACTLY_ONE; if (!args->car->is_num_obj()) throw TokenError("a number", RUN_ERR_WRONG_TYPE); - return new BoolObj(static_cast(args->car)->is_exact()); + return new BoolObj(static_cast(args->car)->is_exact()); } BUILTIN_PROC_DEF(num_is_inexact) { ARGS_EXACTLY_ONE; if (!args->car->is_num_obj()) throw TokenError("a number", RUN_ERR_WRONG_TYPE); - return new BoolObj(!static_cast(args->car)->is_exact()); + return new BoolObj(!static_cast(args->car)->is_exact()); } BUILTIN_PROC_DEF(length) { @@ -1171,7 +1171,7 @@ BUILTIN_PROC_DEF(length) { num++; if ((nptr = args->cdr)->is_pair_obj()) args = TO_PAIR(nptr); - else + else break; } if (args->cdr != empty_list) @@ -1207,7 +1207,7 @@ BUILTIN_PROC_DEF(append) { head = copy_list(TO_PAIR(head), tail); else tail = head; } - else + else { if (tail->is_pair_obj()) { @@ -1230,7 +1230,7 @@ BUILTIN_PROC_DEF(reverse) { ARGS_EXACTLY_ONE; Pair *tail = empty_list; EvalObj *ptr; - for (ptr = args->car; + for (ptr = args->car; ptr->is_pair_obj(); ptr = TO_PAIR(ptr)->cdr) tail = new Pair(TO_PAIR(ptr)->car, tail); if (ptr != empty_list) @@ -1241,7 +1241,7 @@ BUILTIN_PROC_DEF(reverse) { BUILTIN_PROC_DEF(list_tail) { ARGS_EXACTLY_TWO; EvalObj *sec = TO_PAIR(args->cdr)->car; - if (!sec->is_num_obj() || + if (!sec->is_num_obj() || static_cast(sec)->level != NUM_LVL_INT) throw TokenError("an exact integer", RUN_ERR_WRONG_TYPE); int i, k = static_cast(sec)->get_i(); @@ -1269,7 +1269,7 @@ BUILTIN_PROC_DEF(is_eqv) { if (otype != obj2->get_otype()) return new BoolObj(false); if (otype & CLS_BOOL_OBJ) return new BoolObj( - static_cast(obj1)->val == + static_cast(obj1)->val == static_cast(obj2)->val); if (otype & CLS_SYM_OBJ) return new BoolObj( @@ -1312,7 +1312,7 @@ do { \ throw NormalError(RUN_ERR_QUEUE_OVERFLOW); \ } while (0) - + static EvalObj *q1[EQUAL_QUEUE_SIZE], *q2[EQUAL_QUEUE_SIZE]; ARGS_EXACTLY_TWO; @@ -1353,8 +1353,8 @@ do { \ VecObj *vb = static_cast(b); if (va->get_size() != vb->get_size()) return new BoolObj(false); - for (EvalObjVec::iterator - it = va->vec.begin(); + for (EvalObjVec::iterator + it = va->vec.begin(); it != va->vec.end(); it++) { *r1 = TO_PAIR(a)->car; @@ -1362,8 +1362,8 @@ do { \ CHK1; } - for (EvalObjVec::iterator - it = vb->vec.begin(); + for (EvalObjVec::iterator + it = vb->vec.begin(); it != vb->vec.end(); it++) { *r2 = TO_PAIR(b)->car; @@ -1373,7 +1373,7 @@ do { \ } else if (otype & CLS_BOOL_OBJ) { - if (static_cast(a)->val != + if (static_cast(a)->val != static_cast(b)->val) return new BoolObj(false); } -- cgit v1.2.3