github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-03-03 02:17:57 +00:00
Code Issues Projects Releases Wiki Activity

Merge branch 'master' into PDFSTREAM

Browse Source
This commit is contained in:
rmkaplan
2023-07-19 14:57:50 -07:00
committed by GitHub
parent ebff4f7268 feff0cefc0
commit b0aa518a41
123 changed files with 3362 additions and 2305 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
.github/ISSUE_TEMPLATE/documentation.md vendored Normal file
View File

@@ -0,0 +1,17 @@
---
name: Documentation problem
about: Problems with this web site?
title: ''
labels: ''
---
**Errors happen. Please tell us the URL**
**What does it say?**
**What should it say?**
**Screen shot**

32
.github/ISSUE_TEMPLATE/what_people_are_saying.yml vendored Normal file
View File

@@ -0,0 +1,32 @@
name: "New entry for **What People Are Saying**"
description: "Suggest a new entry for the **What People are Saying** page"
title: "What People are Saying suggestion"
body:
- type: dropdown
id: contentType
attributes:
label: "What type of entry?"
options:
- Blog
- Tweet
- Email
- Other
validations:
required: true
- type: input
id: entryLink
attributes:
label: Link to entry
description: "What is the link to the item we should add to the **What People are Saying** page?"
validations:
required: true
- type: textarea
id: additionalInformation
attributes:
label: Additional information
description: "Use this space to supply any addiitonal information on the suggested item."
validations:
required: false
- type: markdown
attributes:
value: "## Thank you for your suggestion!"

41
.github/workflows/buildLoadup.yml vendored
View File

@@ -56,8 +56,8 @@ on:
defaults:
run:
shell: bash
jobs:
######################################################################################
@@ -83,7 +83,7 @@ jobs:
echo "draft=${{ inputs.draft }}" >> $GITHUB_OUTPUT;
echo "force=${{ inputs.force }}" >> $GITHUB_OUTPUT;
fi
######################################################################################
@@ -97,7 +97,7 @@ jobs:
outputs:
release_not_built: ${{ steps.check.outputs.release_not_built }}
steps:
steps:
# Checkout the actions for this repo owner
- name: Checkout Actions
uses: actions/checkout@v3
@@ -107,7 +107,7 @@ jobs:
- run: mv ./Actions_${{ github.sha }}/actions ../actions && rm -rf ./Actions_${{ github.sha }}
# Check if build already run for this commit
- name: Build already completed?
- name: Build already completed?
id: check
continue-on-error: true
uses: ./../actions/check-sentry-action
@@ -135,7 +135,7 @@ jobs:
if: |
needs.sentry.outputs.release_not_built == 'true'
|| needs.inputs.outputs.force == 'true'
steps:
# Checkout the actions for this repo owner
- name: Checkout Actions
@@ -162,7 +162,7 @@ jobs:
with:
owner: ${{ github.repository_owner }}
repo: maiko
# Setup environment variables & establish job outputs
- name: Setup Environment Variables
run: |
@@ -198,7 +198,7 @@ jobs:
token: ${{ secrets.GITHUB_TOKEN }}
latest: true
out-file-path: ${{ env.TARBALL_DIR }}
fileName: "${{ env.MAIKO_RELEASE_TAG }}-linux.*.tgz"
fileName: "${{ env.MAIKO_RELEASE_TAG }}-linux.*.tgz"
- name: Untar Maiko Release for use in loadup
run: |
@@ -224,9 +224,9 @@ jobs:
run: |
Xvnc -geometry 1280x720 :0 &
export DISPLAY=":0"
PATH="$PWD/maiko:$PATH"
PATH="$PWD/maiko:$PATH"
scripts/loadup-all.sh -apps
- name: Build loadups release tar
run: |
cd ..
@@ -236,8 +236,8 @@ jobs:
medley/loadups/full.sysout \
medley/loadups/apps.sysout \
medley/loadups/whereis.hash \
medley/library/exports.all
medley/loadups/exports.all
- name: Build runtime release tar
run: |
cd ..
@@ -258,6 +258,7 @@ jobs:
medley/fonts/altofonts \
medley/fonts/adobe \
medley/fonts/postscriptfonts \
medley/fonts/ipfonts \
medley/library \
medley/lispusers \
medley/sources \
@@ -277,13 +278,13 @@ jobs:
- name: Delete existing release with same tag (if any)
uses: cb80/delrel@latest
with:
tag: ${{ env.MEDLEY_RELEASE_TAG }}
tag: ${{ env.MEDLEY_RELEASE_TAG }}
continue-on-error: true
- name: Push the release
id: push_release
uses: ncipollo/release-action@v1
with:
with:
allowUpdates: true
artifacts:
${{ env.TARBALL_DIR }}/${{ env.MEDLEY_RELEASE_TAG }}-loadups.tgz,
@@ -335,7 +336,7 @@ jobs:
$url = "https://sourceforge.net/projects/tigervnc/files/stable/1.12.0/vncviewer64-1.12.0.exe"
$output = "installers\win\vncviewer64-1.12.0.exe"
(New-Object System.Net.WebClient).DownloadFile($url, $output)
# Run iscc.exe to compile the installer
- name: Compile medley.iss
shell: powershell
@@ -348,7 +349,7 @@ jobs:
- name: Upload windows installer to release
id: push
uses: ncipollo/release-action@v1
with:
with:
allowUpdates: true
artifacts: installers/win/${{ env.INSTALLER_FILENAME }}
tag: ${{ env.MEDLEY_RELEASE_TAG }}
@@ -381,7 +382,7 @@ jobs:
else
remote_filename="${local_filename%.html}"
remote_manname="man_medley.html"
fi
fi
remote_filepath="/srv/oio/static/${remote_filename}"
remote_manpath="/srv/oio/static/${remote_manname}"
# Fill in downloads page template
@@ -403,7 +404,7 @@ jobs:
sftp -o StrictHostKeyChecking=no -b batch ubuntu@online.interlisp.org
env:
SSH_KEY: ${{ secrets.OIO_SSH_KEY }}
######################################################################################
@@ -420,7 +421,7 @@ jobs:
needs: [inputs, sentry, loadup, windows_installer]
steps:
steps:
# Checkout the actions for this repo owner
- name: Checkout Actions
uses: actions/checkout@v3
@@ -440,7 +441,7 @@ jobs:
id: output
run: |
echo "build_successful='true'" >> $GITHUB_OUTPUT
######################################################################################

BIN
docs/ReleaseNote/APPENDIXA-THEEXEC.TEDIT Normal file
View File

Binary file not shown.

BIN
docs/ReleaseNote/APPENDIXB-SEDIT.TEDIT Normal file
View File

Binary file not shown.

BIN
docs/ReleaseNote/APPENDIXC-ICONW.TEDIT Normal file
View File

Binary file not shown.

BIN
docs/ReleaseNote/APPENDIXD-FREEMENU.TEDIT Normal file
View File

Binary file not shown.

148
docs/ReleaseNote/APPENDIXE-ERRSYS.TEDIT Normal file
View File

File diff suppressed because one or more lines are too long

BIN
docs/ReleaseNote/ENVOSCOVERSHEET.TEDIT Normal file
View File

Binary file not shown.

138
docs/ReleaseNote/Indexfinal.tedit Normal file
View File

File diff suppressed because one or more lines are too long

BIN
docs/ReleaseNote/LOT.tedit Normal file
View File

Binary file not shown.

BIN
docs/ReleaseNote/PREFACE.TEDIT Normal file
View File

Binary file not shown.

BIN
docs/ReleaseNote/PRINTINGSPEC.TEDIT Normal file
View File

Binary file not shown.

BIN
docs/ReleaseNote/SEC1-INTRODUCTION.TEDIT Normal file
View File

Binary file not shown.

BIN
docs/ReleaseNote/SEC2-NOTES-AND-CAUTIONS.TEDIT Normal file
View File

Binary file not shown.

BIN
docs/ReleaseNote/SEC3-IRMFEATURES-I.TEDIT Normal file
View File

Binary file not shown.

BIN
docs/ReleaseNote/SEC3-IRMFEATURES-II.TEDIT Normal file
View File

Binary file not shown.

BIN
docs/ReleaseNote/SEC3-IRMFEATURES-III.TEDIT Normal file
View File

Binary file not shown.

BIN
docs/ReleaseNote/SEC4-IRMERRATA.TEDIT Normal file
View File

Binary file not shown.

BIN
docs/ReleaseNote/SEC5-LIBRARY-MODULES.TEDIT Normal file
View File

Binary file not shown.

BIN
docs/ReleaseNote/SEC6-USERS-GUIDES.TEDIT Normal file
View File

Binary file not shown.

BIN
docs/ReleaseNote/SEC7-CLIMPLMNTN.TEDIT Normal file
View File

Binary file not shown.

BIN
docs/ReleaseNote/TABS2L.SKETCH Normal file
View File

Binary file not shown.

2
docs/ReleaseNote/TABSINFOP.SKETCH Normal file
View File

File diff suppressed because one or more lines are too long

BIN
docs/ReleaseNote/TABSLAYOUTL.SKETCH Normal file
View File

Binary file not shown.

BIN
docs/ReleaseNote/TABSPEC.TEDIT Normal file
View File

Binary file not shown.

BIN
docs/ReleaseNote/TOC.TEDIT Normal file
View File

Binary file not shown.

BIN
docs/ReleaseNote/Tab-Replacements.tedit Normal file
View File

Binary file not shown.

BIN
docs/ReleaseNote/Titlepage.tedit Normal file
View File

Binary file not shown.

BIN
docs/ReleaseNote/bindercover.sketch Normal file
View File

Binary file not shown.

146
docs/ReleaseNote/indexbase.tedit Normal file
View File

File diff suppressed because one or more lines are too long

BIN
library/000docs/000-COVER.TEDIT Normal file
View File

Binary file not shown.

BIN
library/000docs/001-TITLEPAGE.TEDIT Normal file
View File

Binary file not shown.

BIN
library/000docs/002-TOC.TEDIT Normal file
View File

Binary file not shown.

BIN
library/000docs/003-LOF.TEDIT Normal file
View File

Binary file not shown.

BIN
library/000docs/004-PREFACE.TEDIT Normal file
View File

Binary file not shown.

BIN
library/000docs/005-INTRO.TEDIT Normal file
View File

Binary file not shown.

91
library/000docs/006-INDEX.TEDIT Normal file
View File

File diff suppressed because one or more lines are too long

530
library/BROWSER
View File

