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

Postgresql integration.

Browse source
This commit is contained in:
Dominik Pantůček 2025-04-01 11:35:11 +02:00
parent a59567d4ab
commit 24e0b487c5
3 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
backend/Makefile
View file

@ -17,7 +17,7 @@ BRMINV_OBJS=brminv.o frontend.o command-line.o util-proc.o duck.o \
$(CSC) -regenerate-import-libraries -P -J $< $(CSC) -regenerate-import-libraries -P -J $<
../brminv: $(BRMINV_OBJS) ../brminv: $(BRMINV_OBJS)
$(CSC) -L --no-lto -L -Wl,-static -L -Wl,-lssl -L -Wl,-lcrypto -L -Wl,-Bdynamic -strip -static -o $@ $(BRMINV_OBJS) $(CSC) -L --no-lto -L -Wl,-static -L -Wl,-lssl -L -Wl,-lcrypto -L -Wl,-Bdynamic -L -Wl,-lpq -strip -static -o $@ $(BRMINV_OBJS)
frontend.o: frontend.import.scm frontend.o: frontend.import.scm
frontend.import.scm: frontend.scm frontend.import.scm: frontend.scm

6
backend/brminv.scm
View file

@ -31,7 +31,8 @@
(chicken tcp) (chicken tcp)
intarweb intarweb
uri-common uri-common
(chicken string)) (chicken string)
postgresql)
(define -port- (make-parameter #f)) (define -port- (make-parameter #f))
(define -certificate- (make-parameter #f)) (define -certificate- (make-parameter #f))
@ -73,6 +74,9 @@
(print " Certificate:" (-certificate-)) (print " Certificate:" (-certificate-))
(print " Key:" (-key-))) (print " Key:" (-key-)))
(define dbconn (connect "postgresql:///brmbar"))
(print dbconn)
(define listener (define listener
(if ssl? (if ssl?
(ssl-listen port) (ssl-listen port)

1
install-eggs.sh
View file

@ -55,6 +55,7 @@ trap chicken_cleanup INT QUIT
# Install required eggs # Install required eggs
chicken_install spiffy chicken_install spiffy
chicken_install openssl chicken_install openssl
chicken_install postgresql
# Normal termination cleanup # Normal termination cleanup
chicken_cleanup chicken_cleanup