file layout: moving share/txr/stdlib to stdlib.

This affects run-time also. Txr installations where the
executable is not in directory ending in ${bindir}
will look for stdlib rather than share/txr/stdlib,
relative to the determined installation directory.

* txr.c (sysroot_init): If we detect relative to the short
name, or fall back on the program directory, use stdlib
rather than share/txr/stdlib as the stdlib_path.

* INSTALL: Update some installation notes not to refer to
share/txr/stdlib but stdlib.

* Makefile (STDLIB_SRCS): Refer to stdlib, not
share/txr/stdlib.
(clean): In unconfigured mode, remove the old share/txr/stdlib
entirely.  Remove .tlo files from stdlib.
(install): Install lib materials from stdlib.

* txr.1: Updated documentation under Deployment Directory Structure.

* share/txr/stdlib/{asm,awk,build,cadr}.tl:
Renamed to stdlib/{asm,awk,build,cadr}.tl.

* share/txr/stdlib/{compiler,conv,copy-file,debugger}.tl:
Renamed to stdlib/{compiler,conv,copy-file,debugger}.tl.

* share/txr/stdlib/{defset,doc-lookup,doc-syms,doloop}.tl:
Renamed to stdlib/{defset,doc-lookup,doc-syms,doloop}.tl.

* share/txr/stdlib/{each-prod,error,except,ffi}.tl:
Renamed to stdlib/{each-prod,error,except,ffi}.tl.

* share/txr/stdlib/{getopts,getput,hash,ifa}.tl:
Renamed to stdlib/{getopts,getput,hash,ifa}.tl.

* share/txr/stdlib/{keyparams,match,op,optimize}.tl:
Renamed to stdlib/{keyparams,match,op,optimize}.tl.

* share/txr/stdlib/{package,param,path-test,pic}.tl:
Renamed to stdlib/{package,param,path-test,pic}.tl.

* share/txr/stdlib/{place,pmac,quips,save-exe}.tl:
Renamed to stdlib/{place,pmac,quips,save-exe}.tl.

* share/txr/stdlib/{socket,stream-wrap,struct,tagbody}.tl:
Renamed to stdlib/{socket,stream-wrap,struct,tagbody}.tl.

* share/txr/stdlib/{termios,trace,txr-case,type}.tl:
Renamed to stdlib/{termios,trace,txr-case,type}.tl.

* share/txr/stdlib/{ver,vm-param,with-resources,with-stream}.tl:
Renamed to stdlib/{ver,vm-param,with-resources,with-stream}.tl.

* share/txr/stdlib/yield.tl: Renamed to stdlib/yield.tl.

* share/txr/stdlib/{txr-case,ver}.txr:
Renamed to stdlib/{txr-case,ver}.txr.

* gencadr.txr: Update to stdlib/place.tl.

* genman.txr: Update to stdlib/cadr.tl.

1 files changed, 102 insertions, 0 deletions

diff --git a/stdlib/debugger.tl b/stdlib/debugger.tl
new file mode 100644
index 00000000..8102eb24
--- /dev/null
+++ b/stdlib/debugger.tl
@@ -0,0 +1,102 @@
+;; Copyright 2019-2021
+;; 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.
+
+(defmacro with-disabled-debugging (. forms)
+  (let ((state (gensym)))
+    ^(let ((,state (dbg-clear dbg-all)))
+       (unwind-protect
+         (progn ,*forms)
+         (dbg-restore ,state)))))
+
+(defun make-command-env (command-table)
+  (let ((env (make-env )))
+    (mapdo (ado env-vbind env @1 ^(,@2)) command-table)
+    env))
+
+(defparml %dbg-commands% '((usr:? debugger-help "list command summary")
+                           (usr:bt print-backtrace "print backtrace")))
+
+(defparml %dbg-command-env% (make-command-env %dbg-commands%))
+
+(defun debugger-help ()
+  (mapdo (ap pprinl `@{@1 15} @3`) %dbg-commands%))
+
+(defmeth fcall-frame loc (fr))
+
+(defmeth fcall-frame print-trace (fr pr-fr nx-fr prefix)
+  (let* ((fun fr.fun)
+         (args fr.args)
+         (name (if (functionp fun)
+                 (func-get-name fun)))
+         (loc (if nx-fr nx-fr.(loc)))
+         (kind
+           (cond
+             ((interp-fun-p fun) "I")
+             ((vm-fun-p fun) "V")
+             ((functionp fun) "C")
+             (t "O"))))
+    (put-string `@prefix @kind:@(if loc `(@loc):`)`)
+    (prinl ^[,(or name fun) ,*args])))
+
+(defmeth eval-frame loc (fr)
+  (source-loc-str fr.form))
+
+(defmeth eval-frame print-trace (fr pr-fr nx-fr prefix)
+  (when (or (null nx-fr)
+            (and (typep pr-fr 'fcall-frame)
+                 (not (interp-fun-p pr-fr.fun))
+                 (not (vm-fun-p pr-fr.fun))))
+    (let* ((form fr.form)
+           (sym (if (consp form) (car form)))
+           (loc (source-loc-str form)))
+      (when sym
+        (put-string `@prefix E:@(if loc `(@loc):`)`)
+        (prinl (if (eq sym 'dwim)
+                 ^[,(cadr form)]
+                 ^(,sym)))))))
+
+(defmeth expand-frame print-trace (fr pr-fr nx-fr prefix)
+  (let* ((form fr.form)
+         (loc (source-loc-str form)))
+    (put-string `@prefix X:@(if loc `(@loc):`)`)
+    (prinl form)))
+
+(defmeth expand-frame loc (fr)
+  (source-loc-str fr.form))
+
+(defun print-backtrace (: (*stdout* *stdout*) (prefix ""))
+  (with-resources ((imode (set-indent-mode *stdout* indent-foff)
+                          (set-indent-mode *stdout* imode))
+                   (depth (set-max-depth *stdout* 2)
+                          (set-max-depth *stdout* depth))
+                   (length (set-max-length *stdout* 10)
+                           (set-max-length *stdout* length)))
+    (window-mapdo 1 nil (lambda (pr el nx) el.(print-trace pr nx prefix))
+                  (find-frames-by-mask (logior uw-fcall uw-eval uw-expand)))))
+
+(defun debugger ()
+  (with-disabled-debugging
+    (sys:repl nil *stdin* *stdout* %dbg-command-env%)))