From 92c10aece8bf26104b108da8f56eb9c9df037547 Mon Sep 17 00:00:00 2001 From: Frank Halasz Date: Mon, 15 Jun 2026 18:37:41 +0000 Subject: [PATCH 1/3] Rename request_new_tab.sh to request-new-tab.sh to deal with changes in how IL deals with the _ character. Fix all references to request_new_tab accordingly. --- docker_medley/Dockerfile_medley | 2 +- docker_medley/init/ONLINE-INIT | 6 +++--- docker_medley/init/ONLINE-INIT.LCOM | Bin 5517 -> 5517 bytes ...{request_new_tab.sh => request-new-tab.sh} | 0 4 files changed, 4 insertions(+), 4 deletions(-) rename docker_medley/scripts/{request_new_tab.sh => request-new-tab.sh} (100%) diff --git a/docker_medley/Dockerfile_medley b/docker_medley/Dockerfile_medley index 4c5ed69e..3a1c0a50 100644 --- a/docker_medley/Dockerfile_medley +++ b/docker_medley/Dockerfile_medley @@ -115,7 +115,7 @@ RUN mkdir -p ${ONLINE_BINDIR} \ && chown root:root ${ONLINE_BINDIR} COPY scripts/* ${ONLINE_BINDIR} RUN chmod ugo+x ${ONLINE_BINDIR}/* \ - && ln -s ${ONLINE_BINDIR}/request_new_tab.sh ${ONLINE_BINDIR}/request_new_tab + && ln -s ${ONLINE_BINDIR}/request-new-tab.sh ${ONLINE_BINDIR}/request-new-tab # copy online-specific files into medley/library COPY --chown=${USER_NAME}:${USER_NAME} library/ONLINEUTILS ${MEDLEY_INSTALLDIR}/library diff --git a/docker_medley/init/ONLINE-INIT b/docker_medley/init/ONLINE-INIT index dd1187ce..07e30657 100644 --- a/docker_medley/init/ONLINE-INIT +++ b/docker_medley/init/ONLINE-INIT @@ -215,9 +215,9 @@ (* ;;  "set the opener for accesssing the Common Lisp Hyperspec - for use in HELPSYS LispUsers package") - (SETQ CLHS.OPENER "/usr/local/interlisp/online/bin/request_new_tab") - (SETQ ShellOpener "/usr/local/interlisp/online/bin/request_new_tab") - (SETQ ShellBrowser "/usr/local/interlisp/online/bin/request_new_tab") + (SETQ CLHS.OPENER "/usr/local/interlisp/online/bin/request-new-tab") + (SETQ ShellOpener "/usr/local/interlisp/online/bin/request-new-tab") + (SETQ ShellBrowser "/usr/local/interlisp/online/bin/request-new-tab") (* ;; " get rid of Notecards logout prevention") diff --git a/docker_medley/init/ONLINE-INIT.LCOM b/docker_medley/init/ONLINE-INIT.LCOM index 4cad9667a08f6bb6330b32972241f01c71e802b0..20de50f2c235145c842e2868fb762babecf95d22 100644 GIT binary patch delta 46 ucmeCx?$zEfTYyzJFST5E@&W-vUNEa9F-eI_!N_28p@0@dZZof70}B9I+zq<` delta 46 ucmeCx?$zEfTYxn_FSR^=@&W-vUNEa9F-eI_!N_28p@0@dZZof70}B9kG!Ewg diff --git a/docker_medley/scripts/request_new_tab.sh b/docker_medley/scripts/request-new-tab.sh similarity index 100% rename from docker_medley/scripts/request_new_tab.sh rename to docker_medley/scripts/request-new-tab.sh From 2520229145586172ea83e38c4960177151bf469e Mon Sep 17 00:00:00 2001 From: Frank Halasz Date: Mon, 15 Jun 2026 13:01:52 -0700 Subject: [PATCH 2/3] Update all calls to UNIX-GETENV that involve a environment variable that is an underscore to use the new underscore character in Medley. --- docker_medley/init/ONLINE-INIT | 34 ++++++++++++++----------- docker_medley/init/ONLINE-INIT.LCOM | Bin 5517 -> 5495 bytes docker_medley/library/ONLINEUTILS | 19 +++++++------- docker_medley/library/ONLINEUTILS.LCOM | Bin 1871 -> 1779 bytes 4 files changed, 28 insertions(+), 25 deletions(-) diff --git a/docker_medley/init/ONLINE-INIT b/docker_medley/init/ONLINE-INIT index 07e30657..737662a2 100644 --- a/docker_medley/init/ONLINE-INIT +++ b/docker_medley/init/ONLINE-INIT @@ -1,13 +1,13 @@ (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED " 8-Jun-2026 13:13:01" {DSK}frank>il>online>docker¬medley>init>ONLINE-INIT.;53 11052 +(FILECREATED "15-Jun-2026 12:26:16" {DSK}medley>il>ONLINE-INIT.;18 11324 - :EDIT-BY "FGH" + :EDIT-BY "fgh" - :CHANGES-TO (FNS Online.SftpInitInfo) + :CHANGES-TO (FNS Online.SftpInitInfo Online.FileButton Online.DoInit) - :PREVIOUS-DATE "18-Nov-2025 23:19:56" -{DSK}frank>il>online>docker¬medley>init>ONLINE-INIT.;52) + :PREVIOUS-DATE " 8-Jun-2026 13:13:01" {DSK}local>interlisp>medley>greetfiles>ONLINE-INIT.;1 +) (PRETTYCOMPRINT ONLINE-INITCOMS) @@ -60,10 +60,11 @@ (DEFINEQ (Online.SftpInitInfo - [LAMBDA NIL (* ; "Edited 8-Jun-2026 13:02 by FGH") + [LAMBDA NIL (* ; "Edited 15-Jun-2026 12:20 by fgh") + (* ; "Edited 8-Jun-2026 13:02 by FGH") (* ; "Edited 17-Dec-2021 01:25 by abc") - (SETQ Online.SftpPort (UNIX-GETENV "SFTP_PORT")) - (SETQ Online.SftpPassword (UNIX-GETENV "SFTP_PWD")) + (SETQ Online.SftpPort (UNIX-GETENV "SFTP¬PORT")) + (SETQ Online.SftpPassword (UNIX-GETENV "SFTP¬PWD")) (SETQ Online.SftpDisplay (CONCAT Online.SftpPort " / " (L-CASE USERNAME) " / " Online.SftpPassword)) (SETQ Online.SftpDisplayMenu (create MENU @@ -110,7 +111,8 @@ NIL]) (Online.FileButton - [LAMBDA NIL (* ; "Edited 18-Mar-2025 22:31 by guest") + [LAMBDA NIL (* ; "Edited 15-Jun-2026 12:10 by fgh") + (* ; "Edited 18-Mar-2025 22:31 by guest") (* ; "Edited 17-Mar-2025 16:51 by fgh") (* ; "Edited 16-Mar-2025 23:40 by guest") @@ -147,7 +149,7 @@ YCOORD _ (IDIFFERENCE (fetch BOTTOM of (WINDOWPROP LowestButton 'REGION)) 85))) - (SETQ B (CREATE-BUTTON '(ShellBrowse (UNIX-GETENV "OIO_FB_URL")) + (SETQ B (CREATE-BUTTON '(ShellBrowse (UNIX-GETENV "OIO¬FB¬URL")) "IMPORT/EXPORT" P)) (WINDOWPROP B 'RIGHTBUTTONFN 'NILL) [WINDOWPROP B 'BUTTONEVENTFN (FUNCTION (LAMBDA (BUTTON) @@ -158,6 +160,8 @@ (Online.DoInit [LAMBDA NIL + (* ;; "Edited 15-Jun-2026 12:16 by fgh") + (* ;; "Edited 29-Oct-2025 23:55 by FGH") (* ;; "Edited 16-Mar-2025 23:26 by guest") @@ -207,7 +211,7 @@ (* ;; "set ONLINEP as a definitive flag that this is an online session") (SETQ ONLINEP (COND - ((STRING-EQUAL (UNIX-GETENV 'MEDLEY_ONLINE) + ((STRING-EQUAL (UNIX-GETENV 'MEDLEY¬ONLINE) "true") T) (T NIL))) @@ -234,7 +238,7 @@ (* ;; "If there is a start-script file, load it ") - (LET [(START-SCRIPT (UNIX-GETENV 'START_SCRIPT] + (LET [(START-SCRIPT (UNIX-GETENV 'START¬SCRIPT] (IF START-SCRIPT THEN (LOAD START-SCRIPT]) @@ -251,7 +255,7 @@ (BKSYSBUF " ") ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1831 10916 (Online.SftpInitInfo 1841 . 2825) (Online.SftpUpdateInfo 2827 . 3082) ( -Online.SetUpNOTECARDSDIRECTORIES 3084 . 4792) (Online.FileButton 4794 . 7622) (Online.DoInit 7624 . -10777) (ONLINEP 10779 . 10914))))) + (FILEMAP (NIL (1835 11188 (Online.SftpInitInfo 1845 . 2938) (Online.SftpUpdateInfo 2940 . 3195) ( +Online.SetUpNOTECARDSDIRECTORIES 3197 . 4905) (Online.FileButton 4907 . 7844) (Online.DoInit 7846 . +11049) (ONLINEP 11051 . 11186))))) STOP diff --git a/docker_medley/init/ONLINE-INIT.LCOM b/docker_medley/init/ONLINE-INIT.LCOM index 20de50f2c235145c842e2868fb762babecf95d22..fb7f2bda516f90d243011cd1b30f13ef5f60c519 100644 GIT binary patch delta 453 zcma)&-%7$z9LLej3j@3D^2Z@ci;bOaikxDgZG)BQa4YFj+))Q-o9K~<2%n$`e1vXy z=Us2md-x9Bc7)8Lo8Wi#0LdZkCKQQ5e*oLjhrBOH(wWD?}GGzJ{^m07Aj4 zyRHY{y1B5GWf?)xG)FP z7EpdL93dzyo->DYXvZv!scehhjTz^n`PauxoH*oVAa2LHaoX3OWQruBFVwbuu|~ux zc#~u{ofs_X_m~mJoK9Fc9dE`PPAKIAVKep^y>n7UmPfey&CeK%bm?Y`x6 YsohAItG!h=lP=zicbRlq-*4tW0WchcHUIzs delta 461 zcmeya)vG-reDWqnp?X7eB?S$oI;lpF&Bf)xy{kyPsG=_x6sB$fc3fyD$P z3nfi14L468SLYyC#}HQ+g~=NkW&Ox>qym?rp@FH9f|aX_XNay-q=J&0yN8m(n@0 I+WbCj09ufVNB{r; diff --git a/docker_medley/library/ONLINEUTILS b/docker_medley/library/ONLINEUTILS index f1a66ef0..9fd52eec 100644 --- a/docker_medley/library/ONLINEUTILS +++ b/docker_medley/library/ONLINEUTILS @@ -1,14 +1,12 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) +(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED "13-Dec-2025 22:45:29" {DSK}medley>il>medley>library>ONLINEUTILS.;1 3336 +(FILECREATED "15-Jun-2026 12:25:35" {DSK}medley>il>ONLINEUTILS.;2 3349 :EDIT-BY "fgh" - :CHANGES-TO (VARS ONLINEUTILSCOMS) - (FNS Online.WebfileURL Online.OpenWebfile) + :CHANGES-TO (FNS Online.WebfileURL) - :PREVIOUS-DATE "18-Nov-2025 22:54:33" {DSK}local>interlisp>medley>library>ONLINEUTILS.;1 -) + :PREVIOUS-DATE "13-Dec-2025 22:45:29" {DSK}medley>il>ONLINEUTILS.;1) (PRETTYCOMPRINT ONLINEUTILSCOMS) @@ -49,13 +47,14 @@ OUTNAME]) (Online.WebfileURL - [LAMBDA (WebFilePath) (* ; "Edited 13-Dec-2025 22:40 by fgh") + [LAMBDA (WebFilePath) (* ; "Edited 15-Jun-2026 12:13 by fgh") + (* ; "Edited 13-Dec-2025 22:40 by fgh") (* ;; "Return the URL that will acess a webfile using the OIO https server") (* ;; "WebfilePath is the path for the file below {WEBFILES}")  (* ; "Edited 13-Dec-2025 21:59 by fgh") - (CONCAT "https://online.interlisp.org:" (UNIX-GETENV "OIO_WEBFILES_PORT") + (CONCAT "https://online.interlisp.org:" (UNIX-GETENV "OIO¬WEBFILES¬PORT") "/" WebFilePath]) (Online.OpenWebfile @@ -72,6 +71,6 @@ (PSEUDOHOST 'WEBFILES (CONCAT LOGINDIR "/webfiles")) (DECLARE%: DONTCOPY - (FILEMAP (NIL (671 3259 (ShellHttpGet 681 . 2310) (Online.WebfileURL 2312 . 2817) (Online.OpenWebfile -2819 . 3257))))) + (FILEMAP (NIL (575 3272 (ShellHttpGet 585 . 2214) (Online.WebfileURL 2216 . 2830) (Online.OpenWebfile +2832 . 3270))))) STOP diff --git a/docker_medley/library/ONLINEUTILS.LCOM b/docker_medley/library/ONLINEUTILS.LCOM index d9a2479fcf19563607a6d1e114fc0fbdec688179..565cc03946bfd620cae62469819813634211655d 100644 GIT binary patch delta 411 zcmZwDK~BOz6b9g^annRMtlYiK23SnfPFoU211ZcDN1C?j6p2fvgEW@n0vE;@7M_3` zcmNU?9K^$T0o%j`F>YV}_vd@>^YrVa+hE)i0mq*3ITnEz0*&1M&>e6c|lx{e^dU8)rJ_D!?ecWl(u8kN0Y0u#>4&<|&|^H>go7bb_V z7qi7&b>=F~)pIAyJNrbiEV~VqGm+rl4WQ}$41q@bmu@iN5+@-vyg))&4UiF!pHDod;!yq)(dWj|DXB3d0&6qsPPuDsY|d;9fGNAdr1~(p~o)f*6K^)1Ies=6aWAK From 0b08e6e3e8907e24b3973e4d0690cb2b7b0b78a0 Mon Sep 17 00:00:00 2001 From: Frank Halasz Date: Mon, 15 Jun 2026 13:51:38 -0700 Subject: [PATCH 3/3] Put temp fix in for error due to wrong filkename for Notecards Documentation button. Error is actually in APPS-INIT in Medley. But putting fix in ONLINE-INIT as well to simplify testing. --- docker_medley/init/ONLINE-INIT | 38 ++++++++++++++++++++-------- docker_medley/init/ONLINE-INIT.LCOM | Bin 5495 -> 5993 bytes 2 files changed, 28 insertions(+), 10 deletions(-) diff --git a/docker_medley/init/ONLINE-INIT b/docker_medley/init/ONLINE-INIT index 737662a2..8228627f 100644 --- a/docker_medley/init/ONLINE-INIT +++ b/docker_medley/init/ONLINE-INIT @@ -1,13 +1,14 @@ (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED "15-Jun-2026 12:26:16" {DSK}medley>il>ONLINE-INIT.;18 11324 +(FILECREATED "15-Jun-2026 13:49:34" {DSK}frank>il>online>docker¬medley>init>ONLINE-INIT.;56 12311 - :EDIT-BY "fgh" + :EDIT-BY "FGH" - :CHANGES-TO (FNS Online.SftpInitInfo Online.FileButton Online.DoInit) + :CHANGES-TO (VARS ONLINE-INITCOMS) + (FNS Online.FixNotecardsDocButton) - :PREVIOUS-DATE " 8-Jun-2026 13:13:01" {DSK}local>interlisp>medley>greetfiles>ONLINE-INIT.;1 -) + :PREVIOUS-DATE "15-Jun-2026 12:26:16" +{DSK}frank>il>online>docker¬medley>init>ONLINE-INIT.;54) (PRETTYCOMPRINT ONLINE-INITCOMS) @@ -26,8 +27,9 @@ (ONLINEP NIL)) (ADVISE (SAVEVM :IN \IDLER)) (FNS Online.SftpInitInfo Online.SftpUpdateInfo Online.SetUpNOTECARDSDIRECTORIES - Online.FileButton Online.DoInit ONLINEP) - (DECLARE%: DONTEVAL@LOAD DOCOPY (P (Online.DoInit))) + Online.FileButton Online.DoInit ONLINEP Online.FixNotecardsDocButton) + (DECLARE%: DONTEVAL@LOAD DOCOPY (P (Online.DoInit)) + (P (Online.FixNotecardsDocButton))) (DECLARE%: FIRST DONTEVAL@LOAD DOCOPY (P (BKSYSBUF " "]) (FILESLOAD (SYSLOAD) @@ -245,17 +247,33 @@ (ONLINEP [LAMBDA NIL (* ; "Edited 24-Feb-2024 22:31 by fgh") ONLINEP]) + +(Online.FixNotecardsDocButton + [LAMBDA NIL (* ; "Edited 15-Jun-2026 13:44 by FGH") + + (* ;; "Added 2026-06-15 to temporarily patch and error in APPS-INIT. Should be deleted when APPS-INIT updated.") + + (for B in *ALL-BUTTONS* when (AND (EQ (WINDOWPROP B 'Apps.BUTTON) + 'DOC) + (STREQUAL (BUTTON-LABEL B) + "NOTECARDS")) do (WINDOWPROP B 'BUTTON-ACTION + '(Apps.ShowDoc + "https://interlisp.org/documentation/notecards¬user¬guide¬v1.2.pdf" + ]) ) (DECLARE%: DONTEVAL@LOAD DOCOPY (Online.DoInit) + + +(Online.FixNotecardsDocButton) ) (DECLARE%: FIRST DONTEVAL@LOAD DOCOPY (BKSYSBUF " ") ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1835 11188 (Online.SftpInitInfo 1845 . 2938) (Online.SftpUpdateInfo 2940 . 3195) ( -Online.SetUpNOTECARDSDIRECTORIES 3197 . 4905) (Online.FileButton 4907 . 7844) (Online.DoInit 7846 . -11049) (ONLINEP 11051 . 11186))))) + (FILEMAP (NIL (1960 12138 (Online.SftpInitInfo 1970 . 3063) (Online.SftpUpdateInfo 3065 . 3320) ( +Online.SetUpNOTECARDSDIRECTORIES 3322 . 5030) (Online.FileButton 5032 . 7969) (Online.DoInit 7971 . +11174) (ONLINEP 11176 . 11311) (Online.FixNotecardsDocButton 11313 . 12136))))) STOP diff --git a/docker_medley/init/ONLINE-INIT.LCOM b/docker_medley/init/ONLINE-INIT.LCOM index fb7f2bda516f90d243011cd1b30f13ef5f60c519..9937b1fc949e2f75cf8d8463f30f89bf43990dea 100644 GIT binary patch delta 876 zcmbtS&5qJg6fS6t)`b#gW@kJpF}5Tv^bet$CWRKL*0#1~##zjQ&<-?HZW}26#28+| zabAN-%n;Yc2QWT|J9oOYfRh*(B*wcqx%a!@`Tfq1@;Bz4Kj$T(AqgA-Br%A`Nf-q_ z#0Ut$->B}Bw~t2gIFOGgeRLv+ksPBaM1kzbgOgyg7zch7yp}^0rm|%kx~b8+se8;r zu|{PP8ua5CqPZ$p1D2PnbxC|cK)T8j-S;6xfD_6!+japOr(gGqfAbqs_4Mc6O@X{X zz<<>PILq-Y3zDYl9^E_yqTT5dAho)R+0k6uvw+-J92frRqh&pHDIUnSnZfJEnRfWf zjMHGypZHTX9yDiZ8Y2pD$#%4T-Rilts(9Mj^<0Vj=a~u1eE$5_d|M`v)H+Vuz(Nz+ zz(H9t47%C#Jj-;;6kwfv4#S*6A=ka~@#^Sy?r?}@2Va@>?fb<&{l@AQugn_1DC+C4 zHF6Wf<{0*=n}7b{Ge*{UuzTKtZmQOS?N~MlBDkKTJ?kk3@FHvy(}vR24B%MkXurul zS94Yl6i$l#B~590x@AJP464-vwgyU)OqorLj0j>K$P7A~GVUmTnGF|+QJN-GsZt41 z8cd>anlSNXSjm=eHV#nQPs12h(4`!U*)&_p;Vkrn#S50=GX+n delta 410 zcmZ{gKTE?v7>BVqWpS_tL6MgOF%c4SNi5|ofuu?8X-P^G1qX-HT-(4kDQ!B4lzs)J zpTfDHs)LJ*tJk6U2ZVQgd44?4M*F;YNtOmNs>G}!kWoJ$Pg2ej$TL9j>_xYW`Y0bW zd(0Bfp6ry{VbG?5uhM|V+7+%TAR(-)H}gz2bfXHoNi3aMf>vx{{5*kFu$)dOf}eky zrXfgr1xt?L7Xafe;L<|MYwKk7u~&Bf-3E+J!vf-aG*;aQK!f23fkYZDC%E<_H4Z^; z1`({@%g4*6@N(xxApN79q($)XH%Q! z{T{c|tYA}~&L+D!!zp9MK+MekL{cQ#UDr!*2W$86w6t1Otcs$5?D>th)Ai2?G-)@A OL0WGrk9+$8ZA)LB?{%;M