@@ -1,17 +1,17 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 7-Feb-2022 14:06:19" {DSK}<Users>kaplan>Local>medley3.5>my-medley>library>BROWSER.;3 26344
(FILECREATED "26-Apr-2023 12:41:36" {DSK}<home>larry>il>medley>library>BROWSER.;6 29801
:CHANGES-TO (VARS BROWSERCOMS)
(FNS GET.BROWSE.PP.WINDOW NUMSPATHS)
:EDIT-BY "lmm"
:PREVIOUS-DATE "25-Mar-94 13:43:20"
{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>BROWSER.;1)
:CHANGES-TO (FNS BROWSER.LEFTFN NUMSPATHS STBROWSER MSPATHS.DISPATCH BROWSER
BROWSER.WHENFNSCHANGED BRPATHS1 GET.BROWSE.PP.WINDOW
GET.BROWSE.DESCRIBE.WINDOW BROWSEPP PPREPAINTFN PPRESHAPEFN DESCRIBEREPAINTFN
BROWSERDESCRIBE BROWSER.MIDDLEFN DEDITPROCESSRUNNINGP REDRAWBROWSEGRAPH)
(VARS BROWSERCOMS BROWSER.BORDERS)
:PREVIOUS-DATE "15-Apr-2023 18:55:36" {DSK}<home>larry>il>medley>library>BROWSER.;1)
(* ; "
Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation.
")
(PRETTYCOMPRINT BROWSERCOMS)
@@ -20,27 +20,26 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
(DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
GRAPHER)
(CONSTANTS (CHANGEDSHADE 8840)))
(FNS NUMSPATHS BROWSER BROWSER.WHENFNSCHANGED BRPATHS1 BROWSER.LEFTFN GET.BROWSE.PP.WINDOW
GET.BROWSE.DESCRIBE.WINDOW BROWSEPP PPREPAINTFN PPRESHAPEFN DESCRIBEREPAINTFN
BROWSERDESCRIBE BROWSER.MIDDLEFN DEDITPROCESSRUNNINGP REDRAWBROWSEGRAPH STBROWSER)
(FNS MSPATHS.DISPATCH NUMSPATHS BROWSER BROWSER.WHENFNSCHANGED BRPATHS1 BROWSER.LEFTFN
GET.BROWSE.PP.WINDOW GET.BROWSE.DESCRIBE.WINDOW BROWSEPP PPREPAINTFN PPRESHAPEFN
DESCRIBEREPAINTFN BROWSERDESCRIBE BROWSER.MIDDLEFN DEDITPROCESSRUNNINGP
REDRAWBROWSEGRAPH STBROWSER)
(GLOBALRESOURCES BROWSEHASH)
(DECLARE%: DONTCOPY (RECORDS BROWSEWIN PATHSARGS))
[VARS (BROWSERBOXING)
(BROWSERFORMAT)
(BROWSERWINDOWS)
(NODESELECTIONWINDOW)
(PFWINDOW)
(BROWSER.DESCRIBE.WINDOW)
(BrowserPPWindowWidth 750)
(BROWSERFONT '(GACHA 8]
[P (MOVD? 'MSPATHS 'OLDMSPATHS)
(MOVD? 'NILL 'MODERNWINDOW)
(PROG [(WC (FILEPKGTYPE 'FNS 'WHENCHANGED]
(OR (MEMB 'BROWSER.WHENFNSCHANGED WC)
(FILEPKGTYPE 'FNS 'WHENCHANGED (CONS 'BROWSER.WHENFNSCHANGED WC]
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (SELECTQ (SYSTEMTYPE)
(D (BROWSER T))
NIL])
[INITVARS (BROWSER T)
(BROWSERBOXING)
(BROWSERFORMAT)
(BROWSERWINDOWS)
(NODESELECTIONWINDOW)
(PFWINDOW)
(BROWSER.DESCRIBE.WINDOW)
(BrowserPPWindowWidth 750)
(BROWSERMAX 10)
(BROWSERFONT '(GACHA 8]
(P (MOVD? 'NILL 'MODERNWINDOW))
(VARS BROWSER.BORDERS)
(GLOBALVARS BROWSER.BORDERS BROWSERWINDOWS)
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (BROWSER T])
(FILESLOAD MASTERSCOPE GRAPHER)
(DECLARE%: EVAL@COMPILE DONTCOPY
@@ -58,64 +57,74 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
)
(DEFINEQ
(NUMSPATHS
(MSPATHS.DISPATCH
[LAMBDA (FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING)
(* ; "Edited 7-Feb-2022 13:57 by rmk")
(* ; "Edited 11-Apr-88 11:08 by jrb:")
(COND
[(AND (WINDOWWORLD)
(* ; "Edited 15-Apr-2023 11:33 by lmm")
(IF (AND (GETD 'NUMSPATHS)
(WINDOWWORLD)
(EQ (OUTPUT)
T))
[OR AVOIDING (SETQ AVOIDING '(NIL (NIL NIL . FNS)
APPLY LAMBDA (X)
(GETPROP X 'AVOID]
(RESETVARS ((MSPRINTFLG))
(AND INVERTED (UPDATECHANGED))
(STBROWSER
[GLOBALRESOURCE
BROWSEHASH
(PROG [X NAMED TEM (UNDONE (MSLISTSET FROM T))
ROOTS GRAPHNODE.LIST (SEEN BROWSEHASH)
(CALLRELATION (PARSERELATION 'CALL]
(DECLARE (SPECVARS SEEN UNDONE GRAPHNODE.LIST))
(CLRHASH SEEN)
(for X in UNDONE do (PUTHASH X (COND
((AND NOTRACE (MSMEMBSET X NOTRACE))
-1)
(T 0))
SEEN)
(OR INVERTED (UPDATEFN X NIL 0)))
[do (COND
(NAMED (PUTHASH (CAR NAMED)
0 SEEN)
[push ROOTS (fetch (GRAPHNODE NODEID)
of (BRPATHS1 (CAR NAMED]
(SETQ NAMED (CDR NAMED)))
(UNDONE [COND
([OR (NULL (SETQ TEM (GETHASH (CAR UNDONE)
SEEN)))
(EQ TEM 0)
(AND (LISTP TEM)
(NULL (CAR TEM]
(PUTHASH (CAR UNDONE)
(LIST NIL)
SEEN)
(SETQ NAMED (LIST (CAR UNDONE]
(SETQ UNDONE (CDR UNDONE)))
(T (RETURN]
(RETURN (LAYOUTFOREST GRAPHNODE.LIST ROOTS BROWSERFORMAT BROWSERBOXING]
(PROG1 (LIST FROM TO INVERTED AVOIDING SEPARATE NOTRACE)
(* ;
 "this LIST is actually an 'instance' of PATHSARGS")
]
(T (OLDMSPATHS FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING])
THEN (NUMSPATHS FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING)
ELSE (OLDMSPATHS FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING])
(NUMSPATHS
[LAMBDA (FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING DEPTH)
(DECLARE (SPECVARS INVERTED GRAPHNODE.LIST)) (* ; "Edited 26-Apr-2023 09:12 by lmm")
(* ; "Edited 15-Apr-2023 18:43 by lmm")
(* ; "Edited 7-Feb-2022 13:57 by rmk")
(* ; "Edited 11-Apr-88 11:08 by jrb:")
[OR AVOIDING (SETQ AVOIDING '(NIL (NIL NIL . FNS)
APPLY LAMBDA (X)
(GETPROP X 'AVOID]
(AND INVERTED (UPDATECHANGED))
(OR DEPTH (SETQ DEPTH BROWSERMAX))
(WITH-RESOURCES BROWSEHASH (PROG [NAMED TEM (UNDONE (MSLISTSET FROM T))
ROOTS GRAPHNODE.LIST (SEEN BROWSEHASH)
(CALLRELATION (PARSERELATION 'CALL]
(DECLARE (SPECVARS SEEN GRAPHNODE.LIST CALLRELATION))
(CLRHASH SEEN)
(for X in UNDONE do (PUTHASH X (COND
((AND NOTRACE (MSMEMBSET
X NOTRACE))
-1)
(T 0))
SEEN)
(OR INVERTED (UPDATEFN X NIL 0)))
[do (COND
(NAMED (PUTHASH (CAR NAMED)
0 SEEN)
(PUSH ROOTS (fetch (GRAPHNODE NODEID)
of (BRPATHS1 (CAR NAMED)
DEPTH)))
(SETQ NAMED (CDR NAMED)))
(UNDONE [COND
([OR (NULL (SETQ TEM (GETHASH (CAR UNDONE)
SEEN)))
(EQ TEM 0)
(AND (LISTP TEM)
(NULL (CAR TEM]
(PUTHASH (CAR UNDONE)
(LIST NIL)
SEEN)
(SETQ NAMED (LIST (CAR UNDONE]
(SETQ UNDONE (CDR UNDONE)))
(T (RETURN]
(RETURN (STBROWSER (LAYOUTGRAPH GRAPHNODE.LIST ROOTS
(APPEND BROWSERFORMAT BROWSERBOXING))
(LIST FROM TO INVERTED AVOIDING SEPARATE NOTRACE
MARKING DEPTH])
(BROWSER
[LAMBDA (DISPLAYFLG) (* rmk%: "16-Dec-83 15:39")
(COND
(DISPLAYFLG (SETQ BROWSERFONT (FONTCREATE BROWSERFONT))
(MOVD 'NUMSPATHS 'MSPATHS))
(T (MOVD 'OLDMSPATHS 'MSPATHS])
[LAMBDA (DISPLAYFLG) (* ; "Edited 15-Apr-2023 14:55 by lmm")
(* rmk%: "16-Dec-83 15:39")
(MOVD? 'MSPATHS 'OLDMSPATHS)
(MOVD 'MSPATHS.DISPATCH 'MSPATHS)
(SETQ BROWSER DISPLAYFLG)
(OR (FONTP BROWSERFONT)
(SETQ BROWSERFONT (FONTCREATE BROWSERFONT)))
(PROG [(WC (FILEPKGTYPE 'FNS 'WHENCHANGED]
(OR (MEMB 'BROWSER.WHENFNSCHANGED WC)
(FILEPKGTYPE 'FNS 'WHENCHANGED (CONS 'BROWSER.WHENFNSCHANGED WC])
(BROWSER.WHENFNSCHANGED
[LAMBDA (FNNAME TYPE REASON) (* DECLARATIONS%: (RECORDS BROWSEWIN))
@@ -134,78 +143,122 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
FNNAME))
(BROWSERDESCRIBE FNNAME BROWSER.DESCRIBE.WINDOW)))
(for X in BROWSERWINDOWS do (COND
((find GRAPHNODE
in (fetch (GRAPH GRAPHNODES)
of (fetch (BROWSEWIN GRAPH)
of X))
suchthat (EQ (fetch (GRAPHNODE NODELABEL)
of GRAPHNODE)
FNNAME))
(COND
((fetch (BROWSEWIN GRAPH) of X)
(DSPFILL NIL CHANGEDSHADE 'PAINT
(fetch (BROWSEWIN WINDOW) of
X))
(WINDOWPROP (fetch (BROWSEWIN WINDOW)
of X)
'BUTTONEVENTFN
(FUNCTION REDRAWBROWSEGRAPH))
(replace (BROWSEWIN GRAPH) of X
with NIL])
((find GRAPHNODE in (fetch (GRAPH GRAPHNODES)
of (fetch (BROWSEWIN GRAPH) of X))
suchthat (EQ (fetch (GRAPHNODE NODELABEL) of GRAPHNODE)
FNNAME))
(COND
((fetch (BROWSEWIN GRAPH) of X)
(DSPFILL NIL CHANGEDSHADE 'PAINT (fetch (BROWSEWIN WINDOW)
of X))
(WINDOWPROP (fetch (BROWSEWIN WINDOW) of X)
'BUTTONEVENTFN
(FUNCTION REDRAWBROWSEGRAPH))
(replace (BROWSEWIN GRAPH) of X with NIL])
(BRPATHS1
[LAMBDA (FROM) (* ; "Edited 11-Apr-88 11:27 by jrb:")
(DECLARE (GLOBALVARS BROWSERFONT))
(PROG (TEM)
[LAMBDA (FROM DEPTH) (* ; "Edited 25-Apr-2023 10:59 by lmm")
(* ; "Edited 11-Apr-88 11:27 by jrb:")
(DECLARE (SPECVARS INVERTED)
(GLOBALVARS BROWSERFONT MISSING.GRAPH.NODEBORDER))
(PROG (TEM ENTRY TOFNS)
(MSPATHS2 FROM)
(COND
((EQ (SETQ TEM (GETHASH FROM SEEN))
-1) (* ;
 "on NOPATHS list - create a node for it with no subs")
 "on NOPATHS list - create a node for it with no subs")
(SETQ TEM (create GRAPHNODE
NODEID _ FROM
NODELABEL _ FROM
NODEFONT _ BROWSERFONT
TONODES _ NIL))
(push GRAPHNODE.LIST TEM)
(PUAH GRAPHNODE.LIST TEM)
(PUTHASH FROM TEM SEEN)
(RETURN TEM))
((NEQ TEM 0) (* ; "already expanded into a list")
(RETURN TEM))
(T (RETURN (PROG ((ENTRY (create GRAPHNODE
NODEID _ FROM
NODELABEL _ FROM
NODEFONT _ BROWSERFONT)))
(push GRAPHNODE.LIST ENTRY)
(PUTHASH FROM ENTRY SEEN)
(replace (GRAPHNODE TONODES) of ENTRY
with (for X
in (for Y
in (COND
((NOT INVERTED)
(GETRELATION FROM CALLRELATION))
(T (GETRELATION FROM CALLRELATION T)
)) when (MSPATHS2 Y)
collect Y) when (SETQ X (BRPATHS1
X))
collect (fetch (GRAPHNODE NODEID) of X)))
(RETURN ENTRY])
(T [SETQ TOFNS (COND
((NOT INVERTED)
(GETRELATION FROM CALLRELATION))
(T (GETRELATION FROM CALLRELATION T]
(SETQ ENTRY (create GRAPHNODE
NODEID _ FROM
NODELABEL _ FROM
NODEFONT _ BROWSERFONT))
(PUSH GRAPHNODE.LIST ENTRY)
(PUTHASH FROM ENTRY SEEN)
(IF (AND TOFNS (<= DEPTH 0))
THEN (REPLACE (GRAPHNODE NODEBORDER) OF ENTRY WITH (CDDR (ASSOC 'ENDOFLINE
BROWSER.BORDERS))
)
(RETURN ENTRY))
(replace (GRAPHNODE TONODES) of ENTRY with (for X
in (for Y in TOFNS
when (MSPATHS2 Y) collect Y)
when (SETQ X (BRPATHS1 X
(- DEPTH 1)))
collect (fetch (GRAPHNODE NODEID)
of X)))
(RETURN ENTRY])
(BROWSER.LEFTFN
[LAMBDA (NODE NWINDOW) (* ; "Edited 31-Mar-87 11:16 by jop")
[LAMBDA (NODE NWINDOW) (* ; "Edited 26-Apr-2023 12:41 by lmm")
(* ; "Edited 31-Mar-87 11:16 by jop")
(* ;
 "function that is applied upon selection of a node.")
(COND
((NULL NODE))
((EQ (fetch NODELABEL of NODE)
(WINDOWPROP (GET.BROWSE.PP.WINDOW)
'FNBROWSED))
(BROWSERDESCRIBE (fetch NODELABEL of NODE)
(GET.BROWSE.DESCRIBE.WINDOW)))
(T (* ;
 "if first time touched, pretty print it.")
(BROWSEPP (fetch NODELABEL of NODE)
(GET.BROWSE.PP.WINDOW])
(PROG (FN SELECTION)
(IF (NULL NODE)
THEN (RETURN)
(MOVEW NWINDOW) (* ;
 " really want to just drag the content around")
(RETURN))
(IF (NULL (SETQ FN (FETCH NODELABEL OF NODE)))
THEN (RETURN))
[SETQ SELECTION (MENU (CREATE MENU
ITEMS _ '(CallsFrom CallsTo Edit Show InspectCode]
(* ;; "Mot implemented: Ignore Avoid")
(DESTRUCTURING-BIND (FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING DEPTH)
(FOR BW IN BROWSERWINDOWS WHEN (EQ (FETCH (BROWSEWIN WINDOW) OF BW)
NWINDOW) DO (RETURN (FETCH (BROWSEWIN ARGS)
OF BW))
FINALLY (PROMPTPRINT "No browser window found for" FN)
(RETURN))
(* ;; "Now we have the arguments to MSPATHS .. insert this node?")
(SELECTQ SELECTION
((NIL)
(RETURN))
((CallsFrom CallsTo)
(* ;; "new graph, FN at the root")
(NUMSPATHS (CREATE SENTENCE
SUBJECT _ '(NIL NIL . FNS)
MSPRED _ 'QUOTE
OTHERSTUFF _ (LIST FN))
(IF INVERTED
THEN TO
ELSE FROM)
INVERTED AVOIDING NIL NOTRACE MARKING DEPTH))
NIL
(Ignore (* ; "local ignore"))
(Avoid (* ; " global ignore"))
(Edit (ED FN (IF (HASDEF FN 'FNS)
THEN 'FNS
ELSEIF (HASDEF FN 'FUNCTIONS)
THEN 'FUNCTIONS
ELSE (PROMPTPRINT FN "no definition")
NIL)))
(Show (CL:UNLESS (EQ FN (WINDOWPROP (GET.BROWSE.PP.WINDOW)
'FNBROWSED))
(BROWSEPP FN (GET.BROWSE.PP.WINDOW))))
(Describe (BROWSERDESCRIBE FN (GET.BROWSE.DESCRIBE.WINDOW)))
(InspectCode (IF (NOT (CCODEP FN))
THEN (PROMPTPRINT FN "not compiled")
ELSE (INSPECTCODE FN)))
(HELP])
(GET.BROWSE.PP.WINDOW
[LAMBDA NIL (* ; "Edited 7-Feb-2022 14:01 by rmk")
@@ -253,9 +306,9 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
BOTTOM])
(PPREPAINTFN
[LAMBDA (WINDOW REGION RESHAPE) (* ; "Edited 11-Jun-90 14:11 by mitani")
[LAMBDA (WINDOW REGION RESHAPE) (* ; "Edited 11-Jun-90 14:11 by mitani")
(* ;; "repaints the browser pp window WINDOW. Returns the width of the image so that caller can set the EXTENT.")
(* ;; "repaints the browser pp window WINDOW. Returns the width of the image so that caller can set the EXTENT.")
(PROG ((FN (WINDOWPROP WINDOW 'FNBROWSED))
(EXTENT (WINDOWPROP WINDOW 'EXTENT))
@@ -265,25 +318,23 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
(MOVETOUPPERLEFT WINDOW EXTENT)
(printout WINDOW .FONT DEFAULTFONT)
(COND
((for FPTYPE in MSFNTYPES
when (SETQ DEF (GETDEF FN (ffetch (MSANALYZABLE FILEPKGNAME)
of FPTYPE)
NIL
'NOERROR))
do (SETQ FNTYPE (ffetch (MSANALYZABLE FILEPKGNAME)
of FPTYPE))
(RETURN DEF) finally NIL)
(* ;
 "set up linelength characteristics.")
((for FPTYPE in MSFNTYPES when (SETQ DEF (GETDEF FN (ffetch (MSANALYZABLE
FILEPKGNAME)
of FPTYPE)
NIL
'NOERROR))
do (SETQ FNTYPE (ffetch (MSANALYZABLE FILEPKGNAME) of FPTYPE))
(RETURN DEF) finally NIL) (* ;
 "set up linelength characteristics.")
(RESETLST
(RESETSAVE (OUTPUT WINDOW))
(RESETSAVE (SETREADTABLE T))
(RESETSAVE **COMMENT**FLG)
(if (EQ FNTYPE 'FNS)
then (printout WINDOW "(" .FONT LAMBDAFONT |.P2| FN .FONT
DEFAULTFONT T))
(DSPRIGHTMARGIN (fetch (REGION RIGHT) of (DSPCLIPPINGREGION
NIL WINDOW))
then (printout WINDOW "(" .FONT LAMBDAFONT .P2 FN .FONT
DEFAULTFONT T))
(DSPRIGHTMARGIN (fetch (REGION RIGHT) of (DSPCLIPPINGREGION NIL
WINDOW))
WINDOW)
(PRINTDEF DEF (AND (EQ FNTYPE 'FNS)
2)
@@ -291,19 +342,19 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
(if (EQ FNTYPE 'FNS)
then (PRIN1 ")" WINDOW)))
(fetch (REGION WIDTH) of (DSPCLIPPINGREGION NIL WINDOW)))
(T (* ;
 "set right margin out so wouldn't clip.")
(T (* ;
 "set right margin out so wouldn't clip.")
(DSPRIGHTMARGIN 5000 WINDOW)
(APPLY* (FUNCTION PF*)
FN NIL (GETSTREAM WINDOW))
(DSPRIGHTMARGIN (fetch (REGION RIGHT) of (DSPCLIPPINGREGION
NIL WINDOW))
(DSPRIGHTMARGIN (fetch (REGION RIGHT) of (DSPCLIPPINGREGION NIL WINDOW
))
WINDOW)
BrowserPPWindowWidth)))
(T 0])
(PPRESHAPEFN
[LAMBDA (WINDOW) (* lmm "20-Jul-84 15:48")
[LAMBDA (WINDOW) (* lmm "20-Jul-84 15:48")
(BROWSEPP (WINDOWPROP WINDOW 'FNBROWSED)
WINDOW])
@@ -314,17 +365,18 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
(PROG [(FN (WINDOWPROP WIN 'FNBROWSED))
(EXTENT (WINDOWPROP WIN 'EXTENT]
(COND
(FN (RESETLST (RESETSAVE MSPRINTFLG NIL)
(RESETSAVE (OUTPUT WIN))
(DSPSCROLL 'OFF WIN)
(COND
(EXTENT (MOVETOUPPERLEFT WIN EXTENT)))
(MSDESCRIBE FN])
(FN (RESETLST
(RESETSAVE MSPRINTFLG NIL)
(RESETSAVE (OUTPUT WIN))
(DSPSCROLL 'OFF WIN)
(COND
(EXTENT (MOVETOUPPERLEFT WIN EXTENT)))
(MSDESCRIBE FN))])
(BROWSERDESCRIBE
[LAMBDA (FN WIN) (* ; "Edited 31-Mar-87 11:15 by jop")
(* ;; "puts the masterscope DESCRIBE information in the window DS. Keeps tracks of which fn so if it changes the window can be updated.")
(* ;; "puts the masterscope DESCRIBE information in the window DS. Keeps tracks of which fn so if it changes the window can be updated.")
(WINDOWPROP WIN 'FNBROWSED FN)
(CLEARW WIN)
@@ -337,9 +389,9 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
(DSPYPOSITION NIL WIN])
(BROWSER.MIDDLEFN
[LAMBDA (NODE NWINDOW) (* ; "Edited 25-Mar-94 13:25 by jds")
[LAMBDA (NODE NWINDOW) (* ; "Edited 25-Mar-94 13:25 by jds")
(* ;
 "called when yellow selection from browser. Call display editor on the function.")
 "called when yellow selection from browser. Call display editor on the function.")
(COND
((NULL NODE))
[(THIS.PROCESS) (* ; "processes are running.")
@@ -352,7 +404,7 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
" " "into the Dedit " "window then selecting 'Edit'."))
(T (ADD.PROCESS `(ED ',(fetch NODELABEL of NODE])
((SEDIT SEDIT:SEDIT) (* ;
 "SEdit doesn't have to worry about this stuff")
 "SEdit doesn't have to worry about this stuff")
(ED (fetch NODELABEL of NODE)
':DONTWAIT))
(ED (fetch NODELABEL of NODE]
@@ -360,8 +412,8 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
(DEDITPROCESSRUNNINGP
[LAMBDA NIL (* ; "Edited 31-Mar-87 11:27 by jop")
(* ;; "is there a dedit process running?")
(* ;; "is there a dedit process running?")
(AND (EQ (EDITMODE)
'DEDIT)
@@ -369,73 +421,69 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
(REDRAWBROWSEGRAPH
[LAMBDA (WINDOW) (* DECLARATIONS%: (RECORDS BROWSEWIN))
(* ; "Edited 15-Apr-2023 16:12 by lmm")
(* ; "Edited 31-Mar-87 11:24 by jop")
(PROG [(WN (find X in BROWSERWINDOWS suchthat (EQ (fetch (BROWSEWIN WINDOW)
of X)
WINDOW]
(AND WN (APPLY 'NUMSPATHS (fetch (BROWSEWIN ARGS) of WN)))
(* ; "(OR WN (SHOULDNT))")
(PROG [(WN (find X in BROWSERWINDOWS suchthat (EQ (fetch (BROWSEWIN WINDOW) of X)
WINDOW]
(AND WN (APPLY (FUNCTION NUMSPATHS)
(fetch (BROWSEWIN ARGS) of WN))) (* ; "(OR WN (SHOULDNT))")
(WINDOWPROP WINDOW 'BUTTONEVENTFN (FUNCTION APPLYTOSELECTEDNODE))
(APPLYTOSELECTEDNODE WINDOW])
(STBROWSER
[LAMBDA (GRAPH ARGS) (* DECLARATIONS%: (RECORDS BROWSEWIN))
(* ; "Edited 25-Apr-2023 21:05 by lmm")
(* ; "Edited 31-Mar-87 11:18 by jop")
(* ;; "puts a browser graph for the args FROMFN in a window. If a similar graph is already a window, that window is reused; otherwise a new window is created.")
(WINDOWADDPROP (bind TMP for W in BROWSERWINDOWS
when (EQUAL (fetch (PATHSARGS DISCRIMINANT) of ARGS)
(fetch (PATHSARGS DISCRIMINANT) of (fetch
(BROWSEWIN ARGS)
of W)))
(WINDOWADDPROP (bind TMP for W in BROWSERWINDOWS when (EQUAL (fetch (PATHSARGS DISCRIMINANT)
of ARGS)
(fetch (PATHSARGS DISCRIMINANT)
of (fetch (BROWSEWIN ARGS)
of W)))
do (replace (BROWSEWIN ARGS) of W with ARGS)
(replace (BROWSEWIN GRAPH) of W with GRAPH)
(SHOWGRAPH GRAPH (SETQ W (fetch (BROWSEWIN WINDOW) of W))
(FUNCTION BROWSER.LEFTFN)
(FUNCTION BROWSER.MIDDLEFN))
(RETURN W)
(replace (BROWSEWIN GRAPH) of W with GRAPH)
(SHOWGRAPH GRAPH (SETQ W (fetch (BROWSEWIN WINDOW) of W))
(FUNCTION BROWSER.LEFTFN)
(FUNCTION BROWSER.MIDDLEFN))
(RETURN W)
finally (SETQ W (SHOWGRAPH GRAPH (CONCAT "PATHS"
(COND
((SETQ TMP (fetch
(PATHSARGS FROM)
of ARGS))
(COND
((SETQ TMP (fetch (PATHSARGS FROM)
of ARGS))
(CONCAT (COND
((CADR (CADR TMP))
" FROM ")
(T " TO "))
(CADDDR TMP)))
(T ""))
(COND
((SETQ TMP (fetch (PATHSARGS TO)
of ARGS))
(* ;
 "CADDDR here gets the thing that looks like it might be a function name.")
(CONCAT (COND
((CADR (CADR TMP))
" FROM ")
(T " TO "))
(CADDDR TMP)))
(T ""))
(COND
((SETQ TMP (fetch
(PATHSARGS TO)
of ARGS))
(* ;
 "CADDDR here gets the thing that looks like it might be a function name.")
(CONCAT (COND
((CADR (CADR TMP))
" FROM ")
(T " TO "))
(CADDDR TMP)))
(T "")))
(FUNCTION BROWSER.LEFTFN)
(FUNCTION BROWSER.MIDDLEFN)))
 "CADDDR here gets the thing that looks like it might be a function name.")
(CONCAT (COND
((CADR (CADR TMP))
" FROM ")
(T " TO "))
(CADDDR TMP)))
(T "")))
(FUNCTION BROWSER.LEFTFN)
(FUNCTION BROWSER.MIDDLEFN)))
(push BROWSERWINDOWS
(create BROWSEWIN
ARGS _ ARGS
GRAPH _ GRAPH
WINDOW _ W))
(create BROWSEWIN
ARGS _ ARGS
GRAPH _ GRAPH
WINDOW _ W))
(RETURN W))
'CLOSEFN
(FUNCTION (LAMBDA (WINDOW) (* ;
 "The closing function for browser windows. removes it from BROWSERWINDOWS")
 "The closing function for browser windows. removes it from BROWSERWINDOWS")
(SETQ BROWSERWINDOWS (DREMOVE (for X in BROWSERWINDOWS
when (EQ (fetch (BROWSEWIN WINDOW)
of X)
WINDOW)
do (RETURN X))
of X)
WINDOW) do (RETURN X))
BROWSERWINDOWS])
)
(DECLARE%: DONTCOPY
@@ -457,41 +505,49 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
)
)
(RPAQQ BROWSERBOXING NIL)
(RPAQ? BROWSER T)
(RPAQQ BROWSERFORMAT NIL)
(RPAQ? BROWSERBOXING )
(RPAQQ BROWSERWINDOWS NIL)
(RPAQ? BROWSERFORMAT )
(RPAQQ NODESELECTIONWINDOW NIL)
(RPAQ? BROWSERWINDOWS )
(RPAQQ PFWINDOW NIL)
(RPAQ? NODESELECTIONWINDOW )
(RPAQQ BROWSER.DESCRIBE.WINDOW NIL)
(RPAQ? PFWINDOW )
(RPAQQ BrowserPPWindowWidth 750)
(RPAQ? BROWSER.DESCRIBE.WINDOW )
(RPAQQ BROWSERFONT (GACHA 8))
(RPAQ? BrowserPPWindowWidth 750)
(MOVD? 'MSPATHS 'OLDMSPATHS)
(RPAQ? BROWSERMAX 10)
(RPAQ? BROWSERFONT '(GACHA 8))
(MOVD? 'NILL 'MODERNWINDOW)
[PROG [(WC (FILEPKGTYPE 'FNS 'WHENCHANGED]
(OR (MEMB 'BROWSER.WHENFNSCHANGED WC)
(FILEPKGTYPE 'FNS 'WHENCHANGED (CONS 'BROWSER.WHENFNSCHANGED WC]
(RPAQQ BROWSER.BORDERS
((NORMAL "Normal" 2 -1)
(GHOST "Shown elsewhere" 2 8840)
(RECURSIVEGHOST "End of recursive chain" 2 0 -1)
(MERGED "Includes other branches" 4 42405)
(SELFRECURSIVE "Includes self-recursive calls" 2 61375)
(RECURSIVE "Head of recursive chain" 4 28086)
(ENDOFLINE "exceeded depth limit" 6 64510)))
(DECLARE%: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS BROWSER.BORDERS BROWSERWINDOWS)
)
(DECLARE%: DONTEVAL@LOAD DOCOPY
(SELECTQ (SYSTEMTYPE)
(D (BROWSER T))
NIL)
(BROWSER T)
)
(PUTPROPS BROWSER COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1987 1988 1990 1993 1994))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (2054 25148 (NUMSPATHS 2064 . 5246) (BROWSER 5248 . 5511) (BROWSER.WHENFNSCHANGED 5513
. 7812) (BRPATHS1 7814 . 10080) (BROWSER.LEFTFN 10082 . 10940) (GET.BROWSE.PP.WINDOW 10942 . 11767) (
GET.BROWSE.DESCRIBE.WINDOW 11769 . 12517) (BROWSEPP 12519 . 13393) (PPREPAINTFN 13395 . 16529) (
PPRESHAPEFN 16531 . 16711) (DESCRIBEREPAINTFN 16713 . 17409) (BROWSERDESCRIBE 17411 . 18169) (
BROWSER.MIDDLEFN 18171 . 19478) (DEDITPROCESSRUNNINGP 19480 . 19751) (REDRAWBROWSEGRAPH 19753 . 20516)
(STBROWSER 20518 . 25146)))))
(FILEMAP (NIL (2085 28437 (MSPATHS.DISPATCH 2095 . 2569) (NUMSPATHS 2571 . 6158) (BROWSER 6160 . 6731)
(BROWSER.WHENFNSCHANGED 6733 . 8518) (BRPATHS1 8520 . 11171) (BROWSER.LEFTFN 11173 . 14599) (
GET.BROWSE.PP.WINDOW 14601 . 15426) (GET.BROWSE.DESCRIBE.WINDOW 15428 . 16176) (BROWSEPP 16178 . 17052
) (PPREPAINTFN 17054 . 20180) (PPRESHAPEFN 20182 . 20358) (DESCRIBEREPAINTFN 20360 . 21064) (
BROWSERDESCRIBE 21066 . 21808) (BROWSER.MIDDLEFN 21810 . 23125) (DEDITPROCESSRUNNINGP 23127 . 23382) (
REDRAWBROWSEGRAPH 23384 . 24148) (STBROWSER 24150 . 28435)))))
STOP

BIN
library/BROWSER.LCOM
View File

Binary file not shown.

BIN
library/BROWSER.TEDIT Normal file
View File

Binary file not shown.

BIN
library/CENTRONICS.TEDIT Normal file
View File

Binary file not shown.

BIN
library/CHARCODETABLES.TEDIT Normal file
View File

Binary file not shown.

107
library/CHAT.TEDIT Normal file
View File

File diff suppressed because one or more lines are too long

BIN
library/CLIPBOARD.TEDIT Normal file
View File

Binary file not shown.

BIN
library/CMLFLOATARRAY.TEDIT Normal file
View File

Binary file not shown.

BIN
library/COLOR1.TEDIT Normal file
View File

Binary file not shown.

236
library/COLOR2.TEDIT Normal file
View File

File diff suppressed because one or more lines are too long

BIN
library/COPYFILES.TEDIT Normal file
View File

Binary file not shown.

BIN
library/DATABASEFNS.TEDIT Normal file
View File

Binary file not shown.

BIN
library/DEDIT.TEDIT Normal file
View File

Binary file not shown.

BIN
library/EDITBITMAP.TEDIT Normal file
View File

Binary file not shown.

BIN
library/ETHERRECORDS.TEDIT Normal file
View File

Binary file not shown.

112
library/FILEBROWSER
View File

@@ -1,13 +1,13 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED " 4-Aug-2022 09:32:02" |{DSK}<home>larry>medley>library>FILEBROWSER.;2| 266567
(FILECREATED "18-Jul-2023 22:19:30" |{WMEDLEY}<library>FILEBROWSER.;24| 266436
:CHANGES-TO (VARS FILEBROWSERCOMS)
:EDIT-BY |rmk|
:PREVIOUS-DATE " 2-Dec-2021 19:33:12" |{DSK}<home>larry>medley>library>FILEBROWSER.;1|)
:CHANGES-TO (FNS FB.COPYFN)
:PREVIOUS-DATE " 4-Aug-2022 09:32:02" |{WMEDLEY}<library>FILEBROWSER.;23|)
; Copyright (c) 1983-1991, 1993-1994, 1999-2001, 2021 by Venue & Xerox Corporation.
(PRETTYCOMPRINT FILEBROWSERCOMS)
@@ -463,8 +463,7 @@ Your deletions are thus ignored.")))
(* \; "Entries")
(DEFCOMMAND "fb" (&REST PAT&PROPS)
(APPLY 'FB PAT&PROPS))
(DEFCOMMAND "fb" (&REST PAT&PROPS) (APPLY 'FB PAT&PROPS))
(DEFINEQ
(FB
@@ -943,8 +942,9 @@ Your deletions are thus ignored.")))
(AND OLDFONT (DSPFONT OLDFONT STREAM)))))
(FB.COPYFN
(LAMBDA (TBROWSER ITEM) (* |bvm:| "13-Oct-85 17:44")
(BKSYSBUF (|fetch| (FBFILEDATA FILENAME) |of| (|fetch| TIDATA |of| ITEM)))))
(LAMBDA (TBROWSER ITEM) (* \; "Edited 18-Jul-2023 22:19 by rmk")
(* |bvm:| "13-Oct-85 17:44")
(COPYINSERT (|fetch| (FBFILEDATA FILENAME) |of| (|fetch| TIDATA |of| ITEM)))))
)
@@ -4253,54 +4253,52 @@ then click Recompute"))))
(ADDTOVAR LAMA FB.PROMPTW.FORMAT FB.PROMPTWPRINT)
)
(PUTPROPS FILEBROWSER COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990
1991 1993 1994 1999 2000 2001 2021))
(DECLARE\: DONTCOPY
(FILEMAP (NIL (32375 55256 (FB 32385 . 33520) (FB.COPYBINARYCOMMAND 33522 . 33868) (FB.COPYTEXTCOMMAND
33870 . 34212) (FILEBROWSER 34214 . 47320) (FB.TABLEBROWSER 47322 . 47539) (FB.SELECTEDFILES 47541 .
48178) (FB.FETCHFILENAME 48180 . 48572) (FB.DIRECTORYP 48574 . 48968) (FB.PROMPTWPRINT 48970 . 50016)
(FB.PROMPTW.FORMAT 50018 . 50755) (FB.PROMPTFORINPUT 50757 . 53009) (FB.YES-OR-NO-P 53011 . 54045) (
FB.ALLOW.ABORT 54047 . 54901) (\\FB.HARDCOPY.TOFILE.EXTENSION 54903 . 55254)) (55280 56233 (FB.STARTUP
55290 . 55805) (FB.MAKERIGIDWINDOW 55807 . 56231)) (56234 61606 (FB.PRINTFN 56244 . 61397) (FB.COPYFN
61399 . 61604)) (61656 67996 (FB.MENU.WHENSELECTEDFN 61666 . 62024) (FB.COMMANDSELECTEDFN 62026 .
63565) (FB.SUBITEMP 63567 . 64168) (FB.MAKE.BROWSER.BUSY 64170 . 64974) (FB.FINISH.COMMAND 64976 .
67007) (FB.HANDLE.ABORT.BUTTON 67009 . 67994)) (67997 73513 (FB.DELETECOMMAND 68007 . 68288) (
FB.DELVERCOMMAND 68290 . 71483) (FB.IS.NOT.SUBDIRECTORY.ITEM 71485 . 71666) (FB.DELVER.FILES 71668 .
72757) (FB.DELETE.FILE 72759 . 73511)) (73514 74839 (FB.UNDELETECOMMAND 73524 . 73809) (
FB.UNDELETEALLCOMMAND 73811 . 74090) (FB.UNDELETE.FILE 74092 . 74837)) (74840 99021 (FB.COPYCOMMAND
74850 . 75119) (FB.RENAMECOMMAND 75121 . 75396) (FB.COPY/RENAME.COMMAND 75398 . 76321) (
FB.COPY/RENAME.ONE 76323 . 78645) (FB.COPY/RENAME.MANY 78647 . 84867) (FB.MERGE.DIRECTORIES 84869 .
85287) (FB.GREATEST.PREFIX 85289 . 86645) (FB.MAYBE.INSERT.FILE 86647 . 94087) (FB.GET.NEW.FILE.SPEC
94089 . 97920) (FB.CANONICAL.DIRECTORY 97922 . 99019)) (99022 106806 (FB.HARDCOPYCOMMAND 99032 .
100162) (FB.HARDCOPY.TOFILE 100164 . 106804)) (106807 117006 (FB.EDITCOMMAND 106817 . 107684) (
FB.EDITCOMMAND.ONEFILE 107686 . 111090) (FB.EDITLISPFILE 111092 . 112197) (FB.BROWSECOMMAND 112199 .
117004)) (117007 128928 (FB.FASTSEECOMMAND 117017 . 120467) (FB.FASTSEE.ONEFILE 120469 . 123626) (
FB.SEEFULLFN 123628 . 127759) (FB.SEEBUTTONFN 127761 . 128926)) (128929 130675 (FB.LOADCOMMAND 128939
. 129446) (FB.COMPILECOMMAND 129448 . 129986) (FB.OPERATE.ON.FILES 129988 . 130673)) (130676 178861 (
FB.UPDATECOMMAND 130686 . 130911) (FB.FIX-DIRECTORY-DATES 130913 . 131936) (FB.MAYBE.EXPUNGE 131938 .
132999) (FB.UPDATEBROWSERITEMS 133001 . 146216) (FB.DATE 146218 . 146859) (FB.ADJUST.DATE.WIDTH 146861
. 149829) (FB.SET.BROWSER.TITLE 149831 . 150833) (FB.MAYBE.WIDEN.NAMES 150835 . 152954) (
FB.SET.DEFAULT.NAME.WIDTH 152956 . 154320) (FB.CREATE.FILEBUCKET 154322 . 161542) (
FB.CHECK.NAME.LENGTH 161544 . 163965) (FB.ADD.FILEGROUP 163967 . 165494) (FB.INSERT.DIRECTORY 165496
. 165734) (FB.MAKE.SUBDIRECTORY.ITEM 165736 . 167145) (FB.ADD.FILE 167147 . 167760) (FB.INSERT.FILE
167762 . 171174) (FB.ANALYZE.PATTERN 171176 . 176440) (FB.CANONICALIZE.PATTERN 176442 . 177754) (
FB.GETALLFILEINFO 177756 . 178859)) (178862 187021 (FB.SORT.VERSIONS 178872 . 181643) (
FB.DECREASING.VERSION 181645 . 182314) (FB.INCREASING.VERSION 182316 . 182937) (
FB.NAMES.DECREASING.VERSION 182939 . 183974) (FB.NAMES.INCREASING.VERSION 183976 . 184973) (
FB.DECREASING.NUMERIC.ATTR 184975 . 185655) (FB.INCREASING.NUMERIC.ATTR 185657 . 186331) (
FB.ALPHABETIC.ATTR 186333 . 187019)) (187022 196864 (FB.SORTCOMMAND 187032 . 193862) (
FB.INSERT.SUBDIRECTORIES 193864 . 194661) (FB.GET.SORT.MENU 194663 . 196862)) (196865 213086 (
FB.EXPUNGECOMMAND 196875 . 199460) (FB.NEWPATTERNCOMMAND 199462 . 199860) (FB.NEWINFOCOMMAND 199862 .
202694) (FB.DEPTHCOMMAND 202696 . 204471) (FB.SHAPECOMMAND 204473 . 207815) (FB.REMOVE.FILE 207817 .
209638) (FB.COUNT.FILE.CHANGE 209640 . 211085) (FB.SETNEWPATTERN 211087 . 212257) (FB.GET.NEWPATTERN
212259 . 212843) (FB.OPTIONSCOMMAND 212845 . 213084)) (213121 214174 (FB.GETWINDOW 213131 . 214172)) (
214175 215187 (FB.INFOMENU.SHADEINITIALSELECTIONS 214185 . 214832) (FB.INFO.ITEM.NAMED 214834 . 215185
)) (215188 224720 (FB.MAKECOUNTERWINDOW 215198 . 216726) (FB.COUNTERW.REDISPLAYFN 216728 . 217315) (
FB.UPDATE.COUNTERS 217317 . 219389) (FB.DISPLAY.COUNTERS 219391 . 224451) (FB.COUNTER.STRING 224453 .
224718)) (224721 229430 (FB.MAKEHEADINGWINDOW 224731 . 226345) (FB.HEADINGW.REDISPLAYFN 226347 .
226613) (FB.HEADINGW.RESHAPEFN 226615 . 226991) (FB.HEADINGW.DISPLAY 226993 . 229428)) (229431 233614
(FB.ICONFN 229441 . 229788) (FB.INFOMENU.WHENSELECTEDFN 229790 . 230520) (FB.CLOSEFN 230522 . 231725)
(FB.EXPUNGE?.MENU 231727 . 232139) (FB.AFTERCLOSEFN 232141 . 232502) (FB.CLOSE&EXPUNGE 232504 . 233612
)) (233615 245673 (FB.HARDCOPY.DIRECTORY 233625 . 243982) (FB.HARDCOPY.PRINT.TITLE 243984 . 244310) (
FB.HARDCOPY.MAXWIDTH 244312 . 245671)))))
(FILEMAP (NIL (32272 55153 (FB 32282 . 33417) (FB.COPYBINARYCOMMAND 33419 . 33765) (FB.COPYTEXTCOMMAND
33767 . 34109) (FILEBROWSER 34111 . 47217) (FB.TABLEBROWSER 47219 . 47436) (FB.SELECTEDFILES 47438 .
48075) (FB.FETCHFILENAME 48077 . 48469) (FB.DIRECTORYP 48471 . 48865) (FB.PROMPTWPRINT 48867 . 49913)
(FB.PROMPTW.FORMAT 49915 . 50652) (FB.PROMPTFORINPUT 50654 . 52906) (FB.YES-OR-NO-P 52908 . 53942) (
FB.ALLOW.ABORT 53944 . 54798) (\\FB.HARDCOPY.TOFILE.EXTENSION 54800 . 55151)) (55177 56130 (FB.STARTUP
55187 . 55702) (FB.MAKERIGIDWINDOW 55704 . 56128)) (56131 61614 (FB.PRINTFN 56141 . 61294) (FB.COPYFN
61296 . 61612)) (61664 68004 (FB.MENU.WHENSELECTEDFN 61674 . 62032) (FB.COMMANDSELECTEDFN 62034 .
63573) (FB.SUBITEMP 63575 . 64176) (FB.MAKE.BROWSER.BUSY 64178 . 64982) (FB.FINISH.COMMAND 64984 .
67015) (FB.HANDLE.ABORT.BUTTON 67017 . 68002)) (68005 73521 (FB.DELETECOMMAND 68015 . 68296) (
FB.DELVERCOMMAND 68298 . 71491) (FB.IS.NOT.SUBDIRECTORY.ITEM 71493 . 71674) (FB.DELVER.FILES 71676 .
72765) (FB.DELETE.FILE 72767 . 73519)) (73522 74847 (FB.UNDELETECOMMAND 73532 . 73817) (
FB.UNDELETEALLCOMMAND 73819 . 74098) (FB.UNDELETE.FILE 74100 . 74845)) (74848 99029 (FB.COPYCOMMAND
74858 . 75127) (FB.RENAMECOMMAND 75129 . 75404) (FB.COPY/RENAME.COMMAND 75406 . 76329) (
FB.COPY/RENAME.ONE 76331 . 78653) (FB.COPY/RENAME.MANY 78655 . 84875) (FB.MERGE.DIRECTORIES 84877 .
85295) (FB.GREATEST.PREFIX 85297 . 86653) (FB.MAYBE.INSERT.FILE 86655 . 94095) (FB.GET.NEW.FILE.SPEC
94097 . 97928) (FB.CANONICAL.DIRECTORY 97930 . 99027)) (99030 106814 (FB.HARDCOPYCOMMAND 99040 .
100170) (FB.HARDCOPY.TOFILE 100172 . 106812)) (106815 117014 (FB.EDITCOMMAND 106825 . 107692) (
FB.EDITCOMMAND.ONEFILE 107694 . 111098) (FB.EDITLISPFILE 111100 . 112205) (FB.BROWSECOMMAND 112207 .
117012)) (117015 128936 (FB.FASTSEECOMMAND 117025 . 120475) (FB.FASTSEE.ONEFILE 120477 . 123634) (
FB.SEEFULLFN 123636 . 127767) (FB.SEEBUTTONFN 127769 . 128934)) (128937 130683 (FB.LOADCOMMAND 128947
. 129454) (FB.COMPILECOMMAND 129456 . 129994) (FB.OPERATE.ON.FILES 129996 . 130681)) (130684 178869 (
FB.UPDATECOMMAND 130694 . 130919) (FB.FIX-DIRECTORY-DATES 130921 . 131944) (FB.MAYBE.EXPUNGE 131946 .
133007) (FB.UPDATEBROWSERITEMS 133009 . 146224) (FB.DATE 146226 . 146867) (FB.ADJUST.DATE.WIDTH 146869
. 149837) (FB.SET.BROWSER.TITLE 149839 . 150841) (FB.MAYBE.WIDEN.NAMES 150843 . 152962) (
FB.SET.DEFAULT.NAME.WIDTH 152964 . 154328) (FB.CREATE.FILEBUCKET 154330 . 161550) (
FB.CHECK.NAME.LENGTH 161552 . 163973) (FB.ADD.FILEGROUP 163975 . 165502) (FB.INSERT.DIRECTORY 165504
. 165742) (FB.MAKE.SUBDIRECTORY.ITEM 165744 . 167153) (FB.ADD.FILE 167155 . 167768) (FB.INSERT.FILE
167770 . 171182) (FB.ANALYZE.PATTERN 171184 . 176448) (FB.CANONICALIZE.PATTERN 176450 . 177762) (
FB.GETALLFILEINFO 177764 . 178867)) (178870 187029 (FB.SORT.VERSIONS 178880 . 181651) (
FB.DECREASING.VERSION 181653 . 182322) (FB.INCREASING.VERSION 182324 . 182945) (
FB.NAMES.DECREASING.VERSION 182947 . 183982) (FB.NAMES.INCREASING.VERSION 183984 . 184981) (
FB.DECREASING.NUMERIC.ATTR 184983 . 185663) (FB.INCREASING.NUMERIC.ATTR 185665 . 186339) (
FB.ALPHABETIC.ATTR 186341 . 187027)) (187030 196872 (FB.SORTCOMMAND 187040 . 193870) (
FB.INSERT.SUBDIRECTORIES 193872 . 194669) (FB.GET.SORT.MENU 194671 . 196870)) (196873 213094 (
FB.EXPUNGECOMMAND 196883 . 199468) (FB.NEWPATTERNCOMMAND 199470 . 199868) (FB.NEWINFOCOMMAND 199870 .
202702) (FB.DEPTHCOMMAND 202704 . 204479) (FB.SHAPECOMMAND 204481 . 207823) (FB.REMOVE.FILE 207825 .
209646) (FB.COUNT.FILE.CHANGE 209648 . 211093) (FB.SETNEWPATTERN 211095 . 212265) (FB.GET.NEWPATTERN
212267 . 212851) (FB.OPTIONSCOMMAND 212853 . 213092)) (213129 214182 (FB.GETWINDOW 213139 . 214180)) (
214183 215195 (FB.INFOMENU.SHADEINITIALSELECTIONS 214193 . 214840) (FB.INFO.ITEM.NAMED 214842 . 215193
)) (215196 224728 (FB.MAKECOUNTERWINDOW 215206 . 216734) (FB.COUNTERW.REDISPLAYFN 216736 . 217323) (
FB.UPDATE.COUNTERS 217325 . 219397) (FB.DISPLAY.COUNTERS 219399 . 224459) (FB.COUNTER.STRING 224461 .
224726)) (224729 229438 (FB.MAKEHEADINGWINDOW 224739 . 226353) (FB.HEADINGW.REDISPLAYFN 226355 .
226621) (FB.HEADINGW.RESHAPEFN 226623 . 226999) (FB.HEADINGW.DISPLAY 227001 . 229436)) (229439 233622
(FB.ICONFN 229449 . 229796) (FB.INFOMENU.WHENSELECTEDFN 229798 . 230528) (FB.CLOSEFN 230530 . 231733)
(FB.EXPUNGE?.MENU 231735 . 232147) (FB.AFTERCLOSEFN 232149 . 232510) (FB.CLOSE&EXPUNGE 232512 . 233620
)) (233623 245681 (FB.HARDCOPY.DIRECTORY 233633 . 243990) (FB.HARDCOPY.PRINT.TITLE 243992 . 244318) (
FB.HARDCOPY.MAXWIDTH 244320 . 245679)))))
STOP

BIN
library/FILEBROWSER.LCOM
View File

Binary file not shown.

BIN
library/FILEBROWSER.TEDIT Normal file
View File

Binary file not shown.

BIN
library/FONTSAMPLE.TEDIT Normal file
View File

Binary file not shown.

BIN
library/FTPSERVER.TEDIT Normal file
View File

Binary file not shown.

BIN
library/GCHAX.TEDIT Normal file
View File

Binary file not shown.

BIN
library/GRAPHER.TEDIT Normal file
View File

Binary file not shown.

BIN
library/GRAPHZOOM.TEDIT Normal file
View File

Binary file not shown.

33
library/HASH.TEDIT Normal file
View File

File diff suppressed because one or more lines are too long

BIN
library/HASHFILE.TEDIT Normal file
View File

Binary file not shown.

116
library/MASTERSCOPE.TEDIT Normal file
View File

File diff suppressed because one or more lines are too long

31
library/MATMULT.TEDIT Normal file
View File

File diff suppressed because one or more lines are too long

BIN
library/READNUMBER.TEDIT Normal file
View File

Binary file not shown.

20
library/SYSEDIT
View File

@@ -1,12 +1,10 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "17-Apr-2023 14:19:03" {DSK}<home>larry>il>medley>library>SYSEDIT.;2 1238
:EDIT-BY "lmm"
(FILECREATED "18-Jul-2023 12:07:08" {DSK}<home>frank>il>medley>gmedley>library>SYSEDIT.;2 1397
:CHANGES-TO (VARS SYSEDITCOMS)
:PREVIOUS-DATE "25-Jun-2022 18:22:01" {DSK}<home>larry>il>medley>library>SYSEDIT.;1)
:PREVIOUS-DATE "29-Apr-2023 16:15:10" {DSK}<home>frank>il>medley>gmedley>library>SYSEDIT.;1)
(PRETTYCOMPRINT SYSEDITCOMS)
@@ -20,9 +18,11 @@
(CLISPIFTRANFLG T)
(CROSSCOMPILING 'ASK)
(*REPLACE-OLD-EDIT-DATES* NIL)
(COPYRIGHTFLG 'NEVER))
(P (RESETVARS ((CROSSCOMPILING T))
(FILESLOAD (SOURCE)
(COPYRIGHTFLG 'NEVER)
(MSRECORDTRANFLG T))
(P (MOVD? 'APPLY* 'SPREADAPPLY*X)
(RESETVARS ((CROSSCOMPILING T))
(FILESLOAD (SOURCE FROM LOADUPS)
EXPORTS.ALL])
(RPAQQ CLISPIFYPRETTYFLG NIL)
@@ -43,8 +43,12 @@
(RPAQQ COPYRIGHTFLG NEVER)
(RPAQQ MSRECORDTRANFLG T)
(MOVD? 'APPLY* 'SPREADAPPLY*X)
(RESETVARS ((CROSSCOMPILING T))
(FILESLOAD (SOURCE)
(FILESLOAD (SOURCE FROM LOADUPS)
EXPORTS.ALL))
(DECLARE%: DONTCOPY
(FILEMAP (NIL)))

BIN
library/TCPIP.TEDIT Normal file
View File

Binary file not shown.

BIN
library/TELERAID.TEDIT Normal file
View File

Binary file not shown.

BIN
library/TEXEC.TEDIT Normal file
View File

Binary file not shown.

BIN
library/TEXTMODULES.TEDIT Normal file
View File

Binary file not shown.

BIN
library/UNIXCHAT.TEDIT Normal file
View File

Binary file not shown.

BIN
library/UNIXCOMM.TEDIT Normal file
View File

Binary file not shown.

BIN
library/VIRTUAL.TEDIT Normal file
View File

Binary file not shown.

29
library/WHERE-IS
View File

@@ -1,13 +1,13 @@
(DEFINE-FILE-INFO PACKAGE "XEROX-COMMON-LISP" READTABLE "XCL" BASE 10)
(IL:FILECREATED "11-Mar-2022 22:40:32" 
IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>WHERE-IS.;2| 17501
(IL:FILECREATED "30-Apr-2023 13:54:00" IL:|{DSK}<home>larry>il>medley>library>WHERE-IS.;2| 17396
:PREVIOUS-DATE "13-Jun-90 01:24:39"
IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>WHERE-IS.;1|)
:EDIT-BY "lmm"
:CHANGES-TO (IL:FUNCTIONS ADD-WHERE-IS-DATABASE)
:PREVIOUS-DATE "11-Mar-2022 22:40:32" IL:|{DSK}<home>larry>il>medley>library>WHERE-IS.;1|)
; Copyright (c) 1987-1988, 1990 by Venue & Xerox Corporation.
(IL:PRETTYCOMPRINT IL:WHERE-ISCOMS)
@@ -379,15 +379,14 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>WHERE-IS.;1|)
(IL:PUTPROPS IL:WHERE-IS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "XCL"))
(IL:PUTPROPS IL:WHERE-IS IL:FILETYPE :COMPILE-FILE)
(IL:PUTPROPS IL:WHERE-IS IL:COPYRIGHT ("Venue & Xerox Corporation" 1987 1988 1990))
(IL:DECLARE\: IL:DONTCOPY
(IL:FILEMAP (NIL (1758 2090 (HASH-FILE-WHERE-IS 1758 . 2090)) (2092 2485 (HASH-FILE-TYPES-OF 2092 .
2485)) (2487 4652 (GET-WHERE-IS-ENTRIES 2487 . 4652)) (4654 5169 (WHERE-IS-READ-FN 4654 . 5169)) (5171
5327 (ADD-WHERE-IS-DATABASES 5171 . 5327)) (5329 5716 (ADD-WHERE-IS-DATABASE 5329 . 5716)) (5718 6197
(DEL-WHERE-IS-DATABASE 5718 . 6197)) (6199 7351 (SAME-WHERE-IS-DATABASE 6199 . 7351)) (7353 8560 (
CLOSE-WHERE-IS-FILES 7353 . 8560)) (8818 12235 (WHERE-IS-NOTICE 8818 . 12235)) (12237 12981 (
WHERE-IS-NOTICE-INTERNAL 12237 . 12981)) (12983 13719 (WHERE-IS-FILES 12983 . 13719)) (13721 14086 (
WHERE-IS-DEFAULT-DEFINE-TYPES 13721 . 14086)) (14088 14507 (WHERE-IS-NAMESTRING 14088 . 14507)) (14509
16521 (WHERE-IS-READ-COMS 14509 . 16521)) (16523 16794 (WHERE-IS-SET-WRITE-DATE 16523 . 16794)) (
16796 17046 (WHERE-IS-GET-WRITE-DATE 16796 . 17046)))))
(IL:FILEMAP (NIL (1737 2069 (HASH-FILE-WHERE-IS 1737 . 2069)) (2071 2464 (HASH-FILE-TYPES-OF 2071 .
2464)) (2466 4631 (GET-WHERE-IS-ENTRIES 2466 . 4631)) (4633 5148 (WHERE-IS-READ-FN 4633 . 5148)) (5150
5306 (ADD-WHERE-IS-DATABASES 5150 . 5306)) (5308 5695 (ADD-WHERE-IS-DATABASE 5308 . 5695)) (5697 6176
(DEL-WHERE-IS-DATABASE 5697 . 6176)) (6178 7330 (SAME-WHERE-IS-DATABASE 6178 . 7330)) (7332 8539 (
CLOSE-WHERE-IS-FILES 7332 . 8539)) (8797 12214 (WHERE-IS-NOTICE 8797 . 12214)) (12216 12960 (
WHERE-IS-NOTICE-INTERNAL 12216 . 12960)) (12962 13698 (WHERE-IS-FILES 12962 . 13698)) (13700 14065 (
WHERE-IS-DEFAULT-DEFINE-TYPES 13700 . 14065)) (14067 14486 (WHERE-IS-NAMESTRING 14067 . 14486)) (14488
16500 (WHERE-IS-READ-COMS 14488 . 16500)) (16502 16773 (WHERE-IS-SET-WRITE-DATE 16502 . 16773)) (
16775 17025 (WHERE-IS-GET-WRITE-DATE 16775 . 17025)))))
IL:STOP

BIN
library/WHERE-IS.DFASL
View File

Binary file not shown.

BIN
library/WHERE-IS.TEDIT Normal file
View File

Binary file not shown.

86
lispusers/CALENDAR
View File

@@ -1,11 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 1-Feb-2022 17:14:32" {DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>CALENDAR.;2 173369
(FILECREATED " 5-May-2023 22:14:14" {WMEDLEY}<lispusers>CALENDAR.;4 173398
:CHANGES-TO (FNS CALTEDITSTRING)
:EDIT-BY rmk
:PREVIOUS-DATE "21-Aug-90 09:16:22"
{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>CALENDAR.;1)
:CHANGES-TO (FNS PACKDATE CALTEDITSTRING)
:PREVIOUS-DATE " 1-Feb-2022 17:14:32" {WMEDLEY}<lispusers>CALENDAR.;2)
(* ; "
@@ -1118,7 +1119,8 @@ Copyright (c) 1985-1990 by Xerox Corporation.
'Abort])
(CALTEDITSTRING
[LAMBDA (STRING M D YR) (* ; "Edited 1-Feb-2022 17:13 by rmk")
[LAMBDA (STRING M D YR) (* ; "Edited 5-May-2023 21:56 by rmk")
(* ; "Edited 1-Feb-2022 17:13 by rmk")
(* ; "Edited 14-Oct-88 12:48 by MJD")
(* T.Bigham "12-Nov-84 11:03")
@@ -1165,7 +1167,7 @@ Copyright (c) 1985-1990 by Xerox Corporation.
(CHARACTER 13)
"Message: >>Any text<<")))
NIL NIL NIL '(QUITFN T]
(TEDIT.SETSEL STREAM 24 12 NIL T)
(TEDIT.NEXT STREAM)
(SPAWN.MOUSE)
[SETQ RESULT (TEDIT STREAM CALTEDITWINDOW T '(QUITFN T]
(IF (EQ RESULT 'Abort)
@@ -1897,26 +1899,22 @@ Copyright (c) 1985-1990 by Xerox Corporation.
W H])
(PACKDATE
[LAMBDA (MTIME M D YR) (* MJD "15-May-87 09:38")
(* Takes a time, M, D, and YR, and packs them into a formatted date which is
 returned.)
(* If MTIME = 0, then this is an untimed rem., so store NIL in the time field.)
[LAMBDA (MTIME M D YR) (* ; "Edited 5-May-2023 22:10 by rmk")
(* MJD "15-May-87 09:38")
(* Takes a time, M, D, and YR, and packs them into a formatted date which is
 returned.)
(* If MTIME = 0, then this is an untimed rem., so store NIL in the time field.)
(CONCAT (if (IGEQ D 10)
then D
else (CONCAT " " D))
"-"
(MONTHABBR M)
"-"
(if (IGREATERP YR 1999)
then YR
else (IDIFFERENCE YR 1900))
" "
(if (EQ MTIME 0)
then NIL
else MTIME])
"-" YR " " (if (EQ MTIME 0)
then NIL
else MTIME])
(PARSETIME
[LAMBDA (TSTRING) (* MJD "22-Oct-85 12:06")
@@ -3044,28 +3042,28 @@ Copyright (c) 1985-1990 by Xerox Corporation.
FREEMENU TABLEBROWSER)
(PUTPROPS CALENDAR COPYRIGHT ("Xerox Corporation" 1985 1986 1987 1988 1989 1990))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (8660 168249 (CALADDEVENT 8670 . 15774) (CALCREATEREM 15776 . 18369) (CALDELETEREM 18371
. 21281) (CALDISPEVENT 21283 . 29466) (CALDOOPTIONS 29468 . 31251) (CALENDAR 31253 . 34327) (
CALENDARWATCHER 34329 . 34606) (CALEXTENDSEL 34608 . 36556) (CALLOADFILE 36558 . 46400) (CALMAKEKEY
46402 . 46603) (CALMONTHBEF 46605 . 47698) (CALMONTHICONFN 47700 . 48207) (CALMONTHRBF 48209 . 49001)
(CALOPTIONMENU 49003 . 51258) (CALPEEKNEWMAIL 51260 . 54451) (CALPRINTREM 54453 . 56071) (CALREMDEF
56073 . 56314) (CALTBCLOSEFN 56316 . 56718) (CALTBCOPYFN 56720 . 59088) (CALTBNULLFN 59090 . 59316) (
CALTBSELECTEDFN 59318 . 59715) (CALTEDITEXIT 59717 . 60010) (CALTEDITSTRING 60012 . 63568) (
CALUPDATEFILE 63570 . 70525) (CALUPDATEINIT 70527 . 73896) (CALYEARICONFN 73898 . 74381) (
CALYEARINRANGE 74383 . 74657) (CIRCLETODAY 74659 . 78136) (CLEARDAY 78138 . 79661) (CLOSEMONTH 79663
. 80232) (DAYABBR 80234 . 80496) (DAYNAME 80498 . 80691) (DAYOF 80693 . 81725) (DAYPLUS 81727 . 82024
) (DAYSIN 82026 . 82858) (DERIVENEWDATE 82860 . 86599) (DOREMINDER 86601 . 90935) (FMNWAYITEM 90937 .
91338) (GETREMDEF 91340 . 91652) (INVERTGROUP 91654 . 91922) (LISPDATEDAY 91924 . 92202) (
LISPDATEMONTH 92204 . 92352) (LISPDATEYEAR 92354 . 92718) (MDMENUITEMREGION 92720 . 93184) (MENUITEM
93186 . 93377) (MENUREGIONITEM 93379 . 93747) (MONTHABBR 93749 . 93926) (MONTHNAME 93928 . 94167) (
MONTHNUM 94169 . 94375) (MONTHOFDAYPLUS 94377 . 94605) (MONTHPLUS 94607 . 94912) (MONTHYEARPLUS 94914
. 95202) (NEWPARSETIME 95204 . 100855) (NEXTMDISPLAYREGION 100857 . 103428) (PACKDATE 103430 . 104145
) (PARSETIME 104147 . 105274) (PICKFONTSIZE 105276 . 105930) (POM 105932 . 108586) (POMDAYS 108588 .
109929) (PRINTMONTH 109931 . 113797) (REMINDERSOF 113799 . 114717) (REMINDERTIME 114719 . 114961) (
REMINDERTIMELT 114963 . 115662) (REMSINMONTH 115664 . 115853) (REPAINTMONTH 115855 . 116257) (
REPAINTYEAR 116259 . 116589) (SAMEDAYAS 116591 . 116994) (SAMEMONTHAS 116996 . 117281) (SCALEBITMAP
117283 . 126335) (SHOWDAY 126337 . 134583) (SHOWMONTH 134585 . 154663) (SHOWMONTHSMALL 154665 . 155801
) (SHOWMOON 155803 . 158742) (SHOWREMSINDAY 158744 . 160234) (SHOWREMSINMONTH 160236 . 162686) (
SHOWYEAR 162688 . 166202) (SHRINKMONTH 166204 . 166630) (SHRINKYEAR 166632 . 167161) (TIMEDREMP 167163
. 167287) (TPLUS 167289 . 167823) (WEEKOF 167825 . 168079) (YNCONVERT 168081 . 168247)))))
(FILEMAP (NIL (8620 168278 (CALADDEVENT 8630 . 15734) (CALCREATEREM 15736 . 18329) (CALDELETEREM 18331
. 21241) (CALDISPEVENT 21243 . 29426) (CALDOOPTIONS 29428 . 31211) (CALENDAR 31213 . 34287) (
CALENDARWATCHER 34289 . 34566) (CALEXTENDSEL 34568 . 36516) (CALLOADFILE 36518 . 46360) (CALMAKEKEY
46362 . 46563) (CALMONTHBEF 46565 . 47658) (CALMONTHICONFN 47660 . 48167) (CALMONTHRBF 48169 . 48961)
(CALOPTIONMENU 48963 . 51218) (CALPEEKNEWMAIL 51220 . 54411) (CALPRINTREM 54413 . 56031) (CALREMDEF
56033 . 56274) (CALTBCLOSEFN 56276 . 56678) (CALTBCOPYFN 56680 . 59048) (CALTBNULLFN 59050 . 59276) (
CALTBSELECTEDFN 59278 . 59675) (CALTEDITEXIT 59677 . 59970) (CALTEDITSTRING 59972 . 63623) (
CALUPDATEFILE 63625 . 70580) (CALUPDATEINIT 70582 . 73951) (CALYEARICONFN 73953 . 74436) (
CALYEARINRANGE 74438 . 74712) (CIRCLETODAY 74714 . 78191) (CLEARDAY 78193 . 79716) (CLOSEMONTH 79718
. 80287) (DAYABBR 80289 . 80551) (DAYNAME 80553 . 80746) (DAYOF 80748 . 81780) (DAYPLUS 81782 . 82079
) (DAYSIN 82081 . 82913) (DERIVENEWDATE 82915 . 86654) (DOREMINDER 86656 . 90990) (FMNWAYITEM 90992 .
91393) (GETREMDEF 91395 . 91707) (INVERTGROUP 91709 . 91977) (LISPDATEDAY 91979 . 92257) (
LISPDATEMONTH 92259 . 92407) (LISPDATEYEAR 92409 . 92773) (MDMENUITEMREGION 92775 . 93239) (MENUITEM
93241 . 93432) (MENUREGIONITEM 93434 . 93802) (MONTHABBR 93804 . 93981) (MONTHNAME 93983 . 94222) (
MONTHNUM 94224 . 94430) (MONTHOFDAYPLUS 94432 . 94660) (MONTHPLUS 94662 . 94967) (MONTHYEARPLUS 94969
. 95257) (NEWPARSETIME 95259 . 100910) (NEXTMDISPLAYREGION 100912 . 103483) (PACKDATE 103485 . 104174
) (PARSETIME 104176 . 105303) (PICKFONTSIZE 105305 . 105959) (POM 105961 . 108615) (POMDAYS 108617 .
109958) (PRINTMONTH 109960 . 113826) (REMINDERSOF 113828 . 114746) (REMINDERTIME 114748 . 114990) (
REMINDERTIMELT 114992 . 115691) (REMSINMONTH 115693 . 115882) (REPAINTMONTH 115884 . 116286) (
REPAINTYEAR 116288 . 116618) (SAMEDAYAS 116620 . 117023) (SAMEMONTHAS 117025 . 117310) (SCALEBITMAP
117312 . 126364) (SHOWDAY 126366 . 134612) (SHOWMONTH 134614 . 154692) (SHOWMONTHSMALL 154694 . 155830
) (SHOWMOON 155832 . 158771) (SHOWREMSINDAY 158773 . 160263) (SHOWREMSINMONTH 160265 . 162715) (
SHOWYEAR 162717 . 166231) (SHRINKMONTH 166233 . 166659) (SHRINKYEAR 166661 . 167190) (TIMEDREMP 167192
. 167316) (TPLUS 167318 . 167852) (WEEKOF 167854 . 168108) (YNCONVERT 168110 . 168276)))))
STOP

BIN
lispusers/CALENDAR.LCOM
View File

Binary file not shown.

49
lispusers/COMPAREDIRECTORIES.TEDIT
View File

File diff suppressed because one or more lines are too long

33
lispusers/EVALOBJ
View File

@@ -1,22 +1,19 @@
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED "11-May-2018 08:22:13" 
{DSK}<Users>kaplan>Local>medley3.5>lispcore>lispusers>EVALOBJ.;2 15206
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
changes to%: (VARS EVALOBJCOMS)
(FILECREATED "18-Jul-2023 12:27:33" {DSK}<home>frank>il>medley>gmedley>lispusers>EVALOBJ.;2 15110
previous date%: " 6-May-2000 09:24:45"
{DSK}<Users>kaplan>Local>medley3.5>lispcore>lispusers>EVALOBJ.;1)
:CHANGES-TO (VARS EVALOBJCOMS)
:PREVIOUS-DATE "11-May-2018 08:22:13" {DSK}<home>frank>il>medley>gmedley>lispusers>EVALOBJ.;1
)
(* ; "
Copyright (c) 1997, 1998, 1999, 2000, 2018 by Xerox Corporation. All rights reserved.
")
(PRETTYCOMPRINT EVALOBJCOMS)
(RPAQQ EVALOBJCOMS
[(FILES IMOBJAPPLICATION)
(DECLARE%: DOEVAL@LOAD DONTCOPY (FILES EXPORTS.ALL))
(DECLARE%: DOEVAL@LOAD DONTCOPY (FILES (FROM LOADUPS)
EXPORTS.ALL))
(FNS EVALOBJ.BUTTONEVENTINFN EVALOBJ.DISPLAYFN EVALOBJ.IMAGEBOXFN EVALOBJ.COPYFN
EVALOBJ.CREATE EVALOBJ.GETFN EVALOBJ.PUTFN)
(FNS PARAMS TEXTSTREAMPARAM)
@@ -51,7 +48,8 @@ Copyright (c) 1997, 1998, 1999, 2000, 2018 by Xerox Corporation. All rights res
(FILESLOAD IMOBJAPPLICATION)
(DECLARE%: DOEVAL@LOAD DONTCOPY
(FILESLOAD EXPORTS.ALL)
(FILESLOAD (FROM LOADUPS)
EXPORTS.ALL)
)
(DEFINEQ
@@ -264,7 +262,7 @@ Copyright (c) 1997, 1998, 1999, 2000, 2018 by Xerox Corporation. All rights res
SELECTION
)
(
 EVALOBJ.SELTOOBJ
 EVALOBJ.SELTOOBJ
TEXTSTREAM
SELECTION
'CREATE/LOAD]
@@ -291,11 +289,10 @@ Copyright (c) 1997, 1998, 1999, 2000, 2018 by Xerox Corporation. All rights res
(ADDTOVAR LAMA )
)
(PUTPROPS EVALOBJ COPYRIGHT ("Xerox Corporation" 1997 1998 1999 2000 2018))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (3038 9319 (EVALOBJ.BUTTONEVENTINFN 3048 . 4241) (EVALOBJ.DISPLAYFN 4243 . 5418) (
EVALOBJ.IMAGEBOXFN 5420 . 6963) (EVALOBJ.COPYFN 6965 . 7188) (EVALOBJ.CREATE 7190 . 8606) (
EVALOBJ.GETFN 8608 . 9009) (EVALOBJ.PUTFN 9011 . 9317)) (9320 11885 (PARAMS 9330 . 11261) (
TEXTSTREAMPARAM 11263 . 11883)) (11886 13031 (EVALOBJ.DISMANTLEFN 11896 . 12179) (EVALOBJ.SELTOOBJ
12181 . 13029)))))
(FILEMAP (NIL (3016 9297 (EVALOBJ.BUTTONEVENTINFN 3026 . 4219) (EVALOBJ.DISPLAYFN 4221 . 5396) (
EVALOBJ.IMAGEBOXFN 5398 . 6941) (EVALOBJ.COPYFN 6943 . 7166) (EVALOBJ.CREATE 7168 . 8584) (
EVALOBJ.GETFN 8586 . 8987) (EVALOBJ.PUTFN 8989 . 9295)) (9298 11863 (PARAMS 9308 . 11239) (
TEXTSTREAMPARAM 11241 . 11861)) (11864 13009 (EVALOBJ.DISMANTLEFN 11874 . 12157) (EVALOBJ.SELTOOBJ
12159 . 13007)))))
STOP

BIN
lispusers/EVALOBJ.LCOM
View File

Binary file not shown.

BIN
lispusers/EXAMINEDEFS.TEDIT
View File

Binary file not shown.

BIN
lispusers/FILEWATCH
View File

Binary file not shown.

BIN
lispusers/FILEWATCH.LCOM
View File

Binary file not shown.

40
lispusers/HELPSYS
View File

@@ -1,17 +1,14 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "13-Jan-2023 10:46:39" {DSK}<home>larry>il>medley>lispusers>HELPSYS.;2 87610
(FILECREATED "16-Jun-2023 14:38:33" {DSK}<home>larry>il>medley>lispusers>HELPSYS.;11 87625
:EDIT-BY "lmm"
:CHANGES-TO (VARS HELPSYSCOMS)
(FNS REPO.LOOKUP)
:PREVIOUS-DATE "12-Oct-2022 18:33:26" {DSK}<home>larry>il>medley>lispusers>HELPSYS.;1)
:PREVIOUS-DATE "13-Jan-2023 10:46:39" {DSK}<home>larry>il>medley>lispusers>HELPSYS.;10)
(* ; "
Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation.
")
(PRETTYCOMPRINT HELPSYSCOMS)
(RPAQQ HELPSYSCOMS
@@ -20,7 +17,7 @@ Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation.
(DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
DINFO HASH))
[COMS (COMMANDS "man")
(FNS HELPSYS IRM.LOOKUP GENERIC.MAN.LOOKUP IRM.RESET)
(FNS HELPSYS IRM.LOOKUP GENERIC.MAN.LOOKUP IRM.SMART.LOOKUP IRM.RESET)
(INITVARS (IRM.HOST&DIR)
(IRM.HASHFILE.NAME))
(GLOBALVARS IRM.HOST&DIR IRM.HASHFILE.NAME)
@@ -97,7 +94,8 @@ Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation.
DINFO HASH)
)
(DEFCOMMAND "man" (ENTRY) "Lookup ENTRY in the IRM."
(DEFCOMMAND "man" (ENTRY)
"Lookup ENTRY in the IRM."
(GENERIC.MAN.LOOKUP ENTRY))
(DEFINEQ
@@ -197,6 +195,10 @@ Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation.
else (APPEND (IRM.LOOKUP KEYWORD TYPE GRAPH T)
(REPO.LOOKUP KEYWORD])
(IRM.SMART.LOOKUP
[LAMBDA (KEYWORD GRAPH) (* drc%: " 6-Jan-86 14:50")
(IRM.LOOKUP KEYWORD NIL GRAPH T])
(IRM.RESET
[LAMBDA NIL (* drc%: "27-Jan-86 11:19")
(if (type? DINFOGRAPH IRM.DINFOGRAPH)
@@ -1697,15 +1699,15 @@ Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation.
(ADDTOVAR AROUNDEXITFNS \IRM.AROUND-EXIT)
(PUTPROPS HELPSYS FILETYPE :FAKE-COMPILE-FILE)
(PUTPROPS HELPSYS COPYRIGHT ("Xerox Corporation" 1985 1986 1987 2020 2022 2023))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (4671 10246 (HELPSYS 4681 . 6522) (IRM.LOOKUP 6524 . 8162) (GENERIC.MAN.LOOKUP 8164 .
9833) (IRM.RESET 9835 . 10244)) (10503 17450 (CLHS.INDEX 10513 . 13211) (CLHS.LOOKUP 13213 . 15113) (
CLHS.OPENER 15115 . 16438) (REPO.LOOKUP 16440 . 17448)) (70538 72056 (IRM.GET.DINFOGRAPH 70548 . 71423
) (IRM.DISPLAY.REF 71425 . 72054)) (72058 72420 (IRM.LOAD-GRAPH 72058 . 72420)) (72745 78249 (
IRM.DISPLAY.CREF 72755 . 74469) (IRM.CREF.BOX 74471 . 75298) (IRM.PUT.CREF 75300 . 75525) (
IRM.GET.CREF 75527 . 75898) (IRM.CREF.BUTTONEVENTFN 75900 . 78247)) (78804 87110 (\IRM.GET.REF 78814
. 80145) (\IRM.SMART.REF 80147 . 82074) (\IRM.CHOOSE.REF 82076 . 83327) (\IRM.WILD.REF 83329 . 84584)
(\IRM.WILDCARD 84586 . 84952) (\IRM.WILD.MATCH 84954 . 86184) (\IRM.GET.HASHFILE 86186 . 86649) (
\IRM.GET.KEYWORDS 86651 . 87108)) (87247 87403 (\IRM.AROUND-EXIT 87247 . 87403)))))
(FILEMAP (NIL (4609 10342 (HELPSYS 4619 . 6460) (IRM.LOOKUP 6462 . 8100) (GENERIC.MAN.LOOKUP 8102 .
9771) (IRM.SMART.LOOKUP 9773 . 9929) (IRM.RESET 9931 . 10340)) (10599 17546 (CLHS.INDEX 10609 . 13307)
(CLHS.LOOKUP 13309 . 15209) (CLHS.OPENER 15211 . 16534) (REPO.LOOKUP 16536 . 17544)) (70634 72152 (
IRM.GET.DINFOGRAPH 70644 . 71519) (IRM.DISPLAY.REF 71521 . 72150)) (72154 72516 (IRM.LOAD-GRAPH 72154
. 72516)) (72841 78345 (IRM.DISPLAY.CREF 72851 . 74565) (IRM.CREF.BOX 74567 . 75394) (IRM.PUT.CREF
75396 . 75621) (IRM.GET.CREF 75623 . 75994) (IRM.CREF.BUTTONEVENTFN 75996 . 78343)) (78900 87206 (
\IRM.GET.REF 78910 . 80241) (\IRM.SMART.REF 80243 . 82170) (\IRM.CHOOSE.REF 82172 . 83423) (
\IRM.WILD.REF 83425 . 84680) (\IRM.WILDCARD 84682 . 85048) (\IRM.WILD.MATCH 85050 . 86280) (
\IRM.GET.HASHFILE 86282 . 86745) (\IRM.GET.KEYWORDS 86747 . 87204)) (87343 87499 (\IRM.AROUND-EXIT
87343 . 87499)))))
STOP

BIN
lispusers/HELPSYS.LCOM
View File

Binary file not shown.

BIN
lispusers/OBJECTWINDOW.TEDIT
View File

Binary file not shown.

64
lispusers/PSEUDOHOSTS
View File

@@ -1,10 +1,16 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "31-Oct-2022 23:32:43" {WMEDLEY}<lispusers>PSEUDOHOSTS.;151 27537
(FILECREATED "18-Jul-2023 13:12:35" {DSK}<home>frank>il>medley>gmedley>lispusers>PSEUDOHOSTS.;2 28158
:CHANGES-TO (FNS OPENFILE.PH)
:CHANGES-TO (VARS PSEUDOHOSTSCOMS)
(FNS PSEUDOHOST PSEUDOHOSTP PSEUDOHOSTS TARGETHOST TRUEFILENAME PSEUDOFILENAME
EXPAND.PH CONTRACT.PH SLASHIT UNSLASHIT GETHOSTINFO.PH OPENFILE.PH
GETFILENAME.PH DIRECTORYNAMEP.PH CLOSEFILE.PH REOPENFILE.PH DELETEFILE.PH
OPENP.PH UNREGISTERFILE.PH REGISTERFILE.PH GENERATEFILES.PH GETFILEINFO.PH
SETFILEINFO.PH NEXTFILEFN.PH FILEINFOFN.PH RENAMEFILE.PH)
:PREVIOUS-DATE "14-Jul-2022 17:54:43" {WMEDLEY}<lispusers>PSEUDOHOSTS.;150)
:PREVIOUS-DATE "31-Oct-2022 23:32:43"
{DSK}<home>frank>il>medley>gmedley>lispusers>PSEUDOHOSTS.;1)
(PRETTYCOMPRINT PSEUDOHOSTSCOMS)
@@ -27,7 +33,8 @@
(DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS PHDEVICE PHGENFILESTATE TARGETDEVICE)
(MACROS PSEUDOHOST.NAME PSEUDOHOST.TARGETVAL)
(P (CL:UNLESS (GETP 'EXPORTS.ALL 'FILE)
(LOAD 'EXPORTS.ALL))])
(FILESLOAD (FROM LOADUPS)
EXPORTS.ALL))])
@@ -53,8 +60,8 @@
(CHARCODE }))
(SETQ HOST (SUBSTRING HOST 1 -2)))
(SETQ HOST (U-CASE (MKATOM HOST)))
[IF PREFIX
THEN (CL:WHEN (PSEUDOHOSTP HOST) (* ;
[if PREFIX
then (CL:WHEN (PSEUDOHOSTP HOST) (* ;
 "Redefining: first clear out the previous one")
(PSEUDOHOST HOST NIL))
[LET (TARGETHOST TARGETDEVICE PREFIXHOST)
@@ -85,8 +92,8 @@
(* ;; "Save the last directory marker to pack on if needed.")
(\DEFINEDEVICE HOST
(CREATE FDEV
USING TARGETDEVICE DEVICENAME _ HOST FDEV1 _ TARGETDEVICE FDEV2 _ PREFIX
(create FDEV
using TARGETDEVICE DEVICENAME _ HOST FDEV1 _ TARGETDEVICE FDEV2 _ PREFIX
OPENFILELST _ NIL OPENFILE _ (FUNCTION OPENFILE.PH)
GETFILENAME _ (FUNCTION GETFILENAME.PH)
DIRECTORYNAMEP _ (FUNCTION DIRECTORYNAMEP.PH)
@@ -103,7 +110,7 @@
(* ;; "The ultimate target device keeps a map of prefixes and the hostnames they map to. The longest matching prefix is chosen when a name that expands to the target device is contracted.")
(CHANGE (FETCH (TARGETDEVICE PREFIXMAP) OF TARGETDEVICE)
(change (fetch (TARGETDEVICE PREFIXMAP) OF TARGETDEVICE)
(SORT (CONS (LIST PREFIX HOST (CL:IF (EQ (CHARCODE /)
(NTHCHARCODE PREFIX -1))
'/
@@ -112,12 +119,12 @@
(FUNCTION (LAMBDA (P1 P2)
(IGREATERP (NCHARS (CAR P1))
(NCHARS (CAR P2]
ELSEIF (SETQ PREFIX (CADR (PSEUDOHOSTP HOST)))
THEN
elseif (SETQ PREFIX (CADR (PSEUDOHOSTP HOST)))
then
(* ;; "\DEFINEDEVICE removes the name-mapping but doesn't remove the device. Maybe that's on purpose for other devices, but not here.")
(LET* ((PHHOST (\GETDEVICEFROMNAME HOST \FILEDEVICES))
(TARGETDEV (FETCH (PHDEVICE TARGETDEV) OF PHHOST)))
(TARGETDEV (fetch (PHDEVICE TARGETDEV) OF PHHOST)))
(UNINTERRUPTABLY
(CL:WHEN TARGETDEV (* ;
 "Don't want to fail uninterruptably")
@@ -132,13 +139,13 @@
[LAMBDA (HOST) (* ; "Edited 24-Feb-2022 23:51 by rmk")
(* ; "Edited 18-Jan-2022 11:29 by rmk")
(LET ((DEV (\GETDEVICEFROMNAME HOST T T)))
(CL:WHEN (AND DEV (TYPE? FDEV (FETCH (PHDEVICE TARGETDEV) OF DEV)))
(CL:WHEN (AND DEV (type? FDEV (fetch (PHDEVICE TARGETDEV) OF DEV)))
(LIST (FETCH (FDEV DEVICENAME) OF DEV)
(FETCH (PHDEVICE PREFIX)
DEV)))])
(PSEUDOHOSTS
[LAMBDA NIL (* ; "Edited 17-Jan-2022 18:15 by rmk")
[LAMBDA NIL (* ; "Edited 17-Jan-2022 18:15 by rmk")
(FOR DEV IN \FILEDEVICES WHEN (TYPE? FDEV (FETCH (PHDEVICE TARGETDEV) OF DEV))
COLLECT (LIST (FETCH (FDEV DEVICENAME) OF DEV)
(FETCH (PHDEVICE PREFIX) OF DEV])
@@ -401,7 +408,7 @@
STREAM])
(GENERATEFILES.PH
[LAMBDA (FDEV PATTERN DESIREDPROPS OPTIONS) (* ; "Edited 17-Jan-2022 20:46 by rmk")
[LAMBDA (FDEV PATTERN DESIREDPROPS OPTIONS) (* ; "Edited 17-Jan-2022 20:46 by rmk")
(* ;; "FDEV is the pseudohost. We will generate from the target directory using its GENFILESTATE, but fiddle the output so that it looks like it is coming from the pseudo host.")
@@ -428,7 +435,7 @@
(PSEUDOHOST.TARGETVAL SETFILEINFO (STREAM ATTRIBUTE VALUE DEVICE])
(NEXTFILEFN.PH
[LAMBDA (GENFILESTATE NAMEONLY) (* ; "Edited 17-Jan-2022 21:27 by rmk")
[LAMBDA (GENFILESTATE NAMEONLY) (* ; "Edited 17-Jan-2022 21:27 by rmk")
(LET* ((TARGETGENOBJ (CADR GENFILESTATE))
(TARGETGENFILESTATE (FETCH GENFILESTATE OF TARGETGENOBJ))
(FILENAME (APPLY* (FETCH NEXTFILEFN OF TARGETGENOBJ)
@@ -439,13 +446,13 @@
FILENAME])
(FILEINFOFN.PH
[LAMBDA (GENFILESTATE ATTRIBUTE) (* ; "Edited 17-Jan-2022 20:52 by rmk")
[LAMBDA (GENFILESTATE ATTRIBUTE) (* ; "Edited 17-Jan-2022 20:52 by rmk")
(APPLY* (FETCH FILEINFOFN OF (CADR GENFILESTATE))
(FETCH GENFILESTATE OF (CADR GENFILESTATE))
ATTRIBUTE])
(RENAMEFILE.PH
[LAMBDA (OLD-DEVICE OLD-NAME NEW-DEVICE NEW-NAME) (* ; "Edited 18-Jan-2022 09:52 by rmk")
[LAMBDA (OLD-DEVICE OLD-NAME NEW-DEVICE NEW-NAME) (* ; "Edited 18-Jan-2022 09:52 by rmk")
(LET ((OLDTARGETDEV (FETCH (PHDEVICE TARGETDEV) OF OLD-DEVICE))
(NEWTARGETDEV (FETCH (PHDEVICE TARGETDEV) OF NEW-DEVICE))
(NEWTARGETNAME NEW-NAME)
@@ -520,16 +527,17 @@
(CL:UNLESS (GETP 'EXPORTS.ALL 'FILE)
(LOAD 'EXPORTS.ALL))
(FILESLOAD (FROM LOADUPS)
EXPORTS.ALL))
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (1268 9300 (PSEUDOHOST 1278 . 6837) (PSEUDOHOSTP 6839 . 7352) (PSEUDOHOSTS 7354 . 7711)
(TARGETHOST 7713 . 7987) (TRUEFILENAME 7989 . 8676) (PSEUDOFILENAME 8678 . 9298)) (9328 16867 (
EXPAND.PH 9338 . 10591) (CONTRACT.PH 10593 . 13258) (SLASHIT 13260 . 14828) (UNSLASHIT 14830 . 16576)
(GETHOSTINFO.PH 16578 . 16865)) (16868 24872 (OPENFILE.PH 16878 . 17951) (GETFILENAME.PH 17953 . 18242
) (DIRECTORYNAMEP.PH 18244 . 18868) (CLOSEFILE.PH 18870 . 19337) (REOPENFILE.PH 19339 . 19904) (
DELETEFILE.PH 19906 . 20190) (OPENP.PH 20192 . 20487) (UNREGISTERFILE.PH 20489 . 21031) (
REGISTERFILE.PH 21033 . 21567) (GENERATEFILES.PH 21569 . 22609) (GETFILEINFO.PH 22611 . 22913) (
SETFILEINFO.PH 22915 . 23114) (NEXTFILEFN.PH 23116 . 23658) (FILEINFOFN.PH 23660 . 23931) (
RENAMEFILE.PH 23933 . 24870)))))
(FILEMAP (NIL (1835 9871 (PSEUDOHOST 1845 . 7404) (PSEUDOHOSTP 7406 . 7919) (PSEUDOHOSTS 7921 . 8282)
(TARGETHOST 8284 . 8558) (TRUEFILENAME 8560 . 9247) (PSEUDOFILENAME 9249 . 9869)) (9899 17438 (
EXPAND.PH 9909 . 11162) (CONTRACT.PH 11164 . 13829) (SLASHIT 13831 . 15399) (UNSLASHIT 15401 . 17147)
(GETHOSTINFO.PH 17149 . 17436)) (17439 25459 (OPENFILE.PH 17449 . 18522) (GETFILENAME.PH 18524 . 18813
) (DIRECTORYNAMEP.PH 18815 . 19439) (CLOSEFILE.PH 19441 . 19908) (REOPENFILE.PH 19910 . 20475) (
DELETEFILE.PH 20477 . 20761) (OPENP.PH 20763 . 21058) (UNREGISTERFILE.PH 21060 . 21602) (
REGISTERFILE.PH 21604 . 22138) (GENERATEFILES.PH 22140 . 23184) (GETFILEINFO.PH 23186 . 23488) (
SETFILEINFO.PH 23490 . 23689) (NEXTFILEFN.PH 23691 . 24237) (FILEINFOFN.PH 24239 . 24514) (
RENAMEFILE.PH 24516 . 25457)))))
STOP

BIN
lispusers/PSEUDOHOSTS.LCOM
View File

Binary file not shown.

BIN
lispusers/PSEUDOHOSTS.TEDIT
View File

Binary file not shown.

78
lispusers/REGIONMANAGER.TEDIT
View File

@@ -1,10 +1,9 @@
Medley REGIONMANAGER2
Medley REGIONMANAGER 2
4
1
REGIONMANAGER 1
4
By:
Ron Kaplan This document created in December 2021.
By Ron Kaplan This document created in December 2021.
Medley comes equipped with a core set of functions for specifying regions and creating the windows that occupy those regions on the screen. But it can be disruptive if not irritating to have to draw out a new ghost region for every invocation of a particular application. Thus the common applications (e.g. TEDIT, SEDIT, DINFO...) implement particular strategies to reduce the number of times that a user has to sweep out a new region. They instead default to regions that were allocated for earlier invocations that are no longer active. TEDIT for example recycles the region of a session that was recently shut down, SEDIT allocates from a list of previous regions, DINFO always uses the same region, but FILEBROWSER always prompts for a new one. Applications that do recycle their regions tend to do so indiscrimately, without regard to the current arrangement of other windows on the screen or the role that those windows may play in higher-level applications.
The REGIONMANAGER package provides simple extensions to the core region and window functions. These are aimed at giving users and application implementors more flexible and systematic control over the specification and reuse of screen regions. It introduces three new notions:
A "typed region" allows the regions of particular applications to be specified, classified, and recycled according to their types.
@@ -17,7 +16,7 @@ The REGION/INITREGION arguments may now be region-type atoms in addition to eith
A typed-region is marked as "inuse" and therefore unavailable when CREATEW assigns it to a window, and the extended CLOSEW marks it as again available when the window is closed.
An example of how an application can take advantage of this facility is the TEDIT-PF-SEE package. This provides lightweight alternatives to the PF and SEE commands that print their output to scrollable read-only Tedit windows, specifying PF-TEDIT and SEE-TEDIT as their region types. The user can predefine a preference-ordered sequence of recyclable regions that bring up multiple output windows in a predictable tiled arrangement, without region-prompting for each invocation.
The global variable TYPED-REGIONS is an alist that maintains the relationship between atomic type-names and the list of regions that belong to each type. The list is ordered according to preferences set by the user, and a type-atom is always resolved to the first unused region in its list. If the user is asked to sweep out a new region, that region is added at the end, as the least preferable. The function SET-TYPED-REGIONS is provided to add or replace TYPED-REGION entries.
(SET-TYPED-REGIONS TYPELISTS REPLACE) [Function]
(SET-TYPED-REGIONS TYPELISTS REPLACE) [Function]
TYPELISTS is an alist of the form
((type1 . regions1)(type2 . regions2)...)
where each regioni is a possibly empty list of regions. For convenience, if TYPELISTS is just a literal type-atom, it is interpreted as ((type)), and if it is a list (type . regions) begining with an atom, it is interpreted as ((type . regions). The new regions replace preexisting regions if REPLACE, otherwise they are added at the front.
@@ -25,13 +24,13 @@ Typically, a call to SET-TYPED-REGIONS would be placed in a user's INIT file to
Relative regions
Two functions are provided to make it easy to create regions relative and oriented with respect to a specified reference point. These may be useful for constructing an application that includes a constellation of windows arranged in a particular relative way.
(RELCREATEREGION WIDTH HEIGHT CORNERX CORNERY REFX REFY ONSCREEN) [Function]
(RELCREATEREGION WIDTH HEIGHT CORNERX CORNERY REFX REFY ONSCREEN) [Function]
RELCREATEREGION creates a region of dimensions WIDTH and HEIGHT. One of its corners is identified by CORNERX and CORNERY and that corner will be aligned with a reference screen-point determined by REFX and REFY. If ONSCREEN, the WIDTH or HEIGHT will be adjusted with respect to that alignment so that the resulting region is entirely within the screen.
WIDTH and HEIGHT can be given as absolute (natural) numbers) or specified relative to the WIDTH and HEIGHT of another region or of the screen. The possibilities are interpreted as follows:
natural number: the number of screen points
list of the form (anchor fraction adjustment), where anchor is a region, window, or an atom SCREEN or TTY. The corres-ponding dimension of the anchor is mutiplied by fraction and adjustment is added to the result. For example, specifying (<window> .5 -1) results in a WIDTH that is one point smaller than half the width of window's region. Fraction and adjustment default to 1 and 0 respectively.
region/window/SCREEN/TTY: equivalent to (region/window/SCREEN/TTY 1 0).
CORNERX can be LEFT, RIGHT, or NIL=LEFT, CORNERY can be BOTTOM, TOP, or NIL=BOTTOM. If LEFT/TOP are specified, for example, the region will be splayed down and to the right of the reference point. If RIGHT/BOTTOM, then up and to the left.
CORNERX can be LEFT, RIGHT, or NIL=LEFT, CORNERY can be BOTTOM, TOP, or NIL=BOTTOM. If LEFT/TOP are specified, for example, the region will be displayed down and to the right of the reference point. If RIGHT/BOTTOM, then up and to the left.
The reference-point arguments REFX and REFY are interpreted as follows:
NIL: LASTMOUSEX/LASTMOUSEY
natural number: an absolute screen coordinate
@@ -39,9 +38,9 @@ natural number: an absolute screen coordinate
For convenience, if REFX is a position and REFY is NIL, then the XCOORD and YCOORD of REFX are taken as absolute values for REFX and REFY.
Also for convenience, if WIDTH is a potentially a list of RELCREATEREGION arguments, then the elements of that list are spread out in a recursive call.
(RELGETREGION WIDTH HEIGHT CORNERX CORNERY REFX REFY MINSIZE) [Function]
(RELGETREGION WIDTH HEIGHT CORNERX CORNERY REFX REFY MINSIZE) [Function]
Calls GETREGION with an initial ghost region as created by RELCREATEREGION. CORNERX and CORNERY determine the ghost region's fixed corner, and the cursor starts at the region's diagonally opposite corner. If MINSIZE is true, then WIDTH and HEIGHT are taken as the minimum sizes of the region, except for adjustments that may be needed to ensure that all corners of the ghost region are initially visible on the screen.
(RELCREATEPOSITION REFX REFY) [Function]
(RELCREATEPOSITION REFX REFY) [Function]
Creates a position with X and Y coordinates specified by REFX and REFY references as above.
Constellation regions
@@ -53,62 +52,29 @@ REGIONMANAGER provides an overlay veneer for ATTACHWINDOW that implements this s
This behavior is also triggered if the UNDERCONSTRUCTION property of the central window is true. Thus, a constellation can be set up by creating all of the satellites and the central window, marking the central window as under construction, and then doing the sequence of attachments. The property can be reset to NIL when the construction is complete, so the central window does not shrink if other other attachments (e.g. expanded menus) by later user actions.
A somewhat weaker form of a constellation is a collection of windows that are not attached around a central window but stand in a parent-child relationship at least with respect to closing and moving. A parent windows spawns children that respond independently to ordinary window commands (move, shape, close). But the children close when the parent closes, and the children move when the parent moves so that they continue to appear in the same relative positions. These primitives allow the construction of a tree of windows that are dependent in this way.
(CLOSEWITH CHILDREN PARENT) [Function]
(CLOSEWITH CHILDREN PARENT [Function]
Establishes a link between the PARENT window and any number of CHILDREN windows such that all CHILDREN will close when PARENT closes. The closing is accomplished by CLOSEWITH.DOIT:
(CLOSEWITH.DOIT PARENT) [Function]
(CLOSEWITH.DOIT PARENT) [Function]
Closes the close-with children of PARENT.
(MOVEWITH CHILDREN PARENT) [Function]
(MOVEWITH CHILDREN PARENT) [Function]
Establishes a link between the PARENT window and any number of CHILDREN windows such that all CHILDREN will move when PARENT closes. The closing is accomplished by MOVEWITH.DOIT:
(MOVEWITH.DOIT PARENT NEWPOS) [Function]
(MOVEWITH.DOIT PARENT NEWPOS) [Function]
If NEWPOS is the new position of PARENT, moves each of the move-children so that they stand in the same relation to PARENT after it moves as before.
(LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))4Ⱥ4ÈÈ4ÈÈ4ÈÈ4ÈÈ4ÈÈ. $È. È.È4ÈÈ.È.ŠŠ8.ŠŠ8JÈÈ PAGEHEADING RUNNINGHEADTERMINALÿüTERMINALÿü
(LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))))) 4È$È4È$È4È$È4È$È4È$È1 $È$1 È$4È$È1È$1ŠŠ8$1ŠŠ8$JÈ$È PAGEHEADING RUNNINGHEADTERMINALÿüTERMINALÿü
TIMESROMAN$TERMINALMODERN MODERN
 HRULE.GETFN  HRULE.GETFNMODERN
  HRULE.GETFNMODERN
   HRULE.GETFNMODERN   HRULE.GETFNMODERN   
(

È
„•‘
}

   HRULE.GETFNMODERN
   HRULE.GETFNMODERN
  HRULE.GETFNMODERN


/ ¯
[ <01>
Ch
<00>T Û
 Á
?

 HRULE.GETFNMODERN   HRULE.GETFNMODERN   (È„•‘}/ ¯[ <01>Ch<00>T Û Á%  

; 3o)
M

A
 &Mm
JS-f=
; 3o) MA  &MmJS-f=
3E
"
"


j 
/3
t2C ƒ
 "
O
 =
 , l¬
.
9


™¤
Ç S
~ æ
- 4!U
™
'—

2(µ*"+( *M.„izº
0: /3
t2C ƒ "O=
 , l¬ 9™¤Ç S~ æ- 4!U™'—2 µ " (  M.U}zº

BIN
lispusers/TEDIT-PF-SEE.TEDIT
View File

Binary file not shown.

BIN
lispusers/WHEELSCROLL.TEDIT Normal file
View File

Binary file not shown.

33
lispusers/WHEELSCROLL.TXT
View File

@@ -1,33 +0,0 @@
lispusers/WHEELSCROLL
Written by Ron Kaplan, February 2021.
This small file adds the ability to scroll (scrollable) windows by rotating the wheel on a wheel mouse or by moving (2?) fingers on a track pad.
The capability is enabled when WHEELSCROLL.LCOM is loaded.
It is toggled on and off by
(ENABLEWHEELSCROLL ON) (initially (ENABLEWHEELSCROLL T))
The vertical scrolling speed is controlled by the variable
WHEELSCROLLDELTA (initially 20)
The number of points to scroll for each click of the wheel. Higher values give faster scrolling. A negative value reverses the scrolling direction.
HWHEELSCROLLDELTA (initial NIL)
If non-NIL, then this is the delta used for horizontal scrolling.
Implementation:
Lisp receives a key transition on PAD1 or PAD2 for vertical scrolling when the wheel rotates and no other keys are down. (ENABLEWHEELSCROLL T) modifies the keyaction table so that it maps these transitions to characters 156 and 157. Those characters are defined as interrupts that invoke the vertical scrolling action. For horizontal scrolling sideways pushes of a wheel (if it has that) produce transitions on PAD4 and PAD5, which map to interrupt-characters 158 and 159. (156-159 are the highest right-panel characters of character-set 0 that correspond to left-panel control characters, so typically have no other conflicting meaning.)
(ENABLEWHEELSCROLL NIL) causes PAD1, PAD2, PAD4, and PAD5 to be ignored.
Current negative features:
1. When the wheel is depressed for middle-button effect (and no other keys are down), an accidental rotation of the wheel during the transition (up and/or down) may cause unintended scrolling.
We need to develop a strategy, either in Lisp, Maiko, or X, to discriminate intended middle-button pushes from intended scrolling. This is not an issue for track-pad scrolling.
2. When the wheel is rotated over a window that partially occludes a Tedit window with a caret blinking in its unoccluded region, both the target window and the partially obscured Tedit window may scroll.

37
lispusers/tmax/TMAX
View File

@@ -1,17 +1,13 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "17-Mar-2022 23:12:47" {DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>TMAX.;3 25981
(FILECREATED "18-Jul-2023 12:34:39" {DSK}<home>frank>il>medley>gmedley>lispusers>tmax>TMAX.;2 25955
:CHANGES-TO (VARS TMAXCOMS)
:PREVIOUS-DATE "24-Oct-2021 23:45:20"
{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>TMAX.;2)
:PREVIOUS-DATE "17-Mar-2022 23:12:47" {DSK}<home>frank>il>medley>gmedley>lispusers>tmax>TMAX.;1
)
(* ; "
Copyright (c) 1987, 1997, 1999 by Stanford University.
")
(PRETTYCOMPRINT TMAXCOMS)
(RPAQQ TMAXCOMS
@@ -25,7 +21,8 @@ Copyright (c) 1987, 1997, 1999 by Stanford University.
[DECLARE%: DONTCOPY (P (DOFILESLOAD (LIST* '(SOURCE)
TMAX.FILE.LIST)))
(DECLARE%: EVAL@COMPILE DONTCOPY (P (OR (GETPROP 'EXPORTS.ALL 'FILE)
(LOAD 'EXPORTS.ALL]
(FILESLOAD (FROM LOADUPS)
EXPORTS.ALL]
(P (DOFILESLOAD TMAX.FILE.LIST))
@@ -103,7 +100,8 @@ Copyright (c) 1987, 1997, 1999 by Stanford University.
(DECLARE%: EVAL@COMPILE DONTCOPY
(OR (GETPROP 'EXPORTS.ALL 'FILE)
(LOAD 'EXPORTS.ALL))
(FILESLOAD (FROM LOADUPS)
EXPORTS.ALL))
)
)
@@ -560,16 +558,15 @@ Copyright (c) 1987, 1997, 1999 by Stanford University.
"Displays number-group menu"]
(TSP.FUNCTION.HOOKS)
(PUTPROPS TMAX COPYRIGHT ("Stanford University" 1987 1997 1999))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (8231 15446 (TSP.DISPLAY.FMMENU 8241 . 8806) (TSP.SETUP.FILENAMES 8808 . 10059) (
TSP.SETUP.FMMENU 10061 . 10521) (TSP.FMMENU 10523 . 11709) (TSP.FM.APPLY 11711 . 12030) (UPDATE.ALL
12032 . 12704) (DOWNDATE.ALL 12706 . 13076) (TSP.FUNCTION.HOOKS 13078 . 14508) (TSP.GETFN 14510 .
15070) (TSP.PUTFN 15072 . 15444)) (15492 17741 (AutoUpdate.TOGGLE 15502 . 15738) (UPDATE? 15740 .
15885) (NGROUP.Menu.TOGGLE 15887 . 16269) (NGROUPMENU.ENABLED? 16271 . 16507) (
NGROUP.Text-Before.TOGGLE 16509 . 16759) (TEXTBEFORE.ENABLED? 16761 . 16924) (NGROUP.Text-After.TOGGLE
16926 . 17174) (TEXTAFTER.ENABLED? 17176 . 17337) (Manual.Index.TOGGLE 17339 . 17578) (
MANUALINDEX.ENABLED? 17580 . 17739)) (17775 23248 (GET.TSP.FONT 17785 . 18949) (GET.TSP.FONT.FAMILY
18951 . 19799) (GET.TSP.FONT.SIZE 19801 . 20289) (GET.TSP.FONT.FACE 20291 . 20990) (ABBREVIATE.FONT
20992 . 22492) (TMAX.SHADEOBJ 22494 . 23246)) (23288 24504 (TSP.LIST.OF.OBJECTS 23298 . 24502)))))
(FILEMAP (NIL (8270 15485 (TSP.DISPLAY.FMMENU 8280 . 8845) (TSP.SETUP.FILENAMES 8847 . 10098) (
TSP.SETUP.FMMENU 10100 . 10560) (TSP.FMMENU 10562 . 11748) (TSP.FM.APPLY 11750 . 12069) (UPDATE.ALL
12071 . 12743) (DOWNDATE.ALL 12745 . 13115) (TSP.FUNCTION.HOOKS 13117 . 14547) (TSP.GETFN 14549 .
15109) (TSP.PUTFN 15111 . 15483)) (15531 17780 (AutoUpdate.TOGGLE 15541 . 15777) (UPDATE? 15779 .
15924) (NGROUP.Menu.TOGGLE 15926 . 16308) (NGROUPMENU.ENABLED? 16310 . 16546) (
NGROUP.Text-Before.TOGGLE 16548 . 16798) (TEXTBEFORE.ENABLED? 16800 . 16963) (NGROUP.Text-After.TOGGLE
16965 . 17213) (TEXTAFTER.ENABLED? 17215 . 17376) (Manual.Index.TOGGLE 17378 . 17617) (
MANUALINDEX.ENABLED? 17619 . 17778)) (17814 23287 (GET.TSP.FONT 17824 . 18988) (GET.TSP.FONT.FAMILY
18990 . 19838) (GET.TSP.FONT.SIZE 19840 . 20328) (GET.TSP.FONT.FACE 20330 . 21029) (ABBREVIATE.FONT
21031 . 22531) (TMAX.SHADEOBJ 22533 . 23285)) (23327 24543 (TSP.LIST.OF.OBJECTS 23337 . 24541)))))
STOP

BIN
lispusers/tmax/TMAX.LCOM
View File

Binary file not shown.

0
internal/ABC → obsolete/internal/ABC
View File

0
internal/ABC.LCOM → obsolete/internal/ABC.LCOM
View File

2
scripts/copy-all.sh
View File

@@ -15,7 +15,7 @@ fi
./scripts/cpv tmp/full.sysout loadups
./scripts/cpv tmp/lisp.sysout loadups
./scripts/cpv tmp/whereis.hash loadups
./scripts/cpv tmp/exports.all library
./scripts/cpv tmp/exports.all loadups
if [ "${1}" = "-apps" ]; then
./scripts/cpv tmp/apps.sysout loadups
fi

Some files were not shown because too many files have changed in this diff Show More