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

Merge pull request #153 from Interlisp/medley-utilities

Browse Source 
Medley utilities
This commit is contained in:
Nick Briggs
2021-01-17 22:24:00 -08:00
committed by GitHub
parent 64b2a4978a 647ed31704
commit 6edbe90e89
21 changed files with 77 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
.gitignore vendored
View File

@@ -20,3 +20,6 @@ core
# Mac OS detritus
.DS_Store
# set up by install-diff-filter.sh script
.gitattributes

2
library/EXPORTS.ALL
View File

File diff suppressed because one or more lines are too long

1
lispusers/MEDLEY-FIX-DIRS Normal file
View File

@@ -0,0 +1 @@
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")

BIN
lispusers/MEDLEY-FIX-DIRS.LCOM Normal file
View File

Binary file not shown.

BIN
lispusers/TMAX.TED
View File

Binary file not shown.

BIN
loadups/WHEREIS.HASH
View File

Binary file not shown.

1
loadups/WHEREIS.HASH.DRIBBLE Normal file
View File

File diff suppressed because one or more lines are too long

1
loadups/WHEREIS.HASHDRIBBLE
View File

File diff suppressed because one or more lines are too long

BIN
loadups/system.hash
View File

Binary file not shown.

2
loadups/xfull35.dribble
View File

File diff suppressed because one or more lines are too long

BIN
loadups/xfull35.sysout
View File

Binary file not shown.

66
loadups/xlisp.dribble
View File

