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

Work on static linkage.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-16 14:05:47 +01:00
parent dbb7ab7fd8
commit 1a6f339d9d
2 changed files with 17 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Makefile
View file

@ -23,10 +23,20 @@
# CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. # CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
# #
brmsaptool: brmsaptool.o testing.o listing.o month.o period.o ansi.o \ .PHONY: all
member-file.o dictionary.o command-line.o \ all: brmsaptool brmsaptool-static
CSC=csc
BRMSAPTOOL-SOURCES=brmsaptool.o testing.o listing.o month.o period.o \
ansi.o member-file.o dictionary.o command-line.o \
members-base.o utils.o members-base.o utils.o
csc -o brmsaptool $^
brmsaptool: $(BRMSAPTOOL-SOURCES)
$(CSC) -o $@ $^
brmsaptool-static: brmsaptool.scm $(BRMSAPTOOL-SOURCES)
$(CSC) -static -o $@ $<
.PHONY: clean .PHONY: clean
clean: clean:
@ -36,10 +46,10 @@ clean:
# Module shared object and import source compilation # Module shared object and import source compilation
%.o: %.scm %.o: %.scm
csc -c $< $(CSC) -c $<
%.import.scm: %.scm %.import.scm: %.scm
csc -c -J $< $(CSC) -c -J $<
################################################################ ################################################################
# Modules # Modules

4
brmsaptool.scm
View file

@ -69,7 +69,7 @@
(-mfkw () "Member-File invalid Key Warning" (*member-file-check-syntax* 'warning)) (-mfkw () "Member-File invalid Key Warning" (*member-file-check-syntax* 'warning))
(-mfkq () "Member-File invalid Key Quiet" (*member-file-check-syntax* 'quiet)) (-mfkq () "Member-File invalid Key Quiet" (*member-file-check-syntax* 'quiet))
(-mfec (n) "Member-File parser Error Context (lines)" (*member-file-context* (string->number n))) (-mfec (n) "Member-File parser Error Context (lines)" (*member-file-context* (string->number n)))
(-mi (id) "Specif member by id" (-member-id- (string->number id))) (-mi (id) "Specify member by id" (-member-id- (string->number id)))
(-mn (nick) "Specify member by nick" (-member-nick- nick)) (-mn (nick) "Specify member by nick" (-member-nick- nick))
) )
@ -80,7 +80,7 @@
(define mr (if (-member-id-) (define mr (if (-member-id-)
(find-member-by-id MB (-member-id-)) (find-member-by-id MB (-member-id-))
(if (-member-nick-) (if (-member-nick-)
(find-member-by-nick (-member-nick-)) (find-member-by-nick MB (-member-nick-))
#f))) #f)))
;; ... ;; ...