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, 49 insertions, 0 deletions

diff --git a/stdlib/doc-lookup.tl b/stdlib/doc-lookup.tl
new file mode 100644
index 00000000..f1d0d380
--- /dev/null
+++ b/stdlib/doc-lookup.tl
@@ -0,0 +1,49 @@
+(load "doc-syms")
+
+(defvarl usr:*doc-url* "https://www.nongnu.org/txr/txr-manpage.html")
+
+(defvar os-symbol
+  (if (ignerr (dlsym (dlopen "libandroid.so") "AAsset_close"))
+    :android
+    (let ((u (uname)))
+      [(orf (iff (f^ #/Linux/) (ret :linux))
+            (iff (f^ #/SunOS/)
+                 (ret (if (<= 5 (int-str u.release))
+                        :solaris10
+                        :solaris)))
+            (iff (f^ #/CYGWIN/) (ret :cygwin))
+            (iff (f^ #/CYGNAL/) (ret :cygnal))
+            (iff (f^ #/Darwin/) (ret :macos))
+            (ret :unknown))
+       u.sysname])))
+
+(caseql os-symbol
+  ((:linux :macos :solaris :solaris10 :android)
+   (defun open-url (url)
+     (if (zerop (run (caseql os-symbol
+                       ((:linux :solaris :android) "xdg-open")
+                       (:solaris10 "/usr/dt/bin/sdtwebclient")
+                       (:macos "open"))
+                     (list url)))
+       t
+       (error `~s:  failed to open ~s` 'open-url url))))
+  ((:cygwin :cygnal)
+   (with-dyn-lib "shell32.dll"
+     (deffi shell-execute "ShellExecuteW"
+            cptr (cptr wstr wstr wstr wstr int))
+     (defun open-url (url)
+       (let ((hinst (shell-execute cptr-null "open" url nil nil 0)))
+         (if (> (int-cptr hinst) 32)
+           t
+           (error `~s: failed to open ~s` 'open-url url))))))
+  (t (defun open-url (url) (error "~s: not implemented" 'open-url))))
+
+(defun usr:doc (: sym)
+  (iflet ((str (typecase sym
+                 (null sym)
+                 (sym (let ((*package* (find-package "pub")))
+                        (tostring sym)))
+                 (t (tostringp sym))))
+          (tag (if str [doc-syms str] "")))
+    (open-url `@{*doc-url*}#@tag`)
+    (error "~s: ~s not found in symbol index" 'doc sym)))