@@ -1,7 +1,7 @@
Synchronizing Lisp sysout at 14-Dec-2020 18:41:39
{DSK}<home>larry>ilisp>medley>makesysout>SYNCLISPFILES.;3
created 14-Dec-2020 18:36:57
Synchronizing Lisp sysout at 17-Jan-2021 14:31:56
{DSK}<home>larry>ilisp>medley>makesysout>SYNCLISPFILES.;2
created 17-Jan-2021 14:30:13
{DSK}<home>larry>ilisp>medley>sources>FASLOAD.DFASL;1
@@ -10,46 +10,46 @@ Source file created Tuesday, 17 April 2018, 7:55:20.
FASL file created Tuesday, 17 April 2018, 8:09:14.
{DSK}<home>larry>ilisp>medley>sources>FONT.LCOM;7
{DSK}<home>larry>ilisp>medley>sources>FONT.LCOM;6
compiled on 28-Jun-99 16:29:55
File created 28-Jun-99 16:29:49
{DSK}<home>larry>ilisp>medley>sources>UFSCALLC.LCOM;4
{DSK}<home>larry>ilisp>medley>sources>UFSCALLC.LCOM;3
compiled on 18-May-2018 12:53:18
File created 18-May-2018 12:53:00
UFSCALLCCOMS
{DSK}<home>larry>ilisp>medley>sources>UFS.LCOM;4
{DSK}<home>larry>ilisp>medley>sources>UFS.LCOM;3
compiled on 18-May-2018 09:20:25
File created 31-Dec-2000 12:38:40
UFSCOMS
{DSK}<home>larry>ilisp>medley>sources>APRINT.LCOM;3
{DSK}<home>larry>ilisp>medley>sources>APRINT.LCOM;2
compiled on 17-Jan-2020 05:51:20
File created 17-Jan-2020 05:51:20
APRINTCOMS
{DSK}<home>larry>ilisp>medley>sources>PMAP.LCOM;4
{DSK}<home>larry>ilisp>medley>sources>PMAP.LCOM;3
compiled on 18-May-2018 09:21:40
File created 3-Feb-2002 14:11:02
PMAPCOMS
{DSK}<home>larry>ilisp>medley>sources>ADIR.LCOM;8
{DSK}<home>larry>ilisp>medley>sources>ADIR.LCOM;7
compiled on 14-Oct-2020 11:14:41
File created 14-Oct-2020 11:14:03
ADIRCOMS
{DSK}<home>larry>ilisp>medley>sources>COREIO.LCOM;3
{DSK}<home>larry>ilisp>medley>sources>COREIO.LCOM;2
compiled on 4-Oct-2018 14:13:06
File created 4-Oct-2018 14:13:06
COREIOCOMS
{DSK}<home>larry>ilisp>medley>sources>ACODE.LCOM;7
{DSK}<home>larry>ilisp>medley>sources>ACODE.LCOM;6
compiled on 25-Jun-2017 22:38:30
File created 25-Jun-2017 22:35:00
ACODECOMS
{DSK}<home>larry>ilisp>medley>sources>IOCHAR.LCOM;11
{DSK}<home>larry>ilisp>medley>sources>IOCHAR.LCOM;10
compiled on 10-Aug-2020 21:44:38
File created 10-Aug-2020 21:44:38
@@ -57,51 +57,51 @@ File created 10-Aug-2020 21:44:38
compiled on 28-Jun-99 16:57:53
File created 28-Jun-99 16:57:50
{DSK}<home>larry>ilisp>medley>sources>LLCHAR.LCOM;3
{DSK}<home>larry>ilisp>medley>sources>LLCHAR.LCOM;2
compiled on 11-Nov-2018 13:08:05
File created 11-Nov-2018 13:08:04
{DSK}<home>larry>ilisp>medley>sources>FILEIO.LCOM;13
{DSK}<home>larry>ilisp>medley>sources>FILEIO.LCOM;12
compiled on 13-Aug-2020 11:43:08
File created 13-Aug-2020 11:43:08
FILEIOCOMS
{DSK}<home>larry>ilisp>medley>sources>PRETTY.LCOM;7
{DSK}<home>larry>ilisp>medley>sources>PRETTY.LCOM;6
compiled on 16-Apr-2018 21:37:10
File created 16-Apr-2018 21:37:09
PRETTYCOMS
{DSK}<home>larry>ilisp>medley>sources>NEWPRINTDEF.LCOM;3
{DSK}<home>larry>ilisp>medley>sources>NEWPRINTDEF.LCOM;2
compiled on 31-Dec-2000 11:53:35
File created 31-Dec-2000 11:53:33
NEWPRINTDEFCOMS
{DSK}<home>larry>ilisp>medley>sources>FONTPROFILE.LCOM;3
{DSK}<home>larry>ilisp>medley>sources>FONTPROFILE.LCOM;2
compiled on 14-May-2018 00:04:35
File created 28-Jun-99 22:10:46
FONTPROFILECOMS
{DSK}<home>larry>ilisp>medley>sources>PRINTFN.LCOM;5
{DSK}<home>larry>ilisp>medley>sources>PRINTFN.LCOM;4
compiled on 16-Apr-2018 21:40:32
File created 16-Apr-2018 21:40:32
PRINTFNCOMS
{DSK}<home>larry>ilisp>medley>sources>LOADFNS.LCOM;11
{DSK}<home>larry>ilisp>medley>sources>LOADFNS.LCOM;10
compiled on 16-Apr-2018 17:38:16
File created 16-Apr-2018 17:38:16
LOADFNSCOMS
{DSK}<home>larry>ilisp>medley>sources>FILEPKG.LCOM;14
{DSK}<home>larry>ilisp>medley>sources>FILEPKG.LCOM;13
compiled on 27-Oct-2020 15:40:33
File created 27-Oct-2020 15:40:32
FILEPKGCOMS
{DSK}<home>larry>ilisp>medley>sources>ASKUSER.LCOM;6
{DSK}<home>larry>ilisp>medley>sources>ASKUSER.LCOM;5
compiled on 10-Aug-2020 21:18:50
File created 10-Aug-2020 21:18:50
ASKUSERCOMS
{DSK}<home>larry>ilisp>medley>sources>CMLMODULES.DFASL;5
{DSK}<home>larry>ilisp>medley>sources>CMLMODULES.DFASL;4
XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>CMLMODULES.;2
Source file created Monday, 16 April 2018, 22:46:19.
FASL file created Monday, 16 April 2018, 22:46:19.
@@ -113,11 +113,11 @@ Source file created Sunday, 9 April 2000, 18:08:24.
FASL file created Sunday, 9 April 2000, 18:08:25.
{DSK}<home>larry>ilisp>medley>sources>DEXEC.LCOM;13
{DSK}<home>larry>ilisp>medley>sources>DEXEC.LCOM;12
compiled on 13-Aug-2020 12:36:18
File created 13-Aug-2020 12:36:18
{DSK}<home>larry>ilisp>medley>sources>INSPECT.LCOM;8
{DSK}<home>larry>ilisp>medley>sources>INSPECT.LCOM;7
compiled on 21-Apr-2018 08:08:07
File created 21-Apr-2018 08:08:07
INSPECTCOMS
@@ -127,47 +127,47 @@ compiled on 11-Aug-2020 11:22:31
File created 11-Aug-2020 11:22:30
TWODINSPECTORCOMS
{DSK}<home>larry>ilisp>medley>sources>XCLC-TOP-LEVEL.DFASL;10
{DSK}<home>larry>ilisp>medley>sources>XCLC-TOP-LEVEL.DFASL;9
XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>XCLC-TOP-LEVEL.;10
Source file created 19-Sep-2020 22:02:59
FASL file created Saturday, 19 September 2020, 22:02:59
{DSK}<home>larry>ilisp>medley>sources>HARDCOPY.LCOM;7
{DSK}<home>larry>ilisp>medley>sources>HARDCOPY.LCOM;6
compiled on 16-Apr-2018 22:15:08
File created 16-Apr-2018 22:15:08
HARDCOPYCOMS
{DSK}<home>larry>ilisp>medley>sources>INTERPRESS.LCOM;7
{DSK}<home>larry>ilisp>medley>sources>INTERPRESS.LCOM;6
compiled on 16-Apr-2018 21:56:38
File created 16-Apr-2018 21:56:38
INTERPRESSCOMS
{DSK}<home>larry>ilisp>medley>sources>SEDIT-COMMANDS.DFASL;4
{DSK}<home>larry>ilisp>medley>sources>SEDIT-COMMANDS.DFASL;3
XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>SEDIT-COMMANDS.;3
Source file created Monday, 23 April 2018, 18:12:52.
FASL file created Monday, 23 April 2018, 18:13:51.
{DSK}<home>larry>ilisp>medley>sources>SEDIT-WINDOW.DFASL;3
{DSK}<home>larry>ilisp>medley>sources>SEDIT-WINDOW.DFASL;2
XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>SEDIT-WINDOW.;2
Source file created Monday, 14 May 2018, 14:12:02.
FASL file created Monday, 14 May 2018, 14:12:02.
{DSK}<home>larry>ilisp>medley>sources>TIME.LCOM;5
{DSK}<home>larry>ilisp>medley>sources>TIME.LCOM;4
compiled on 16-Apr-2018 23:05:17
File created 16-Apr-2018 23:05:10
30 files loaded
{DSK}<home>larry>ilisp>medley>patches>LLREADPATCH.LCOM;6
{DSK}<home>larry>ilisp>medley>patches>LLREADPATCH.LCOM;5
compiled on 1-Aug-2020 18:52:48
File created 1-Aug-2020 18:52:48
LLREADPATCHCOMS
{DSK}<home>larry>ilisp>medley>patches>MACHINEINDEPENDENTPATCH.LCOM;3
{DSK}<home>larry>ilisp>medley>patches>MACHINEINDEPENDENTPATCH.LCOM;2
compiled on 19-Sep-2020 21:18:45
File created 19-Sep-2020 20:56:09
MACHINEINDEPENDENTPATCHCOMS
@@ -180,4 +180,4 @@ NOXNSPATCHCOMS
3 files loaded
Creating updated LISP sysout on
{DSK}<home>larry>ilisp>medley>loadups>xlisp.sysout;6
{DSK}<home>larry>ilisp>medley>loadups>xlisp.sysout;2

