sfos/ecl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

reintroduce init functions for modules

Browse source 
Reintroduce the entry points like init_lib_CMP, init_lib_SOCKETS, ...
we had in ECL 16.1.3 for our builtin modules linked as static
libraries.
This commit is contained in:
Marius Gerbershagen 2020-01-22 18:56:03 +01:00
parent 3267bf7f62
commit 14951e4c0b
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/bare.lsp.in
View file

@ -148,6 +148,9 @@
name library depends-on (string name) compiled))
path))
(defun init-name (name)
(concatenate 'string "init_lib_" (string-upcase (substitute #\_ #\- name))))
(defun build-module (name sources &key additional-files depends-on
(builtin nil) (dir "build:")
((:prefix si::*init-function-prefix*) "EXT"))
@ -158,7 +161,9 @@
(let* ((objects (compile-if-old dir sources :system-p t :c-file t
:data-file t :h-file t))
(compiled-file-name (string name))
(static-library (c::build-static-library name :lisp-files objects)))
(static-library (c::build-static-library name
:lisp-files objects
:init-name (init-name name))))
(push static-library *module-files*)
(when builtin
(push (intern name) *module-symbols*))