From 9e4d37efd795b1f9d99e519ba4d06a5b617435f6 Mon Sep 17 00:00:00 2001 From: Matt Heffron Date: Mon, 9 Mar 2026 12:14:19 -0700 Subject: [PATCH 1/3] Most of the --option uses were incorrectly converted when making loadup.1 from loadup.md. (#2528) Most of the --option uses were incorrectly converted to an en-dash instead of two hyphens when making loadup.1 from loadup.md. The en-dash didn't display correctly in the shell, typically as u with ^. Edited loadup.md, and regenerated the other changed files using publish.sh --- internal/loadups/man-page/loadup.1 | 68 +++++++++++----------- internal/loadups/man-page/loadup.1.gz | Bin 4249 -> 4213 bytes internal/loadups/man-page/loadup.1.md | 46 +++++++-------- internal/loadups/man-page/man_loadup.html | 55 ++++++++--------- 4 files changed, 84 insertions(+), 85 deletions(-) diff --git a/internal/loadups/man-page/loadup.1 b/internal/loadups/man-page/loadup.1 index d31156d8..25e88f57 100644 --- a/internal/loadups/man-page/loadup.1 +++ b/internal/loadups/man-page/loadup.1 @@ -114,8 +114,8 @@ loadup is run. Only one instance (per ) of loadup can be run at a time. There is lock file to prevent simultaneous loadups in the work directory (named \f[B]\f[BI]lock\f[B]\f[R]) that can be manually removed. -The lock can also be automatically overridden (see the \[en]override -flag below). +The lock can also be automatically overridden (see the --override flag +below). Alternatively, if a lock is encountered at run time, the user will be asked to choose whether to override or simply exit the loadup. .PP @@ -130,7 +130,7 @@ But Medley can be installed in multiple places on any given machine and hence MEDLEYDIR is computed on each invocation of loadup. .SH OPTIONS .TP -\f[B]-z [+], --man [+], -man [+], -h [+], \[en]help [+]\f[R] +\f[B]-z [+], --man [+], -man [+], -h [+], --help [+]\f[R] Print this manual page on the screen. If the \f[B]+\f[R] parameter is specified, then no pager is used when displaying the man page. @@ -138,7 +138,7 @@ displaying the man page. \f[B]-t STAGE, --target STAGE, -target STAGE\f[R] Run the sequential loadup procedure until the STAGE is complete, starting from the files created by the previously run STAGE specified in -the \[en]start option. +the --start option. .RS .PP STAGE can be one of the following: @@ -175,7 +175,7 @@ Full.sysout is copied into the loadups directory. .RS .PP a, apps, 5: Run the loadup sequence through Stage 5 (apps.sysout). -Also run the Aux stage as if \[en]aux option had been specified. +Also run the Aux stage as if --aux option had been specified. Apps.sysout and the Aux files are copied into the loadups directory. .RE .RE @@ -185,7 +185,7 @@ Apps.sysout and the Aux files are copied into the loadups directory. a-, apps-, 5-: Run the loadup sequence through Stage 5 (apps.sysout). The Aux stage is not run unless otherwise specified. Apps.sysout is copied into the loadups directory. -Also run the Aux stage as if \[en]aux option had been specified. +Also run the Aux stage as if --aux option had been specified. .RE .RE .TP @@ -245,22 +245,22 @@ If this stage complete successfully, these files are copied into loadups. .TP \f[B]-i, --init, -init, -1\f[R] -Synonym for \[lq]\[en]target init\[rq] +Synonym for \[lq]--target init\[rq] .TP \f[B]-m, --mid, -mid, -2\f[R] -Synonym for \[lq]\[en]target mid\[rq] +Synonym for \[lq]--target mid\[rq] .TP \f[B]-l, --lisp, -lisp, -3\f[R] -Synonym for \[lq]\[en]target lisp\[rq] +Synonym for \[lq]--target lisp\[rq] .TP \f[B]-f, --full. -full, -4\f[R] -Synonym for \[lq]\[en]target full\[rq] +Synonym for \[lq]--target full\[rq] .TP \f[B]-a, --apps, -apps, -5\f[R] -Synonym for \[lq]\[en]target apps\[rq] +Synonym for \[lq]--target apps\[rq] .TP \f[B]-a-, --apps-, -apps-, -5-\f[R] -Synonym for \[lq]\[en]target apps\[rq] +Synonym for \[lq]--target apps\[rq] .TP \f[B]-ov, --override, -override\f[R] Automatically override the lock that prevents two loadups from running @@ -300,14 +300,14 @@ contained in the working directory. If the \f[B]+\f[R] parameter is used, then instead of deleting just the versioned files, all files and subdirectories are deleted except for those contained in the working directory. -If \f[B]+\f[R] is used and there is no working directory and -\f[I]\[en]tag TAG\f[R] is also specified, then the tagged loadups -directory (/loadups/tagged/TAG) is also deleted. +If \f[B]+\f[R] is used and there is no working directory and \f[I]--tag +TAG\f[R] is also specified, then the tagged loadups directory +(/loadups/tagged/TAG) is also deleted. .TP \f[B]-th [+], --thin [+], -thin [+]\f[R] Equivalent to specifying both -tw [+] and -tl [+]. -If \f[I]\[en]tag TAG\f[R] is also specified and the \f[B]+\f[R] -parameter is used here, then the tagged loadups directory +If \f[I]--tag TAG\f[R] is also specified and the \f[B]+\f[R] parameter +is used here, then the tagged loadups directory (/loadups/tagged/TAG) is removed. .TP \f[B]-d DIR, --maikodir DIR, -maikodir DIR\f[R] @@ -328,38 +328,36 @@ commonly used in running Medley in the absence of an Xwindows server. .PP The defaults for the Options context-dependent and somewhat complicated due to the goal of maintaining compatibility with legacy loadup scripts. -All of the following defaults rules hold independent of the -\[en]maikodir (-d) option. +All of the following defaults rules hold independent of the --maikodir +(-d) option. .IP "1." 3 -If none of \[en]target, \[en]start, \[en]aux, and \[en]db are specified, -then: +If none of --target, --start, --aux, and --db are specified, then: .RS .PP 1A. -If neither \[en]thinw nor \[en]thinl are specified, the options default -to: +If neither --thinw nor --thinl are specified, the options default to: .RE .RS .RS .PP -\f[B]\[en]target full \[en]start 0 \[en]aux\f[R] +\f[B]--target full --start 0 --aux\f[R] .RE .RE .RS .PP 1B. -If either \[en]thinw or \[en]thinl are specified, no loadups are run. +If either --thinw or --thinl are specified, no loadups are run. .RE .IP "2." 3 -If neither \[en]start nor \[en]target are specified but either -aux or --db or both are, then \[en]start defaults to \f[I]full\f[R] and -\[en]target is irrelevant. +If neither --start nor --target are specified but either -aux or -db or +both are, then --start defaults to \f[I]full\f[R] and --target is +irrelevant. .IP "3." 3 -If \[en]start is specified and \[en]target is not, then \[en]target -defaults to \f[I]full\f[R] +If --start is specified and --target is not, then --target defaults to +\f[I]full\f[R] .IP "4." 3 -If \[en]target is specified and \[en]start is not, then \[en]start -defaults to \f[I]0\f[R] +If --target is specified and --start is not, then --start defaults to +\f[I]0\f[R] .SH EXAMPLES .PP \f[B]./loadup -full -s lisp\f[R] : run loadup thru Stage 4 (full.sysout) @@ -368,14 +366,14 @@ starting from existing Stage 3 outputs (lisp.sysout). \f[B]./loadup --target full --start lisp\f[R] : run loadup thru Stage 4 (full.sysout) starting from existing Stage 3 outputs (lisp.sysout). .PP -\f[B]./loadup -5 \[en]aux\f[R] : run loadup from the beginning thru -Stage 5 (apps.sysout) then run the Aux \[lq]stage\[rq] to create +\f[B]./loadup -5 --aux\f[R] : run loadup from the beginning thru Stage 5 +(apps.sysout) then run the Aux \[lq]stage\[rq] to create \f[I]whereis.hash\f[R] and \f[I]exports.all\f[R] .PP \f[B]./loadup -db\f[R] : just run the DB \[lq]stage\[rq] starting from an existing full.sysout; do not run any of the sequential stages. .PP -\f[B]./loadup \[en]maikodir \[ti]/il/newmaiko\f[R] : run loadup sequence +\f[B]./loadup --maikodir \[ti]/il/newmaiko\f[R] : run loadup sequence from beginning to full plus the loadup Aux stage, while using \f[I]\[ti]/il/newmaiko\f[R] as the location for the lde executables when running Medley. diff --git a/internal/loadups/man-page/loadup.1.gz b/internal/loadups/man-page/loadup.1.gz index 2ae4135e32a7293ea502b01bcc83191e2f6201b2..e808af775aa6efe08e5fb8afa9e05dc4be6385d1 100644 GIT binary patch delta 4194 zcmV-o5S{OtA@v|rABzYG_g|`M00V4qVPti1E-?VL8{2Z@w)Guff$>8}no9Jpy?&^h z$&7E=Xlk!Lw$o(C_5(#i61o(jB}m&!+kfx503=9JUdNlxWG#sV&ixLNSUi8gS&n37 zbv~CTyh7)=2ryXMUM}KN7Aj9w0pGP9NkAe^xlqNEwn`q;u1G{$$({Sz-O2I8GkiSk zJnzW+f8UEp&dLI?ANy|;c|7sokDJHG{QUmEB2rmv=gD=m^(5GO67D_mo8wewBD(!q z?qnuTtJRL&c@O{izw0UoCX|1?P-&*tl2^!8VG@;Ag#v-)3lZJ?EI%DxoQde_N&qXz z54;Y(UO&kDJGFd}MU`6_ZvY_iI^dJMR7IxkiU8hx{&abDGr4Ji{%~=2dVco#baMUU zu1yNPD(!BF=uVndsSV({|4S4_;(_3tp52^WPp)n!m!AmKH4&0!5)gl{;-ZvhMjUR? z{W6V_xP?s{>}U(N0k%~dnG_1lj9}XmOdu{&Y1h_NU{g9%R?Z5u6i*ACEaci$GKq6s z2o%L0n^o2VLo&AVNdd|5Np{o#BuIixE(Y{~dsby=ks$9JZImHJ;%Ekh%Oo?wQ=&kA z)aB3B6vYwKnq~Y2mso#2&-DzP1}r>T#Q7X3E{zC`0az&#H6r43#Y`8@UN!^+?*@e$ zvQQ9;RUIxOQV&WsG0Rn^${r|-c(qcXKVa|xr1P~>d8y+JAt8NFx?D&VCksIjWU63w zirjz@ZIvV-Pn3^CfTDHUUlr<6o60gIQZArFk(N)!2|YLYcoTo;;HY{g4?jH~jwGv- z@d}eeyfG}0Hp&|!?}HowHCe<~F=PRJ_R`EvN#aCXJ#g4YZI+%;?=741x)6;4qV>Y# zLOz+|3!5!i*u#QVl4-uN4nQT#sDrfd03L2 zus0zm?6gfd^oD;_8k1RoZ@v(*WE_Ht)1f(8S>tYurOyr!18mc1%m4xGC#{mwB2$MV zx`voCxq>Jc?Z|x&Et6cAhfJuG8aN~Ipy5rFX86JH192m(8fmPT(BnD?XbcuPWgX;; zmA*&R!4lLjOIVPExAA#>){wl{kbI%j?G%rfI(246YXW~tgI6`7WT?H=?g!M0&>mhx z?S4b;IfTqMxkM{P(iWZP%@go;Oc_g{dWpJK6sy^0?(dSX4-i7DJVBp|GhK3a0{Vbr zfx&dDm^*-i)J|gyd?0H+HpXBtV38}8j#KlLccN~a7TEen+5gb6{}Z@*5Bq`lJNAES zo-q5Es9b-7y32rN7c%efimwlCk%(==K-xLRfgHhY9e9#WC=Lh4v2WYNyn+9NhX140 z$}<0lEdf9{w`~C&HBSIjl2s}Avx3TN4Yd>yiN#hx)+(!PP@o6^m_g3sGT^u>OZXhg zlk>})k-Ro$>8i0$rc?=t(K?b{EWuc>a}Kc(QG9Ot-~@l?+p>6AW(K4Bu#HUeWEeBpnnl;*9xQy;1a~&)sRIvvk;#rUMO7*@mq}2cm4#7-VW^v96wi zjg4VO;;hN~rnN54tf}=D%e2tbX{I>GCD4DvKyF2Oqo6@E5T_wZgG5)D9+5;W$8@WI zQ2C=SOukgu0I{8hP?<|c%dBpb`bbUz3$7G}q9h+b#yX1;l0(^%4Hvfociu@|;W?Sf zKp$*!bI9lc$`ZXLu5)})IE7Mo5@;}E-wDge=mDb6XNHZPi$y0%_6)>`E~?9s!0&(4 zBFxYhK-!lKYA1a&#Eio@%8?4E+{W$|20 zRc4;R^NupAgG&9VGEh3WPR!teRh1{E!a4~vE0^ae3^EOjs8D2U@cgL~vHjxOz=bhj z<`8MA>b;x3=4U-KAjWZ9ONj}DfCgaDF0HS|k150q# z9f=7gaeVKbsx&K^fwr>1c3c2(?n>5?Wo&4u1ko~9yHW|Zh~7?IeNWn=YV*;c5ZLoD zBHHzGY9K!gD3-slvlq&mjMO;E+r9EUGt)Th(tttFiFmiN1;kCz@UHf4`R>y7yO8@m z7tU}TAa+|PG4E{saz(+~ z2@K+p0>7RFbBw>b5k_2qYoYW}^Q`UO!)!YEY~Kyw%BfywH!ge1RCCZEmeC=RnQeW$~t}G zpF&+WlIWx(x&K=7_T?bx5r=Q@$=Za>MpOchUE^^KPuSj}p#*<{SkX8}yWetS69Rv-QFQ)c&c@6dd>oA5 z%-n5@CpR@gW~&_Nv%y$>3s0|8&G*T$X1@-R)wh8Jlq3Eh6 zWSk?t=tTM#BlUNo+7mtD`{mI4UHJAzD;|F%xPBL^528CA-*B_%5j!V*z~6SofnMx` z4Z<5S29NZu!<9+X75V$-4e2!||9j@fR%|{l~$#;NZFqIAafJ>>%Oi!T2q( z%;PBNbK!rx|H{CQ`kG|rycIfL>f~HUZ)rN}GYExQH#inyub-_O)5Esf=WOgdvA)0- zJ;C0(ucz+x(E|JU*Y(lZK(~67xxAB*X5@e5_<=i>;E8mN)$!Wr18!0%(%9gD%I97@ zKjPTrM`ML+9dQmI+TFCvWAK15eWOJX!Ca-g zAOpgVvcSTgjEK(@Ou@RU`z9RsphplzZUZ91i4E{cj3-r5fPLVAn-v?(txRjEHUc#z zYE@$0Fz2QR3lGxUtl+)DQ-h;??NpL1pvg{Lk6kFI z5E@7a+qsfmy74;CN%(jR-U9TM;X_?E)B)J<5cE5*Xt?7NhdUSz&wE3Y&l9xs+&~Nm zNw_baF1%K(vk4xfrp6ye;#AFoJJ?pb5@CO--?-S5pH|?M*Z-)$I}cM3s8oH#D$M4|ngze`93ybLgCd>RA1X zu?UVnoPnbuDv&c+tw${XRapuSqQOoGMq7v;P>=&^osYsVTTT6Yt*oF4FHg~iNC1DK zqBf!tZ5E0)3q+f}MYNk`|96SjIWZ5OAtw8wU=xQn#PWYs!%MQ}Lok+aK(-*VG(1liRtgX9~TF7hay+bpAPlsLur&8Ke?6@X%F% zF#yi}4u7&JegV6{F|WHb(CCv7v?#ZLjMTGAD!iZs)yLohfDHL4)mKFI{Jf|0>93EV z%CevU4lAIHs_u&W#{A;qX!4IsB-9PV{e=_q986Csrp$U3ok=1ZsFQ3NNZNmwKNl#8 zfL*KNB3TG`g6G%?afRZgBJ+{*5Bzm02Q2Y1W{W!4IW%JfK7d8L`t|1g@jaOae%l*j zDOKW;mZhsG5vk!ffK{JvISSl#TBcROeUSEtOHokFjrz6_@fE_Azv?_SPu2|vycU+m zmi_`A)FEz>yx|%I31L1S-{XHZFZ6w)P+QSHQ{T9J=glCVS{iv74AAnoCx-y4T?lHC zyR7)r(J$w>H}#DK$C0fCap|r&V(?PW<+!=5K;h3U6%6H|SP zC#L@R7MDT~Fx7Nzgs#wKY91$bt?TYu;*>1g7}Ycs78M5Jg~`&^9SVQ9q47O27^lN# z1mE1mn&2FYr$N4{8TkoX-RM&kf>xPAdnbq<)+31bN91L>(p01Q5(SFCI;U>#udk2R zJ%QOAM6tz(ePBK0d&e}g{kH}qNYOD-)FEg)J$ch>#hm5c0HnDF)?$!Ja16SJFoZ~j zo?lJ#%mOD4@F6J5$8~=I_ONQjg6-79hI&fUpaBQaP{OjiN8!z{$*cwzHaOkw7?^6@ z?rDHrw2_B*t0uD+oGykMb%ijIwcjR&n4+!Mg@*sg^aY%Dx z_r6>dRsVrO=OByXF#ht#9NgL2?r}#C3B9)W3VPb(H2J5|a}a-+eH;7cEH)(QK(uE4 zteXwPn!^-MV;Nk`g%l_QDDT`gh+&(JhI* zK1tuWoZ7F`x)PyEdsk<>xq709J#zJjCxQeV2-mPt)R*Gi`uaeF?k8u8XRj>9E%;&& zAZgz+!Ged2A1r@EET0*7@0xG%n-@5dT~5$Ua8DmB8g%_ZSg>d7DNlIkq6gLZO}I`Q zYuJJfBF*tHAKi(FQvM$P#M(;PL;1s^ELZk$cXtj!yP8IjrgtZuYYw}b7XL`VPA;!L sUr#>%d`l2dpqVf9d{GXPq1=17cYr-#^M5axVlMs%X#oZT1ROH}0Or00KmY&$ delta 4205 zcmV-z5R&ipAekXpABzYGwbGnu00V4qVPti1E-?VLTkCV?EdxvkyAW> z&{>XTWpzH6Cp<#uI0$C2^m)06OIfHqRRvsYJCZPoH044SPuePZOkYJJ(n{{!&+bl+ zAD-doVdr^A-v9evL~>RZF#EB;n#kjczdmjrAM^A3|B6UutuIfmn@>-IPfx;cPyEMm zDl-w?ev&(xiPLJeBX{1zKmPB!%0UQ!B`;K(skP)0a#ff_rB$IoVfjKtH=pF^ql+^U zU0n$f<@kZe!R7UXyuVY+2U%3PmGK4vQm-RE$xBsa+OCM;&6m%YS2vTJhUgC$XQ$_9 zUrs02KknM3(5uq!h7;XMvnsWLdG7xbMUi+QI;UqhC)bm!+sWl;B6UrSWSN8@iC1w^ zN;4w~H~4;?$4K15M;qd33$_8aRT`NT3e1dXldJ(9e;f!L#eO!ctObE&Y~_;zmf@G| zs3Ay{1esh6)5F}eDnp9|edlPSOeqpaGhkdMnF*c}2lAsXKUGsyM@(au@mCyT^*q-z za2l}iWD)0c;J7p*Fa{8%NYsd!&lL+@ID6Sp47?i@YRF1KDpqx*h-i6GtBF~zGFA3a zS;VWAe}eS`0S`bs-zt@tI?j+1^7o|6g;a5}5cEK%3Pz_W4Jgr8Ndo#r{kREGwQluS zg?iMcvP_8<7p6m%mQThhJvaGybI!q0^-LaqdORFSUQV7@m>lrNutM5X-Vl2qu#QVl4-uN4nQTo&j8F@~|X3VQ)f7*l8O$^oCR#lUbl| zz7n%!9D-~@R>$q1`1$5X_b@~g*p_`HDJo*3Q#WEk^2lSlU$dF zf6S=U8aN}#py5rFX86PJ19hXQ8hNaT(Bm2eG=fD=Q3vJXMc*UtUeQJPjR`mnUe%0}q4sjSA8;!|d)S8C{f66ffXp_##490bi_i1s z33xk(j3scr#I;p~)oe5OcgeR0fY2&Wf6%AmOqU#;fIr|^Aec@SO9xbt+i7e;4iwE} zV+{5J7P(UCI5kgs2X))Lz^8vy{11)zKY^R~h#z>r6aS~?35$<`$_1#q3`BO2d4E@Y zduXdfyrc}|oiPsd2yW}hlWszFI5JLr+h*ns@*gzvAFWoF!u%e}S2j ztV+S36=Ys($fbZuOtu2HR#|0(1VsSB3}P0i0moHY!tY3)oL}CINct z+|f?yG4u%ok+u;S!-5S6&6{4Sf9I7cN*jTV@EaFKZz;GUfTwX8gV}o#7}J+aa(7yO zpq^7)Z~>(i*}>ma4u$KDaPZRlcO^SLZVP4`$xtb(h&+#t2yA%4D>OdHiDC-?1xz$@ z)v*gw`55ee{TsP;?K6S}ktm3_rnF;1kr=pWJd{22Zfo>lLFb&Uq(;?#f2$$rpn7r6 zn6K&&MPK;bomM(ahdp6BSOH4gu(aqUE1{ zTIlICQyk+Gs9_+sqP|hlurh$tfYPAR6^2J-5z{f^rZy zQ>b;Pfo5i`J7E|ZJy6v7%&@U@vgkC)o`Ex>i|TSD@OoOrIgCNf!dqCSvcfpd1t(^c zE@KKME$IOis)Qq=S#4x(kRcBK-m61}Oo6rUE163$11N?_+he^9jR<TE|Web2#Sma&pEA!o@D|sROdnuglI6~~RXrCGo0CI>J zun@yvoUg&nz<$BXk_EPWFxZ0EgM-xi=cup*AE(TjizXD5(~ib(BI-X}QtJVN{;g|c zjDM4Ne|;FqfAJVh*cjbZIt%lQ#zwj^r6=>BJ@a5Uj(^vp-**cS7+|Ne~L$RfGL?!Eio*Ts2!g>E!;4Q zI4c8x<1d`GAU-;0n3)Wa0T?)JQe5|m9#L5}lJ5`Yb-Vk);wA_;g{kHXS5v*0gP>#_ zqS-eEB#2Fc0_rVSFKnB2x7k{bpm2gk-rJU|J?1JX4;^Qng7Ht`E*nX7)sfuamc4yB z2#Uqwf7^?*HY2kU<$@#mVOvHvnl^8(lG=>KP?$jJGm;0}GIAgXLHR^c%Qg)->`J*# zj>P~*MjyjNHhCy6!D|398uw_|Uao~gbT$&uKP=psrGuY?@tftlZHeVNC@6201AjJX zvA-bGcB}KmO~~`s8N67=JN^6Ly7{oNoM`fT%#&3*c8zeNPidTf}cRZ zi_2s&lJDf9d{J+8yqK!FrZ$Ifg>n9ps#y$qK)=~G(Ei#K-K7ZyXS^33ynhw1ziX;J zf6)WtuLJOR&9^UFsQfz+`(0Cg5Zz|^hMPTOG6K#CKk&DmdY~hFyg_;+p21K0)?Uk` zDUy6S*=qWXxSRa~ggOTd)2b=TkmBET+Lqw-_;&?(rKLi7p?3Ql{SB&Dc@;gpYUGtY z#Q(f^IJVABzFrdKP~Vbp(Mx zu+ZPG%Et1#RldySorJ(6|0Bl_T*L%Vq^r4(*FHjU{X*DdgB>g%jd6pC(aQJE3RhTS zmq4^@Z5Q8q+JCL!+EG%sa%&h0`0?#G@4~|I-~xCP>HB(*pn|zdcR>dv?VpYAS&&n3A||2S~YE zK-Ileg-&oA7D5DW$5wdE!zS>J9pNgh;Jv|Zg`<4!mLyp~{hhe-yHIXHf2d;}e9r0Z z()HiDi^BU~@D`}A4Db4~p$@=)hp@i$idsJ|l(?PKa6>pW`8+{8&kdkDXu@4|3iNtm zolS6`H8p;>65DPT+`+a2mJj|qXXN({-(Zm9;N`RRJ{k~{a}DSw|qTB%LBve>+#e{eZ$@bbnXshr4&nE1~sw{znXlADgMlUcuAdmxYosYtut)~9HR#s38n0stPWPqlk!lF@a7OFN2 zRGYm;wVQ>&cd6DnF?Xf`lYPsu!J!Sc{2!O$HC^*A8S6J-TM*lFe@nJQmVFm3_O%lu zQI8$esih0ibA->Pw~Iw+AL27cZ+RFaK=ffvwa=Uup*aQC)ELv*w@N?8nL``qjQWF9 zKso7roy2y==~c6pfOWee(52W|e#yn?3%dBdowbfG>g|I@4XK0=xG}508X)KH!&_$U zXRr=z1-qjK%_{J|e-}jh&MEzM3H4ZPYLVnS8o&X=VV zD-kWjuRyEb1alm?_O(o_g6kvg_n@L6r5p8qLd;i4SN@{&)I3?&Fz~CeG`95T>>wL) zgX9foBFG5K@%SE3gCPPChuVtv*89d8J#Pl_)KWLhAWX|&pWFnH^8&O*?o8uPM?at6 z-qZ&doJ6)(f5fFb35gJ!^j>uqUjj{cSK#hfR;ZIkPpv z78N&&f&yn0boNJer;ZPN&|Nwuyl-F?)6@L0?o_-#e(V2;!Z%*{i%>r(G_UqBb)%jUq9FdDw+;Na& z%bf{Q&>=OY-TQJ;RQ($goxL(ba=i1~C|n`h?siHK3**pAed~G)e%g&X`KR%7(Dsft z1DlOr;z{)GCGaYRJ$`?yzEy`C?BXX&-9A#EFwAOlK@_PIr&Czu-NuNFuwEp!MQ6eYB`;_6KRfH!p4^ zXNBiGdZrq`X|B`8AYPaa@aFjEk8a0BDSzyLVr`}Dq5NS{mMeR>yE_L+uci@%``t/loadups/build). T If \ is a git directory, then a file is created in the loadups output directory called *gitinfo* which contains the git commit, git branch and git status information for the directory at the time the loadup is run. -Only one instance (per \) of loadup can be run at a time. There is lock file to prevent simultaneous loadups in the work directory (named ***lock***) that can be manually removed. The lock can also be automatically overridden (see the --override flag below). Alternatively, if a lock is encountered at run time, the user will be asked to choose whether to override or simply exit the loadup. +Only one instance (per \) of loadup can be run at a time. There is lock file to prevent simultaneous loadups in the work directory (named ***lock***) that can be manually removed. The lock can also be automatically overridden (see the \-\-override flag below). Alternatively, if a lock is encountered at run time, the user will be asked to choose whether to override or simply exit the loadup. Note: **MEDLEYDIR** is an environment variable set by the loadup script. It is set to the top level directory of the Medley installation that contains the specific loadup script that is invoked after all symbolic links are resolved. In the standard global installation this will @@ -61,12 +61,12 @@ hence MEDLEYDIR is computed on each invocation of loadup. OPTIONS ======= -**-z [+], \-\-man [+], \-man [+], -h [+], --help [+]** +**-z [+], \-\-man [+], \-man [+], -h [+], \-\-help [+]** : Print this manual page on the screen. If the **+** parameter is specified, then no pager is used when displaying the man page. **-t STAGE, \-\-target STAGE, -target STAGE** -: Run the sequential loadup procedure until the STAGE is complete, starting from the files created by the previously run STAGE specified in the --start option. +: Run the sequential loadup procedure until the STAGE is complete, starting from the files created by the previously run STAGE specified in the \-\-start option. >STAGE can be one of the following: @@ -78,9 +78,9 @@ displaying the man page. >>f, full, 4: Run the loadup sequence through Stage 4 (full.sysout). Full.sysout is copied into the loadups directory. ->>a, apps, 5: Run the loadup sequence through Stage 5 (apps.sysout). Also run the Aux stage as if --aux option had been specified. Apps.sysout and the Aux files are copied into the loadups directory. +>>a, apps, 5: Run the loadup sequence through Stage 5 (apps.sysout). Also run the Aux stage as if \-\-aux option had been specified. Apps.sysout and the Aux files are copied into the loadups directory. ->>a-, apps-, 5-: Run the loadup sequence through Stage 5 (apps.sysout). The Aux stage is not run unless otherwise specified. Apps.sysout is copied into the loadups directory. Also run the Aux stage as if --aux option had been specified. +>>a-, apps-, 5-: Run the loadup sequence through Stage 5 (apps.sysout). The Aux stage is not run unless otherwise specified. Apps.sysout is copied into the loadups directory. Also run the Aux stage as if \-\-aux option had been specified. **-s STAGE \-\-start STAGE, -start STAGE** @@ -105,22 +105,22 @@ displaying the man page. : Run the DB loadup stage, creating the *fuller.database* file. If this stage complete successfully, these files are copied into loadups. **-i, \-\-init, -init, -1** -: Synonym for "--target init" +: Synonym for "\-\-target init" **-m, \-\-mid, -mid, -2** -: Synonym for "--target mid" +: Synonym for "\-\-target mid" **-l, \-\-lisp, -lisp, -3** -: Synonym for "--target lisp" +: Synonym for "\-\-target lisp" **-f, \-\-full. -full, -4** -: Synonym for "--target full" +: Synonym for "\-\-target full" **-a, \-\-apps, -apps, -5** -: Synonym for "--target apps" +: Synonym for "\-\-target apps" **-a-, \-\-apps-, -apps-, -5-** -: Synonym for "--target apps" +: Synonym for "\-\-target apps" **-ov, \-\-override, -override** : Automatically override the lock that prevents two loadups from running simultaneously. If this flag is not set and an active lock is encountered, the user will be asked to choose whether to override or exit. @@ -149,11 +149,11 @@ working directory (and all files and subdirectories it contains) is deleted. files except for those contained in the working directory. If the **+** parameter is used, then instead of deleting just the versioned files, all files and subdirectories are deleted except for those contained in the working directory. If **+** is used and -there is no working directory and *--tag TAG* is also specified, +there is no working directory and *\-\-tag TAG* is also specified, then the tagged loadups directory (\/loadups/tagged/TAG) is also deleted. **-th [+], \-\-thin [+], -thin [+]** -: Equivalent to specifying both -tw [+] and -tl [+]. If *--tag TAG* is also specified and +: Equivalent to specifying both -tw [+] and -tl [+]. If *\-\-tag TAG* is also specified and the **+** parameter is used here, then the tagged loadups directory (\/loadups/tagged/TAG) is removed. @@ -168,21 +168,21 @@ running Medley in the absence of an Xwindows server. DEFAULTS ==== -The defaults for the Options context-dependent and somewhat complicated due to the goal of maintaining compatibility with legacy loadup scripts. All of the following defaults rules hold independent of the --maikodir (-d) option. +The defaults for the Options context-dependent and somewhat complicated due to the goal of maintaining compatibility with legacy loadup scripts. All of the following defaults rules hold independent of the \-\-maikodir (-d) option. -1. If none of --target, --start, --aux, and --db are specified, then: +1. If none of \-\-target, \-\-start, \-\-aux, and \-\-db are specified, then: ->1A. If neither --thinw nor --thinl are specified, the options default to: +>1A. If neither \-\-thinw nor \-\-thinl are specified, the options default to: ->> **--target full --start 0 --aux** +>> **\-\-target full \-\-start 0 \-\-aux** ->1B. If either --thinw or --thinl are specified, no loadups are run. +>1B. If either \-\-thinw or \-\-thinl are specified, no loadups are run. -2. If neither --start nor --target are specified but either -aux or -db or both are, then --start defaults to *full* and --target is irrelevant. +2. If neither \-\-start nor \-\-target are specified but either -aux or -db or both are, then \-\-start defaults to *full* and \-\-target is irrelevant. -3. If --start is specified and --target is not, then --target defaults to *full* +3. If \-\-start is specified and \-\-target is not, then \-\-target defaults to *full* -4. If --target is specified and --start is not, then --start defaults to *0* +4. If \-\-target is specified and \-\-start is not, then \-\-start defaults to *0* EXAMPLES ==== @@ -190,11 +190,11 @@ EXAMPLES **./loadup \-\-target full \-\-start lisp** : run loadup thru Stage 4 (full.sysout) starting from existing Stage 3 outputs (lisp.sysout). -**./loadup -5 --aux** : run loadup from the beginning thru Stage 5 (apps.sysout) then run the Aux "stage" to create *whereis.hash* and *exports.all* +**./loadup -5 \-\-aux** : run loadup from the beginning thru Stage 5 (apps.sysout) then run the Aux "stage" to create *whereis.hash* and *exports.all* **./loadup -db** : just run the DB "stage" starting from an existing full.sysout; do not run any of the sequential stages. -**./loadup --maikodir ~/il/newmaiko** : run loadup sequence from beginning to full plus the loadup Aux stage, while using *~/il/newmaiko* as the location for the lde executables when running Medley. +**./loadup \-\-maikodir ~/il/newmaiko** : run loadup sequence from beginning to full plus the loadup Aux stage, while using *~/il/newmaiko* as the location for the lde executables when running Medley. **./loadup -full** : run loadup sequence from beginning thru full diff --git a/internal/loadups/man-page/man_loadup.html b/internal/loadups/man-page/man_loadup.html index 54e80a8f..41e4f4f2 100644 --- a/internal/loadups/man-page/man_loadup.html +++ b/internal/loadups/man-page/man_loadup.html @@ -87,7 +87,7 @@ the time the loadup is run.

time. There is lock file to prevent simultaneous loadups in the work directory (named lock) that can be manually removed. The lock can also be automatically overridden (see the -–override flag below). Alternatively, if a lock is encountered at run +--override flag below). Alternatively, if a lock is encountered at run time, the user will be asked to choose whether to override or simply exit the loadup.

