Merge branch 'module-init-functions' into 'develop'

Reintroduce init_lib_CMP, init_lib_SOCKETS, ...

See merge request embeddable-common-lisp/ecl!179
This commit is contained in:
Daniel Kochmański 2020-01-22 22:09:11 +00:00
commit eadefe86ed

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*))