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

Add output to stdout as well.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-26 19:38:21 +02:00
parent 899f654b89
commit a2c7095711
2 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/Makefile
View file

@ -484,9 +484,9 @@ UTIL-DIR-SOURCES=util-dir.scm
util-dir.o: util-dir.import.scm util-dir.o: util-dir.import.scm
util-dir.import.scm: $(UTIL-DIR-SOURCES) util-dir.import.scm: $(UTIL-DIR-SOURCES)
DOKUWIKI-SOURCES=dokuwiki.scm racket-kwargs.import.scm \ DOKUWIKI-SOURCES=dokuwiki.scm racket-kwargs.import.scm \
configuration.import.scm util-parser.import.scm \ configuration.import.scm util-parser.import.scm \
util-csv.import.scm logging.import.scm util-csv.import.scm logging.import.scm util-stdout.import.scm
dokuwiki.o: dokuwiki.import.scm dokuwiki.o: dokuwiki.import.scm
dokuwiki.import.scm: $(DOKUWIKI-SOURCES) dokuwiki.import.scm: $(DOKUWIKI-SOURCES)

4
src/dokuwiki.scm
View file

@ -40,7 +40,8 @@
configuration configuration
util-parser util-parser
util-csv util-csv
logging) logging
util-stdout)
;; Special CSV-like parser ;; Special CSV-like parser
(define auth-line-parser (define auth-line-parser
@ -74,6 +75,7 @@
exn exn
(let () (let ()
(log-warning "DokuWiki: cannot open ~A" fname) (log-warning "DokuWiki: cannot open ~A" fname)
(stdout-print "DokuWiki: cannot open ~A" fname)
'()) '())
(with-input-from-file fname (with-input-from-file fname
parse-dokuwiki-users-auth))) parse-dokuwiki-users-auth)))