mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2025-12-06 02:40:26 -08:00
768eb27079
Examples were relicensed (under permission from JJGR) to BSD-2-Clause a few years back. We also remove Copyright from individual files to match the convention that examples doesn't have that (whole codebase is under JJGR's copyright too).
87 lines
2.2 KiB
Common Lisp
87 lines
2.2 KiB
Common Lisp
;;;
|
|
;;; DESCRIPTION:
|
|
;;;
|
|
;;; This file uses a "Hellow world!" string which is in an another C
|
|
;;; file called hello_aux.c. Both hello.lisp and hello_aux.c are
|
|
;;; compiled and linked into either
|
|
;;;
|
|
;;; 1) a FASL file (see build_fasl.lisp)
|
|
;;; 2) a shared library (see build_dll.lisp)
|
|
;;; 3) or a standalone executable file. (build_exe.lisp)
|
|
;;;
|
|
;;; USE:
|
|
;;;
|
|
;;; Launch a copy of ECL and load this file in it
|
|
;;;
|
|
;;; (load "readme.lisp")
|
|
;;;
|
|
|
|
(format t "
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;;
|
|
;;; BUILDING A COMPOUND FASL FILE
|
|
;;;
|
|
")
|
|
|
|
;;;
|
|
;;; * We compile hello.lisp and hello_aux.c separately.
|
|
;;;
|
|
(compile-file "hello.lisp" :system-p t)
|
|
|
|
(c::compiler-cc "hello_aux.c" (compile-file-pathname "hello_aux.c" :type :object))
|
|
|
|
;;;
|
|
;;; * We combine both in a single FASL file
|
|
;;;
|
|
|
|
(defconstant +compound-fasl+ (compile-file-pathname "compound" :type :fasl))
|
|
|
|
(c::build-fasl +compound-fasl+
|
|
:lisp-files
|
|
(list (compile-file-pathname "hello.lisp" :type :object))
|
|
:ld-flags
|
|
(list (namestring (compile-file-pathname "hello_aux.c" :type :object))))
|
|
|
|
;;;
|
|
;;; * We load both files
|
|
;;;
|
|
|
|
(load +compound-fasl+)
|
|
|
|
|
|
(format t "
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;;
|
|
;;; BUILDING A STANDALONE EXECUTABLE
|
|
;;;
|
|
")
|
|
|
|
;;
|
|
;; * Combine files in a standalone executable. We reuse the files
|
|
;; from the previous example
|
|
;;
|
|
|
|
(defconstant +standalone-exe+ (compile-file-pathname "standalone" :type :program))
|
|
|
|
(c::build-program +standalone-exe+
|
|
:lisp-files
|
|
(list (compile-file-pathname "hello.lisp" :type :object))
|
|
:ld-flags
|
|
(list (namestring (compile-file-pathname "hello_aux.c" :type :object)))
|
|
:epilogue-code
|
|
'(si::quit))
|
|
|
|
;;
|
|
;; * Test the program
|
|
;;
|
|
(si::system (format nil "./~A" +standalone-exe+))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;;
|
|
;;; CLEAN UP
|
|
;;;
|
|
|
|
(delete-file (compile-file-pathname "hello.lisp" :type :object))
|
|
(delete-file (compile-file-pathname "hello_aux.c" :type :object))
|
|
(delete-file +compound-fasl+)
|
|
(delete-file +standalone-exe+)
|