Skip to content

Update Tedit field names in Lafite #2034

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 3 commits into from
Mar 11, 2025
Merged

Update Tedit field names in Lafite #2034

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
f56033f
Change field names
rmkaplan Feb 15, 2025
c0e0aea
Remove a few more dependencies on Tedit internals
rmkaplan Feb 16, 2025
c7f08aa
forgot this one
rmkaplan Feb 16, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
197 changes: 98 additions & 99 deletions library/lafite/LAFITE-COMMANDS
View file
Open in desktop

Large diffs are not rendered by default.

Binary file modified library/lafite/LAFITE-COMMANDS.LCOM
View file
Open in desktop
Binary file not shown.
174 changes: 90 additions & 84 deletions library/lafite/LAFITE-INDENT
View file
Open in desktop

Large diffs are not rendered by default.

Binary file modified library/lafite/LAFITE-INDENT.LCOM
View file
Open in desktop
Binary file not shown.
161 changes: 77 additions & 84 deletions library/lafite/LAFITE-SEND
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

(FILECREATED "23-Feb-2024 22:24:01" {WMEDLEY}<library>lafite>LAFITE-SEND.;2 100561
(FILECREATED "15-Feb-2025 13:05:38" {WMEDLEY}<library>lafite>LAFITE-SEND.;4 100003

:EDIT-BY rmk

:CHANGES-TO (VARS LAFITE-SENDCOMS)
:CHANGES-TO (FNS \SENDMSG.CHANGE.MODE)

:PREVIOUS-DATE "23-Feb-2024 22:03:43" {WMEDLEY}<library>lafite>LAFITE-SEND.;1)
:PREVIOUS-DATE "23-Feb-2024 22:24:01" {WMEDLEY}<library>lafite>LAFITE-SEND.;2)


(PRETTYCOMPRINT LAFITE-SENDCOMS)
Expand Down Expand Up @@ -222,14 +222,14 @@
(ERROR!])

