diff options
Diffstat (limited to 'stdlib')
| -rw-r--r-- | stdlib/doc-syms.tl | 2 | ||||
| -rw-r--r-- | stdlib/load-args.tl | 49 |
2 files changed, 51 insertions, 0 deletions
diff --git a/stdlib/doc-syms.tl b/stdlib/doc-syms.tl index 49e7cb9f..94896888 100644 --- a/stdlib/doc-syms.tl +++ b/stdlib/doc-syms.tl @@ -1144,6 +1144,8 @@ ("lnew" "N-0230059D") ("lnew*" "N-021E6FDC") ("load" "D-0083") + ("load-args-process" "N-03D9382A") + ("load-args-recurse" "N-03067356") ("load-for" "N-0020A085") ("load-time" "D-0048") ("loff-t" "N-01153D9E") diff --git a/stdlib/load-args.tl b/stdlib/load-args.tl new file mode 100644 index 00000000..7877f24f --- /dev/null +++ b/stdlib/load-args.tl @@ -0,0 +1,49 @@ +;; Copyright 2023 +;; Kaz Kylheku <kaz@kylheku.com> +;; Vancouver, Canada +;; All rights reserved. +;; +;; Redistribution and use in source and binary forms, with or without +;; modification, are permitted provided that the following conditions are met: +;; +;; 1. Redistributions of source code must retain the above copyright notice, +;; this list of conditions and the following disclaimer. +;; +;; 2. Redistributions in binary form must reproduce the above copyright notice, +;; this list of conditions and the following disclaimer in the documentation +;; and/or other materials provided with the distribution. +;; +;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +;; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +;; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +;; ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE +;; LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +;; SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +;; POSSIBILITY OF SUCH DAMAGE. + +(defun load-args-recurse (. files) + (if-match (@(listp @list)) files + (set files list)) + (each ((file files)) + (load file . *load-args*))) + +(defun load-args-process (. files) + (if-match (@(listp @list)) files + (set files list)) + (match-case *load-args* + ((:compile) + (let* ((lp (base-name *load-path*)) + (self (if-match @(or `@name.tlo` + `@name.tlo.gz`) lp + name lp))) + (compile-update-file self)) + [mapdo compile-update-file files]) + ((:clean) + (clean-file (base-name *load-path*)) + [mapdo clean-file files]) + (@else + [mapdo (op load @1 . else) files]))) |