thodg/cl-unix-cybernetics/core/include.lisp

Tag - branch -masterv0.3- tag -v0.3.3adams-0.3.2adams-0.3.1adams-0.3adams-0.2adams-0.1

• Show log

  Commit

• Hash : 1e14f3ff
  Author : Thomas de Grivel
  Date : 2022-12-22T23:36:49
  

  fix build

Download

• core/include.lisp

• ;; cl-unix-cybernetics
  ;; Copyright 2013-2022 Thomas de Grivel <thodg@kmx.io>
  ;;
  ;; Permission is hereby granted to use this software granted
  ;; the above copyright notice and this permission paragraph
  ;; are included in all copies and substantial portions of this
  ;; software.
  ;;
  ;; THIS SOFTWARE IS PROVIDED "AS-IS" WITHOUT ANY GUARANTEE OF
  ;; PURPOSE AND PERFORMANCE. IN NO EVENT WHATSOEVER SHALL THE
  ;; AUTHOR BE CONSIDERED LIABLE FOR THE USE AND PERFORMANCE OF
  ;; THIS SOFTWARE.
  
  (in-package :cl-unix-cybernetics)
  
  (defun include/resolve-filename (spec)
    (flet ((try (&rest parts)
             (let ((path (str parts)))
               (when (probe-file path)
                 (return-from include/resolve-filename path)))))
      (try spec ".lisp")
      (try spec)))
  
  (defun include/resolve-filename! (spec)
    (or (include/resolve-filename spec)
        (error "(include ~S) => file not found.~%
  Current directory : ~S" spec *default-pathname-defaults*)))
  
  (defun include (&rest sources)
    (let* ((head (cons 'list nil))
           (tail head)
           (eof (gensym "EOF")))
      (dolist (source sources)
        (let ((path (include/resolve-filename! source)))
          (with-open-file (in path
                              :element-type 'character
                              :external-format :utf-8)
            (loop
               (let ((form (read in nil eof)))
                 (when (eq form eof)
                   (return))
                 (setf (rest tail) (cons form nil)
                       tail (rest tail)))))))
      head))
  

Download