From 1e847ec274fc5e3bd799128f79b4f38a6c126f94 Mon Sep 17 00:00:00 2001
From: Frank Halasz <frank@halasz.org>
Date: Sun, 8 Oct 2023 19:34:43 -0700
Subject: [PATCH] Add ShellOpen (and ShellOpener) to UNIXUTILS; fix small bug
 in UNIX-FILE-NAME (#1341)

* Add ShellOpener and ShellOpen to UNIXUTILS - used to open a file using the generic opener on this machine.  Adapted ShellBrowse and ShellBrowser accordingly; fixed bug in UNIX-FILE-NAME where it fails if file does not exist and COPY is non-NIL and access is INPUT

* Add return of error strings to ShellOpen
---
 library/UNIXUTILS       | 189 +++++++++++++++++++++++++++++-----------
 library/UNIXUTILS.DFASL | Bin 4896 -> 6443 bytes
 2 files changed, 137 insertions(+), 52 deletions(-)

diff --git a/library/UNIXUTILS b/library/UNIXUTILS
index 0758f19f..2150c55e 100644
--- a/library/UNIXUTILS
+++ b/library/UNIXUTILS
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 2-Oct-2023 12:54:58" {WMEDLEY}<library>UNIXUTILS.;10
 10535  
+
(FILECREATED " 8-Oct-2023 15:06:52" {DSK}<home>frank>il>medley>gmedley>library>UNIXUTILS.;15
 14696  
 
-      :EDIT-BY rmk
+      :CHANGES-TO (FNS ShellOpen UNIX-FILE-NAME ShellBrowser ShellBrowse ShellOpener)
+                  (VARS UNIXUTILSCOMS)
 
-      :CHANGES-TO (FUNCTIONS ShellWhich)
-
-      :PREVIOUS-DATE " 1-Oct-2023 20:52:23" {WMEDLEY}<library>UNIXUTILS.;9)
+      :PREVIOUS-DATE " 8-Oct-2023 02:35:47" {DSK}<home>frank>il>medley>gmedley>library>UNIXUTILS.;14
+)
 
 
 (PRETTYCOMPRINT UNIXUTILSCOMS)
@@ -15,10 +15,11 @@
        ((DECLARE%: EVAL@COMPILE DONTCOPY                     (* ; "For PROCESS-COMMAND")

                (FILES (FROM LOADUPS)
                       EXPORTS.ALL))
-        (GLOBALVARS ShellBrowser)
-        (INITVARS (ShellBrowser))
+        (GLOBALVARS ShellBrowser ShellOpener)
+        (INITVARS (ShellBrowser)
+               (ShellOpener))
         (FUNCTIONS ShellCommand ShellWhich)
-        (FNS ShellBrowser ShellBrowse PROCESS-COMMAND SLASHIT UNIX-FILE-NAME)
+        (FNS ShellBrowser ShellBrowse ShellOpener ShellOpen PROCESS-COMMAND SLASHIT UNIX-FILE-NAME)
         (PROPS (UNIXUTILS FILETYPE))))
 (DECLARE%: EVAL@COMPILE DONTCOPY 
 
@@ -27,11 +28,13 @@
 )
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
-(GLOBALVARS ShellBrowser)
+(GLOBALVARS ShellBrowser ShellOpener)
 )
 
 (RPAQ? ShellBrowser
 )
 
+(RPAQ? ShellOpener
 )
