From 8066be6a74299333a83241f7b5f2697f1cb2a9ee Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Tue, 23 Feb 2021 17:34:09 -0800
Subject: [PATCH] CLIPBOARD: updated with the elaborated xclip commands, to be
 tested

---
 library/CLIPBOARD      |   2 +-
 library/CLIPBOARD.LCOM | Bin 5112 -> 5104 bytes
 2 files changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/CLIPBOARD b/library/CLIPBOARD
index ad645445..1f71ea38 100644
--- a/library/CLIPBOARD
+++ b/library/CLIPBOARD
@@ -1 +1 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

(FILECREATED "22-Feb-2021 14:39:46" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.;48
 8988   

      changes to%:  (VARS CLIPBOARDCOMS)
                    (FNS GETCLIPBOARD PUTCLIPBOARD CLIPBOARD-COPY-STREAM CLIPBOARD-PASTE-STREAM)

      previous date%: "15-Feb-2021 23:48:39" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.;47)


(PRETTYCOMPRINT CLIPBOARDCOMS)

(RPAQQ CLIPBOARDCOMS

       [                                                     (* ; "Enable copy and paste")

        (FNS INSTALL-CLIPBOARD GETCLIPBOARD PUTCLIPBOARD PASTEFROMCLIPBOARD LISPINTERRUPTS.PASTE 
             CLIPBOARD-COPY-STREAM CLIPBOARD-PASTE-STREAM)
        (FNS TEDIT.COPYTOCLIPBOARD TEDIT.EXTRACTTOCLIPBOARD)
        (FNS SEDIT.COPYTOCLIPBOARD)
        (INITVARS (CLIPBOARD-FORMAT :UTF8))
        (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DOCOPY (FILES (SYSLOAD)
                                                              UNIXCOMM UNICODE)
               (P (INSTALL-CLIPBOARD)))
        (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
                                                                             (NLAML)
                                                                             (LAMA])



(* ; "Enable copy and paste")


(DEFINEQ

(INSTALL-CLIPBOARD
  [LAMBDA NIL                                               (* ; "Edited  8-Aug-2020 07:59 by rmk:")
                                                            (* ; "Edited 19-Apr-2020 12:15 by rmk:")
                                                            (* ; "Edited 18-Apr-2018 23:00 by rmk:")
    (CL:WHEN (GETD 'LISPINTERRUPTS.PASTE)
        (MOVD? 'LISPINTERRUPTS 'LISPINTERRUPTS.ORIG)
        (MOVD 'LISPINTERRUPTS.PASTE 'LISPINTERRUPTS))
    (INTERRUPTCHAR (CHARCODE "1,v")
           '(PASTEFROMCLIPBOARD))
    (INTERRUPTCHAR (CHARCODE "1,V")
           '(PASTEFROMCLIPBOARD))
    (CL:WHEN (BOUNDP 'TEDIT.READTABLE)                       (* ; "TEDIT")

        (* ;; "Paste")

        (TEDIT.SETFUNCTION (CHARCODE "1,v")
               (FUNCTION PASTEFROMCLIPBOARD)
               TEDIT.READTABLE)
        (TEDIT.SETFUNCTION (CHARCODE "1,V")
               (FUNCTION PASTEFROMCLIPBOARD)
               TEDIT.READTABLE)

        (* ;; "Copy")

        (TEDIT.SETFUNCTION (CHARCODE "1,c")
               (FUNCTION TEDIT.COPYTOCLIPBOARD)
               TEDIT.READTABLE)
        (TEDIT.SETFUNCTION (CHARCODE "1,C")
               (FUNCTION TEDIT.COPYTOCLIPBOARD)
               TEDIT.READTABLE)

        (* ;; "Extract")

        (TEDIT.SETFUNCTION (CHARCODE "1,X")
               (FUNCTION TEDIT.EXTRACTTOCLIPBOARD)
               TEDIT.READTABLE)
        (TEDIT.SETFUNCTION (CHARCODE "1,x")
               (FUNCTION TEDIT.EXTRACTTOCLIPBOARD)
               TEDIT.READTABLE))
    (CL:WHEN (GETP 'SEDIT 'FILEDATES)                        (* ; 
                                                             "SEDIT copy: INTERRUPTCHAR does paste")
        (SEDIT:ADD-COMMAND "1,c" 'SEDIT.COPYTOCLIPBOARD)
        (SEDIT:ADD-COMMAND "1,C" 'SEDIT.COPYTOCLIPBOARD)
        (SEDIT:RESET-COMMANDS))])

(GETCLIPBOARD

  [LAMBDA NIL
                                           (* ; "Edited 22-Feb-2021 14:23 by rmk:")


                                                            (* ; "Edited 25-Apr-2018 16:56 by rmk:")

    (CL:WITH-OPEN-STREAM (s (CLIPBOARD-PASTE-STREAM
))
           (\EXTERNALFORMAT s CLIPBOARD-FORMAT)
           [SETFILEINFO s 'ENDOFSTREAMOP #'(CL:LAMBDA (s)
                                                  (RETFROM (FUNCTION READCCODE)
                                                         NIL]
           (CONCATCODES (BIND
 C WHILE
 (SETQ C (READCCODE s)) COLLECT
 C])

(PUTCLIPBOARD

  [LAMBDA (OBJECT PRINTFN)
                              (* ; "Edited 22-Feb-2021 14:38 by rmk:")


                                                            (* ; "Edited 25-Apr-2018 16:49 by rmk:")


    (* ;; "Clipboard is UNICODE and UTF8")


    (CL:WITH-OPEN-STREAM (s (CLIPBOARD-COPY-STREAM
))
           (\EXTERNALFORMAT s CLIPBOARD-FORMAT)
           (IF
 PRINTFN
               THEN
 (APPLY* PRINTFN OBJECT s)
             ELSE
 (PRIN3 OBJECT s])

(PASTEFROMCLIPBOARD

  [LAMBDA NIL
                                           (* ; "Edited 15-Feb-2021 23:43 by rmk:")


                                                            (* ; "Edited 18-Apr-2018 13:56 by rmk:")


                                                            (* ; "Edited 17-Apr-2018 23:11 by rmk:")


    (* ;; "If for some reason TTY process doesn't have a window (e.g. TEXEC), we can only do the character printing.  Presumably the right thing to do--no image objects in an exec.")


    (* ;; "Should be able to just call COPYINSERT, but the default BKSYSBUF puts in string quotes.")


    (LET [(STR (GETCLIPBOARD
))
          (WINDOW (PROCESS.WINDOW (TTY.PROCESS]
         (IF
 (AND WINDOW (WINDOWPROP WINDOW 'COPYINSERTFN))
             THEN
 (COPYINSERT STR)
           ELSE
 (BIND
 C WHILE
 (SETQ C (GNCCODE STR)) DO
 (BKSYSCHARCODE C])

(LISPINTERRUPTS.PASTE

  [LAMBDA NIL
                                           (* ; "Edited 18-Apr-2018 22:59 by rmk:")


    (* ;; "So paste interrupts will be installed in every process")


    (APPEND [LIST (LIST (CHARCODE "1,v")
                        '(PASTEFROMCLIPBOARD
))
                  (LIST (CHARCODE "1,V")
                        '(PASTEFROMCLIPBOARD
]
           (LISPINTERRUPTS.ORIG])

(CLIPBOARD-COPY-STREAM

  [LAMBDA NIL
                                           (* ; "Edited 22-Feb-2021 14:38 by rmk:")

    (LET ((OST (UNIX-GETENV "OSTYPE")))
         (CREATE-PROCESS-STREAM (CL:IF (STRPOS "darwin" OST)
                                    "pbcopy"
                                    "xclip")])

(CLIPBOARD-PASTE-STREAM

  [LAMBDA NIL
                                           (* ; "Edited 22-Feb-2021 14:23 by rmk:")

    (LET ((OST (UNIX-GETENV "OSTYPE")))
         (CREATE-PROCESS-STREAM (CL:IF (STRPOS "darwin" OST)
                                    "pbpaste"
                                    "xclip")])
)
(DEFINEQ

(TEDIT.COPYTOCLIPBOARD

  [LAMBDA NIL
                                           (* ; "Edited 18-Apr-2018 00:02 by rmk:")

    (LET [(TEXTSTREAM (TEXTSTREAM (TTY.PROCESS]
         (IF
 TEXTSTREAM
             THEN
 (PUTCLIPBOARD
 (TEDIT.SEL.AS.STRING TEXTSTREAM])

(TEDIT.EXTRACTTOCLIPBOARD

  [LAMBDA NIL
                                           (* ; "Edited 19-Apr-2020 12:17 by rmk:")


                                                            (* ; "Edited 18-Apr-2018 00:02 by rmk:")

    (LET [(TEXTSTREAM (TEXTSTREAM (TTY.PROCESS]
         (IF
 TEXTSTREAM
             THEN
 (PUTCLIPBOARD
 (TEDIT.SEL.AS.STRING TEXTSTREAM))
                   (TEDIT.DELETE TEXTSTREAM (TEDIT.GETSEL TEXTSTREAM])
)
(DEFINEQ

(SEDIT.COPYTOCLIPBOARD

  [LAMBDA (CONTEXT)
                                     (* ; "Edited  8-Aug-2020 15:25 by rmk:")


                                                            (* ; "Edited 24-Apr-2018 20:39 by rmk:")


                                                            (* ; "Edited 24-Apr-2018 20:33 by rmk:")


                                                            (* ; "Edited 23-Apr-2018 18:19 by rmk:")

    [CL:MULTIPLE-VALUE-BIND (SEL SELTYPE)
           (SEDIT:GET-SELECTION CONTEXT)

           (* ;; "SEL could be a list of several elements, or a structure, depending on SELTYPE.  ")


           (* ;; "SELTYPE=NIL means not a valid selection, and SEL is NIL.  Non-NIL values are :SUB-LIST, :CHARACTERS, and T")


           (CL:WHEN SELTYPE
               [PUTCLIPBOARD
 (CONS SEL (EQ SELTYPE :SUB-LIST))
                      (FUNCTION (LAMBDA (PAIR STREAM)
                                  (LET ((*PRINT-PRETTY* T)
                                        (PRETTYTABFLG NIL)
                                        (FONTCHANGEFLG NIL)
                                        (%#RPARS NIL))
                                       (DECLARE
 (SPECVARS *PRINT-PRETTY* %#RPARS PRETTYTABFLG 
                                                           FONTCHANGEFLG))
                                       (PRINTDEF (CAR PAIR)
                                              0 NIL (CDR PAIR)
                                              NIL STREAM])]
    T])
)

(RPAQ? CLIPBOARD-FORMAT
 :UTF8)
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DOCOPY 

(FILESLOAD (SYSLOAD)
       UNIXCOMM UNICODE)


(INSTALL-CLIPBOARD
)
)
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 )
)
(PUTPROPS CLIPBOARD COPYRIGHT (NONE))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (1376 6335 (INSTALL-CLIPBOARD 1386 . 3208) (GETCLIPBOARD 3210 . 3832) (PUTCLIPBOARD 3834
 . 4336) (PASTEFROMCLIPBOARD 4338 . 5256) (LISPINTERRUPTS.PASTE 5258 . 5679) (CLIPBOARD-COPY-STREAM 
5681 . 6005) (CLIPBOARD-PASTE-STREAM 6007 . 6333)) (6336 7095 (TEDIT.COPYTOCLIPBOARD 6346 . 6627) (
TEDIT.EXTRACTTOCLIPBOARD 6629 . 7093)) (7096 8635 (SEDIT.COPYTOCLIPBOARD 7106 . 8633)))))
STOP
\ No newline at end of file
+(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

(FILECREATED "23-Feb-2021 17:31:20" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.;51
 9084   

      changes to%:  (FNS CLIPBOARD-PASTE-STREAM CLIPBOARD-COPY-STREAM)

      previous date%: "23-Feb-2021 11:34:57" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.;50)


(PRETTYCOMPRINT CLIPBOARDCOMS)

(RPAQQ CLIPBOARDCOMS

       [                                                     (* ; "Enable copy and paste")

        (FNS INSTALL-CLIPBOARD GETCLIPBOARD PUTCLIPBOARD PASTEFROMCLIPBOARD LISPINTERRUPTS.PASTE 
             CLIPBOARD-COPY-STREAM CLIPBOARD-PASTE-STREAM)
        (FNS TEDIT.COPYTOCLIPBOARD TEDIT.EXTRACTTOCLIPBOARD)
        (FNS SEDIT.COPYTOCLIPBOARD)
        (INITVARS (CLIPBOARD-FORMAT :UTF8))
        (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DOCOPY (FILES (SYSLOAD)
                                                              UNIXCOMM UNICODE)
               (P (INSTALL-CLIPBOARD)))
        (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
                                                                             (NLAML)
                                                                             (LAMA])



(* ; "Enable copy and paste")


(DEFINEQ

(INSTALL-CLIPBOARD
  [LAMBDA NIL                                               (* ; "Edited  8-Aug-2020 07:59 by rmk:")
                                                            (* ; "Edited 19-Apr-2020 12:15 by rmk:")
                                                            (* ; "Edited 18-Apr-2018 23:00 by rmk:")
    (CL:WHEN (GETD 'LISPINTERRUPTS.PASTE)
        (MOVD? 'LISPINTERRUPTS 'LISPINTERRUPTS.ORIG)
        (MOVD 'LISPINTERRUPTS.PASTE 'LISPINTERRUPTS))
    (INTERRUPTCHAR (CHARCODE "1,v")
           '(PASTEFROMCLIPBOARD))
    (INTERRUPTCHAR (CHARCODE "1,V")
           '(PASTEFROMCLIPBOARD))
    (CL:WHEN (BOUNDP 'TEDIT.READTABLE)                       (* ; "TEDIT")

        (* ;; "Paste")

        (TEDIT.SETFUNCTION (CHARCODE "1,v")
               (FUNCTION PASTEFROMCLIPBOARD)
               TEDIT.READTABLE)
        (TEDIT.SETFUNCTION (CHARCODE "1,V")
               (FUNCTION PASTEFROMCLIPBOARD)
               TEDIT.READTABLE)

        (* ;; "Copy")

        (TEDIT.SETFUNCTION (CHARCODE "1,c")
               (FUNCTION TEDIT.COPYTOCLIPBOARD)
               TEDIT.READTABLE)
        (TEDIT.SETFUNCTION (CHARCODE "1,C")
               (FUNCTION TEDIT.COPYTOCLIPBOARD)
               TEDIT.READTABLE)

        (* ;; "Extract")

        (TEDIT.SETFUNCTION (CHARCODE "1,X")
               (FUNCTION TEDIT.EXTRACTTOCLIPBOARD)
               TEDIT.READTABLE)
        (TEDIT.SETFUNCTION (CHARCODE "1,x")
               (FUNCTION TEDIT.EXTRACTTOCLIPBOARD)
               TEDIT.READTABLE))
    (CL:WHEN (GETP 'SEDIT 'FILEDATES)                        (* ; 
                                                             "SEDIT copy: INTERRUPTCHAR does paste")
        (SEDIT:ADD-COMMAND "1,c" 'SEDIT.COPYTOCLIPBOARD)
        (SEDIT:ADD-COMMAND "1,C" 'SEDIT.COPYTOCLIPBOARD)
        (SEDIT:RESET-COMMANDS))])

(GETCLIPBOARD

  [LAMBDA NIL
                                           (* ; "Edited 23-Feb-2021 11:32 by rmk:")


                                                            (* ; "Edited 25-Apr-2018 16:56 by rmk:")

    (CL:WITH-OPEN-STREAM (s (CLIPBOARD-PASTE-STREAM
))
           (CONCATCODES (BIND
 C WHILE
 (SETQ C (READCCODE s)) COLLECT
 C])

(PUTCLIPBOARD

  [LAMBDA (OBJECT PRINTFN)
                              (* ; "Edited 23-Feb-2021 11:32 by rmk:")


                                                            (* ; "Edited 25-Apr-2018 16:49 by rmk:")

    (CL:WITH-OPEN-STREAM (s (CLIPBOARD-COPY-STREAM
))
           (IF
 PRINTFN
               THEN
 (APPLY* PRINTFN OBJECT s)
             ELSE
 (PRIN3 OBJECT s])

(PASTEFROMCLIPBOARD

  [LAMBDA NIL
                                           (* ; "Edited 15-Feb-2021 23:43 by rmk:")


                                                            (* ; "Edited 18-Apr-2018 13:56 by rmk:")


                                                            (* ; "Edited 17-Apr-2018 23:11 by rmk:")


    (* ;; "If for some reason TTY process doesn't have a window (e.g. TEXEC), we can only do the character printing.  Presumably the right thing to do--no image objects in an exec.")


    (* ;; "Should be able to just call COPYINSERT, but the default BKSYSBUF puts in string quotes.")


    (LET [(STR (GETCLIPBOARD
))
          (WINDOW (PROCESS.WINDOW (TTY.PROCESS]
         (IF
 (AND WINDOW (WINDOWPROP WINDOW 'COPYINSERTFN))
             THEN
 (COPYINSERT STR)
           ELSE
 (BIND
 C WHILE
 (SETQ C (GNCCODE STR)) DO
 (BKSYSCHARCODE C])

(LISPINTERRUPTS.PASTE

  [LAMBDA NIL
                                           (* ; "Edited 18-Apr-2018 22:59 by rmk:")


    (* ;; "So paste interrupts will be installed in every process")


    (APPEND [LIST (LIST (CHARCODE "1,v")
                        '(PASTEFROMCLIPBOARD
))
                  (LIST (CHARCODE "1,V")
                        '(PASTEFROMCLIPBOARD
]
           (LISPINTERRUPTS.ORIG])

(CLIPBOARD-COPY-STREAM

  [LAMBDA NIL
                                           (* ; "Edited 23-Feb-2021 17:31 by rmk:")


    (* ;; "Clipboard is UNICODE and UTF8")


    (LET (STRM (OST (UNIX-GETENV "OSTYPE")))
         [SETQ STRM (CREATE-PROCESS-STREAM '(CL:IF (STRPOS "darwin" OST)
                                                "pbcopy"
                                                "xclip -i -selection clipboard")]
         (\EXTERNALFORMAT STRM CLIPBOARD-FORMAT)
         STRM])

(CLIPBOARD-PASTE-STREAM

  [LAMBDA NIL
                                           (* ; "Edited 23-Feb-2021 17:29 by rmk:")

    (LET (STRM (OST (UNIX-GETENV "OSTYPE")))
         (SETQ STRM (CREATE-PROCESS-STREAM (CL:IF (STRPOS "darwin" OST)
                                               "pbpaste"
                                               "xclip -o -selection clipboard")))
         (\EXTERNALFORMAT STRM CLIPBOARD-FORMAT)
         [SETFILEINFO STRM 'ENDOFSTREAMOP #'(CL:LAMBDA (s)
                                                   (RETFROM (FUNCTION READCCODE)
                                                          NIL]
         STRM])
)
(DEFINEQ

(TEDIT.COPYTOCLIPBOARD

  [LAMBDA NIL
                                           (* ; "Edited 18-Apr-2018 00:02 by rmk:")

    (LET [(TEXTSTREAM (TEXTSTREAM (TTY.PROCESS]
         (IF
 TEXTSTREAM
             THEN
 (PUTCLIPBOARD
 (TEDIT.SEL.AS.STRING TEXTSTREAM])

(TEDIT.EXTRACTTOCLIPBOARD

  [LAMBDA NIL
                                           (* ; "Edited 19-Apr-2020 12:17 by rmk:")


                                                            (* ; "Edited 18-Apr-2018 00:02 by rmk:")

    (LET [(TEXTSTREAM (TEXTSTREAM (TTY.PROCESS]
         (IF
 TEXTSTREAM
             THEN
 (PUTCLIPBOARD
 (TEDIT.SEL.AS.STRING TEXTSTREAM))
                   (TEDIT.DELETE TEXTSTREAM (TEDIT.GETSEL TEXTSTREAM])
)
(DEFINEQ

(SEDIT.COPYTOCLIPBOARD

  [LAMBDA (CONTEXT)
                                     (* ; "Edited  8-Aug-2020 15:25 by rmk:")


                                                            (* ; "Edited 24-Apr-2018 20:39 by rmk:")


                                                            (* ; "Edited 24-Apr-2018 20:33 by rmk:")


                                                            (* ; "Edited 23-Apr-2018 18:19 by rmk:")

    [CL:MULTIPLE-VALUE-BIND (SEL SELTYPE)
           (SEDIT:GET-SELECTION CONTEXT)

           (* ;; "SEL could be a list of several elements, or a structure, depending on SELTYPE.  ")


           (* ;; "SELTYPE=NIL means not a valid selection, and SEL is NIL.  Non-NIL values are :SUB-LIST, :CHARACTERS, and T")


           (CL:WHEN SELTYPE
               [PUTCLIPBOARD
 (CONS SEL (EQ SELTYPE :SUB-LIST))
                      (FUNCTION (LAMBDA (PAIR STREAM)
                                  (LET ((*PRINT-PRETTY* T)
                                        (PRETTYTABFLG NIL)
                                        (FONTCHANGEFLG NIL)
                                        (%#RPARS NIL))
                                       (DECLARE
 (SPECVARS *PRINT-PRETTY* %#RPARS PRETTYTABFLG 
                                                           FONTCHANGEFLG))
                                       (PRINTDEF (CAR PAIR)
                                              0 NIL (CDR PAIR)
                                              NIL STREAM])]
    T])
)

(RPAQ? CLIPBOARD-FORMAT
 :UTF8)
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DOCOPY 

(FILESLOAD (SYSLOAD)
       UNIXCOMM UNICODE)


(INSTALL-CLIPBOARD
)
)
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 )
)
(PUTPROPS CLIPBOARD COPYRIGHT (NONE))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (1309 6431 (INSTALL-CLIPBOARD 1319 . 3141) (GETCLIPBOARD 3143 . 3517) (PUTCLIPBOARD 3519
 . 3924) (PASTEFROMCLIPBOARD 3926 . 4844) (LISPINTERRUPTS.PASTE 4846 . 5267) (CLIPBOARD-COPY-STREAM 
5269 . 5771) (CLIPBOARD-PASTE-STREAM 5773 . 6429)) (6432 7191 (TEDIT.COPYTOCLIPBOARD 6442 . 6723) (
TEDIT.EXTRACTTOCLIPBOARD 6725 . 7189)) (7192 8731 (SEDIT.COPYTOCLIPBOARD 7202 . 8729)))))
STOP
\ No newline at end of file
diff --git a/library/CLIPBOARD.LCOM b/library/CLIPBOARD.LCOM
index 4fe0bc17dfff199c7e7a39757c956db307d70f77..f296faefa7108b89bb54eabc7c05ec251a498f93 100644
GIT binary patch
delta 817
zcma))%Wl&^6hLjK4J62+DKwP;i7OWxM>Lhkj?>g2RM!vT$gy3=LR2k_ywpUB;xq}b
zA7D+H1)so%MWrg@v4Njp!!NLDckE!CqEx6|FpH}@qnUfpnVDbN<Ln#fnv^$N^}HyE
z2+*1$Aw?7pY5^mogO96k=U4DOdUK_y$VEjeaXFSZE!)t1Lk$caIPs#x`}$28!Mac?
zK%-sj?X`w53hyewn@$y2oJwTy?{p@cgZ`lPyc0efLbEn%kq!TrLyA;T<h6r+osos3
zZ_IHF?<4>(U*bEeAQXfgP-ups==4S`NKj<#j5CksC)p&l8_BPC;`H1XYn&*zZ)|@$
z{83*1eE6N>MG1B*k8P_O04jmzI+_}2u5MJJ1jJ0&qDhW*EE}K1uj2>F1-yOvCoN(l
z;Xn0!%Lz;eOhDjnmJKZ+sR%<7C5XTf0lQ7jP_*}M%kMJY)zs@PKN$i3#fnd`2nIUC
zC_+?MI$BDeFbxFNz^{M@0=R@RDzDj=x9O_Bo;O{;q6VY~$IuiNPV1)A^x0&)dD_vM
zqj*VxUE@h$_>O9y9tKgwF1v{P?1F{XfY)rrGJz*eJ+}&6vo?6q>2Xo-9B}=5BkaH8
zfP2~KcKVR-Kz`Wjwi=^O*n?=P9@Yj;E{ET<OS8mZKzJPAh+cUE6urdq9=WLh@zKxu
z;8ph4!>P(%q&f*#qAXG?7NBYb(T}to(}hCmoGGrbVvLv9F`HPtKcNG;0EVNxCSfwv
VitCX-4U#<d3orCLvQr;s{{ZRu!z=&*

delta 866
zcmb`EOK%cU7={NbNG(HKHK^#~bG$G_F>?cl>BeC$Is|5hnNwnuZYW}D(g+IPR^1ra
zk`v>fa6u%-OHBF;T<XHO@gLNkJ3TW*XpM;*XL06y=X`nJ?|sf*_DA-aeN4!k?Tx&^
z2|VzUB9;`XIBcS*BoE(Q$y_&(R<+!+qk1~HtNRK(T1ey6(KKF;lrKvP$18;*lcQPF
zsv4SSsL0TP5&kBASFcDi$R$~ZR;PJqv)zY5_ksd!L-l;1r+%7K^K-zOwh#Xt<0RX=
z*M6|oz267=R&&rMatvRXB@;wNl1VrQh66P!T^&D+?#;zij^hOUF?kI);%h5Y<Gks3
zH5GvgMIbE_mjkMDXpV}Y)gu)7cF|_=3zvoP0Dp*Qc9Og2<B_HJ*6aC7C$si;^rdp~
z-RKj=lCbNwM%D5WNFr#Ct*J<Jbi)Tx1VT#Jf(ir?d;<meEZcO5^}2Br8J?|HC*u&d
zynKK}Fg_n<0A7T1hOIlMkBDN;aY=WM-j6Nl6LJ3V&#0Kg-xA01?f6;TN}Sp0lbk%b
zo@FD`CVK&#a>dYs_+;AOk3VA~g-m$DBumApi0e<7)L(e+cC@~jdg{61$$UVj(@KO?
zC{`#<DF{+%Cx#j610ly>6W^mN95_BA2A3j4q8sRhV#|?9aU;}!9$q||T`v*T9OjZI
z@MrqeY1^vOEQkeQ9<{c&dJK>OnBGRK+k1@bsSJLVOlzR%GR?a1AN&^o@Ehx?m$6@?
CC(4lk