github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-12 00:42:56 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source 
* 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
This commit is contained in:
Larry Masinter 2022-09-13 12:04:23 -07:00 committed by GitHub
parent 06a7356b00
commit 095beef454
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
9 changed files with 80 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
internal/CONDITIONGRAPH.TXT Normal file
View File

@ -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.

24
lispusers/UNIXYCD Normal file
View File

@ -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

13
lispusers/UNIXYCD.LCOM Normal file
View File

@ -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

13
lispusers/UNIXYCD.TXT Normal file
View File

@ -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

7
scripts/lsee
View File

@ -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'\

24
sources/LOADUP-FULL
View File

@ -1,25 +1,17 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "14-Jul-2022 12:33:11" 
{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>LOADUP-FULL.;6 4656
(FILECREATED "12-Aug-2022 12:30:09" {DSK}<home>larry>medley>sources>LOADUP-FULL.;2 4535
:CHANGES-TO (FNS LOADUP-FULL)
(VARS LOADUP-FULLCOMS)
:PREVIOUS-DATE "12-Jul-2022 21:57:39"
{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>LOADUP-FULL.;5)
:PREVIOUS-DATE "14-Jul-2022 12:33:11" {DSK}<home>larry>medley>sources>LOADUP-FULL.;1)
(PRETTYCOMPRINT LOADUP-FULLCOMS)
(RPAQQ LOADUP-FULLCOMS ((COMMANDS "cd" "pwd" "ls")
(FNS LOADFULLFONTS LOADUP-FULL FIXMETA)
(RPAQQ LOADUP-FULLCOMS ((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

BIN
sources/LOADUP-FULL.LCOM
View File

Binary file not shown.

16
sources/LOADUP-LISP
View File

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

BIN
sources/LOADUP-LISP.LCOM
View File

Binary file not shown.