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.o: members-payments.import.scm
members-payments.import.scm: $(MEMBERS-PAYMENTS-SOURCES) 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.o: web-static.import.scm
web-static.import.scm: $(WEB-STATIC-SOURCES) 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. CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
") ")
(import testing (import (chicken repl)
testing
listing listing
dictionary dictionary
month month
@ -44,7 +45,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
member-fees member-fees
members-dir members-dir
csv-simple csv-simple
members-payments) members-payments
web-static)
;; Print banner ;; Print banner
(print "bbstool 0.7 (c) 2023 Brmlab, z.s.") (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" (-fees () "Prints fees table"
(-needs-bank- #t) (-needs-bank- #t)
(-action- 'fees)) (-action- 'fees))
(-repl () "Start repl with everything loaded"
(-needs-bank- #t)
(-action- 'repl))
) )
;; Run tests ;; Run tests
@ -204,6 +209,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
((fees) ((fees)
(newline) (newline)
(print-members-fees-table MB)) (print-members-fees-table MB))
((repl)
(repl))
(else (else
(print "Nothing to do.")) (print "Nothing to do."))