misc lispusers changes -- UNIXYCD, lsee (#889)

* Move cd, ls, pwd to it's own little lispusers (needs documentation)

* add .TXT documentation, also patch lsee script to translate ^ and _ to up and left arrow

* Add document for CONDITIONGRAPH

internal/CONDITIONGRAPH.TXT

@@ -0,0 +1,10 @@
+                     CONDITIONGRAPH
+
+
+Currently in internal rather than lispusers, this package shows a graph of "conditions" (Common Lisp error system).
+
+(FILESLOAD CONDITIONGRAPH) to load it.
+
+(GRAPH-CONDITIONS) will display a graph of conditions and their inheritance.
+
+Other possible operations might be determinable by reading the source.

lispusers/UNIXYCD

@@ -0,0 +1,24 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
+
(FILECREATED "12-Aug-2022 12:29:18" {DSK}<home>larry>medley>lispusers>UNIXYCD.;1
 568    
+
+      :CHANGES-TO (VARS UNIXYCDCOMS)
+
+      :PREVIOUS-DATE "12-Aug-2022 11:14:47" {DSK}<home>larry>medley>lispusers>UNIXYCD.;1)
+
+
+(PRETTYCOMPRINT UNIXYCDCOMS)
+
+(RPAQQ UNIXYCDCOMS
 ((COMMANDS "cd" "ls" "pwd")))
+
+(DEFCOMMAND "cd"
 (DIR)
+   (/CNDIR DIR))
+
+(DEFCOMMAND "ls"
 (FIRST
 . REST)
+   (DODIR (CONS FIRST REST)))
+
+(DEFCOMMAND "pwd"
 ()
+   (DIRECTORYNAME T))
+(DECLARE%: DONTCOPY
+  (FILEMAP (NIL)))
+STOP

lispusers/UNIXYCD.LCOM

@@ -0,0 +1,13 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
+(FILECREATED "12-Aug-2022 12:29:30" ("compiled on " {DSK}<home>larry>medley>lispusers>UNIXYCD.;1) 
+"12-Aug-2022 10:18:11" bcompl'd in "Welcome to Fuller sysout 12-Aug-2022 ..." dated 
+"12-Aug-2022 10:22:21")
+(FILECREATED "12-Aug-2022 12:29:18" {DSK}<home>larry>medley>lispusers>UNIXYCD.;1 568 :CHANGES-TO (VARS
+ UNIXYCDCOMS) :PREVIOUS-DATE "12-Aug-2022 11:14:47" {DSK}<home>larry>medley>lispusers>UNIXYCD.;1)
+(PRETTYCOMPRINT UNIXYCDCOMS)
+(RPAQQ UNIXYCDCOMS ((COMMANDS "cd" "ls" "pwd")))
+(DEFCOMMAND "cd" (DIR) (/CNDIR DIR))
+(DEFCOMMAND "ls" (FIRST . REST) (DODIR (CONS FIRST REST)))
+(DEFCOMMAND "pwd" NIL (DIRECTORYNAME T))
+NIL

lispusers/UNIXYCD.TXT

@@ -0,0 +1,13 @@
+	UNIXYCD & .LCOM .TXT
+
+
+This file implements little commands:
+
+cd               change Lisp's current directory to home
+cd dir           dir can be a path separated by / or >.
+                 if no "hostname" is given, it's assumed {DSK}
+ls [dir]         list current directory or a directory that's given
+                 non-feature: ls foo only prints foo; you need to
+		 specify        ls foo/
+pwd		 print working directory
+

scripts/lsee

@@ -2,6 +2,7 @@
 
 # Usage 'lsee file'
 # translates CR as newline
+# translate _ and ^
 # changes font-change control-characters ^F^x
 # to linux color escapes:
 # A	regular
@@ -9,9 +10,11 @@
 # C     comment yellow
 # D     big/bold red
 
-export LANG=C
+export LANG=en_US.UTF-8
 tr '\r' '\n' < $1 | \
-    sed -e 's/
//g' \
+    sed -e 's/_/←/g'        \
+	-e 's/^/↑/g'        \
+	-e 's/
//g' \
 	-e 's///g'\
 	-e 's///g' \
 	-e 's///g'\

sources/LOADUP-FULL

@@ -1,25 +1,17 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "14-Jul-2022 12:33:11" 
+
(FILECREATED "12-Aug-2022 12:30:09" {DSK}<home>larry>medley>sources>LOADUP-FULL.;2
 4535   
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>LOADUP-FULL.;6
 4656   
 
       :CHANGES-TO (FNS LOADUP-FULL)
+                  (VARS LOADUP-FULLCOMS)
 
-      :PREVIOUS-DATE "12-Jul-2022 21:57:39" 
+      :PREVIOUS-DATE "14-Jul-2022 12:33:11" {DSK}<home>larry>medley>sources>LOADUP-FULL.;1)
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>LOADUP-FULL.;5)
 
 
 (PRETTYCOMPRINT LOADUP-FULLCOMS)
 