Note: MEDLEYDIR is an environment variable set by @@ -99,7 +99,8 @@ installed in multiple places on any given machine and hence MEDLEYDIR is computed on each invocation of loadup.

OPTIONS

-
-z [+], --man [+], -man [+], -h [+], –help [+]
+
-z [+], --man [+], -man [+], -h [+], --help +[+]

Print this manual page on the screen. If the + parameter is specified, then no pager is used when displaying the man @@ -109,7 +110,7 @@ page.

Run the sequential loadup procedure until the STAGE is complete, starting from the files created by the previously run STAGE specified in -the –start option.

+the --start option.

STAGE can be one of the following:

i, init, 1: Run the loadup sequence through Stage 1 (init.dlinit). @@ -129,13 +130,13 @@ Full.sysout is copied into the loadups directory.

a, apps, 5: Run the loadup sequence through Stage 5 (apps.sysout). -Also run the Aux stage as if –aux option had been specified. Apps.sysout -and the Aux files are copied into the loadups directory.

+Also run the Aux stage as if --aux option had been specified. +Apps.sysout and the Aux files are copied into the loadups directory.

a-, apps-, 5-: Run the loadup sequence through Stage 5 (apps.sysout). The Aux stage is not run unless otherwise specified. Apps.sysout is -copied into the loadups directory. Also run the Aux stage as if –aux +copied into the loadups directory. Also run the Aux stage as if --aux option had been specified.