+
 (CL:DEFUN ShellCommand
 (Cmd &OPTIONAL (Output T))
    (CL:WITH-OPEN-STREAM (s (CREATE-PROCESS-STREAM Cmd))
           (CL:TAGBODY [SETFILEINFO s 'ENDOFSTREAMOP #'(CL:LAMBDA (s)
@@ -55,50 +58,44 @@
 
 (ShellBrowser

   [LAMBDA NIL
                                                (* ; "Edited 18-Jan-2023 20:30 by FGH")

-    (OR ShellBrowser (SETQ ShellBrowser (LET (CMDPATH)
-                                             (if
 (STRPOS "darwin" (OR (UNIX-GETENV "OSTYPE")
-                                                                      (UNIX-GETENV "PATH")))
-                                                 then
 
-                                                      (* ;; " MacOS")

 
-                                                      "open"
-                                               elseif
 (SETQ CMDPATH (ShellWhich
 "wslview"))
-                                                 then
 
-                                                      (* ;; "windows with WSL")

+    (* ;; "Figure out the browser  to use for the ShellOpen/ShellBrowse functions. ")

 
-                                                      CMDPATH
-                                               elseif
 (SETQ CMDPATH (ShellWhich
 "xdg-open"))
-                                                 then
 
-                                                      (* ;; "Linux systems with xdg-utils installed ")

+    (* ;; " Ordinarily, this would be the same as the generic ShellOpener.")

 
-                                                      CMDPATH
-                                               elseif
 (SETQ CMDPATH (ShellWhich
 "git"))
-                                                 then
 
-                                                      (* ;; " Systems with git installed")

+    (* ;; " But if a generic ShellOpener is not found, then there are some additional")

 
-                                                      (CONCAT CMDPATH " web--browse") 
-                                                             (* ; "")

-                                               elseif
 (SETQ CMDPATH (ShellWhich
 "lynx"))
-                                                 then
 
-                                                      (* ;; " Systems with lynx installed")

+    (* ;; " possibilities that will work for http/https URLs.  If one of these exists return it.")

 
-                                                      (LET (CMDPATH2)
-                                                           (if
 (SETQ CMDPATH2 (ShellWhich
 "xterm"))
-                                                               then
 (CONCAT CMDPATH2 " -e " CMDPATH)
-                                                             else
 (LIST CMDPATH)))
-                                               else
 
-                                                    (* ;; 
-
                                                    " Out of ideas - just return a dummy function")

+    (OR ShellBrowser (SETQ ShellBrowser
+                      (if
 (NOT (STREQUAL (ShellOpener
)
+                                      "true"))
+                          then
 ShellOpener
+                        else
 (LET (CMDPATH)
+                                  (if
 (SETQ CMDPATH (ShellWhich
 "git"))
+                                      then
 
+                                           (* ;; " Systems with git installed")

 
-                                                    "true"])
+                                           CMDPATH
+                                    elseif
 (SETQ CMDPATH (ShellWhich
 "lynx"))
+                                      then
 
+                                           (* ;; " Systems with lynx installed")

+
+                                           (LET (CMDPATH2)
+                                                (if
 (SETQ CMDPATH2 (ShellWhich
 "xterm"))
+                                                    then
 (CONCAT CMDPATH2 " -e " CMDPATH)
+                                                  else
 (LIST CMDPATH)))
+                                    else
 
+                                         (* ;; " Out of ideas - just return a dummy function")

+
+                                         "true"])
 
 (ShellBrowse

   [LAMBDA (URL)
                                              (* ; "Edited 18-Jan-2023 20:32 by FGH")

 
     (* ;; " Open the web page specified by URL using an external browser via shell call")

 
-    (* ;; 
-
  " URL must start with http:// or https:// (case ireelevant) or this function will just return NIL.")

+    (* ;; " URL must start with http:// or https:// or file:/// (case ireelevant) or this function will just return NIL.")

 
     (* ;; " Returns T otherwise.")

 
@@ -106,15 +103,102 @@
     (if
 (OR (EQ (STRPOS "http://" (L-CASE URL))
                 1)
             (EQ (STRPOS "https://" (L-CASE URL))
+                1)
+            (EQ (STRPOS "file:///" (L-CASE URL))
+                1))
+        then
 (ShellOpen
 URL)
+      else
 NIL])
+
+(ShellOpener

+  [LAMBDA NIL
+
+    (* ;; "Find an %"opener%" that will open files (and URLs) using the appropriate/default app on this machine")

+
+    (OR ShellOpener (SETQ ShellOpener (LET (CMDPATH)
+                                           (if
 (SETQ CMDPATH (ShellWhich
 "wslview"))
+                                               then
 
+                                                    (* ;; "windows with WSL")

+
+                                                    CMDPATH
+                                             elseif
 (SETQ CMDPATH (ShellWhich
 "cygstart"))
+                                               then
 
+                                                    (* ;; "windows with cygwin")

+
+                                                    CMDPATH
+                                             elseif
 (SETQ CMDPATH (ShellWhich
 "xdg-open"))
+                                               then
 
+                                                    (* ;; "Linux systems with xdg-utils installed ")

+
+                                                    CMDPATH
+                                             elseif
 (SETQ CMDPATH (ShellWhich
 "open"))
+                                               then
 
+                                                    (* ;; " MacOS open")

+
+                                                    CMDPATH
+                                             else
 
+                                                  (* ;; 
+
                                                  " Out of ideas - just return a dummy function")

+
+                                                  "true"])
+
+(ShellOpen

+  [LAMBDA (FilenameOrURL)
+
+    (* ;; "Open the  file or URL using the generic %"opener%" for this machine via a shell call.")

+
+    (* ;; " If FilenameOrURL starts with %"http://%" or %"https://%" or %"file:///%",  then we use (ShellBrowser) as")

+
+    (* ;; " the %"opener%" (which includes some browsers on a machine without a generic opener).")

+
+    (* ;; 
+
    " Otherwise FilenameOrURL is assumed to be a filename and will be opened using (ShellOpener).")

+
+    (* ;; " Returns T is all goes well; returns an error string if all does not go well")

+
+    (SETQ FilenameOrURL (MKSTRING FilenameOrURL))
+    (if
 (OR (EQ (STRPOS "http://" (L-CASE FilenameOrURL))
+                1)
+            (EQ (STRPOS "https://" (L-CASE FilenameOrURL))
+                1)
+            (EQ (STRPOS "file://" (L-CASE FilenameOrURL))
                 1))
         then
 (LET ((BROWSER (ShellBrowser
)))
-                  (if
 (LISTP BROWSER)
-                      then
 (CHAT 'SHELL NIL (CONCAT (CAR BROWSER)
-                                                   " '" URL "'"))
-                    else
 (ShellCommand
 (CONCAT BROWSER " '" URL "'" 
-                                              " >>/tmp/ShellBrowser-warnings-$$.txt")))
-                  T)
-      else
 NIL])
+                  (if
 (NOT (STREQUAL BROWSER "true"))
+                      then
 (if
 (LISTP BROWSER)
+                               then
 (CHAT 'SHELL NIL (CONCAT (CAR BROWSER)
+                                                            " '" FilenameOrURL "'"))
+                             else
 (ShellCommand
 (CONCAT BROWSER " '" FilenameOrURL "'" 
+                                                       " >>/tmp/ShellBrowser-warnings-$$.txt"))
+                                  T)
+                    else
 (CONCAT "Unable to find a browser to open: " FilenameOrURL)))
+      else

+      (LET ((OPENER (ShellOpener
))
+            (UNIXFILE (UNIX-FILE-NAME
 FilenameOrURL 'INPUT T)))
+           (if
 (NOT UNIXFILE)
+               then
 (CONCAT "File not found: " FilenameOrURL)
+             elseif
 (NOT (STREQUAL OPENER "true"))
+               then
 (CL:WITH-OPEN-STREAM
+                     (SHELLSTREAM (OPENSTREAM (CONCAT "{CORE}SHELLOUT" (RAND))
+                                         'BOTH))
+                     (ShellCommand
 (CONCAT OPENER " '" UNIXFILE "'" 
+                                          " >>/tmp/ShellOpener-warnings-$$.txt")
+                            SHELLSTREAM)
+                     (if
 (EQ (GETFILEPTR SHELLSTREAM)
+                             0)
+                         then
 T
+                       else
 (LET* ((OUTSTRING (ALLOCSTRING (GETFILEPTR SHELLSTREAM)
+                                                     " ")))
+                                  (CL:WITH-OPEN-STREAM (STRINGSTREAM (OPENSTRINGSTREAM OUTSTRING
+                                                                            'OUTPUT))
+                                         (SETFILEPTR SHELLSTREAM 0)
+                                         (CL:TAGBODY [SETFILEINFO SHELLSTREAM 'ENDOFSTREAMOP
+                                                            #'(CL:LAMBDA (s)
+                                                                     (GO OUT]
+                                                (CL:LOOP (PRINTCCODE (READCCODE SHELLSTREAM)
+                                                                STRINGSTREAM))
+                                                OUT))
+                                  OUTSTRING)))
+             else
 (CONCAT "Unable to find a file opener to open: " FilenameOrURL])
 
 (PROCESS-COMMAND

   [LAMBDA (CMD)
                                              (* ; "Edited 17-Jul-2022 08:17 by rmk")

@@ -183,7 +267,8 @@
                                            "")
                                  "~" VERSION "~")
                           FILE)))
-            (CL:WHEN (AND COPY (EQ ACCESS 'INPUT))
+            (CL:WHEN (AND COPY (EQ ACCESS 'INPUT)
+                          FILE)
                 (RESETLST
                     (CL:WHEN (\GETSTREAM FILE 'INPUT T)      (* ; "Hope is randaccess")

                         [RESETSAVE (GETFILEPTR FILE)
@@ -200,7 +285,7 @@
 
 (PUTPROPS UNIXUTILS
 FILETYPE
 CL:COMPILE-FILE)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (927 1300 (ShellCommand 927 . 1300)) (1302 1699 (ShellWhich 1302 . 1699)) (1700 10457 (
-ShellBrowser 1710 . 4233) (ShellBrowse 4235 . 5227) (PROCESS-COMMAND 5229 . 5842) (SLASHIT 5844 . 7886
-) (UNIX-FILE-NAME 7888 . 10455)))))
+  (FILEMAP (NIL (1144 1517 (ShellCommand 1144 . 1517)) (1519 1916 (ShellWhich 1519 . 1916)) (1917 14618 
+(ShellBrowser 1927 . 3675) (ShellBrowse 3677 . 4362) (ShellOpener 4364 . 6052) (ShellOpen 6054 . 9357)
+ (PROCESS-COMMAND 9359 . 9972) (SLASHIT 9974 . 12016) (UNIX-FILE-NAME 12018 . 14616)))))
 STOP
diff --git a/library/UNIXUTILS.DFASL b/library/UNIXUTILS.DFASL
index e9cb27338f7ba39d2606d35dfbdcd0bd0f7fceb3..8cfdae7d1b4ad2fefc52a2506d71c8d3a74f770c 100644
GIT binary patch
delta 3294
zcma(TZERE5_1*XU6+0nLFv*g!<pF7cf{A0|1fngC<2cDnUhLraJO~RaPU6Id#74#p
z5Cs>?rorCUhFh|CY1Xyd`lFpTQQ99xY>TF8(z<riey!7lx>c1bO|*mZYgDV)Iro`R
z2tR6B_uO;tx##<xb6;xtW$?L8>-)6fli$eX=hEHNg;effcXqaWE<H7yKHfc3hVyN{
zeId7&KT?=X%hTD}v^-fzr;6z*S>EA~PZs^bKybU<7U~LgbcKTM{;;M#$fh01O{I=+
zm3PR%ou5b-WW2GJU+L@$?0o%agb;=Pf&}RwNF!;d?~{!k6=CzD;n6bb+1dD^bS_=k
z3AiH`?^R-b?aa3guu6W~TgV?hoG!GmHS1U%eN23FqXcK}0X5zmR=*WaXsnL;Oo~L8
z5>s>}nUnzU9Wk`Y1!So|228NA)L8=I&PAhQSw9_+dUiFSjDAIp>SLo(4+t@z7fr+W
zs4!eKcAWT9p|yvEMb=9HE{&5`8nS&9RLl#8_wi(GH#q7aO~mzRM1PzqHbEffbA~gb
z#<gT3ipt?{NCWNL>4-f-R61`DH;vq*lf%Rbf+}P2m|u-Y!m58D&J_BoT_+>7-_cY%
zPSC&cQ9Uu3j19LhvH(5m=ph06mScXkN<bT176wW}blf=z7QW&Pm7auCfuBB2Dp`uy
z*n}X6&1{^osYM9nf>_uO9Ku_CogehN5X<A@#^s7q<0TxeKy>Vaayj$`^vZ@BuXrEd
zyEw!V#e>Xelni~*RZ)F*KVtQ`cm+|UmtBpeItef)L9U;MNL45?J(^GzZS=Gw$%+Fk
z(8&UuSb!%{(-YBM$*@|@e70FuH^Y2RRtGiV*l!xPV&O<S4p8=|<zCaUA1kH{b3q`?
z9?u=y05PA*7JX$tNZxjHf#^LI0{u<J+R_$oD`4>B&K|sl{`ppt7c3@k#tW>F3n`gU
z*>({Fk1m*0WD#}-&c4T<I_*+fdjyyqVEAZU>&C6>kA$`8R?c&7BM0X<udz_Cg^IxE
z8X1O5N^C%oc9@0>Kj5y`)>eAc-DvlL>0^|*>PpL**nU6qXn6C3=$bE}^U7I{)!xej
zVJDam94O}i%(nHhK!^oeSfHK-Bn_kNBg|(XDM#-KfO+`31KYr|V^cGJMApH6^7zc*
zVyaNAH4W#{!?WMXrjJ6T+sy?BM1(ZZs})VVzkH~#O!5k>A)-}EJTWhD<9qntJ0x9^
zXTWkHGjzdSCwhlyqx<V6eyfMmv%LChM4NhLc$nW@DTI^x9e&2|@m;n?bmRn~i8J_w
zgB)i3UJlC^2%-a$We*2}Z9&lvTaQ*6jH)VDYIsDnVJ4F?We>I=5u2GKJ{pZh6C&o=
z*_(*()}jesNLBri;#_Jj9WP)>wL4dq)FR}j4kNjm6|ux_u`Gg*EbIf2XiJ1+r9LG7
z%_9DpokHv?>qPJ?=0orbYen#q#qxc;7a0ueNPC7Ar&)0?JEgKZtB%igTSfU`#XeN9
zoaF}+O1M#C2N1piV(m(7G^roLorY2I!U3r=4KMmC=ki5)IuBE(OGdigT(IHA(-`wT
zOBxTe&R4!v+2K$~@YF0Nc;z3s^?Wwdc)8cYIG0=a3UH0x&*I?cK4B>ft4M$1s4p!k
zna0edd+9*WswFPND@Y<Y-;^W{FG)5InPlhi$4nJ%5B1d!=Lwcqz%MVR)A~@Yl;bz<
z39Hb&EowX9?t!R|1pr;Uw}s1mwTZPhup;S$Q%5|hLzEmD=)lwH`=C$QyQCkm9OaJi
zrEzQsoLJK7?`#bvo!dV6w$-hcE`OT2de-R@E`OG}mO)>ahOeQA!_Z|38!mffGSx;N
z@}$$&&vtdQL?_cKSwU)MdOcHXS(5n81)*y2Z80aD<(7B_(`cMc%}q?D<Se~ruP-eR
z8k|~eFN9s(jMHS_KDb&7wsEsT1pf%V0(;~H+G!d@UTqp1<nHd);@qLu<>8$!_>ZOv
zxomFcu)n!^Tk%+N74U9!nT9BD6vy0L7go&Y^aD>r$&^SrUr!3+@}zUYq!V${A>(z^
zSal*2Pef1ha)iJm^{=MUlFX$hpd^cVcmw68<dpRk!oCLY9-!imm#Of_audXxmrSGi
zp4s%b?zOv-coB`n&9mIlQ-~hpTbNSoS16jW9zyq(B+Ck*?K{hDAG&_MhoH<mY<!W0
zsN1upE!fr};sg>$HER+@M*3JtT-i4M0&N3gFhHk0;dSqptNb0PYVo03*eUv1p8m-b
zY<agF%Xio#V@W({M#md+<ytb)0i`IFho7xH{Qku=@lU?K59%w>_BXA5^J}oVLQD2q
z-v=I;*1>ts{vlFM^X>VkEDC+GYCX0H;hZ2Mpr!$@DubMa;nHa?xPV4vdcEqa#76&H
z^<L!*VP1K+=6lX$=zFW$;gwoht!=x(I_+eIsW-Wf|M2w_FtrLb++aoe!|Ju9gT7YX
zwE8xZER#OWbH>~BdUeXdw=dIv?`HBbJ>;#Ae~gUSPbGLn9sy{>-hY7e{cjxUakWpk
zuJv(n_nQ_L!oyf}_co5c#^<Gv{=@t8_M7EY{JY$yK4GdLJ(##qTO}&~5z8a^E;~eD
zuUY-=VxAQ()wlO>skcWs_$j_f>`Gr)kM87z^N(@xs*8g=_B4l|X%_IYLbds<VTU*E
zK+NitFVoGnPi(1#uN+zq{P5F8Sbkg*c)@xSQ7x)l&tZ7L(%LPOi;dIY*GAShur82S
W8HtaKLQnK#V-zld;pA&~@BSa($e%#~

delta 1879
zcmZuyU2GIp6rMY?f8Ex&ZMWNk4IL0DKb^JR?m{IfJKde_4&BadcBhoZO4HJ{tu9@6
zTWztB@*{~q6HB?F&V?046OA!QsU#Zt3ok|t#z$X#@X46?Ac-$NiRa!e7La5!_nhyZ
zpYNV?&)qKqA8kCfsiLn(i6)fHk)62J=0&aZ1HM>5(hp2Zf!08~*cR9k3hoGXxMOlU
zA-*)0%Zdkz*}=)|u-KCyA09l^A_hdT&JSgaBK2rtE}<Q*9ha{ngtp=9DB$vpdN|9h
zZpUuES#<cVGiFtKG@HwH7V}dR+2Te39Gc##YSFdCi%0k?A`g(eE1`GFi9K>EO}rMS
zkW1B6g95ly2(5AeBE&Shd&aDMAR_)y2%`r4t57dK<}7E-rkRIMZExjDM8c}AA4&LA
z+i!uGb=vf7>DBsxk(5m7h7vKhkeH3*kafy*MiP3uH>Fq@(Vr=F1={cpdjzSNcgRh<
z@8f6!IU!J$rfX6{kH`tBOD8cr<S@`~{I#R0CWC-?MSs#r#e22xV2Swg?~X9?<IT?b
zS`|Sy@?S7W(vE+0#(|;F6>9E>U5@P@MO9=!vXKFf<JXf6B7-HU#{z#G3@+mRZr^Mk
zB(8#f_Ra5pdqs0oXo2aAxfM8bT3vkcVO4uTEvZal&WoW3HkO{Q_6RHb3#D$RsM{)O
zp5yB1>Y6thQd3U>5626%qmiCyQa0iNo)*KotP!sb|KqBkb<<NUkOE!aBK~RO&ym6a
z@h6F2CjMu@!;v;pNj<#<#L8Yx-79q|hNA6hB!>m+^cnFwi5C%X71b_SrfstLT9(SE
zKo+H}NaYijX`i0V77tDUm^(B+Jz|+v;#9V8NRo!w9o+|Q9vPeLwoKRb@Q9RuH9Nl3
zGM!Tsx!1?CQz3Ap&<0rPVd^c@p{I>ZQmFxHc(6D%HV#*;ZMiMS@!HC!PA@A)m^Fq~
z^Od_xJuYCwRU@PdOY26cJgTCy9s5>Mh}HAvVv~w5Rj!$Z(JGg&Go|;Xl@!N8DTLls
zg0%7U1_>61A5X%Bp7dRE=$Lz&NE4)x0XthHE*l0Zgow9=%rw(_CZvd*R_e%%hdIo#
zvFquEGOJn_lEK8Djw^|T^Ppv}7oW!`JnMX;mWi5&ERz?Tbt<Y%#Jk+9Q2?*0-rCj{
z>fk9aKAA4_gFchMWB8STAL2<Azfmo(Jtqi^!&##8{3F8<<Ry~Bzf=b{o)gfrRX+z2
zmxsayL&4LbK$Rp@BJE!VYZ_5YJ5*a(E{ScqB$t@?m+X5H(pS(rT_FX0xVB*pyLs=h
zy(NktW8&Q5GJ=<C*LBQrY}T-4!s}q7BhcuewcrA4)EJh>ShqeXw|Vb;{AhTHyBYrY
zGUBku`?KqPnRWRt{>vLgF}$fR?f;ep?dX3jZ?KHl+4mZ-e1fw116Y1u*NEEjcXds*
zw^j%)<(c6v{CC}81#OwCC3_7#;M=_FDz!Qfm@N)hlq&Pg_A0*Mduscge%KN8MATs5
z?I>G*dakU6=%%Lh(HGpI_Zkq>0TGY~|LOZ=_QrA}z7cq4evPP{@JQRXu{nH?<Y?lP
z<RD#+LNr%IPiA6jLYX0jJSn`)0^HhLUV6a5mXft-1O&Spl?~-twllW@05?oL^_1Wp
zbusvRdzP&~q|1w!<e#+WOgp^fU0RvjZ5(Xawbf-Ua85RI9**<_mHW2`!Mk0VQqqc1
o{u6*_`+UPz!A3IpPD7-zfoz9(RS~@>NfXoT+*x{*yZ7$>3ms+|umAu6