brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Move sources to separate directory.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-01 09:45:46 +02:00
parent aa7a340d51
commit 69d0b8ee10
25 changed files with 0 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

74
bank-account.scm
View file

@ -1,74 +0,0 @@
;;
;; bank-account.scm
;;
;; Generic bank account records.
;;
;; ISC License
;;
;; Copyright 2023 Brmlab, z.s.
;; Dominik Pantůček <dominik.pantucek@trustica.cz>
;;
;; Permission to use, copy, modify, and/or distribute this software
;; for any purpose with or without fee is hereby granted, provided
;; that the above copyright notice and this permission notice appear
;; in all copies.
;;
;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
;; WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
;; WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE
;; AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR
;; CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS
;; OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,
;; NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
;; CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;;
(declare (unit bank-account))
(module
bank-account
(
make-bank-account
bank-account-transactions
bank-account-number
bank-account-bank
bank-account-insert
make-bank-transaction
bank-transaction-varsym
bank-transaction-amount
bank-transaction-currency
bank-transaction-date
bank-transaction-id
bank-transaction-message
bank-transaction-type
)
(import scheme
(chicken base))
;; Bank account is represented as a list with list with the following
;; elements: list of transactions, account number, bank code. This
;; allows cheap transaction prepending.
(define (make-bank-account number bank . maybe-transactions)
(let ((transactions (if (null? maybe-transactions)
'()
(car maybe-transactions))))
(list transactions number bank)))
;; Trivial accessors
(define bank-account-transactions car)
(define bank-account-number cadr)
(define bank-account-bank caddr)
;; Prepends given transaction to given bank account. It expects the
;; transactions list to be the first element of the bank account
;; list.
(define (bank-account-insert account transaction)
(cons (cons transaction (car account))
(cdr account)))
;; Creates a new bank transaction.
(define-record bank-transaction id date amount currency varsym message type)
)