@@ -181,27 +182,27 @@ loadups.

-i, --init, -init, -1
-

Synonym for “–target init”

+

Synonym for “--target init”

-m, --mid, -mid, -2
-

Synonym for “–target mid”

+

Synonym for “--target mid”

-l, --lisp, -lisp, -3
-

Synonym for “–target lisp”

+

Synonym for “--target lisp”

-f, --full. -full, -4
-

Synonym for “–target full”

+

Synonym for “--target full”

-a, --apps, -apps, -5
-

Synonym for “–target apps”

+

Synonym for “--target apps”

-a-, --apps-, -apps-, -5-
-

Synonym for “–target apps”

+

Synonym for “--target apps”

-ov, --override, -override
@@ -245,13 +246,13 @@ contained in the working directory. If the + parameter is used, then instead of deleting just the versioned files, all files and subdirectories are deleted except for those contained in the working directory. If + is used and there is no working -directory and –tag TAG is also specified, then the tagged +directory and --tag TAG is also specified, then the tagged loadups directory (<MEDLEYDIR>/loadups/tagged/TAG) is also deleted.

-th [+], --thin [+], -thin [+]
-

Equivalent to specifying both -tw [+] and -tl [+]. If –tag +

Equivalent to specifying both -tw [+] and -tl [+]. If --tag TAG is also specified and the + parameter is used here, then the tagged loadups directory (<MEDLEYDIR>/loadups/tagged/TAG) is removed.

