;;
;; specification.scm
;;
;; Global organizational specification.
;;
;; 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 specification))

(module
 specification
 (
  member-fees-lookup-table
  exchange-rates-lookup-table
  member-suspend-max-months
  )

 (import scheme
	 cal-period)

 ;; Convert into lookups - a list of (list period regular student)
 (define member-fees-lookup-table
   (make-cal-period-lookup-table
    '(((2010 1) 500 250)
      ((2024 1) 1000 250))))

 ;; Exchange rates
 (define exchange-rates-lookup-table
   (make-cal-period-lookup-table
    '(((2010 1) 25))))

 ;; How long the member can be suspended without any action required?
 (define member-suspend-max-months 24)

 )