github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-05 07:34:31 +00:00
Code Issues Projects Releases Wiki Activity

Rmk55 gitfns with redirect (#826)

Browse Source 
* CLIPBOARD, FILEIO: external format

CLIPBOARD uses SYSTEM-EXTERNALFORMAT.
FILEIO:  added sourceparameters argument to COPYFILE, so format can be specified.

* GITFNS:  rework to avoid hanging process stream

Redirects command output to tmp output and error streams, at most only looks for a COMPLETED signal in the process stream (which still sometimes hangs)

* EXAMINEDEFS:  Asks for a menu position on a keyboard call

(Otherwise, the chunk menu may be buried under the TTY window)
This commit is contained in:
rmkaplan
2022-07-15 18:01:30 -07:00
committed by GitHub
parent de3185002c
commit 8ee32f6243
8 changed files with 378 additions and 222 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
lispusers/EXAMINEDEFS
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "24-Jun-2022 18:52:03" 
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>EXAMINEDEFS.;39 12695
(FILECREATED " 9-Jul-2022 11:05:08" 
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>EXAMINEDEFS.;40 12957
:CHANGES-TO (FNS EXAMINEDEFS)
:PREVIOUS-DATE "23-Jun-2022 17:58:57"
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>EXAMINEDEFS.;38)
:PREVIOUS-DATE "24-Jun-2022 18:52:03"
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>EXAMINEDEFS.;39)
(PRETTYCOMPRINT EXAMINEDEFSCOMS)
@@ -19,7 +19,8 @@
(DEFINEQ
(EXAMINEDEFS
[LAMBDA (NAME TYPE SOURCE1 SOURCE2 TITLE1 TITLE2 REGION) (* ; "Edited 24-Jun-2022 18:51 by rmk")
[LAMBDA (NAME TYPE SOURCE1 SOURCE2 TITLE1 TITLE2 REGION) (* ; "Edited 9-Jul-2022 11:04 by rmk")
(* ; "Edited 24-Jun-2022 18:51 by rmk")
(* ; "Edited 23-Jun-2022 17:58 by rmk")
(* ; "Edited 25-Feb-2022 15:01 by rmk")
@@ -132,7 +133,9 @@
TEXTWIDTH)
(TEDITDEF NAME DEF2 TYPE NIL
TEXTWIDTH)
'LINE REGION (LIST TITLE1 TITLE2)
'LINE
(OR REGION (GETPOSITION))
(LIST TITLE1 TITLE2)
(CONCAT "Compare sources of " NAME
" as " TYPE)
TEXTWIDTH TEXTHEIGHT))
@@ -213,6 +216,6 @@
(FILESLOAD (SYSLOAD)
COMPARETEXT)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (671 12553 (EXAMINEDEFS 681 . 9275) (EXAMINEFILES 9277 . 10672) (TEDITDEF 10674 . 12551)
(FILEMAP (NIL (671 12815 (EXAMINEDEFS 681 . 9537) (EXAMINEFILES 9539 . 10934) (TEDITDEF 10936 . 12813)
))))
STOP