@@ -277,24 +278,24 @@ absence of an Xwindows server.

The defaults for the Options context-dependent and somewhat complicated due to the goal of maintaining compatibility with legacy loadup scripts. All of the following defaults rules hold independent of -the –maikodir (-d) option.

+the --maikodir (-d) option.

    -

  1. If none of –target, –start, –aux, and –db are specified, +

  2. If none of --target, --start, --aux, and --db are specified, then:

    -

    1A. If neither –thinw nor –thinl are specified, the options default +

    1A. If neither --thinw nor --thinl are specified, the options default to:

    -

    –target full –start 0 –aux

    +

    --target full --start 0 --aux

    -

    1B. If either –thinw or –thinl are specified, no loadups are +

    1B. If either --thinw or --thinl are specified, no loadups are run.

    3. -

  3. If neither –start nor –target are specified but either -aux or --db or both are, then –start defaults to full and –target is +

  4. If neither --start nor --target are specified but either -aux or +-db or both are, then --start defaults to full and --target is irrelevant.

    5. -

  5. If –start is specified and –target is not, then –target defaults -to full

    6. -

  6. If –target is specified and –start is not, then –start defaults -to 0

    7. +

  7. If --start is specified and --target is not, then --target +defaults to full

    8. +

  8. If --target is specified and --start is not, then --start +defaults to 0

