github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-25 20:01:51 +00:00
Code Issues Projects Releases Wiki Activity

Rmk158 Remake files to convert the 247Q package-delimiter in DEFINE-FILE-INFO to 30Q (#2506)

Browse Source 
* Remake files to convert the 247Q package-delimiter in DEFINE-FILE-INFO expressions to 30Q

* Remake TRANSOR after removing HIST command

* Remake TRANSOR-LOADTRAN after changing the filecoms variable
This commit is contained in:
rmkaplan
2026-02-23 12:04:11 -08:00
committed by GitHub
parent cc0a819cd5
commit 93a04227d8
29 changed files with 889 additions and 879 deletions
Download Patch File Download Diff File Expand all files Collapse all files

139
lispusers/COMMWINDOW
View File

@@ -1,95 +1,88 @@
(DEFINE-FILE-INFO §PACKAGE "INTERLISP" §READTABLE "INTERLISP" §BASE 10)
(FILECREATED " 2-Apr-87 17:06:05" {ERIS}<LISPUSERS>LYRIC>COMMWINDOW.;3 49786
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
changes to%: (VARS REMOTE-CURSOR COMMWINDOWCOMS)
(COURIERPROGRAMS COMMWINDOW)
(FNS CLOSE-FRAME START-GET-BITS SEND-BITS FRAME-EVENT MAKE-FRAME)
(FUNCTIONS \PILOTBITBLT)
(FILECREATED "18-Feb-2026 16:21:29" {WMEDLEY}<lispusers>COMMWINDOW.;2 48680
previous date%: " 2-Apr-87 16:54:24" {ERIS}<LISPUSERS>LYRIC>COMMWINDOW.;2)
:EDIT-BY rmk
:PREVIOUS-DATE " 2-Apr-87 17:06:05" {WMEDLEY}<lispusers>COMMWINDOW.;1)
(* "
Copyright (c) 1986, 1900, 1987 by Xerox Corporation. All rights reserved.
")
(PRETTYCOMPRINT COMMWINDOWCOMS)
(RPAQQ COMMWINDOWCOMS (
(RPAQQ COMMWINDOWCOMS
(
(* ;;; "Viewer end")
(FNS CLOSE-FRAME GET-BITS START-GET-BITS)
(FILES COURIERSERVE)
(FNS CLOSE-FRAME GET-BITS START-GET-BITS)
(FILES COURIERSERVE)
(* ;;; "Sender end")
(FNS SEND-BITS SEND-TILE LISTEN-TO-VIEWER MAPTILES SHUT-DOWN-VIEWER
CHANGE-SENDER-UPDATE-MODE)
(FUNCTIONS INCR \PILOTBITBLT)
(* ;; "Controling update schemes")
(FNS SEND-BITS SEND-TILE LISTEN-TO-VIEWER MAPTILES SHUT-DOWN-VIEWER CHANGE-SENDER-UPDATE-MODE
)
(FUNCTIONS INCR \PILOTBITBLT)
(* ;; "Controling update schemes")
(INITVARS (COMM.DEFAULT.TRANSMIT.TYPE 'SQUARE)
(COMM.SEND.UNCHANGED.TILES T)
(COMM.UPDATE.MOUSE.POSITION 'Sender))
(GLOBALVARS COMM.DEFAULT.TRANSMIT.TYPE COMM.UPDATE.MOUSE.POSITION
COMM.SEND.UNCHANGED.TILES)
(INITVARS (COMM.DEFAULT.TRANSMIT.TYPE 'SQUARE)
(COMM.SEND.UNCHANGED.TILES T)
(COMM.UPDATE.MOUSE.POSITION 'Sender))
(GLOBALVARS COMM.DEFAULT.TRANSMIT.TYPE COMM.UPDATE.MOUSE.POSITION COMM.SEND.UNCHANGED.TILES)
(* ;;; "Pruning out unchanged screen tiles")
(FNS PACKET-EQUAL GET-CACHED-PACKET PUT-CACHED-PACKET)
(FNS PACKET-EQUAL GET-CACHED-PACKET PUT-CACHED-PACKET)
(* ;;; "Low level packet exchange code")
(CONSTANTS COMM.BAND.PACKET.TYPE COMM.CURSOR.PACKET.TYPE
COMM.CURSOR.CLOSE.PACKET.TYPE COMM.SHUT.DOWN.PACKET.TYPE)
(VARIABLES MAX-PACKET-BITS)
(RECORDS COMM.XFER.PACKET)
(CONSTANTS COMM.BAND.PACKET.TYPE COMM.CURSOR.PACKET.TYPE COMM.CURSOR.CLOSE.PACKET.TYPE
COMM.SHUT.DOWN.PACKET.TYPE)
(VARIABLES MAX-PACKET-BITS)
(RECORDS COMM.XFER.PACKET)
(* ;;; "Packing and unpacking bitmaps into etherpackets")
(FNS BMTOPACKET PACKETTOBM)
(FNS BMTOPACKET PACKETTOBM)
(* ;;; "Displaying the viewing machine's cursor")
(VARS REMOTE-CURSOR)
(INITVARS (CURSORICON NIL))
(VARS REMOTE-CURSOR)
(INITVARS (CURSORICON NIL))
(* ;;; "Manipulating the frame that outlines the region being viewed")
(INITVARS (*FRAME-SHADE* GRAYSHADE))
(FNS FRAME-EVENT MAKE-FRAME MOVE-FRAME SHAPE-FRAME SET-FRAME-TITLE)
(INITVARS (*FRAME-SHADE* GRAYSHADE))
(FNS FRAME-EVENT MAKE-FRAME MOVE-FRAME SHAPE-FRAME SET-FRAME-TITLE)
(* ;;; "Changing the system parameters")
(FNS MAKE-MENUS-WINDOW MODE-MENU)
(VARS COMM-MODES)
(FNS MAKE-MENUS-WINDOW MODE-MENU)
(VARS COMM-MODES)
(* ;;; "Initialization")
(P (COURIER.START.SERVER))
(P (COURIER.START.SERVER))
(* ;;; "Unused stuff, as far as I can tell")
(FNS FASTBITBLT)
(FNS FASTBITBLT)
(* ;;; "System file dependencies")
(DECLARE%: DONTCOPY DOEVAL@COMPILE (FILES (LOADCOMP)
LLDISPLAY LLETHER LLNS))
(COURIERPROGRAMS COMMWINDOW)))
(DECLARE%: DONTCOPY DOEVAL@COMPILE (FILES (LOADCOMP)
LLDISPLAY LLETHER LLNS))
(COURIERPROGRAMS COMMWINDOW)))
@@ -236,6 +229,7 @@ Copyright (c) 1986, 1900, 1987 by Xerox Corporation. All rights reserved.
(LIST 'RETURN (LIST (NSOCKETNUMBER NS)
(USERNAME])
)
(FILESLOAD COURIERSERVE)
@@ -446,19 +440,18 @@ Copyright (c) 1986, 1900, 1987 by Xerox Corporation. All rights reserved.
(SETQ COMM.DEFAULT.TRANSMIT.TYPE NEW-MODE)))
)
(DEFMACRO INCR (VAR START HEIGHT REPEATS UNTIL &REST FORMS)
(DEFMACRO INCR (VAR START HEIGHT REPEATS UNTIL &REST FORMS)
`(CL:DO ((REPEAT-COUNT 0 (+ REPEAT-COUNT 1)))
((>= REPEAT-COUNT ,REPEATS))
(CL:DO [(,VAR (+ ,START (CL:* REPEAT-COUNT ,HEIGHT))
(+ ,VAR (CL:* ,REPEATS ,HEIGHT]
(,UNTIL)
,@FORMS)))
(DEFMACRO \PILOTBITBLT (XCL-USER::TABLE &OPTIONAL (XCL-USER::N 0)) (CL:ASSERT (EQL XCL-USER::N 0))
`((OPCODES PILOTBITBLT)
,XCL-USER::TABLE 0))
(CL:DO [(,VAR (+ ,START (CL:* REPEAT-COUNT ,HEIGHT))
(+ ,VAR (CL:* ,REPEATS ,HEIGHT]
(,UNTIL)
,@FORMS)))
(DEFMACRO \PILOTBITBLT (XCL-USER::TABLE &OPTIONAL (XCL-USER::N 0))
(CL:ASSERT (EQL XCL-USER::N 0))
`((OPCODES PILOTBITBLT)
,XCL-USER::TABLE 0))
@@ -525,12 +518,12 @@ Copyright (c) 1986, 1900, 1987 by Xerox Corporation. All rights reserved.
(RPAQQ COMM.SHUT.DOWN.PACKET.TYPE 4246)
(CONSTANTS COMM.BAND.PACKET.TYPE COMM.CURSOR.PACKET.TYPE COMM.CURSOR.CLOSE.PACKET.TYPE
COMM.SHUT.DOWN.PACKET.TYPE)
)
(CL:DEFCONSTANT MAX-PACKET-BITS (CL:* 400 8) )
(CL:DEFCONSTANT MAX-PACKET-BITS (CL:* 400 8))
(DECLARE%: EVAL@COMPILE
(ACCESSFNS COMM.XFER.PACKET ((COMMPACKET (fetch (XIP XIPCONTENTS) of DATUM)))
@@ -807,6 +800,7 @@ Copyright (c) 1986, 1900, 1987 by Xerox Corporation. All rights reserved.
(* ;;; "Initialization")
(COURIER.START.SERVER)
@@ -862,6 +856,7 @@ Copyright (c) 1986, 1900, 1987 by Xerox Corporation. All rights reserved.
(* ;;; "System file dependencies")
(DECLARE%: DONTCOPY DOEVAL@COMPILE
(FILESLOAD (LOADCOMP)
LLDISPLAY LLETHER LLNS)
)
@@ -885,14 +880,14 @@ Copyright (c) 1986, 1900, 1987 by Xerox Corporation. All rights reserved.
ERRORS
((ERROR 1 (STRING))
(USE.COURIER 2 NIL)))
(PUTPROPS COMMWINDOW COPYRIGHT ("Xerox Corporation" 1986 1900 1987))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (3203 13134 (CLOSE-FRAME 3213 . 3364) (GET-BITS 3366 . 11655) (START-GET-BITS 11657 .
13132)) (13189 26236 (SEND-BITS 13199 . 16020) (SEND-TILE 16022 . 19145) (LISTEN-TO-VIEWER 19147 .
20450) (MAPTILES 20452 . 25175) (SHUT-DOWN-VIEWER 25177 . 26046) (CHANGE-SENDER-UPDATE-MODE 26048 .
26234)) (27219 29090 (PACKET-EQUAL 27229 . 28632) (GET-CACHED-PACKET 28634 . 28949) (PUT-CACHED-PACKET
28951 . 29088)) (30529 34252 (BMTOPACKET 30539 . 32500) (PACKETTOBM 32502 . 34250)) (34556 38865 (
FRAME-EVENT 34566 . 35224) (MAKE-FRAME 35226 . 37008) (MOVE-FRAME 37010 . 37280) (SHAPE-FRAME 37282 .
38672) (SET-FRAME-TITLE 38674 . 38863)) (38915 45792 (MAKE-MENUS-WINDOW 38925 . 41284) (MODE-MENU
41286 . 45790)) (45968 48955 (FASTBITBLT 45978 . 48953)))))
(FILEMAP (NIL (2306 12237 (CLOSE-FRAME 2316 . 2467) (GET-BITS 2469 . 10758) (START-GET-BITS 10760 .
12235)) (12293 25340 (SEND-BITS 12303 . 15124) (SEND-TILE 15126 . 18249) (LISTEN-TO-VIEWER 18251 .
19554) (MAPTILES 19556 . 24279) (SHUT-DOWN-VIEWER 24281 . 25150) (CHANGE-SENDER-UPDATE-MODE 25152 .
25338)) (25342 25656 (INCR 25342 . 25656)) (25658 25816 (\PILOTBITBLT 25658 . 25816)) (26181 28052 (
PACKET-EQUAL 26191 . 27594) (GET-CACHED-PACKET 27596 . 27911) (PUT-CACHED-PACKET 27913 . 28050)) (
29490 33213 (BMTOPACKET 29500 . 31461) (PACKETTOBM 31463 . 33211)) (33517 37826 (FRAME-EVENT 33527 .
34185) (MAKE-FRAME 34187 . 35969) (MOVE-FRAME 35971 . 36241) (SHAPE-FRAME 36243 . 37633) (
SET-FRAME-TITLE 37635 . 37824)) (37876 44753 (MAKE-MENUS-WINDOW 37886 . 40245) (MODE-MENU 40247 .
44751)) (44930 47917 (FASTBITBLT 44940 . 47915)))))
STOP