Add REPL support.

This commit is contained in:
Dominik Pantůček 2023-04-01 17:28:44 +02:00
parent 34117b278d
commit d092275797
2 changed files with 10 additions and 3 deletions

View file

@ -217,7 +217,7 @@ MEMBERS-PAYMENTS-SOURCES=members-payments.scm bank-account.import.scm \
members-payments.o: members-payments.import.scm
members-payments.import.scm: $(MEMBERS-PAYMENTS-SOURCES)
WEB-STATIC-SOURCES=web-static.scm
WEB-STATIC-SOURCES=web-static.scm member-record.import.scm
web-static.o: web-static.import.scm
web-static.import.scm: $(WEB-STATIC-SOURCES)

View file

@ -25,7 +25,8 @@ NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
")
(import testing
(import (chicken repl)
testing
listing
dictionary
month
@ -44,7 +45,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
member-fees
members-dir
csv-simple
members-payments)
members-payments
web-static)
;; Print banner
(print "bbstool 0.7 (c) 2023 Brmlab, z.s.")
@ -98,6 +100,9 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(-fees () "Prints fees table"
(-needs-bank- #t)
(-action- 'fees))
(-repl () "Start repl with everything loaded"
(-needs-bank- #t)
(-action- 'repl))
)
;; Run tests
@ -204,6 +209,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
((fees)
(newline)
(print-members-fees-table MB))
((repl)
(repl))
(else
(print "Nothing to do."))