From 8400f7bee80c74bd8d377e1415481f4178a42132 Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Wed, 9 Mar 2022 22:59:25 -0800 Subject: [PATCH] rename migration for new conventions; restore smashed IDLEHAX.TEDIT & sh permissions (#740) --- lispusers/IDLEHAX.TEDIT | Bin 5428 -> 5253 bytes lispusers/migration-tool/FILEPKGRECORDS | 116 ------------------ lispusers/migration-tool/FILEPKGRECORDS.LCOM | 1 - .../{migration-tool => migration}/IL-CONVERT | 0 .../IL-CONVERT.LCOM | 0 .../{migration-tool => migration}/IL-LOOPS | 0 .../IL-LOOPS.LCOM | 0 .../{migration-tool => migration}/IL-RECORD | 0 .../IL-RECORD.LCOM | 0 .../{migration-tool => migration}/IL-SIM | 0 .../{migration-tool => migration}/IL-SIM.LCOM | 0 .../{migration-tool => migration}/IL-STARTUP | 0 .../IL-STARTUP.LCOM | 0 .../MIGRATION-TOOL | 0 .../MIGRATION-TOOL.LCOM | 0 .../MIGRATION-TOOL.TXT | 0 .../TRANSLATOR-ASSISTANT | 0 scripts/release-medley.sh | 0 18 files changed, 117 deletions(-) delete mode 100644 lispusers/migration-tool/FILEPKGRECORDS delete mode 100644 lispusers/migration-tool/FILEPKGRECORDS.LCOM rename lispusers/{migration-tool => migration}/IL-CONVERT (100%) rename lispusers/{migration-tool => migration}/IL-CONVERT.LCOM (100%) rename lispusers/{migration-tool => migration}/IL-LOOPS (100%) rename lispusers/{migration-tool => migration}/IL-LOOPS.LCOM (100%) rename lispusers/{migration-tool => migration}/IL-RECORD (100%) rename lispusers/{migration-tool => migration}/IL-RECORD.LCOM (100%) rename lispusers/{migration-tool => migration}/IL-SIM (100%) rename lispusers/{migration-tool => migration}/IL-SIM.LCOM (100%) rename lispusers/{migration-tool => migration}/IL-STARTUP (100%) rename lispusers/{migration-tool => migration}/IL-STARTUP.LCOM (100%) rename lispusers/{migration-tool => migration}/MIGRATION-TOOL (100%) rename lispusers/{migration-tool => migration}/MIGRATION-TOOL.LCOM (100%) rename lispusers/{migration-tool => migration}/MIGRATION-TOOL.TXT (100%) rename lispusers/{migration-tool => migration}/TRANSLATOR-ASSISTANT (100%) mode change 100644 => 100755 scripts/release-medley.sh diff --git a/lispusers/IDLEHAX.TEDIT b/lispusers/IDLEHAX.TEDIT index 0fe13314bda3edb49de09b834ff16b449dc5c31b..fba6d6df40ee72366a0e73844164c110bdbe0297 100644 GIT binary patch delta 170 zcmdm@)vBqMnzy~|XnrxLr;CrPhhqe<5ihR^FRvjlFH8W)G~wN7=fk*}gXummqw(ZG z0rkoJ0^E#7lVt@Afn*?%)S28Wpv|wt00fLD7zBY73lsBXLjhT!%tHZfAjvPN&FC@N uR?vHLm*6=WMvzJ-kZKSEM1UF0Ajalwp&~}cx0^o*+cC0nzGiT#+64g0^CMmW delta 331 zcmZqG+@fWdnzy~|XnwH*1SICAD0t?Tq!#6578mH{7o~H0y7;(yI7aXqaq*gP@fvdR z!UTX!6RwSFK8*GM|1&7~mt>?CDR`#jq$*@2CTABbBo?JAF#W?}#W5Wxsy0JShkZaybi#3=j*#ODO! XuON9gAcJ|cqp%$#8&@NPYt=3Qteaa9 diff --git a/lispusers/migration-tool/FILEPKGRECORDS b/lispusers/migration-tool/FILEPKGRECORDS deleted file mode 100644 index e424bee0..00000000 --- a/lispusers/migration-tool/FILEPKGRECORDS +++ /dev/null @@ -1,116 +0,0 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) - -(* " -Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988 by Xerox Corporation. All rights reserved. -The following program was created in 1982 but has not been published -within the meaning of the copyright law, is furnished under license, -and may not be used, copied and/or disclosed except in accordance -with the terms of said license. -") - -(PRETTYCOMPRINT FILEPKGRECORDSCOMS) - -(RPAQQ FILEPKGRECORDSCOMS - [(COMS (* ; - "standard records for accessing file package type/command parts. Exported for PRETTY") - (RECORDS * FILEPKGRECORDS)]) - -(RPAQQ FILEPKGRECORDS (FILEPKGCOM FILEPKGTYPE FILE FILEDATEPAIR FILEPROP)) - -(ACCESSFNS FILEPKGCOM [[ADD (GETPROP DATUM 'ADDTOPRETTYCOM) - (UNDOABLE (COND - (NEWVALUE (/PUTPROP DATUM 'ADDTOPRETTYCOM NEWVALUE)) - (T (/REMPROP DATUM 'ADDTOPRETTYCOM] - [DELETE (GETPROP DATUM 'DELFROMPRETTYCOM) - (UNDOABLE (COND - (NEWVALUE (/PUTPROP DATUM 'DELFROMPRETTYCOM NEWVALUE)) - (T (/REMPROP DATUM 'DELFROMPRETTYCOM] - [PRETTYTYPE (GETPROP DATUM 'PRETTYTYPE) - (UNDOABLE (COND - (NEWVALUE (/PUTPROP DATUM 'PRETTYTYPE NEWVALUE)) - (T (/REMPROP DATUM 'PRETTYTYPE] - [CONTENTS (GETPROP DATUM 'FILEPKGCONTENTS) - (UNDOABLE (COND - (NEWVALUE (/PUTPROP DATUM 'FILEPKGCONTENTS NEWVALUE)) - (T (/REMPROP DATUM 'FILEPKGCONTENTS] - (MACRO [CDR (FASSOC DATUM (GETTOPVAL 'PRETTYDEFMACROS] - (STANDARD [COND - [NEWVALUE (PUTASSOC DATUM NEWVALUE - (OR (LISTP (GETTOPVAL - 'PRETTYDEFMACROS)) - (SETTOPVAL 'PRETTYDEFMACROS - (LIST (LIST DATUM] - (T (SETTOPVAL 'PRETTYDEFMACROS - (REMOVE (FASSOC DATUM (GETTOPVAL - 'PRETTYDEFMACROS)) - (GETTOPVAL 'PRETTYDEFMACROS] - UNDOABLE - (COND - [NEWVALUE (/PUTASSOC DATUM NEWVALUE - (OR (LISTP (GETTOPVAL 'PRETTYDEFMACROS)) - (/SETTOPVAL 'PRETTYDEFMACROS - (LIST (LIST DATUM] - (T (/SETTOPVAL 'PRETTYDEFMACROS - (REMOVE (FASSOC DATUM (GETTOPVAL - 'PRETTYDEFMACROS)) - (GETTOPVAL 'PRETTYDEFMACROS] - (* Not an atom record cause want - REMPROP on NILs.) - (* NOTE%: PRETTCOM on PRETTY has - open-coded access to the MACRO - property.) - (INIT (FILEPKGCOMPROPS ADDTOPRETTYCOM DELFROMPRETTYCOM PRETTYTYPE - FILEPKGCONTENTS))) - - - -(ATOMRECORD FILEPKGTYPE (NEWCOM WHENFILED WHENUNFILED GETDEF NULLDEF DELDEF PUTDEF WHENCHANGED - HASDEF EDITDEF FILEGETDEF CANFILEDEF) - (ACCESSFNS FILEPKGTYPE [(CHANGEDLST (CAR (SEARCHPRETTYTYPELST DATUM)) - (CAR (SEARCHPRETTYTYPELST DATUM NEWVALUE)) - ) - (CHANGED (GETTOPVAL (CAR (SEARCHPRETTYTYPELST - DATUM))) - (STANDARD (SETTOPVAL (CAR ( - SEARCHPRETTYTYPELST - DATUM NEWVALUE) - ) - NEWVALUE) - UNDOABLE - (/SETTOPVAL (CAR ( - SEARCHPRETTYTYPELST - DATUM NEWVALUE)) - NEWVALUE))) - (DESCRIPTION (CAR (CDDR (SEARCHPRETTYTYPELST - DATUM))) - (CAR (RPLACA (CDDR (SEARCHPRETTYTYPELST - DATUM NEWVALUE)) - NEWVALUE))) - (ALLFIELDS NIL (/SETTOPVAL - 'PRETTYTYPELST - (REMOVE (SEARCHPRETTYTYPELST - DATUM) - (GETTOPVAL 'PRETTYTYPELST] - (* NOTE%: PRETTYCOM on PRETTY has - open-coded access to GETDEF property) - (INIT [PROGN (SETQ SYSPROPS (UNION FILEPKGTYPEPROPS SYSPROPS)) - (MAPC FILEPKGTYPEPROPS (FUNCTION (LAMBDA (X) - (PUT X - 'PROPTYPE - 'FILEPKGCOMS] - (ADDTOVAR PRETTYTYPELST)))) - - -(ATOMRECORD FILE (FILECHANGES FILEDATES FILEMAP) - [ACCESSFNS FILE ((FILEPROP (GETPROP DATUM 'FILE) - (STANDARD (PUTPROP DATUM 'FILE NEWVALUE) - UNDOABLE - (/PUTPROP DATUM 'FILE NEWVALUE]) - -(RECORD FILEDATEPAIR (FILEDATE . DATEFILENAME)) - -(RECORD FILEPROP ((COMSNAME . LOADTYPE) . TOBEDUMPED)) - - - -IL:STOP diff --git a/lispusers/migration-tool/FILEPKGRECORDS.LCOM b/lispusers/migration-tool/FILEPKGRECORDS.LCOM deleted file mode 100644 index 1d535001..00000000 --- a/lispusers/migration-tool/FILEPKGRECORDS.LCOM +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "19-Jan-93 19:53:16" ("compiled on " {DSK}local>src>tape>MIGRATION>FILEPKGRECORDS.;1 ) "11-Jul-91 21:52:09" bcompl'd in "Lispcore 11-Jul-91 ..." dated "11-Jul-91 21:57:45") (PRETTYCOMPRINT FILEPKGRECORDSCOMS) (RPAQQ FILEPKGRECORDSCOMS ((COMS (* ; "standard records for accessing file package type/command parts. Exported for PRETTY") (RECORDS * FILEPKGRECORDS)))) (RPAQQ FILEPKGRECORDS (FILEPKGCOM FILEPKGTYPE FILE FILEDATEPAIR FILEPROP)) (ACCESSFNS FILEPKGCOM ((ADD (GETPROP DATUM (QUOTE ADDTOPRETTYCOM)) (UNDOABLE (COND (NEWVALUE (/PUTPROP DATUM (QUOTE ADDTOPRETTYCOM) NEWVALUE)) (T (/REMPROP DATUM (QUOTE ADDTOPRETTYCOM)))))) (DELETE ( GETPROP DATUM (QUOTE DELFROMPRETTYCOM)) (UNDOABLE (COND (NEWVALUE (/PUTPROP DATUM (QUOTE DELFROMPRETTYCOM) NEWVALUE)) (T (/REMPROP DATUM (QUOTE DELFROMPRETTYCOM)))))) (PRETTYTYPE (GETPROP DATUM (QUOTE PRETTYTYPE)) (UNDOABLE (COND (NEWVALUE (/PUTPROP DATUM (QUOTE PRETTYTYPE) NEWVALUE)) (T ( /REMPROP DATUM (QUOTE PRETTYTYPE)))))) (CONTENTS (GETPROP DATUM (QUOTE FILEPKGCONTENTS)) (UNDOABLE ( COND (NEWVALUE (/PUTPROP DATUM (QUOTE FILEPKGCONTENTS) NEWVALUE)) (T (/REMPROP DATUM (QUOTE FILEPKGCONTENTS)))))) (MACRO (CDR (FASSOC DATUM (GETTOPVAL (QUOTE PRETTYDEFMACROS)))) (STANDARD (COND (NEWVALUE (PUTASSOC DATUM NEWVALUE (OR (LISTP (GETTOPVAL (QUOTE PRETTYDEFMACROS))) (SETTOPVAL (QUOTE PRETTYDEFMACROS) (LIST (LIST DATUM)))))) (T (SETTOPVAL (QUOTE PRETTYDEFMACROS) (REMOVE (FASSOC DATUM ( GETTOPVAL (QUOTE PRETTYDEFMACROS))) (GETTOPVAL (QUOTE PRETTYDEFMACROS)))))) UNDOABLE (COND (NEWVALUE ( /PUTASSOC DATUM NEWVALUE (OR (LISTP (GETTOPVAL (QUOTE PRETTYDEFMACROS))) (/SETTOPVAL (QUOTE PRETTYDEFMACROS) (LIST (LIST DATUM)))))) (T (/SETTOPVAL (QUOTE PRETTYDEFMACROS) (REMOVE (FASSOC DATUM (GETTOPVAL (QUOTE PRETTYDEFMACROS))) (GETTOPVAL (QUOTE PRETTYDEFMACROS))))))))) (* Not an atom record cause want REMPROP on NILs.) (* NOTE%: PRETTCOM on PRETTY has open-coded access to the MACRO property. ) (INIT (FILEPKGCOMPROPS ADDTOPRETTYCOM DELFROMPRETTYCOM PRETTYTYPE FILEPKGCONTENTS))) (ATOMRECORD FILEPKGTYPE (NEWCOM WHENFILED WHENUNFILED GETDEF NULLDEF DELDEF PUTDEF WHENCHANGED HASDEF EDITDEF FILEGETDEF CANFILEDEF) (ACCESSFNS FILEPKGTYPE ((CHANGEDLST (CAR (SEARCHPRETTYTYPELST DATUM)) ( CAR (SEARCHPRETTYTYPELST DATUM NEWVALUE))) (CHANGED (GETTOPVAL (CAR (SEARCHPRETTYTYPELST DATUM))) ( STANDARD (SETTOPVAL (CAR (SEARCHPRETTYTYPELST DATUM NEWVALUE)) NEWVALUE) UNDOABLE (/SETTOPVAL (CAR ( SEARCHPRETTYTYPELST DATUM NEWVALUE)) NEWVALUE))) (DESCRIPTION (CAR (CDDR (SEARCHPRETTYTYPELST DATUM))) (CAR (RPLACA (CDDR (SEARCHPRETTYTYPELST DATUM NEWVALUE)) NEWVALUE))) (ALLFIELDS NIL (/SETTOPVAL ( QUOTE PRETTYTYPELST) (REMOVE (SEARCHPRETTYTYPELST DATUM) (GETTOPVAL (QUOTE PRETTYTYPELST)))))) (* NOTE%: PRETTYCOM on PRETTY has open-coded access to GETDEF property) (INIT (PROGN (SETQ SYSPROPS ( UNION FILEPKGTYPEPROPS SYSPROPS)) (MAPC FILEPKGTYPEPROPS (FUNCTION (LAMBDA (X) (PUT X (QUOTE PROPTYPE) (QUOTE FILEPKGCOMS)))))) (ADDTOVAR PRETTYTYPELST)))) (ATOMRECORD FILE (FILECHANGES FILEDATES FILEMAP) (ACCESSFNS FILE ((FILEPROP (GETPROP DATUM (QUOTE FILE )) (STANDARD (PUTPROP DATUM (QUOTE FILE) NEWVALUE) UNDOABLE (/PUTPROP DATUM (QUOTE FILE) NEWVALUE))))) ) (RECORD FILEDATEPAIR (FILEDATE . DATEFILENAME)) (RECORD FILEPROP ((COMSNAME . LOADTYPE) . TOBEDUMPED)) NIL \ No newline at end of file diff --git a/lispusers/migration-tool/IL-CONVERT b/lispusers/migration/IL-CONVERT similarity index 100% rename from lispusers/migration-tool/IL-CONVERT rename to lispusers/migration/IL-CONVERT diff --git a/lispusers/migration-tool/IL-CONVERT.LCOM b/lispusers/migration/IL-CONVERT.LCOM similarity index 100% rename from lispusers/migration-tool/IL-CONVERT.LCOM rename to lispusers/migration/IL-CONVERT.LCOM diff --git a/lispusers/migration-tool/IL-LOOPS b/lispusers/migration/IL-LOOPS similarity index 100% rename from lispusers/migration-tool/IL-LOOPS rename to lispusers/migration/IL-LOOPS diff --git a/lispusers/migration-tool/IL-LOOPS.LCOM b/lispusers/migration/IL-LOOPS.LCOM similarity index 100% rename from lispusers/migration-tool/IL-LOOPS.LCOM rename to lispusers/migration/IL-LOOPS.LCOM diff --git a/lispusers/migration-tool/IL-RECORD b/lispusers/migration/IL-RECORD similarity index 100% rename from lispusers/migration-tool/IL-RECORD rename to lispusers/migration/IL-RECORD diff --git a/lispusers/migration-tool/IL-RECORD.LCOM b/lispusers/migration/IL-RECORD.LCOM similarity index 100% rename from lispusers/migration-tool/IL-RECORD.LCOM rename to lispusers/migration/IL-RECORD.LCOM diff --git a/lispusers/migration-tool/IL-SIM b/lispusers/migration/IL-SIM similarity index 100% rename from lispusers/migration-tool/IL-SIM rename to lispusers/migration/IL-SIM diff --git a/lispusers/migration-tool/IL-SIM.LCOM b/lispusers/migration/IL-SIM.LCOM similarity index 100% rename from lispusers/migration-tool/IL-SIM.LCOM rename to lispusers/migration/IL-SIM.LCOM diff --git a/lispusers/migration-tool/IL-STARTUP b/lispusers/migration/IL-STARTUP similarity index 100% rename from lispusers/migration-tool/IL-STARTUP rename to lispusers/migration/IL-STARTUP diff --git a/lispusers/migration-tool/IL-STARTUP.LCOM b/lispusers/migration/IL-STARTUP.LCOM similarity index 100% rename from lispusers/migration-tool/IL-STARTUP.LCOM rename to lispusers/migration/IL-STARTUP.LCOM diff --git a/lispusers/migration-tool/MIGRATION-TOOL b/lispusers/migration/MIGRATION-TOOL similarity index 100% rename from lispusers/migration-tool/MIGRATION-TOOL rename to lispusers/migration/MIGRATION-TOOL diff --git a/lispusers/migration-tool/MIGRATION-TOOL.LCOM b/lispusers/migration/MIGRATION-TOOL.LCOM similarity index 100% rename from lispusers/migration-tool/MIGRATION-TOOL.LCOM rename to lispusers/migration/MIGRATION-TOOL.LCOM diff --git a/lispusers/migration-tool/MIGRATION-TOOL.TXT b/lispusers/migration/MIGRATION-TOOL.TXT similarity index 100% rename from lispusers/migration-tool/MIGRATION-TOOL.TXT rename to lispusers/migration/MIGRATION-TOOL.TXT diff --git a/lispusers/migration-tool/TRANSLATOR-ASSISTANT b/lispusers/migration/TRANSLATOR-ASSISTANT similarity index 100% rename from lispusers/migration-tool/TRANSLATOR-ASSISTANT rename to lispusers/migration/TRANSLATOR-ASSISTANT diff --git a/scripts/release-medley.sh b/scripts/release-medley.sh old mode 100644 new mode 100755