-(RPAQQ LOADUP-FULLCOMS
 ((COMMANDS "cd" "pwd" "ls")
+(RPAQQ LOADUP-FULLCOMS
 ((FNS LOADFULLFONTS LOADUP-FULL FIXMETA)
-                        (FNS LOADFULLFONTS LOADUP-FULL FIXMETA)
                         (P (FIXMETA))))
-
-(DEFCOMMAND "cd" (DIR) (/CNDIR DIR))
-
-(DEFCOMMAND "pwd" NIL (DIRECTORYNAME T))
-
-(DEFCOMMAND "ls" (FIRST
 . REST) (DODIR (CONS FIRST REST)))
 (DEFINEQ
 
 (LOADFULLFONTS

@@ -47,7 +39,8 @@
                (PRINTOUT T "FULL fonts loaded" T])
 
 (LOADUP-FULL

-  [LAMBDA NIL
                                                (* ; "Edited 14-Jul-2022 12:32 by rmk")


+  [LAMBDA NIL
                                                (* ; "Edited 12-Aug-2022 11:17 by lmm")


+                                                             (* ; "Edited 14-Jul-2022 12:32 by rmk")


                                                              (* ; "Edited 12-Jul-2022 21:57 by rmk")


                                                            (* ; "Edited  7-Mar-2022 21:06 by larry")


                                                            (* ; "Edited  2-Mar-2022 13:58 by larry")

@@ -79,11 +72,10 @@
     (LOADUP '(CHAT PRESS INTERPRESS TEDIT HRULE TEDIT-CHAT READNUMBER EDITBITMAP FILEBROWSER 
                    THINFILES GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT 
                    ISO8859IO HELPSYS DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE 
-                   UNIXCOMM UNIXCHAT))
+                   UNIXCOMM UNIXCHAT UNIXYCD))
     (COND
        ((WINDOWP *WHO-LINE*)
         (CLOSEW *WHO-LINE*)))
-    (SETTOPVAL 'INITIALS NIL)
     (DRIBBLE])
 
 (FIXMETA

@@ -95,5 +87,5 @@
 
 (FIXMETA
)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (693 4618 (LOADFULLFONTS 703 . 2144) (LOADUP-FULL 2146 . 4368) (FIXMETA 4370 . 4616)))))
+  (FILEMAP (NIL (485 4497 (LOADFULLFONTS 495 . 1936) (LOADUP-FULL 1938 . 4247) (FIXMETA 4249 . 4495)))))
 STOP

sources/LOADUP-LISP

@@ -1,12 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-
(FILECREATED "13-Jul-2022 14:10:00" 
+
(FILECREATED "12-Aug-2022 12:29:57" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;2|
 5250   
-|{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>LOADUP-LISP.;5|
 5331   
 
-      :CHANGES-TO (FNS LOADUP-LISP)
+      :CHANGES-TO (VARS LOADUP-LISPCOMS)
 
-      :PREVIOUS-DATE "12-Jul-2022 21:57:32" 
+      :PREVIOUS-DATE "13-Jul-2022 14:10:00" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;1|)
-|{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>LOADUP-LISP.;4|)
 
 
 (PRETTYCOMPRINT LOADUP-LISPCOMS)
@@ -14,8 +12,8 @@
 (RPAQQ LOADUP-LISPCOMS
 ((FNS LOADUP-LISP)
                         (INITVARS (FILING.ENUMERATION.DEPTH 1))
                         (FILES MEDLEYDIR)
-                        (GLOBALVARS LISPMAKESYSDATE MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR 
+                        (GLOBALVARS MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS 
-                               SYSTEMINITVARS USERRECLST)))
+                               USERRECLST)))
 (DEFINEQ
 
 (LOADUP-LISP

@@ -118,8 +116,8 @@
 (FILESLOAD MEDLEYDIR)
 (DECLARE\: DOEVAL@COMPILE DONTCOPY
 
-(GLOBALVARS LISPMAKESYSDATE MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
+(GLOBALVARS MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (696 5109 (LOADUP-LISP 706 . 5107)))))
+  (FILEMAP (NIL (631 5044 (LOADUP-LISP 641 . 5042)))))
 STOP