From 2853156a2bce535bcaa440c37cf872916f76c03b Mon Sep 17 00:00:00 2001 From: jsdelfino Date: Thu, 3 Jan 2013 08:10:25 +0000 Subject: Refactoring, rename isNil to isNull. git-svn-id: http://svn.us.apache.org/repos/asf/tuscany@1428206 13f79535-47bb-0310-9956-ffa450edef68 --- sca-cpp/trunk/kernel/tree.hpp | 36 ++++++++++++++++++------------------ 1 file changed, 18 insertions(+), 18 deletions(-) (limited to 'sca-cpp/trunk/kernel/tree.hpp') diff --git a/sca-cpp/trunk/kernel/tree.hpp b/sca-cpp/trunk/kernel/tree.hpp index d350879ce7..a5d0e3d5b0 100644 --- a/sca-cpp/trunk/kernel/tree.hpp +++ b/sca-cpp/trunk/kernel/tree.hpp @@ -40,13 +40,13 @@ namespace tuscany { * Requires T to support isList, isAssoc, and cast to list. */ template inline const list treeDelAssoc(const list& k, const list& l) noexcept { - if (isNil(k) || isNil(l)) + if (isNull(k) || isNull(l)) return l; const list lv = l; // If list is an assoc and matches, skip it if (isAssoc(lv)) { - if (car(lv) == car(k) && isNil(cdr(k))) + if (car(lv) == car(k) && isNull(cdr(k))) return list(); } @@ -56,23 +56,23 @@ template inline const list treeDelAssoc(const list& k, const l if (!isList(a)) return cons(a, treeDelAssoc(k, cdr(lv))); const list da = treeDelAssoc(k, a); - return isNil(da)? treeDelAssoc(k, cdr(lv)) : cons(da, treeDelAssoc(k, cdr(lv))); + return isNull(da)? treeDelAssoc(k, cdr(lv)) : cons(da, treeDelAssoc(k, cdr(lv))); } // If we found a match, skip it and lookup children and rest of the list if (car(a) == car(k)) { - if (isNil(cdr(k))) + if (isNull(cdr(k))) return treeDelAssoc(k, cdr(lv)); return cons(cons(car(a), treeDelAssoc(cdr(k), cdr(a))), treeDelAssoc(k, cdr(lv))); } // No match, lookup children and rest of the list - if (isNil(cdr(a))) + if (isNull(cdr(a))) return cons(a, treeDelAssoc(k, cdr(lv))); if (!isList(cadr(a))) return cons(cons(car(a), cons(cadr(a), treeDelAssoc(k, cddr(a)))), treeDelAssoc(k, cdr(lv))); const list da = treeDelAssoc(k, cadr(a)); - if (isNil(da)) + if (isNull(da)) return cons(cons(car(a), treeDelAssoc(k, cddr(a))), treeDelAssoc(k, cdr(lv))); return cons(cons(car(a), cons(da, treeDelAssoc(k, cddr(a)))), treeDelAssoc(k, cdr(lv))); } @@ -83,12 +83,12 @@ template inline const list treeDelAssoc(const list& k, const l * Requires T to support isList, isAssoc, and cast to list. */ template inline const list treeSubstAssoc(const list& k, const list& n, const list& lv) noexcept { - if (isNil(k) || isNil(lv)) + if (isNull(k) || isNull(lv)) return lv; // If list is an assoc and matches, substitute it if (isAssoc(lv)) { - if (car(lv) == car(k) && isNil(cdr(k))) + if (car(lv) == car(k) && isNull(cdr(k))) return n; } @@ -102,13 +102,13 @@ template inline const list treeSubstAssoc(const list& k, const // If we found a match, substitute it and lookup children and rest of the list if (car(a) == car(k)) { - if (isNil(cdr(k))) + if (isNull(cdr(k))) return cons(n, treeSubstAssoc(k, n, cdr(lv))); return cons(cons(car(a), treeSubstAssoc(cdr(k), n, cdr(a))), treeSubstAssoc(k, n, cdr(lv))); } // No match, lookup children and rest of the list - if (isNil(cdr(a))) + if (isNull(cdr(a))) return cons(a, treeSubstAssoc(k, n, cdr(lv))); if (!isList(cadr(a))) return cons(cons(car(a), cons(cadr(a), treeSubstAssoc(k, n, cddr(a)))), treeSubstAssoc(k, n, cdr(lv))); @@ -121,12 +121,12 @@ template inline const list treeSubstAssoc(const list& k, const * Requires T to support isList, isAssoc, and cast to list. */ template inline const list treeSelectAssoc(const list& k, const list& lv) noexcept { - if (isNil(k) || isNil(lv)) + if (isNull(k) || isNull(lv)) return list(); // If list is an assoc and matches, select it if (isAssoc(lv)) { - if (car(lv) == car(k) && isNil(cdr(k))) + if (car(lv) == car(k) && isNull(cdr(k))) return mklist(lv); } @@ -140,13 +140,13 @@ template inline const list treeSelectAssoc(const list& k, cons // If we found a match, select it and lookup children and rest of the list if (car(a) == car(k)) { - if (isNil(cdr(k))) + if (isNull(cdr(k))) return cons(a, treeSelectAssoc(k, cdr(lv))); return append(treeSelectAssoc(cdr(k), cdr(a)), treeSelectAssoc(k, cdr(lv))); } // No match, lookup children and rest of the list - if (isNil(cdr(a))) + if (isNull(cdr(a))) return treeSelectAssoc(k, cdr(lv)); if (!isList(cadr(a))) return append(treeSelectAssoc(k, cddr(a)), treeSelectAssoc(k, cdr(lv))); @@ -164,7 +164,7 @@ template inline const list mkrbtree(const T& e, const list& le * Find a leaf with the given key in a rooted binary tree. */ template inline const list rbtreeAssoc(const T& k, const list& tree) { - if (isNil(tree)) + if (isNull(tree)) return tree; if (k == car(car(tree))) return car(tree); @@ -177,7 +177,7 @@ template inline const list rbtreeAssoc(const T& k, const list& * Construct a new rooted binary tree from a leaf and a tree. */ template inline const list rbtreeCons(const T& e, const list& tree) { - if (isNil(tree)) + if (isNull(tree)) return mkrbtree(e, list(), list()); if (e == car(tree)) return tree; @@ -190,7 +190,7 @@ template inline const list rbtreeCons(const T& e, const list& * Make a rooted binary tree from an unordered list of leaves. */ template inline const list mkrbtree(const list& l) { - if (isNil(l)) + if (isNull(l)) return l; return rbtreeCons(car(l), mkrbtree(cdr(l))); } @@ -199,7 +199,7 @@ template inline const list mkrbtree(const list& l) { * Convert a rooted binary tree to an ordered list of leaves. */ template inline const list flatten(const list& tree) { - if (isNil(tree)) + if (isNull(tree)) return tree; return append(flatten(cadr(tree)), cons(car(tree), flatten(caddr(tree)))); } -- cgit v1.2.3