(\SENDMSG.CHANGE.MODE
[LAMBDA (WINDOW TEXTSTREAM MENU ITEM) (* ; "Edited 5-Jan-90 18:06 by bvm")
[LAMBDA (WINDOW TEXTSTREAM MENU ITEM) (* ; "Edited 15-Feb-2025 13:05 by rmk")
(* ; "Edited 5-Jan-90 18:06 by bvm")
(LET*
[(OLDMODE (TEXTPROP TEXTSTREAM 'LAFITEMODE))
(OTHERMODES (for MODE in LAFITEMODELST unless (OR (EQ (fetch (LAFITEOPS
LAFITEMODE)
of MODE)
OLDMODE)
(NLISTP (CDR MODE)))
(OTHERMODES (for MODE in LAFITEMODELST unless (OR (EQ (fetch (LAFITEOPS LAFITEMODE)
of MODE)
OLDMODE)
(NLISTP (CDR MODE)))
collect (fetch (LAFITEOPS LAFITEMODE) of MODE)))
(NEWMODE (if (NULL OTHERMODES)
then (\SENDMESSAGE.PROMPT WINDOW "There are no other modes")
Expand All @@ -244,58 +244,51 @@
N N2)
(if (NULL NEWMODEDATA)
then (\SENDMESSAGE.PROMPT WINDOW (CL:FORMAT NIL
"Can't authenticate user in ~A mode"
NEWMODE))
else (LET ((OLDNAME (fetch (LAFITEMODEDATA FULLUSERNAME) of OLDMODEDATA)
)
(END (TEDIT.FIND TEXTSTREAM "
"Can't authenticate user in ~A mode"
NEWMODE))
else (LET ((OLDNAME (fetch (LAFITEMODEDATA FULLUSERNAME) of OLDMODEDATA))
(END (TEDIT.FIND TEXTSTREAM "

" 1))
START N LEN NEW OLDSEL)
(if END
then (add END 1)) (* ;
 "Don't search past end of header. END now points at second cr.")
[for FIELD in '("cc" "Reply-to")
when [AND (SETQ N (\SENDMSG.FIND.FIELD TEXTSTREAM FIELD END
))
(PROGN (SETQ LEN (CADR N))
(SETQ N (CAR N))
(SETQ START
(STRPOS OLDNAME
(SETQ OLDSEL
(TEDIT.SEL.AS.STRING TEXTSTREAM
(create SELECTION
CH# _ N
DCH _ LEN)))
NIL NIL NIL NIL UPPERCASEARRAY]
do (* ; "Change field containing old user name to new. This is much more complicated than it needs to be because TEDIT.FIND is case sensitive.")
(TEDIT.DELETE TEXTSTREAM N LEN)
(TEDIT.INSERT TEXTSTREAM
(SETQ NEW (CONCAT (OR (SUBSTRING OLDSEL 1 (SUB1 START)
)
"")
(fetch (LAFITEMODEDATA
FULLUSERNAME)
of NEWMODEDATA)
(OR (SUBSTRING OLDSEL
(+ START (NCHARS OLDNAME))
)
"")))
N)
(AND END (add END (- (NCHARS NEW)
LEN]
(if (SETQ N (\SENDMSG.FIND.FIELD TEXTSTREAM "To" END))
then (* ;
 "Leave the To field selected for address modification")
(TEDIT.SETSEL TEXTSTREAM (CAR N)
(CADR N)
'RIGHT T))
(TEXTPROP TEXTSTREAM 'LAFITEMODE NEWMODE)
(if (SETQ N (STRPOS (CONCAT "(" OLDMODE ")")
TITLE))
then (WINDOWPROP WINDOW 'TITLE (CONCAT (SUBSTRING TITLE 1 N)
NEWMODE ")")))
(\SENDMESSAGE.PROMPT WINDOW "Message mode is now " NEWMODE]
START N LEN NEW OLDSEL)
(if END
then (add END 1)) (* ;
 "Don't search past end of header. END now points at second cr.")
[for FIELD in '("cc" "Reply-to")
when [AND (SETQ N (\SENDMSG.FIND.FIELD TEXTSTREAM FIELD END))
(PROGN (SETQ LEN (CADR N))
(SETQ N (CAR N))
(SETQ START (STRPOS OLDNAME (SETQ OLDSEL
(TEDIT.SEL.AS.STRING
TEXTSTREAM N LEN))
NIL NIL NIL NIL UPPERCASEARRAY]
do (* ; "Change field containing old user name to new. This is much more complicated than it needs to be because TEDIT.FIND is case sensitive.")
(TEDIT.DELETE TEXTSTREAM N LEN)
(TEDIT.INSERT TEXTSTREAM (SETQ NEW
(CONCAT (OR (SUBSTRING OLDSEL 1
(SUB1 START))
"")
(fetch (LAFITEMODEDATA FULLUSERNAME
) of NEWMODEDATA)
(OR (SUBSTRING OLDSEL
(+ START (NCHARS OLDNAME
)))
"")))
N)
(AND END (add END (- (NCHARS NEW)
LEN]
(if (SETQ N (\SENDMSG.FIND.FIELD TEXTSTREAM "To" END))
then (* ;
 "Leave the To field selected for address modification")
(TEDIT.SETSEL TEXTSTREAM (CAR N)
(CADR N)
'RIGHT T))
(TEXTPROP TEXTSTREAM 'LAFITEMODE NEWMODE)
(if (SETQ N (STRPOS (CONCAT "(" OLDMODE ")")
TITLE))
then (WINDOWPROP WINDOW 'TITLE (CONCAT (SUBSTRING TITLE 1 N)
NEWMODE ")")))
(\SENDMESSAGE.PROMPT WINDOW "Message mode is now " NEWMODE]

(* ;; "Exit with error so that the window is restored to previous state")

Expand Down Expand Up @@ -1761,29 +1754,29 @@ cc: ~A
)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (5214 28191 (DOLAFITESENDINGCOMMAND 5224 . 5714) (\SENDMESSAGE.INITIATE 5716 . 7655) (
\SENDMSG.DELIVER 7657 . 8265) (\SENDMSG.EXIT.TEDIT 8267 . 8638) (\SENDMSG.SAVE.FORM 8640 . 10627) (
\LAFITE.HEADER.EOF 10629 . 10922) (\LAFITE.INSERT.REPLYTO 10924 . 11532) (\SENDMSG.REPLYTO 11534 .
12093) (\SENDMSG.CHANGE.MODE 12095 . 17671) (\SENDMSG.FIND.FIELD 17673 . 18183) (\SENDMESSAGE.PARSE
18185 . 18981) (\LAFITE.PREPARE.SEND 18983 . 21816) (\LAFITE.PREPARE.ERROR 21818 . 23000) (
\LAFITE.CHOOSE.MSG.FORMAT 23002 . 25643) (LAFITE.MAKE.PLAIN.TEXTSTREAM 25645 . 26570) (
\SENDMESSAGE.MENUPROMPT 26572 . 27435) (\SENDMESSAGE.PROMPT 27437 . 27973) (\SENDMESSAGEFAIL 27975 .
28189)) (28192 52854 (\SENDMESSAGE 28202 . 29554) (\SENDMESSAGE.RESTARTABLE 29556 . 34757) (
\SENDMESSAGE.CLEANUP 34759 . 34975) (\SENDMESSAGE.MAKEWINDOW 34977 . 41150) (MAKELAFITEDELIVERMENU
41152 . 41459) (\LAFITE.CLOSEMSG? 41461 . 42411) (\LAFITE.AFTER.DELIVER 42413 . 45732) (
\LAFITE.UNSENT.ICON 45734 . 46044) (\LAFITE.FETCH.SUBJECT 46046 . 46846) (LAFITE.SENDMESSAGE 46848 .
47741) (\SENDMESSAGE0 47743 . 50607) (LA.ASSURE.PROMPT.WINDOW 50609 . 51506) (\LAFITE.SEND.FAIL 51508
. 51979) (\LAFITE.INVALID.RECIPIENTS 51981 . 52439) (\SENDMESSAGE.ABORT 52441 . 52852)) (52886 62799
(\OUTBOX.CREATE 52896 . 54359) (\OUTBOX.RESET 54361 . 54854) (\OUTBOX.CLOSEFN 54856 . 54996) (
\OUTBOX.REPAINTFN 54998 . 55661) (\OUTBOX.RESHAPEFN 55663 . 56946) (\OUTBOX.SHADEITEM 56948 . 57621) (
\OUTBOX.BUTTONFN 57623 . 60471) (\OUTBOX.DISPLAYLINE 60473 . 60967) (\OUTBOX.ADD.ITEM 60969 . 62797))
(63095 79503 (\LAFITE.MESSAGEFORM 63105 . 67448) (MAKELAFITESUPPORTFORM 67450 . 67639) (
MAKELISPSUPPORTFORM 67641 . 67807) (MAKEXXXSUPPORTFORM 67809 . 71858) (MAKENEWMESSAGEFORM 71860 .
72816) (MAKELAFITEPRIVATEFORMSITEMS 72818 . 73246) (\LAFITE.UNCACHE.MESSAGEFORM 73248 . 73701) (
\LAFITE.DELETE.MESSAGEFORM 73703 . 74304) (\LAFITE.SELECT.FORM 74306 . 74661) (
\LAFITE.DELETE.FORM.INTERNAL 74663 . 75807) (\LAFITE.READ.FORM 75809 . 78546) (\LAFITE.FIND.TEMPLATE
78548 . 79501)) (79527 87258 (\LAFITE.ANSWER 79537 . 79942) (\LAFITE.ANSWER.PROC 79944 . 81838) (
MAKEANSWERFORM 81840 . 84370) (LA.PRINT.COMMA.LIST 84372 . 84858) (LAFITE.FILL.IN.ANSWER.FORM 84860 .
87256)) (87283 93479 (\LAFITE.FORWARD 87293 . 87701) (\LAFITE.FORWARD.PROC 87703 . 89692) (
MAKEFORWARDFORM 89694 . 93477)))))
(FILEMAP (NIL (5218 27633 (DOLAFITESENDINGCOMMAND 5228 . 5718) (\SENDMESSAGE.INITIATE 5720 . 7659) (
\SENDMSG.DELIVER 7661 . 8269) (\SENDMSG.EXIT.TEDIT 8271 . 8642) (\SENDMSG.SAVE.FORM 8644 . 10631) (
\LAFITE.HEADER.EOF 10633 . 10926) (\LAFITE.INSERT.REPLYTO 10928 . 11536) (\SENDMSG.REPLYTO 11538 .
12097) (\SENDMSG.CHANGE.MODE 12099 . 17113) (\SENDMSG.FIND.FIELD 17115 . 17625) (\SENDMESSAGE.PARSE
17627 . 18423) (\LAFITE.PREPARE.SEND 18425 . 21258) (\LAFITE.PREPARE.ERROR 21260 . 22442) (
\LAFITE.CHOOSE.MSG.FORMAT 22444 . 25085) (LAFITE.MAKE.PLAIN.TEXTSTREAM 25087 . 26012) (
\SENDMESSAGE.MENUPROMPT 26014 . 26877) (\SENDMESSAGE.PROMPT 26879 . 27415) (\SENDMESSAGEFAIL 27417 .
27631)) (27634 52296 (\SENDMESSAGE 27644 . 28996) (\SENDMESSAGE.RESTARTABLE 28998 . 34199) (
\SENDMESSAGE.CLEANUP 34201 . 34417) (\SENDMESSAGE.MAKEWINDOW 34419 . 40592) (MAKELAFITEDELIVERMENU
40594 . 40901) (\LAFITE.CLOSEMSG? 40903 . 41853) (\LAFITE.AFTER.DELIVER 41855 . 45174) (
\LAFITE.UNSENT.ICON 45176 . 45486) (\LAFITE.FETCH.SUBJECT 45488 . 46288) (LAFITE.SENDMESSAGE 46290 .
47183) (\SENDMESSAGE0 47185 . 50049) (LA.ASSURE.PROMPT.WINDOW 50051 . 50948) (\LAFITE.SEND.FAIL 50950
. 51421) (\LAFITE.INVALID.RECIPIENTS 51423 . 51881) (\SENDMESSAGE.ABORT 51883 . 52294)) (52328 62241
(\OUTBOX.CREATE 52338 . 53801) (\OUTBOX.RESET 53803 . 54296) (\OUTBOX.CLOSEFN 54298 . 54438) (
\OUTBOX.REPAINTFN 54440 . 55103) (\OUTBOX.RESHAPEFN 55105 . 56388) (\OUTBOX.SHADEITEM 56390 . 57063) (
\OUTBOX.BUTTONFN 57065 . 59913) (\OUTBOX.DISPLAYLINE 59915 . 60409) (\OUTBOX.ADD.ITEM 60411 . 62239))
(62537 78945 (\LAFITE.MESSAGEFORM 62547 . 66890) (MAKELAFITESUPPORTFORM 66892 . 67081) (
MAKELISPSUPPORTFORM 67083 . 67249) (MAKEXXXSUPPORTFORM 67251 . 71300) (MAKENEWMESSAGEFORM 71302 .
72258) (MAKELAFITEPRIVATEFORMSITEMS 72260 . 72688) (\LAFITE.UNCACHE.MESSAGEFORM 72690 . 73143) (
\LAFITE.DELETE.MESSAGEFORM 73145 . 73746) (\LAFITE.SELECT.FORM 73748 . 74103) (
\LAFITE.DELETE.FORM.INTERNAL 74105 . 75249) (\LAFITE.READ.FORM 75251 . 77988) (\LAFITE.FIND.TEMPLATE
77990 . 78943)) (78969 86700 (\LAFITE.ANSWER 78979 . 79384) (\LAFITE.ANSWER.PROC 79386 . 81280) (
MAKEANSWERFORM 81282 . 83812) (LA.PRINT.COMMA.LIST 83814 . 84300) (LAFITE.FILL.IN.ANSWER.FORM 84302 .
86698)) (86725 92921 (\LAFITE.FORWARD 86735 . 87143) (\LAFITE.FORWARD.PROC 87145 . 89134) (
MAKEFORWARDFORM 89136 . 92919)))))
STOP
Binary file modified library/lafite/LAFITE-SEND.LCOM
View file
Open in desktop
Binary file not shown.
22 changes: 11 additions & 11 deletions library/lafite/LAFITE-TEDIT
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

(FILECREATED "23-Feb-2024 22:24:01" {WMEDLEY}<library>lafite>LAFITE-TEDIT.;2 6592
(FILECREATED "15-Feb-2025 14:03:21" {WMEDLEY}<library>lafite>LAFITE-TEDIT.;4 6618

:EDIT-BY rmk

:CHANGES-TO (VARS LAFITE-TEDITCOMS)
:CHANGES-TO (FNS TEDIT.ASSURE.NO.BACKING.FILE)

:PREVIOUS-DATE "23-Feb-2024 22:09:24" {WMEDLEY}<library>lafite>LAFITE-TEDIT.;1)
:PREVIOUS-DATE "23-Feb-2024 22:24:01" {WMEDLEY}<library>lafite>LAFITE-TEDIT.;2)


(PRETTYCOMPRINT LAFITE-TEDITCOMS)
Expand Down Expand Up @@ -74,26 +74,26 @@
(TEXTPROP TEXTSTREAM '\WINDOW NIL])

(TEDIT.ASSURE.NO.BACKING.FILE
[LAMBDA (TEXTSTREAM) (* ; "Edited 13-Jan-2024 18:08 by rmk")
[LAMBDA (TEXTSTREAM) (* ; "Edited 15-Feb-2025 14:03 by rmk")
(* ; "Edited 13-Jan-2024 18:08 by rmk")
(* ; "Edited 18-Jun-2023 09:31 by rmk")
(* ; "Edited 29-Oct-2022 22:34 by rmk")
(* ; "Edited 20-May-92 11:25 by rmk:")

(* ;; "This puts the contents of TEXTSTREAM to a nodircore file (if it isn't already on nodircore), and then sets it up for continuing in the current editing session. Essentially eliminates the file-system backing store.")

(LET* ((TEXTOBJ (TEXTOBJ TEXTSTREAM))
(OFILE (GETTOBJ TEXTOBJ TXTFILE))
(OFILE (GETTEXTPROP TEXTSTREAM 'FILESTREAM))
NEWFILE)
(CL:WHEN [AND (TYPE? STREAM OFILE)
(NEQ 'NODIRCORE (FETCH (FDEV DEVICENAME) OF (FETCH (STREAM DEVICE)
OF (TRUEFILENAME OFILE]
(CL:WHEN [AND OFILE (NEQ 'NODIRCORE (FILENAMEFIELD (TRUEFILENAME OFILE)
'HOST]
(SETQ NEWFILE (OPENSTREAM '{NODIRCORE} 'BOTH))

(* ;; "\TEDIT.PUT.PCTB will save the current text and looks in NEWFILE, leaving it open. It returns the sequence of new looks for continued editing, where all the file pieces point to their position in NEWFILE. But the file PCONTENTS do not yet point to the new stream. ")

(CLOSEF? OFILE)
(\TEDIT.INSERT.NEWPIECES NEWFILE TEXTOBJ (\TEDIT.PUT.PCTB TEXTOBJ NEWFILE NIL T))
(FSETTOBJ TEXTOBJ TXTFILE NIL)
(PUTTEXTPROP TEXTOBJ 'TXTFILE NIL)
(PUTTEXTPROP TEXTOBJ 'CACHE NEWFILE)
TEXTSTREAM)])

Expand All @@ -118,6 +118,6 @@
)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (987 6361 (LA.ADJUST.FORMATTING 997 . 4043) (LA.DETACH.TEDIT 4045 . 4411) (
TEDIT.ASSURE.NO.BACKING.FILE 4413 . 6079) (LA.WINDOW.FROM.TEXTSTREAM 6081 . 6359)))))
(FILEMAP (NIL (998 6387 (LA.ADJUST.FORMATTING 1008 . 4054) (LA.DETACH.TEDIT 4056 . 4422) (
TEDIT.ASSURE.NO.BACKING.FILE 4424 . 6105) (LA.WINDOW.FROM.TEXTSTREAM 6107 . 6385)))))
STOP
Binary file modified library/lafite/LAFITE-TEDIT.LCOM
View file
Open in desktop
Binary file not shown.