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

Rename member-parser to brmember-parser.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-11 22:45:55 +02:00
parent cd298e62fc
commit 1ce051ddc7
3 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/Makefile
View file

@ -45,7 +45,7 @@ HACKERBASE-OBJS=hackerbase.o testing.o listing.o month.o period.o \
primes.o brmember.o configuration.o progress.o table.o \ primes.o brmember.o configuration.o progress.o table.o \
cards.o members-print.o member-fees.o members-dir.o \ cards.o members-print.o member-fees.o members-dir.o \
util-csv.o bank-account.o bank-fio.o members-payments.o \ util-csv.o bank-account.o bank-fio.o members-payments.o \
member-parser.o web-static.o environment.o mailman.o \ brmember-parser.o web-static.o environment.o mailman.o \
util-set-list.o util-time.o util-tag.o util-io.o \ util-set-list.o util-time.o util-tag.o util-io.o \
util-string.o util-io.o util-list.o util-parser.o texts.o \ util-string.o util-io.o util-list.o util-parser.o texts.o \
tests.o util-proc.o util-mail.o reminders.o util-format.o \ tests.o util-proc.o util-mail.o reminders.o util-format.o \
@ -174,14 +174,14 @@ CARDS-SOURCES=cards.scm util-dict-list.import.scm members-base.import.scm \
cards.o: cards.import.scm cards.o: cards.import.scm
cards.import.scm: $(CARDS-SOURCES) cards.import.scm: $(CARDS-SOURCES)
MEMBER-PARSER-SOURCES=member-parser.scm brmember.import.scm \ BRMEMBER-PARSER-SOURCES=brmember-parser.scm brmember.import.scm \
testing.import.scm util-dict-list.import.scm month.import.scm \ testing.import.scm util-dict-list.import.scm month.import.scm \
period.import.scm configuration.import.scm \ period.import.scm configuration.import.scm \
util-string.import.scm util-list.import.scm \ util-string.import.scm util-list.import.scm \
util-parser.import.scm util-parser.import.scm
member-parser.o: member-parser.import.scm brmember-parser.o: brmember-parser.import.scm
member-parser.import.scm: $(MEMBER-PARSER-SOURCES) brmember-parser.import.scm: $(BRMEMBER-PARSER-SOURCES)
MEMBERS-PRINT-SOURCES=members-print.scm util-dict-list.import.scm \ MEMBERS-PRINT-SOURCES=members-print.scm util-dict-list.import.scm \
brmember.import.scm month.import.scm table.import.scm \ brmember.import.scm month.import.scm table.import.scm \
@ -203,7 +203,7 @@ member-fees.import.scm: $(MEMBER-FEES-SOURCES)
MEMBERS-DIR-SOURCES=members-dir.scm testing.import.scm \ MEMBERS-DIR-SOURCES=members-dir.scm testing.import.scm \
util-dict-list.import.scm brmember.import.scm \ util-dict-list.import.scm brmember.import.scm \
member-parser.import.scm util-list.import.scm brmember-parser.import.scm util-list.import.scm
members-dir.o: members-dir.import.scm members-dir.o: members-dir.import.scm
members-dir.import.scm: $(MEMBERS-DIR-SOURCES) members-dir.import.scm: $(MEMBERS-DIR-SOURCES)

10
src/member-parser.scm → src/brmember-parser.scm
View file

@ -1,5 +1,5 @@
;; ;;
;; member-parser.scm ;; brmember-parser.scm
;; ;;
;; Member file parsing. ;; Member file parsing.
;; ;;
@ -23,12 +23,12 @@
;; CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. ;; CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;; ;;
(declare (unit member-parser)) (declare (unit brmember-parser))
(module (module
member-parser brmember-parser
( (
load-member-file load-brmember-file
) )
(import scheme (import scheme
@ -221,7 +221,7 @@
(interpreter-pass mr pass-name (ldict-ref mr prev-name) pass-proc))))))) (interpreter-pass mr pass-name (ldict-ref mr prev-name) pass-proc)))))))
;; Loads member file source. Performs passes 0, 1 and 2. ;; Loads member file source. Performs passes 0, 1 and 2.
(define (load-member-file mr) (define (load-brmember-file mr)
(let* ((mrif (brmember-input-file mr)) (let* ((mrif (brmember-input-file mr))
(source (read-lines mrif)) (source (read-lines mrif))
(mrp (parse-member-lines mr source))) (mrp (parse-member-lines mr source)))

2
src/members-dir.scm
View file

@ -152,7 +152,7 @@
(let* ((mr0 (make-brmember fname (let* ((mr0 (make-brmember fname
(make-pathname mdir (symbol->string fname)) (make-pathname mdir (symbol->string fname))
symlinks))) symlinks)))
(load-member-file mr0))) (load-brmember-file mr0)))
;; Performs self-tests of this module. ;; Performs self-tests of this module.
(define (members-dir-tests!) (define (members-dir-tests!)