From 7904f9dd867459b85d67c07d26c582170bcf632a Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Mon, 23 Feb 2026 12:05:04 -0800 Subject: [PATCH] Better initial window size for OUTPUT TEDIT masterscope queries (#2501) * Better initial window size for OUTPUT TEDIT masterscope queries: Creates the output stream, then measures the lines --- library/MASTERSCOPE | 94 ++++++++++++++++++++------------------ library/MASTERSCOPE.DFASL | Bin 70825 -> 70943 bytes 2 files changed, 50 insertions(+), 44 deletions(-) diff --git a/library/MASTERSCOPE b/library/MASTERSCOPE index e90fa213..4fc6d972 100644 --- a/library/MASTERSCOPE +++ b/library/MASTERSCOPE @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 8-Feb-2026 19:27:31" {DSK}larry>il>MEDLEY>LIBRARY>MASTERSCOPE.;3 197425 +(FILECREATED "16-Feb-2026 13:34:31" {WMEDLEY}MASTERSCOPE.;41 197959 - :EDIT-BY "lmm" + :EDIT-BY rmk - :CHANGES-TO (FNS BUILDGETRELQ) + :CHANGES-TO (FNS MSOUTPUT) - :PREVIOUS-DATE " 8-Feb-2026 18:47:30" {DSK}larry>il>MEDLEY>LIBRARY>MASTERSCOPE.;2) + :PREVIOUS-DATE " 8-Feb-2026 22:38:50" {WMEDLEY}MASTERSCOPE.;40) (PRETTYCOMPRINT MASTERSCOPECOMS) @@ -2566,7 +2566,7 @@ (* ; "interactive routines") -(RPAQ MASTERSCOPEDATE " 8-Feb-2026") +(RPAQ MASTERSCOPEDATE "16-Feb-2026") (ADDTOVAR HISTORYCOMS %.) (DEFINEQ @@ -3498,13 +3498,17 @@ (ERROR!]) (MSOUTPUT - [LAMBDA (FILE) (* ; "Edited 5-Apr-2025 11:48 by rmk") + [LAMBDA (FILE) (* ; "Edited 16-Feb-2026 13:34 by rmk") + (* ; "Edited 5-Feb-2026 01:01 by rmk") + (* ; "Edited 18-Nov-2025 14:01 by rmk") + (* ; "Edited 8-Nov-2025 23:21 by rmk") + (* ; "Edited 5-Apr-2025 11:48 by rmk") (* ; "Edited 14-Jul-2024 08:41 by rmk") (* ; "Edited 5-Jul-2024 11:54 by rmk") (* ; "Edited 12-Jun-90 20:43 by teruuchi") (LET ((LLENGTH FILELINELENGTH)) [COND - ((AND (LITATOM FILE) + [(AND (LITATOM FILE) (MEMB (U-CASE FILE) '(TEDIT :TEDIT)) (GETD (FUNCTION TEDIT))) @@ -3512,12 +3516,14 @@ (* ;;  "If no TEDIT, leave the current OUTPUT. The readtable for seprs etc is the current readtable.") - [SETQ FILE (TEXTSTREAM (TEDIT NIL 'Masterscope NIL `(LEAVETTY T TITLE Masterscope FONT - ,DEFAULTFONT BOUNDTABLE - ,(TEDIT.ATOMBOUND.READTABLE] + [SETQ FILE (OPENTEXTSTREAM NIL NIL `(FONT ,DEFAULTFONT BOUNDTABLE ,( + TEDIT.ATOMBOUND.READTABLE + ] (SETQ LLENGTH T) - (TEDIT.DEFER.UPDATES FILE '(READONLY QUIET)) - (RESETSAVE NIL (LIST 'CLOSEF FILE))) + (RESETSAVE NIL `(PROGN (CL:UNLESS RESETSTATE + (TEDIT ,FILE 'Masterscope NIL + '(TITLE Masterscope READONLY QUIET LEAVETTY T))) + (CLOSEF? ,FILE] ((OPENP FILE 'OUTPUT)) (T (SETQ FILE (OPENSTREAM FILE 'OUTPUT)) (RESETSAVE NIL (LIST 'CLOSEF FILE] @@ -3724,36 +3730,36 @@ (ADDTOVAR LAMA MSEDITE MSEDITF) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3300 19547 (UPDATEFN 3310 . 4927) (MSGETDEF 4929 . 6335) (MSNOTICEFILE 6337 . 8730) ( -MSSHOWUSE 8732 . 14713) (MSUPDATEFN1 14715 . 15403) (MSUPDATE 15405 . 17831) (MSNLAMBDACHECK 17833 . -18715) (MSCOLLECTDATA 18717 . 19545)) (19548 20447 (UPDATECHANGED 19558 . 19921) (UPDATECHANGED1 19923 - . 20445)) (21021 21444 (MSCLOSEFILES 21031 . 21442)) (22125 26557 (MSDESCRIBE 22135 . 24923) ( -MSDESCRIBE1 24925 . 25988) (FMAPRINT 25990 . 26555)) (26650 27090 (MSPRINTHELPFILE 26660 . 27088)) ( -27140 30278 (TEMPLATE 27150 . 28571) (GETTEMPLATE 28573 . 28708) (SETTEMPLATE 28710 . 30276)) (31148 -36072 (ADDTEMPLATEWORD 31158 . 31830) (MSADDANALYZE 31832 . 33330) (MSADDMODIFIER 33332 . 34413) ( -MSADDRELATION 34415 . 35162) (MSADDTYPE 35164 . 36070)) (37573 42669 (MSMARKCHANGE1 37583 . 38377) ( -MSINIT 38379 . 39560) (GETVERBTABLES 39562 . 40115) (MSSTOREDATA 40117 . 41671) (STORETABLE 41673 . -42667)) (44071 49141 (PARSERELATION 44081 . 44681) (PARSERELATION1 44683 . 46138) (GETRELATION 46140 - . 47169) (MAPRELATION 47171 . 48305) (TESTRELATION 48307 . 49139)) (49142 50782 (ADDHASH 49152 . -49630) (SUBHASH 49632 . 49860) (MAKEHASH 49862 . 50006) (MSREHASH 50008 . 50461) (EQMEMBHASH 50463 . -50780)) (51121 57437 (MSVBTABLES 51131 . 57011) (MSUSERVBTABLES 57013 . 57435)) (57520 59823 ( -BUILDGETRELQ 57530 . 58728) (BUILDTESTRELQ 58730 . 59821)) (59994 60382 (MSERASE 60004 . 60380)) ( -60383 64843 (DUMPDATABASE 60393 . 62958) (DUMPDATABASE1 62960 . 63305) (READATABASE 63307 . 64841)) ( -65925 94984 (MSCHECKBLOCKS 65935 . 69755) (MSCHECKBLOCK 69757 . 78377) (MSCHECKFNINBLOCK 78379 . 81379 -) (MSCHECKBLOCKBASIC 81381 . 83801) (MSCHECKBOUNDFREE 83803 . 85702) (GLOBALVARP 85704 . 85871) ( -PRINTERROR 85873 . 89089) (MSCHECKVARS1 89091 . 92044) (UNECCSPEC 92046 . 92324) (NECCSPEC 92326 . -92673) (SPECVARP 92675 . 93202) (SHORTLST 93204 . 93660) (DOERROR 93662 . 94372) (MSMSGPRINT 94374 . -94982)) (96128 110956 (MSPATHS 96138 . 99540) (MSPATHS1 99542 . 103777) (MSPATHS2 103779 . 107189) ( -MSONPATH 107191 . 108419) (MSPATHS4 108421 . 109503) (DASHES 109505 . 110031) (DOTABS 110033 . 110274) - (BELOWMARKER 110276 . 110739) (MSPATHSPRINTFN 110741 . 110954)) (111342 114766 (MSFIND 111352 . -111627) (MSEDITF 111629 . 112629) (MSEDITE 112631 . 113668) (EDITGETDEF 113670 . 114764)) (115708 -124309 (MSMARKCHANGED 115718 . 117442) (CHANGEMACRO 117444 . 118149) (CHANGEVAR 118151 . 118467) ( -CHANGEI.S. 118469 . 119802) (CHANGERECORD 119804 . 120675) (MSNEEDUNSAVE 120677 . 121669) (UNSAVEFNS -121671 . 124307)) (124742 128352 (%. 124752 . 124892) (MASTERSCOPE 124894 . 125420) (MASTERSCOPE1 -125422 . 126290) (MASTERSCOPEXEC 126292 . 128350)) (128391 168041 (MSINTERPRETSET 128401 . 156935) ( -MSINTERPA 156937 . 157471) (MSGETBLOCKDEC 157473 . 159986) (LISTHARD 159988 . 161206) (MSMEMBSET -161208 . 161353) (MSLISTSET 161355 . 161720) (MSHASHLIST 161722 . 161889) (MSHASHLIST1 161891 . 162217 -) (CHECKPATHS 162219 . 162859) (ONFILE 162861 . 168039)) (168042 191603 (MSINTERPRET 168052 . 184107) -(VERBNOTICELIST 184109 . 185219) (MSOUTPUT 185221 . 186731) (MSCHECKEMPTY 186733 . 187937) ( -CHECKFORCHANGED 187939 . 188459) (MSSOLVE 188461 . 191601))))) + (FILEMAP (NIL (3260 19507 (UPDATEFN 3270 . 4887) (MSGETDEF 4889 . 6295) (MSNOTICEFILE 6297 . 8690) ( +MSSHOWUSE 8692 . 14673) (MSUPDATEFN1 14675 . 15363) (MSUPDATE 15365 . 17791) (MSNLAMBDACHECK 17793 . +18675) (MSCOLLECTDATA 18677 . 19505)) (19508 20407 (UPDATECHANGED 19518 . 19881) (UPDATECHANGED1 19883 + . 20405)) (20981 21404 (MSCLOSEFILES 20991 . 21402)) (22085 26517 (MSDESCRIBE 22095 . 24883) ( +MSDESCRIBE1 24885 . 25948) (FMAPRINT 25950 . 26515)) (26610 27050 (MSPRINTHELPFILE 26620 . 27048)) ( +27100 30238 (TEMPLATE 27110 . 28531) (GETTEMPLATE 28533 . 28668) (SETTEMPLATE 28670 . 30236)) (31108 +36032 (ADDTEMPLATEWORD 31118 . 31790) (MSADDANALYZE 31792 . 33290) (MSADDMODIFIER 33292 . 34373) ( +MSADDRELATION 34375 . 35122) (MSADDTYPE 35124 . 36030)) (37533 42629 (MSMARKCHANGE1 37543 . 38337) ( +MSINIT 38339 . 39520) (GETVERBTABLES 39522 . 40075) (MSSTOREDATA 40077 . 41631) (STORETABLE 41633 . +42627)) (44031 49101 (PARSERELATION 44041 . 44641) (PARSERELATION1 44643 . 46098) (GETRELATION 46100 + . 47129) (MAPRELATION 47131 . 48265) (TESTRELATION 48267 . 49099)) (49102 50742 (ADDHASH 49112 . +49590) (SUBHASH 49592 . 49820) (MAKEHASH 49822 . 49966) (MSREHASH 49968 . 50421) (EQMEMBHASH 50423 . +50740)) (51081 57397 (MSVBTABLES 51091 . 56971) (MSUSERVBTABLES 56973 . 57395)) (57480 59783 ( +BUILDGETRELQ 57490 . 58688) (BUILDTESTRELQ 58690 . 59781)) (59954 60342 (MSERASE 59964 . 60340)) ( +60343 64803 (DUMPDATABASE 60353 . 62918) (DUMPDATABASE1 62920 . 63265) (READATABASE 63267 . 64801)) ( +65885 94944 (MSCHECKBLOCKS 65895 . 69715) (MSCHECKBLOCK 69717 . 78337) (MSCHECKFNINBLOCK 78339 . 81339 +) (MSCHECKBLOCKBASIC 81341 . 83761) (MSCHECKBOUNDFREE 83763 . 85662) (GLOBALVARP 85664 . 85831) ( +PRINTERROR 85833 . 89049) (MSCHECKVARS1 89051 . 92004) (UNECCSPEC 92006 . 92284) (NECCSPEC 92286 . +92633) (SPECVARP 92635 . 93162) (SHORTLST 93164 . 93620) (DOERROR 93622 . 94332) (MSMSGPRINT 94334 . +94942)) (96088 110916 (MSPATHS 96098 . 99500) (MSPATHS1 99502 . 103737) (MSPATHS2 103739 . 107149) ( +MSONPATH 107151 . 108379) (MSPATHS4 108381 . 109463) (DASHES 109465 . 109991) (DOTABS 109993 . 110234) + (BELOWMARKER 110236 . 110699) (MSPATHSPRINTFN 110701 . 110914)) (111302 114726 (MSFIND 111312 . +111587) (MSEDITF 111589 . 112589) (MSEDITE 112591 . 113628) (EDITGETDEF 113630 . 114724)) (115668 +124269 (MSMARKCHANGED 115678 . 117402) (CHANGEMACRO 117404 . 118109) (CHANGEVAR 118111 . 118427) ( +CHANGEI.S. 118429 . 119762) (CHANGERECORD 119764 . 120635) (MSNEEDUNSAVE 120637 . 121629) (UNSAVEFNS +121631 . 124267)) (124702 128312 (%. 124712 . 124852) (MASTERSCOPE 124854 . 125380) (MASTERSCOPE1 +125382 . 126250) (MASTERSCOPEXEC 126252 . 128310)) (128351 168001 (MSINTERPRETSET 128361 . 156895) ( +MSINTERPA 156897 . 157431) (MSGETBLOCKDEC 157433 . 159946) (LISTHARD 159948 . 161166) (MSMEMBSET +161168 . 161313) (MSLISTSET 161315 . 161680) (MSHASHLIST 161682 . 161849) (MSHASHLIST1 161851 . 162177 +) (CHECKPATHS 162179 . 162819) (ONFILE 162821 . 167999)) (168002 192137 (MSINTERPRET 168012 . 184067) +(VERBNOTICELIST 184069 . 185179) (MSOUTPUT 185181 . 187265) (MSCHECKEMPTY 187267 . 188471) ( +CHECKFORCHANGED 188473 . 188993) (MSSOLVE 188995 . 192135))))) STOP diff --git a/library/MASTERSCOPE.DFASL b/library/MASTERSCOPE.DFASL index 934af73263001f291f10b0055fdcfd8de350fd74..590dfb79db0ee521ebc7c1bbe2937ceb2d419269 100644 GIT binary patch delta 2774 zcmai0eNa@_6@TZw-DMXLS@~WKEC?xTAS?(5(3J(=?n0Lb>@EmRts)R0Spg9m@M8$+ zhc+Sg<3`>RL@~ssX40tHBwCv$wINeK+8MMT3DwD@?bL{0DQIWV38nX*x3bgZkIwAe z^E~t@4NTyv16*kZ>aXBTGy3{#SXD{=W0*OrjELf9&?$+Rc2tnX;7>uhW=nsU;tjhoUkGct3GrmVcImHT?56Uy3J8|r!vrNAB z)+#fflj-~2o2w#wpXWGkccsTLJN0(1r>^qT8qeI6Y}ZkiJJD?S_rx|750oJu?zBWq;-mSRzfj5=;`$rk8H>9_UwBSc<;A z+(D79$Zm03is*ta8l>H+f2?|%vfTmS+vO@+PY*Di0lFiRe}Y>fYk z(%dhRo@KBP;jK0_x5<;2KZ9If-XBweH|6*m{`7kujKuUwL3Hx7Y(*Uapo*Nl+3wSt}&3YJ8%xT>Pq z;ucXf>w)}jI+nEl^Jt8j7SMSaEi7d41to$kzqUfra*(hyEzYlbt`&osoV=Ea5kV~q zO(TL_{)h+Hl6qNX&5sxXLkw=157VRt*r0h<{pSGuC;;~b;PU~9#o#Edt6m#mzr`Rt zO9#~h#2VIw>L2qFs#5{@a|M#$e(_VVlgjJ6=rc`R&!J=ZWK<|i<(W-;7#T#)usX-=Oe}kpggyKU%u^MiPrwzc{a{cLd-Tf0*Ic#xxeD z!sX=%gZ>E_e04rUr8Fs#*KfTa$};!~e~Gr+OJk6Df)QAPPxoubZrf4ga3fLUF8Vd? zoi*8It%~D+mM57f>@Gy}LH^+Sl?-tt1*6IqqmjtAI~R1g#oX&Ep0uSbCGB4ZEi%J$ zC6D6{VqmH7Ctr4eP#Vk;{mBTTpL&(<*gI2C(@|d;NwTIFfrD75o9OnwHQgL%=5b>< zqEcpiSjIsfzndDpmIHSFDx6|6?xqzrMF5#w_6GskbDvB=wd@Fjpe~x|acVU*f+P z3G}60Ia2`lN!N^#jsr6}bo|52-C*a#W)0-ReF+S{xCeJM5HD*1mgy3BJytTxc>t?( zlZ2?jO+qxIKqtf~k`RmbWn`B|sW?EC>?Oc{{emqwLp~1Rg(2C_!wPCTc{mO>Iaz>0 z>NN?F8+w>+-}_i;SbkH0bTG?T1n8oAr3zl4=Bf&Iz(KiI4NLGX($r(LB=@P|?@%o_ zXlU&Ud9Ma65<5r2YS zlM{kq1LU3R4T4liJRsmL!_5j>lm`U7>A@x_r&E^CX<-<~$*Me5Kpt5D`Mr3>!4(#Z3!@Z$3DX)nXPVvtZr*(W5?F|w)V#76q0BtuXdNX9m-j|L|rZW@|8=D zS|(Lim56ReIz&sg=yuokMY2rVtL7qoCzRg(SHZA%fMbt*T^niZE z6N(gL#@x^4XTo789F-@-VLg3gZF-Qj1t<*(ZgQbV8s delta 2660 zcmb7GX>e256@KSEt(FXye7Vt-gAZZqra-r z-1D9DedpYx_wJ&;L#l%ZRWIi+bp~s;EeLODZrfmwG_+K%*;(#Mi zZ}&QaAvqANs`bl7^UIQgYdhK+o2^f@Mw+dSZOsks%}rKoWudEiRbgpyX}Psz-Xou6}(Y-NH1u6T3bdwTc(`Kt_j=4xfQVkhbz)7#dVP>-`(C7X{fuP7wG4YnG{B*T;d*C zdZH{hFWS|q_B*O-W@S^9~wRk zKlaJ{`$Tw~Y#wTa0rJYQJGoIkV87-jP=z*(=7m1pawTxX3xkL{$ibF&obC^>z0OXhv1&%^js1~ZYn zPnMsX4&RdP=d70humW#m_*(|IBOFUd7 zSI#7sr`=6!=O}d&q><7q>8RJXauK70asA_0^1w#6UrDcLS(-u?h8_mB6Jqrz3HV+D z?o7aE5^x2Bu%8azzW)}H7tW#&y}*)&@GLDHuT@@K?m(Qf6s zri9LyfHn@vpGFSlF}3ri@3^(5~vO?l# z@sy8lPS32nPh$QV>*8APgAa$!JrcZD5@cczGo`7`F^P(XUD9`n^14ZaU;1u_7l@aNkngx zByo;Bd1oQG$k96i(WN3M_M1uW-D#ON2_LLlEe zhsO(GoP0KJrQ^Nvaypj$dn~E$L5ta>=$;Rp(Pldo~{xA(Tpeo_U)9aE9WX^5u&h5IV{3#YA%TI2XHAbNU)fC zrzMzY+{2#xJ6Ne#Nl`%&*p!7T=%D<73SOjUks7u_k8(^6({N#E8d2?4zEs0MA*>8( zXzg0%js_e?wy2~ZA|F;9T1YQs8$i4qeYsQPs||P^xRB1FU>{?Sbk{S}gOLK|SuL!9 zd4peQAs=#ImGC4HzLRuFcS(4Bu%Vs)3u;`uu6Y5@;SPD^a*A{w*|9_p zh3bo0n&vM#XolEMn&fgT$|Ojhvmr`ECS})It3e<(&awv@wTu)y;?>oM=dll1U zxC_0CHU&;*Eb%iHn>2uJmKhk9>f(c9G%8I={deS_bS6_5Rk^d|Ng&k#Tfhm