EXAMPLES

./loadup -full -s lisp : run loadup thru Stage 4 @@ -302,12 +303,12 @@ to 0

./loadup --target full --start lisp : run loadup thru Stage 4 (full.sysout) starting from existing Stage 3 outputs (lisp.sysout).

-

./loadup -5 –aux : run loadup from the beginning +

./loadup -5 --aux : run loadup from the beginning thru Stage 5 (apps.sysout) then run the Aux “stage” to create whereis.hash and exports.all

./loadup -db : just run the DB “stage” starting from an existing full.sysout; do not run any of the sequential stages.

-

./loadup –maikodir ~/il/newmaiko : run loadup +

./loadup --maikodir ~/il/newmaiko : run loadup sequence from beginning to full plus the loadup Aux stage, while using ~/il/newmaiko as the location for the lde executables when running Medley.

From 7a7fca0bcf11873cb6d5f6841506d7718efcbe69 Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Mon, 9 Mar 2026 12:15:14 -0700 Subject: [PATCH 2/3] Add lispusers/CONVERT-TO-UTF8 (#2518) * Add lispusers/CONVERT-TO-UTF8 * FILETYPE with no DFASL defaults to :FAKE-COMPILE-FILE --- lispusers/CONVERT-TO-UTF8 | 52 ++++++++++++++++++++++++++++++++ lispusers/CONVERT-TO-UTF8.LCOM | Bin 0 -> 2056 bytes lispusers/CONVERT-TO-UTF8.TEDIT | Bin 0 -> 3387 bytes 3 files changed, 52 insertions(+) create mode 100644 lispusers/CONVERT-TO-UTF8 create mode 100644 lispusers/CONVERT-TO-UTF8.LCOM create mode 100644 lispusers/CONVERT-TO-UTF8.TEDIT diff --git a/lispusers/CONVERT-TO-UTF8 b/lispusers/CONVERT-TO-UTF8 new file mode 100644 index 00000000..52342ee1 --- /dev/null +++ b/lispusers/CONVERT-TO-UTF8 @@ -0,0 +1,52 @@ +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) + +(FILECREATED "25-Feb-2026 09:09:57" {WMEDLEY}CONVERT-TO-UTF8.;16 2573 + + :EDIT-BY rmk + + :CHANGES-TO (FNS CONVERT-TO-UTF8) + + :PREVIOUS-DATE "24-Feb-2026 22:45:57" {WMEDLEY}CONVERT-TO-UTF8.;14) + + +(PRETTYCOMPRINT CONVERT-TO-UTF8COMS) + +(RPAQQ CONVERT-TO-UTF8COMS ((FNS CONVERT-TO-UTF8))) +(DEFINEQ + +(CONVERT-TO-UTF8 + [LAMBDA (FILENAME FILETYPE) (* ; "Edited 25-Feb-2026 09:09 by rmk") + + (* ;; "This produces a new version of the source FILENAME with :UTF-8 external format.") + + (* ;; "If we had a list of problematic functions (multiple definitions on multiple files, MOVD's), we could check that against the functions in FILENAME, and at least produce a warning.") + + (* ;; "Compiling may be tricky: some files have CL:COMPILE-FILE FILETYPE properties that don't correspond to the fact that they actually have only an LCOM. This tries to revert the filetype back to FAKE-COMPILE-FILE so that we don't get confused when a DFASL mysteriously appears.") + + (SETQ FILENAME (PSEUDOFILENAME FILENAME)) + (SETQ FILENAME (OR (FINDFILE FILENAME T) + (ERROR "FILE NOT FOUND" FILENAME))) + (if [EQ :UTF-8 (CL:WITH-OPEN-FILE (STREAM FILENAME :DIRECTION :INPUT) + (fetch (READER-ENVIRONMENT REFORMAT) of (GET-ENVIRONMENT-AND-FILEMAP STREAM + T] + then (PRINTOUT T FILENAME " is already " .P2 :UTF-8 T) + NIL + else (LOAD? (MEDLEYDIR "loadups" 'EXPORTS.ALL)) (* ; "Maybe this should load SYSEDIT ?") + (LOAD FILENAME 'PROP) + (LOADCOMP FILENAME) + (SETQ FILENAME (PACKFILENAME 'VERSION NIL 'BODY FILENAME)) + (CL:WHEN [AND (EQ 'CL:COMPILE-FILE (GETPROP (ROOTFILENAME FILENAME) + 'FILETYPE)) + (FINDFILE (PACKFILENAME 'EXTENSION 'LCOM 'BODY FILENAME)) + (NOT (FINDFILE (PACKFILENAME 'EXTENSION 'DFASL 'BODY FILENAME] + (CL:UNLESS FILETYPE (SETQ FILETYPE :FAKE-COMPILE-FILE)) + (PRINTOUT T "Changing FILETYPE back to " .P2 FILETYPE T) + (PUTPROP (ROOTFILENAME FILENAME) + 'FILETYPE FILETYPE)) + [SETQ FILENAME (MAKEFILE FILENAME '(NEW :UTF-8] + (MAKEFILE1 FILENAME NIL '(F)) + FILENAME]) +) +(DECLARE%: DONTCOPY + (FILEMAP (NIL (406 2550 (CONVERT-TO-UTF8 416 . 2548))))) +STOP diff --git a/lispusers/CONVERT-TO-UTF8.LCOM b/lispusers/CONVERT-TO-UTF8.LCOM new file mode 100644 index 0000000000000000000000000000000000000000..413a0c22265eb71073e047977b3bd1504e96e7cb GIT binary patch literal 2056 zcma)7TWjM+6n65kwC;s%pUZL(Em#2=&FE&U%hqFSloczF6lt8Sp?$DplbFrMsl5v= zrN5`|DSgg!|IPk{o*DTT<3d6hotw}3&SlOtA|5A#TXB+dD-m%9FLKsyDK9ZoXvCu22W~=`7yLZQ2Bj5YRk5f$HJ~(fJzdoL(=fPZeXlaiwrv7o z)T%cG>vJfRFgzKEi$p|LUSyK@Qg+N;M>XXjrpvj*m2_ zf2EJtnoqP^)$m)*f4V>ER30C+!xgP{D|%K{{<+p`g$}Bvoh@Gh)cmzRJ6|e)3l*bd7VZo0tgM(unEPu8aBb?6h)xD#vk~b(FWh$TsW`2zhtT%fJMx5E&#prqR23gyG_u8 zyySx@Tc?i~#38CYtD&a>UcDH5V5uBXs&6n>jY2nzhPZYEh++r;W~XywPQo;r1u!Jj55p zY5}%+MFsZi)`RCBDh&k}EfRrq1laTtdw^RJ(PI(7L0uy@!NE7KA^640sflxBgVDPl z-CoUZueNx{qsw>jVUF(}aa=HN=A+5SyCrfqMcHf#qnpKaH2EDFO7P86vnMhMaW)W< ldXMlqkaDQ1jNO*|cu`)WQIWH=vqL&)9DHR=vo4af{vVI;$8-Py literal 0 HcmV?d00001 diff --git a/lispusers/CONVERT-TO-UTF8.TEDIT b/lispusers/CONVERT-TO-UTF8.TEDIT new file mode 100644 index 0000000000000000000000000000000000000000..06488f9ce20725823be3da6fd2bbefdcb353a0a4 GIT binary patch literal 3387 zcmeHK+iu%N5T#-#L6o*=p9>U&G(af8Qf)+Gpu@gt`XqlTWR`?6P10-z$3;qqNVR#;A_~~? zG|a*gFgY{kP->N`XgR%%;+Ur4g;a}qIFl64=MuXT#7-AQ9*uEdlhS4Dyv4rGqhh)^ zYY^%Jw@XxtttIsxk{6Q0rHk{aa=hlzl*uR^qb78=EF|Uf=LIZCP!TzkG>#?{nQ_UH z(kA~6E=E3zqKNb`87ovQCq*;Nvh*dfX)!M+jaFU1q%`#`Tada2&j+G$>&IRt%ug%% zG8Q?>7n#xqH5JbWt{3<%!?p=65vSo;j(0e%L`~Kb7GRxotyB<5G0)Pu%!(z&QH~Yn z7RGtHu}eHL?C(ssKVVvDtQq#BvoM2z7WCvG@WJxtr1y3ycE4>>~0`5oY zY_9qxgsd$0s_&FvHXtpu4-0@MMH_H4tDX%fO!PE9D|FrPNRhqK^hAAGoRy@ z6!DT~NG^N__d|` z;_*;8rXa_%)kohY^=^=^4~*k-0i%KNeCr26wk+_VksladU^&MO`BH7P4X5jyz86?V<4UdY9rHU$fJGgJlLoG-Q5zx@eDfUokuPjv1_P8WQ1gN31~747Tm9t#=36(_U$>Y6r^2HV4^ocI9xj;l}$$_@3Q>l6qZA<2JW>^(<+(Hx9@W zeZ_SfmHbM(QJxlBdF+3#^MQoZWq_l~bZyt879H7!d8*34tKBqh!}l%o{qP^+9(sHT z{Msh`BbDCU$OC>~s|QwJ_@3K0oJyT{Y+<+8P$o@%)P>tYD|@G0xrW*86K{y0EXN|~ zIqUTmXd9M)26P>sK4t$rV5fZlTh}YlTjQ@lTk!M=J6*9x!OG`s)1b!ekHZ2{`;CX2 zh;@0CGxqxNWk}h@uqsCk`FaIeTfTV1lCLaPXzllvVZF&x7G2j(TNob1z*i2pGk(Rm i>UTto_@4%xB&xv=0dIBj<$w5MTK7Tc8?E{4AAbV+(e&;B literal 0 HcmV?d00001 From 95e08680b875224392595d412ea691672a8a4e5a Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Mon, 9 Mar 2026 12:15:33 -0700 Subject: [PATCH 3/3] \CORE.DIRECTORYNAMEP returns T for the {CORE} (no directory) case (#2522) --- sources/COREIO | 55 ++++++++++++++++++++++++-------------------- sources/COREIO.LCOM | Bin 16778 -> 16778 bytes 2 files changed, 30 insertions(+), 25 deletions(-) diff --git a/sources/COREIO b/sources/COREIO index 72ff5f56..be878489 100644 --- a/sources/COREIO +++ b/sources/COREIO @@ -1,12 +1,12 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) +(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED "11-Sep-2025 16:49:07" {WMEDLEY}COREIO.;18 56903 +(FILECREATED "28-Feb-2026 12:09:38" {WMEDLEY}COREIO.;20 57201 :EDIT-BY rmk :CHANGES-TO (FNS \CORE.DIRECTORYNAMEP) - :PREVIOUS-DATE " 5-Jun-2022 00:14:07" {WMEDLEY}COREIO.;17) + :PREVIOUS-DATE "11-Sep-2025 16:49:07" {WMEDLEY}COREIO.;18) (PRETTYCOMPRINT COREIOCOMS) @@ -89,6 +89,8 @@ (\CORE.DIRECTORYNAMEP [LAMBDA (DIRNAME DEV) + (* ;; "Edited 28-Feb-2026 12:08 by rmk") + (* ;; "Edited 11-Sep-2025 16:48 by rmk") (* ;; "Edited 18-Jan-2022 11:17 by rmk") @@ -106,18 +108,21 @@ (* ;; "Returns NIL for a DIRNAME of just {CORE}, or {CORE}xxx. If the latter, then we want it to be a directory and not a file (assuming that xxx and xxx> can't both exist.") - [LET [(DIR (FILENAMEFIELD DIRNAME 'DIRECTORY] - (CL:WHEN DIR - (SETQ DIR (CONCAT DIR ">")) + (LET [(DIR (FILENAMEFIELD DIRNAME 'DIRECTORY] + (if DIR + then (SETQ DIR (CONCAT DIR ">")) - (* ;; "DIRPOS because caller may not have stripped off the device. This will match the first < or / (or >)") + (* ;; "DIRPOS because caller may not have stripped off the device. This will match the first < or / (or >)") - (FOR ENTRY (DIRPOS _ (STRPOS "<" DIRNAME 1 NIL NIL NIL FILEDIRCASEARRAY)) - FIRST (CL:UNLESS (EQ DIRPOS 1) - (SETQ DIRNAME (SUBSTRING DIRNAME DIRPOS))) - IN (CDR (FETCH COREDIRECTORY OF DEV)) - WHEN (STRPOS DIRNAME (CAR ENTRY) - 1 NIL T NIL FILEDIRCASEARRAY) DO (RETURN T)))])]) + (FOR ENTRY (DIRPOS _ (STRPOS "<" DIRNAME 1 NIL NIL NIL FILEDIRCASEARRAY)) + FIRST (CL:UNLESS (EQ DIRPOS 1) + (SETQ DIRNAME (SUBSTRING DIRNAME DIRPOS))) + IN (CDR (FETCH COREDIRECTORY OF DEV)) + WHEN (STRPOS DIRNAME (CAR ENTRY) + 1 NIL T NIL FILEDIRCASEARRAY) DO (RETURN T)) + else (* ; + "Top level: does the device exist at al. The cd {CORE}case") + T)))]) (\CORE.FINDPAGE [LAMBDA (STREAM PN) (* bvm%: "20-Apr-85 13:32") @@ -997,16 +1002,16 @@ ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1572 46115 (\CORE.CLOSEFILE 1582 . 2355) (\CORE.DELETEFILE 2357 . 4343) ( -\CORE.DIRECTORYNAMEP 4345 . 5838) (\CORE.FINDPAGE 5840 . 9069) (\CORE.GENERATEFILES 9071 . 11658) ( -\CORE.NEXTFILEFN 11660 . 12159) (\CORE.FILEINFOFN 12161 . 12390) (\CORE.GETFILEHANDLE 12392 . 14546) ( -\CORE.GETFILEINFO 14548 . 15511) (\CORE.GETFILEINFO.FROM.INFOBLOCK 15513 . 17050) (\CORE.GETFILENAME -17052 . 19341) (\CORE.GETINFOBLOCK 19343 . 21966) (\CORE.NAMESCAN 21968 . 23515) (\CORE.NAMESEGMENT -23517 . 23954) (\CORE.OPENFILE 23956 . 27348) (\COREFILE.SETPARAMETERS 27350 . 29531) ( -\CORE.PACKFILENAME 29533 . 29928) (\CORE.RELEASEPAGES 29930 . 30531) (\CORE.SETFILEPTR 30533 . 31632) -(\CORE.UPDATEOF 31634 . 33263) (\CORE.BACKFILEPTR 33265 . 35473) (\CORE.SETEOFPTR 35475 . 37344) ( -\CORE.SETACCESSTIME 37346 . 37971) (\CORE.SETFILEINFO 37973 . 40275) (\CORE.GETNEXTBUFFER 40277 . -44233) (\CORE.UNPACKFILENAME 44235 . 46113)) (46116 49749 (COREDEVICE 46126 . 46297) ( -\CREATECOREDEVICE 46299 . 49747)) (49750 52164 (\NODIRCOREFDEV 49760 . 50357) (\NODIRCORE.OPENFILE -50359 . 52162))))) + (FILEMAP (NIL (1572 46413 (\CORE.CLOSEFILE 1582 . 2355) (\CORE.DELETEFILE 2357 . 4343) ( +\CORE.DIRECTORYNAMEP 4345 . 6136) (\CORE.FINDPAGE 6138 . 9367) (\CORE.GENERATEFILES 9369 . 11956) ( +\CORE.NEXTFILEFN 11958 . 12457) (\CORE.FILEINFOFN 12459 . 12688) (\CORE.GETFILEHANDLE 12690 . 14844) ( +\CORE.GETFILEINFO 14846 . 15809) (\CORE.GETFILEINFO.FROM.INFOBLOCK 15811 . 17348) (\CORE.GETFILENAME +17350 . 19639) (\CORE.GETINFOBLOCK 19641 . 22264) (\CORE.NAMESCAN 22266 . 23813) (\CORE.NAMESEGMENT +23815 . 24252) (\CORE.OPENFILE 24254 . 27646) (\COREFILE.SETPARAMETERS 27648 . 29829) ( +\CORE.PACKFILENAME 29831 . 30226) (\CORE.RELEASEPAGES 30228 . 30829) (\CORE.SETFILEPTR 30831 . 31930) +(\CORE.UPDATEOF 31932 . 33561) (\CORE.BACKFILEPTR 33563 . 35771) (\CORE.SETEOFPTR 35773 . 37642) ( +\CORE.SETACCESSTIME 37644 . 38269) (\CORE.SETFILEINFO 38271 . 40573) (\CORE.GETNEXTBUFFER 40575 . +44531) (\CORE.UNPACKFILENAME 44533 . 46411)) (46414 50047 (COREDEVICE 46424 . 46595) ( +\CREATECOREDEVICE 46597 . 50045)) (50048 52462 (\NODIRCOREFDEV 50058 . 50655) (\NODIRCORE.OPENFILE +50657 . 52460))))) STOP diff --git a/sources/COREIO.LCOM b/sources/COREIO.LCOM index f011a7be1aeccc6df7b433fe92ed83bc00e0c860..5c3f58cc18c605c3c6030f509b4e09cfd461e907 100644 GIT binary patch delta 347 zcmeBbX6$NawAXNPb@TLd)phgqan<$obMsfQ3UGAxc64`DQ1bK(aSihE3=U9IunKZ@ zbO~{E@<9`xXfGjRWTESpnxt!FU}UCXXk=wzX=Q9NFM zD>E8xzRVcO%3rz(sB|`(<;M4+LBLgE-1tViCQ)4Rw!-*SBY>>tE z^z@VzQW8s2Q?P0A~#*?EN-9!{jb-haSKz0}@ z7#LU?nphc_Ppp<&+c TI1Ch&Y?Ks?3^%`JoofvMS@}|E