BIN
loadups/xlisp.sysout
View File

Binary file not shown.

2
makesysout/SYNCLISPFILES
View File

File diff suppressed because one or more lines are too long

BIN
makesysout/SYNCLISPFILES.LCOM
View File

Binary file not shown.

5
run-medley
View File

@@ -1,7 +1,7 @@
#!/bin/sh
# Run Medley
#
# Syntax: run-medley [--dimensions WIDTHxHEIGHT] \ # equivalent to -g WxH -sc WxH
# Syntax: run-medley [--dimensions WIDTHxHEIGHT] \ sets both -g -sc
# [-g WIDTHxHEIGHT] \
# [-sc WIDTHxHEIGHT] \
# [--display X_DISPLAY] \
@@ -17,8 +17,7 @@
inferred_medleydir=false
if [ -z "$MEDLEYDIR" ] ; then
# the user is usually running this script from medley, so let's try that
export MEDLEYDIR="${PWD}"
export MEDLEYDIR="$( cd "$(dirname "$0")" >/dev/null 2>&1 ; pwd -P )"
inferred_medleydir=true
fi

2
scripts/eolconv.sh Executable file
View File

@@ -0,0 +1,2 @@
#!/bin/sh
tr '\r' '\n' < $1 | tr -d '\001-\006'

7
scripts/fixlinks Executable file
View File

@@ -0,0 +1,7 @@
#!/bin/sh
# first find the files, calculate hash, sort by version then by hash+name excluding version
find . -type f -print0 | xargs -0 -n200 shasum | sort -t '~' --key=2,2n | sort -s -t '~' --key=1,1 >/tmp/medleyfiles
# now process the file list into the commands to fix up the links
awk -f scripts/fixlinks.awk /tmp/medleyfiles >/tmp/doit

9
scripts/fixlinks.awk Executable file
View File

@@ -0,0 +1,9 @@
BEGIN {hash="0"; gc = 0;}
function processgroup(group, gc) {
printf("# processing group of %d files -- ",gc);
for (i=1; i <= gc; i++) printf("'%s' ",group[i]);
printf("\n");
printf("rm '%s' && ln '%s' '%s'\n", group[gc],group[1], group[gc]);
}
hash == $1 && 1 == index($2, group[1]) {gc = gc + 1; group[gc] = $2; }
hash != $1 || 1 != index($2, group[1]) { if (gc > 1) processgroup(group, gc); delete group; hash = $1; gc = 1; group[gc] = $2;}

16
scripts/install-diff-filter.sh Executable file
View File

@@ -0,0 +1,16 @@
#!/bin/sh
## This script installs the `eolconv` git diff filter in order to render diffs
## of files with CR line terminators correctly. The filter is installed locally
## and only affects the medley repository.
SCRIPTPATH="$( cd "$(dirname "$0")" >/dev/null 2>&1 ; pwd -P )"
EOLCONV="$SCRIPTPATH/eolconv.sh"
GITATTRIBUTES="$SCRIPTPATH/../.gitattributes"
chmod +x "$EOLCONV"
git config --local --add diff.creol.textconv "$EOLCONV"
echo "* diff=creol" >> "$GITATTRIBUTES"
## for good measure
git config --local --add core.autocrlf false

0
sources/CLSMARTEN
View File