Merge branch 'master' of https://tree.clementinecomputing.com/clementinecomputing/popufare

busunit/testing/rules-ORG.scm

@@ -0,0 +1,189 @@
+(define (hours)   (car (gettime)))
+(define (mins)    (car (cdr (gettime))))
+(define (year)    (car (getdate)))
+(define (month)   (car (cdr (getdate))))
+(define (day)     (car (cdr (cdr (getdate)))))
+(define (lat x)   (car x))
+(define (lon x)   (car (cdr x)))
+
+(define (eastof x)  (> (lon (gps)) (lon x)))
+(define (westof x)  (< (lon (gps)) (lon x)))
+(define (northof x) (> (lat (gps)) (lat x)))
+(define (southof x) (< (lat (gps)) (lat x)))
+
+; DD  - Decimal Degree format
+; DMS - Degree/Minute/Second format
+; DMM - Degree/Decimal Minute format
+;
+; defined in DMM-ish style (call it DMMt).
+; Most significant digts are degree, remaining are in minute, so:
+;
+; q = floor(DMMt/100)
+; DD = q + ((DMMt - (100*q))/60)
+;
+; for example:
+;
+; x = 4229.532
+; q = floor(x/100)
+; q + ((x - (100*q))/60)
+;
+; --> 42.49220
+;
+
+(define bound0 '(4227.139 -7641.424))
+(define bound1 '(4222.689 -7616.695))
+
+
+(define city_bounds
+  '(
+    (and (= (routenum) 1) (westeof bound0))
+    (and (= (routenum) 2) (eastof bound1))
+  )
+)
+
+; ---
+
+(define (dec_local_balance)
+  (let ((balance (string->number (lookaside_param))))
+    (cond
+      ( (< balance 1)
+        "0"
+      )
+      ( else
+        (let ((foo (number->string (- balance 1))))
+          (set_lookaside foo)
+          foo
+        )
+      )
+    )
+  )
+)
+
+; ----
+
+(define (rule_NRIDE)
+  ;;accept all
+  (let ((rides_left (dec_local_balance)))
+    (tell_rider (string-append rides_left " Rides left"))
+    (accept_fare_no_passback
+      (string-append rides_left " Rides left")
+      (string-append rides_left " Rides left")
+      0
+    )
+  )
+)
+
+(define (rule_NDAY)
+  ;;accept all
+  (let ((tokens (strtok (param) " "))) 
+    (cond
+      ( (pair? (cdr tokens))
+        (tell_rider (string-append "Expires " (car (cdr tokens))) )
+        (accept_fare
+          (string-append "Expires " (car (cdr tokens)))
+          (string-append "Expires " (car (cdr tokens)))
+          0
+        )
+      )
+      ( else
+        (tell_rider (string-append (car tokens) " Day pass"))
+        (accept_fare
+          (string-append (car tokens) " Day pass")
+          (string-append (car tokens) " Day pass")
+          0
+        )
+      )
+    )
+  )
+)
+
+(define (rule_CASH-ADULT)
+  (accept_fare_no_passback "Adult Cash Fare" "Adult Cash Fare" 150)
+  (drop_vault)
+)
+
+(define (rule_CASH-YOUTH)
+  (accept_fare_no_passback "Youth Cash Fare" "Youth Cash Fare" 75)
+  (drop_vault)
+)
+
+(define (rule_CASH-HALF)
+  (accept_fare_no_passback "ADA/Senior Cash" "ADA/Senior Cash" 75)
+  (drop_vault)
+)
+
+(define (rule_MISC-INTERLINE)
+  (accept_fare_no_passback "Interline" "Interline" 0)
+)
+
+(define (rule_MISC-TRANSFER)
+  (accept_fare_no_passback "Transfer" "Transfer" 0)
+)
+
+(define (rule_MISC-BIKE)
+  (accept_fare_no_passback "Bike" "Bike" 0)
+)
+
+(define (rule_MISC-WHEELCHAIR)
+  (accept_fare_no_passback "Wheelchair" "Wheelchair" 0)
+)
+
+(define (rule_MISC-EVENT)
+  (accept_fare_no_passback "Special Event" "Special Event" 0)
+)
+
+(define (rule_OVR-CITY)
+  (accept_fare_no_passback "City Override" "City Override" 0)
+)
+
+(define (rule_OVR-CARD)
+  (accept_fare_no_passback "ORG-Card Override" "ORG-Card Override" 0)
+)
+
+(define (bulk_generic rule times)
+  (cond
+    ((= times 0) 0)
+    (else
+      (rule)
+      (bulk_generic rule (- times 1))
+    )
+  )
+)
+
+(define (rule_BULK-CASH-ADULT)
+  (bulk_generic rule_CASH-ADULT (string->number (param)))
+)
+
+(define (rule_BULK-CASH-YOUTH)
+  (bulk_generic rule_CASH-YOUTH (string->number (param)))
+)
+
+(define (rule_BULK-CASH-HALF)
+  (bulk_generic rule_CASH-HALF (string->number (param)))
+)
+
+(define (rule_BULK-MISC-EVENT)
+  (bulk_generic rule_MISC-EVENT (string->number (param)))
+)
+(define (rule_BULK-MISC-INTERLINE)
+  (bulk_generic rule_MISC-INTERLINE (string->number (param)))
+)
+
+(define (rule_BULK-MISC-TRANSFER)
+  (bulk_generic rule_MISC-TRANSFER (string->number (param)))
+)
+
+(define (rule_BULK-OVR-CITY)
+  (bulk_generic rule_OVR-CITY (string->number (param)))
+)
+
+(define (rule_BULK-OVR-CARD)
+  (bulk_generic rule_OVR-CARD (string->number (param)))
+)
+
+;------------------ blanket reject (used for domain card rejections as well)
+      
+(define (rule_REJECT)
+  (tell_rider "No Passes on Card")
+  (reject_fare "No Passes on Card" "No Passes on Card" 0)
+)

busunit/testing/rules-TEST.scm

@@ -0,0 +1,214 @@
+(define (hours)   (car (gettime)))
+(define (mins)    (car (cdr (gettime))))
+(define (year)    (car (getdate)))
+(define (month)   (car (cdr (getdate))))
+(define (day)     (car (cdr (cdr (getdate)))))
+(define (lat x)   (car x))
+(define (lon x)   (car (cdr x)))
+
+(define (eastof x)  (> (lon (gps)) (lon x)))
+(define (westof x)  (< (lon (gps)) (lon x)))
+(define (northof x) (> (lat (gps)) (lat x)))
+(define (southof x) (< (lat (gps)) (lat x)))
+
+; DD  - Decimal Degree format
+; DMS - Degree/Minute/Second format
+; DMM - Degree/Decimal Minute format
+;
+; defined in DMM-ish style (call it DMMt).
+; Most significant digts are degree, remaining are in minute, so:
+;
+; q = floor(DMMt/100)
+; DD = q + ((DMMt - (100*q))/60)
+;
+; for example:
+;
+; x = 4229.532
+; q = floor(x/100)
+; q + ((x - (100*q))/60)
+;
+; --> 42.49220
+;
+
+(define bound0 '(4227.139 -7641.424))
+(define bound1 '(4222.689 -7616.695))
+
+
+(define city_bounds
+  '(
+    (and (= (routenum) 1) (westeof bound0))
+    (and (= (routenum) 2) (eastof bound1))
+  )
+)
+
+; ---
+
+(define (dec_local_balance)
+  (let ((balance (string->number (lookaside_param))))
+    (cond
+      ( (< balance 1)
+        "0"
+      )
+      ( else
+        (let ((foo (number->string (- balance 1))))
+          (set_lookaside foo)
+          foo
+        )
+      )
+    )
+  )
+)
+
+; ----
+
+(define (rule_TEST-ORG-NRIDE)
+  ;;accept all
+  (let ((rides_left (dec_local_balance)))
+    (tell_rider (string-append rides_left " Rides left"))
+    (accept_fare_no_passback
+      (string-append rides_left " Rides left")
+      (string-append rides_left " Rides left")
+      0
+    )
+  )
+)
+
+(define (rule_TEST-ORG-NDAY)
+  ;;accept all
+  (let ((tokens (strtok (param) " ")))
+    (cond
+      ( (pair? (cdr tokens))
+        (tell_rider (string-append "Expires " (car (cdr tokens))) )
+        (accept_fare
+          (string-append "Expires " (car (cdr tokens)))
+          (string-append "Expires " (car (cdr tokens)))
+          0
+        )
+      )
+      ( else
+        (tell_rider (string-append (car tokens) " Day pass"))
+        (accept_fare
+          (string-append (car tokens) " Day pass")
+          (string-append (car tokens) " Day pass")
+          0
+        )
+      )
+    )
+  )
+)
+
+(define (rule_CASH-ADULT)
+  (accept_fare_no_passback "Adult Cash Fare" "Adult Cash Fare" 150)
+  (drop_vault)
+)
+
+(define (rule_CASH-YOUTH)
+  (accept_fare_no_passback "Youth Cash Fare" "Youth Cash Fare" 75)
+  (drop_vault)
+)
+
+(define (rule_CASH-HALF)
+  (accept_fare_no_passback "ADA/Senior Cash" "ADA/Senior Cash" 75)
+  (drop_vault)
+)
+
+(define (rule_MISC-INTERLINE)
+  (accept_fare_no_passback "Interline" "Interline" 0)
+)
+
+(define (rule_MISC-TRANSFER)
+  (accept_fare_no_passback "Transfer" "Transfer" 0)
+)
+
+(define (rule_MISC-BIKE)
+  (accept_fare_no_passback "Bike" "Bike" 0)
+)
+
+(define (rule_MISC-WHEELCHAIR)
+  (accept_fare_no_passback "Wheelchair" "Wheelchair" 0)
+)
+
+(define (rule_MISC-EVENT)
+  (accept_fare_no_passback "Special Event" "Special Event" 0)
+)
+
+(define (rule_OVR-CITY)
+  (accept_fare_no_passback "City Override" "City Override" 0)
+)
+
+(define (rule_OVR-CARD)
+  (accept_fare_no_passback "Card Override" "Card Override" 0)
+)
+
+(define (bulk_generic rule times)
+  (cond
+    ((= times 0) 0)
+    (else
+      (rule)
+      (bulk_generic rule (- times 1))
+    )
+  )
+)
+
+(define (rule_BULK-CASH-ADULT)
+  (bulk_generic rule_CASH-ADULT (string->number (param)))
+)
+
+(define (rule_BULK-CASH-YOUTH)
+  (bulk_generic rule_CASH-YOUTH (string->number (param)))
+)
+
+(define (rule_BULK-CASH-HALF)
+  (bulk_generic rule_CASH-HALF (string->number (param)))
+)
+
+(define (rule_BULK-MISC-EVENT)
+  (bulk_generic rule_MISC-EVENT (string->number (param)))
+)
+(define (rule_BULK-MISC-INTERLINE)
+  (bulk_generic rule_MISC-INTERLINE (string->number (param)))
+)
+
+(define (rule_BULK-MISC-TRANSFER)
+  (bulk_generic rule_MISC-TRANSFER (string->number (param)))
+)
+
+(define (rule_BULK-OVR-CITY)
+  (bulk_generic rule_OVR-CITY (string->number (param)))
+)
+
+(define (rule_BULK-OVR-CARD)
+  (bulk_generic rule_OVR-CARD (string->number (param)))
+)
+
+;-----
+
+(define (rule_TEST-ORG-TEST)
+  (tell_rider "Test Org Pass")
+  (accept_fare "Test Org Pass" "Test Org Pass" 0)
+)
+
+
+(define (rule_TEST-SCHOOL-PASS)
+  (tell_rider "Test School Pass")
+  (accept_fare "Test School Pass" "Test School Pass" 0)
+)
+
+(define (rule_TEST-GOV-PASS)
+  (tell_rider "Test Gov Pass")
+  (accept_fare "Test Gov Pass" "Test Gov Pass" 0)
+)
+
+(define (rule_TEST-OTHER-ORG-PASS)
+  (tell_rider "Test Other Org Pass")
+  (accept_fare "Test Other Org Pass" "Test Other Org Pass" 0)
+)
+
+
+;------------------ blanket reject (used for domain card rejections as well)
+
+(define (rule_TEST-ORG-REJECT)
+  (tell_rider "No Passes on Card")
+  (reject_fare "No Passes on Card" "No Passes on Card" 0)
+)
+