(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 7-Jul-2022 23:53:01" ("compiled on " {DSK}kaplan>Local>medley3.5>working-medley>library>CLIPBOARD.;7) " 7-Jul-2022 11:00:25" brecompiled exprs%: CLIPBOARD-COPY-STREAM CLIPBOARD-PASTE-STREAM in "FULL 7-Jul-2022 ..." dated " 7-Jul-2022 11:00:31") (FILECREATED " 7-Jul-2022 23:53:01" {DSK}kaplan>Local>medley3.5>working-medley>library>CLIPBOARD.;7 9243 :CHANGES-TO (VARS CLIPBOARDCOMS) (FNS CLIPBOARD-COPY-STREAM CLIPBOARD-PASTE-STREAM) :PREVIOUS-DATE " 3-Jul-2021 13:16:26" {DSK}kaplan>Local>medley3.5>working-medley>library>CLIPBOARD.;6) INSTALL-CLIPBOARD :D8 (F 0 TEDIT.READTABLE) ìg ²"gg ¿gg ¿nvo nVo g ²\nvgP ¿nVgP ¿ncgP ¿nCgP ¿nXgP ¿nxgP ¿gg ´/ogoo og (233 SEDIT:RESET-COMMANDS 228 SEDIT:ADD-COMMAND 213 SEDIT:ADD-COMMAND 186 GETP 170 TEDIT.SETFUNCTION 155 TEDIT.SETFUNCTION 140 TEDIT.SETFUNCTION 125 TEDIT.SETFUNCTION 110 TEDIT.SETFUNCTION 95 TEDIT.SETFUNCTION 79 BOUNDP 69 INTERRUPTCHAR 56 INTERRUPTCHAR 42 MOVD 26 MOVD? 9 \DEFINEDP) (223 SEDIT.COPYTOCLIPBOARD 198 SEDIT.COPYTOCLIPBOARD 181 FILEDATES 176 SEDIT 164 TEDIT.EXTRACTTOCLIPBOARD 149 TEDIT.EXTRACTTOCLIPBOARD 134 TEDIT.COPYTOCLIPBOARD 119 TEDIT.COPYTOCLIPBOARD 104 PASTEFROMCLIPBOARD 89 PASTEFROMCLIPBOARD 74 TEDIT.READTABLE 37 LISPINTERRUPTS 32 LISPINTERRUPTS.PASTE 21 LISPINTERRUPTS.ORIG 16 LISPINTERRUPTS 4 LISPINTERRUPTS.PASTE) ( 218 "Meta,C" 208 "Copy to clipboard" 203 "M-c" 193 "Meta,c" 64 (PASTEFROMCLIPBOARD) 51 (PASTEFROMCLIPBOARD)) GETCLIPBOARDA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 3 C I 0 SI::*CLEANUP-FORMS* F 4 s F 5 A0040) 1@T [µH hc ¿$ºIµ JhY¸°ÚJ&¹°Õ(23 \MVLIST 18 CONCATCODES 8 READCCODE) NIL () GETCLIPBOARDA0002 :D8 (F 0 s F 1 A0040) PgQ (11 CL:CLOSE) (5 :ABORT) () GETCLIPBOARD :D8 (P 1 A0040 P 0 s) *ig HgI ¿$(35 CL:CLOSE 23 \MVLIST 18 GETCLIPBOARDA0001 4 CLIPBOARD-PASTE-STREAM) (29 :ABORT 13 GETCLIPBOARDA0002) () PUTCLIPBOARDA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 PRINTFN F 1 OBJECT F 2 s F 3 A0041) P—QRlP†QR hc¿$(21 \MVLIST 16 PRIN3) NIL () PUTCLIPBOARDA0002 :D8 (F 0 s F 1 A0041) PgQ (11 CL:CLOSE) (5 :ABORT) () PUTCLIPBOARD :D8 (P 1 A0041 P 0 s I 1 PRINTFN I 0 OBJECT) *ig HgI ¿$(35 CL:CLOSE 23 \MVLIST 18 PUTCLIPBOARDA0001 4 CLIPBOARD-COPY-STREAM) (29 :ABORT 13 PUTCLIPBOARDA0002) () PASTEFROMCLIPBOARD :D8 (P 2 C P 1 WINDOW P 0 STR) ? IµH Zd³g ²èH  ¿°Ü(58 BKSYSCHARCODE 52 COPYINSERT 44 GETWINDOWUSERPROP 29 GNCCODE 14 PROCESS.WINDOW 9 TTY.PROCESS 4 GETCLIPBOARD) (39 COPYINSERTFN) () LISPINTERRUPTS.PASTE :D8 NIL %nvohnVohh (34 \APPEND2 29 LISPINTERRUPTS.ORIG) NIL ( 18 (PASTEFROMCLIPBOARD) 7 (PASTEFROMCLIPBOARD)) CLIPBOARD-COPY-STREAM :D8 (P 1 STRM P 0 OST) +o oH •o„o (40 CREATE-PROCESS-STREAM 23 STRPOS 9 UNIX-GETENV) NIL ( 35 "xclip -i -selection clipboard" 29 "pbcopy" 17 "darwin" 4 "OSTYPE") CLIPBOARD-PASTE-STREAMA0001 :D8 (L (0 s)) gh (10 RETFROM) (4 READCCODE) () CLIPBOARD-PASTE-STREAM :D8 (P 1 STRM P 0 OST) =o oH •o„o Ydgg I(57 SETFILEINFO 40 CREATE-PROCESS-STREAM 23 STRPOS 9 UNIX-GETENV) (52 CLIPBOARD-PASTE-STREAMA0001 47 ENDOFSTREAMOP) ( 35 "xclip -o -selection clipboard" 29 "pbpaste" 17 "darwin" 4 "OSTYPE") TEDIT.COPYTOCLIPBOARD :D8 (P 0 TEXTSTREAM) ` Hd™ (25 PUTCLIPBOARD 20 TEDIT.SEL.AS.STRING 9 TEXTSTREAM) (4 \TTY.PROCESS) () TEDIT.EXTRACTTOCLIPBOARD :D8 (P 0 TEXTSTREAM) )` Hd² Hd (38 TEDIT.DELETE 33 TEDIT.GETSEL 26 PUTCLIPBOARD 21 TEDIT.SEL.AS.STRING 9 TEXTSTREAM) (4 \TTY.PROCESS) () SEDIT.COPYTOCLIPBOARDA0001 :D8 (P 3 %#RPARS P 2 FONTCHANGEFLG P 1 PRETTYTABFLG P 0 *PRINT-PRETTY* I 1 STREAM I 0 PAIR) i1@jh@hA (17 PRINTDEF) NIL () SEDIT.COPYTOCLIPBOARD :D8 (P 2 SEL P 1 SELTYPE P 0 A0031 I 0 CONTEXT) -@ !HºHY²JIgðg i(41 PUTCLIPBOARD 10 \MVLIST 5 SEDIT:GET-SELECTION) (36 SEDIT.COPYTOCLIPBOARDA0001 29 :SUB-LIST) () (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) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DOCOPY (FILES (SYSLOAD) UNIXCOMM UNICODE) (P (INSTALL-CLIPBOARD))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))))) (FILESLOAD (SYSLOAD) UNIXCOMM UNICODE) (INSTALL-CLIPBOARD) (PUTPROPS CLIPBOARD COPYRIGHT (NONE)) NIL