1 files changed, 77 insertions, 0 deletions
diff --git a/sandbox/sebastien/cpp/apr-2/samples/loan-python/loan-approval.py b/sandbox/sebastien/cpp/apr-2/samples/loan-python/loan-approval.py
new file mode 100644
index 0000000000..3951f16eeb
--- /dev/null
+++ b/sandbox/sebastien/cpp/apr-2/samples/loan-python/loan-approval.py
@@ -0,0 +1,77 @@
+#  Licensed to the Apache Software Foundation (ASF) under one
+#  or more contributor license agreements.  See the NOTICE file
+#  distributed with this work for additional information
+#  regarding copyright ownership.  The ASF licenses this file
+#  to you under the Apache License, Version 2.0 (the
+#  "License"); you may not use this file except in compliance
+#  with the License.  You may obtain a copy of the License at
+#  
+#    http://www.apache.org/licenses/LICENSE-2.0
+#    
+#  Unless required by applicable law or agreed to in writing,
+#  software distributed under the License is distributed on an
+#  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+#  KIND, either express or implied.  See the License for the
+#  specific language governing permissions and limitations
+#  under the License.
+
+# Loan approval service implementation
+import uuid
+import sys
+from util import *
+from loan import *
+
+loansId = ("loans", "1234")
+
+# Return the list of loans
+def loans(cache):
+    l = cache("get", loansId)
+    if l is None:
+        return ()
+    return l
+
+# Post a new loan request
+def post(collection, item, cache):
+    id = str(uuid.uuid1())
+    loans = cons(cons(id, cdr(item)), loans(cache))
+    cache("put", loansId, loans)
+    return (id,)
+
+# Return the person currently processing a loan request
+def processor(l):
+    if approver(l) is not None:
+        return approver(l)
+    return assessor(l)
+
+# Return a list of loans that match a given criteria
+def get(r, cache):
+    # All the loans
+    if r == ():
+        return loans(cache)
+    # Loans that need approval
+    if car(r) == "needApproval":
+        return filter(lambda l: (amount(l) >= 10000 or risk(l) == "high") and approval(l) is None, loans(cache))
+    # Loans that need a risk assessment
+    if car(r) == "needAssessment":
+        return filter(lambda : amount(l) < 10000 and risk(l) is None, loans(cache))
+    # Loans currently under approval
+    if car(r) == "underApproval":
+        return filter(lambda l: approver(l) is not None, loans(cache))
+    # Loans currently under assessment
+    if car(r) == "underAssessment":
+        return filter(lambda l: assessor(l) is not None, loans(cache))
+    # Loan requests that are unassigned
+    if car(r) == "unassigned":
+        return filter(lambda l: processor(l) is None, loans(cache))
+    # Loan requests that are assigned and getting processed
+    if car(r) == "assigned":
+        return filter(lambda l: processor(l) == cadr(r), loans(cache))
+    # Approved loans
+    if car(r) == "approved":
+        return filter(lambda l: approval(l) == true, loans(cache))
+    # Denied loans
+    if car(r) == "denied":
+        return filter(lambda l: approval(l) == false, loans(cache))
+    # A particular loan
+    return filter(lambda l: id(l) == r, loans(cache))
+