TEDIT, TEXTOFD: String TEXT is filename
Adds TEXTSTRING as a separate entry to be used when strings are not names but characters to be edited
This commit is contained in:
rmkaplan
parent
48ebc675a7
commit
107ea72a67
110
library/TEDIT
110
library/TEDIT
@ -1,11 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "30-Dec-2021 20:50:54" {DSK}<Users>kaplan>Local>medley3.5>my-medley>library>TEDIT.;30 142870
|
||||
(FILECREATED "19-May-2022 22:46:25"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>TEDIT.;37 143285
|
||||
|
||||
:CHANGES-TO (FNS TEDIT TEDIT-SEE)
|
||||
:CHANGES-TO (FNS TEDITSTRING)
|
||||
|
||||
:PREVIOUS-DATE "28-Dec-2021 11:02:43"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>TEDIT.;24)
|
||||
:PREVIOUS-DATE " 5-May-2022 15:19:42"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>TEDIT.;34)
|
||||
|
||||
|
||||
(* ; "
|
||||
@ -31,12 +32,12 @@ Copyright (c) 1983-1993, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation.
|
||||
"Changed by yabu.fx, for SUNLOADUP without DWIM.")
|
||||
)
|
||||
(GLOBALVARS TEDIT.TENTATIVE TEDIT.DEFAULT.PROPS)
|
||||
(FNS \TEDIT2 COERCETEXTOBJ TEDIT TEDIT-SEE TEDIT.CHARWIDTH TEDIT.COPY TEDIT.DELETE
|
||||
TEDIT.DO.BLUEPENDINGDELETE TEDIT.INSERT TEDIT.KILL TEDIT.MAPLINES TEDIT.MAPPIECES
|
||||
TEDIT.MOVE TEDIT.QUIT TEDIT.STRINGWIDTH TEDIT.\INSERT TEXTOBJ TEXTSTREAM \TEDIT.INCLUDE
|
||||
\TEDIT.INSERT.PIECES \TEDIT.MOVE.PIECEMAPFN \TEDIT.OBJECT.SHOWSEL \TEDIT.RESTARTFN
|
||||
\TEDIT.CHARDELETE \TEDIT.COPY.PIECEMAPFN \TEDIT.DELETE \TEDIT.DIFFUSE.PARALOOKS
|
||||
\TEDIT.FOREIGN.COPY? \TEDIT.QUIT \TEDIT.WORDDELETE \TEDIT1)
|
||||
(FNS \TEDIT2 COERCETEXTOBJ TEDIT TEDITSTRING TEDIT-SEE TEDIT.CHARWIDTH TEDIT.COPY
|
||||
TEDIT.DELETE TEDIT.DO.BLUEPENDINGDELETE TEDIT.INSERT TEDIT.KILL TEDIT.MAPLINES
|
||||
TEDIT.MAPPIECES TEDIT.MOVE TEDIT.QUIT TEDIT.STRINGWIDTH TEDIT.\INSERT TEXTOBJ TEXTSTREAM
|
||||
\TEDIT.INCLUDE \TEDIT.INSERT.PIECES \TEDIT.MOVE.PIECEMAPFN \TEDIT.OBJECT.SHOWSEL
|
||||
\TEDIT.RESTARTFN \TEDIT.CHARDELETE \TEDIT.COPY.PIECEMAPFN \TEDIT.DELETE
|
||||
\TEDIT.DIFFUSE.PARALOOKS \TEDIT.FOREIGN.COPY? \TEDIT.QUIT \TEDIT.WORDDELETE \TEDIT1)
|
||||
(P (MOVD? 'NILL 'OBJECTOUTOFTEDIT))
|
||||
(* ;
|
||||
"HOOK for looked-string copy, etc. Used in \TEDIT.FOREIGN.COPY?.")
|
||||
@ -250,22 +251,30 @@ Copyright (c) 1983-1993, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation.
|
||||
NIL])
|
||||
|
||||
(TEDIT
|
||||
[LAMBDA (TEXT WINDOW DONTSPAWN PROPS) (* ; "Edited 30-Dec-2021 20:50 by rmk")
|
||||
(* ; "Edited 28-Dec-2021 00:12 by rmk")
|
||||
(* ; "Edited 24-Dec-2021 19:21 by rmk")
|
||||
(* ; "Edited 11-Jun-99 14:14 by rmk:")
|
||||
(* ; "Edited 3-Jun-88 14:27 by jds")
|
||||
[LAMBDA (TEXT WINDOW DONTSPAWN PROPS)
|
||||
|
||||
(* ;; "Edited 31-Jan-2022 17:19 by rmk: String TEXT is a file name")
|
||||
|
||||
(* ;; "Edited 30-Dec-2021 20:50 by rmk")
|
||||
|
||||
(* ;; "Edited 28-Dec-2021 00:12 by rmk")
|
||||
|
||||
(* ;; "Edited 24-Dec-2021 19:21 by rmk")
|
||||
|
||||
(* ;; "Edited 11-Jun-99 14:14 by rmk:")
|
||||
|
||||
(* ;; "Edited 3-Jun-88 14:27 by jds")
|
||||
|
||||
(* ;; "User entry to the text editor. Takes an optional window to be used for editing")
|
||||
|
||||
(* ;; "DONTSPAWN => Don't try to create a new process for this edit.")
|
||||
|
||||
(PROG (PROC TEDITCREATEDWINDOW) (* ;
|
||||
"Include the default properties in the list.")
|
||||
(PROG (PROC TEDITCREATEDWINDOW)
|
||||
[COND
|
||||
((AND TEXT (ATOM TEXT)) (* ;
|
||||
((AND TEXT (OR (LITATOM TEXT)
|
||||
(STRINGP TEXT))) (* ;
|
||||
"Make sure the file exists before trying to open the window.")
|
||||
(SETQ TEXT (OPENFILE TEXT 'INPUT 'OLD '((TYPE TEXT]
|
||||
(SETQ TEXT (OPENSTREAM TEXT 'INPUT 'OLD '((TYPE TEXT]
|
||||
(CL:WHEN (AND WINDOW (OR (LITATOM WINDOW)
|
||||
(REGIONP WINDOW)))
|
||||
|
||||
@ -284,10 +293,9 @@ Copyright (c) 1983-1993, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation.
|
||||
(NOT TEDIT.DEFAULT.WINDOW)
|
||||
(\TEDIT.ACTIVE.WINDOWP TEDIT.DEFAULT.WINDOW))
|
||||
(TEDIT.CREATEW (COND
|
||||
((AND TEXT (ATOM TEXT))
|
||||
(CONCAT
|
||||
(TEXT (CONCAT
|
||||
"Please specify an editing window for "
|
||||
TEXT))
|
||||
TEXT))
|
||||
(T
|
||||
"Please specify a region for the editing window."
|
||||
))
|
||||
@ -336,11 +344,24 @@ Copyright (c) 1983-1993, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation.
|
||||
(TTY.PROCESS PROC)))
|
||||
(RETURN PROC])
|
||||
|
||||
(TEDITSTRING
|
||||
[LAMBDA (TEXT WINDOW DONTSPAWN PROPS)
|
||||
|
||||
(* ;;; "Edited 19-May-2022 22:46 by rmk: An interface function to replace calls to TEDIT when the text argument may be the string to be edited rather than the name of a file. This enables the transition that gets TEDIT aligned with the convention that strings, as well as litatoms, are file names")
|
||||
|
||||
(TEDIT (IF (STRINGP TEXT)
|
||||
THEN (LET ((TSTRM (OPENTEXTSTREAM NIL NIL NIL PROPS)))
|
||||
(PRIN3 TEXT TSTRM)
|
||||
TSTRM)
|
||||
ELSE TEXT)
|
||||
WINDOW DONTSPAWN PROPS])
|
||||
|
||||
(TEDIT-SEE
|
||||
[LAMBDA (FILE WINDOW FORMAT TITLE) (* ; "Edited 30-Dec-2021 18:03 by rmk")
|
||||
(* ; "Edited 16-Dec-2021 12:33 by rmk")
|
||||
(* ; "Edited 13-Oct-2021 10:00 by rmk:")
|
||||
(* ; "Edited 27-Feb-2021 20:07 by rmk:")
|
||||
[LAMBDA (FILE WINDOW FORMAT TITLE) (* ; "Edited 5-May-2022 15:18 by rmk")
|
||||
(* ; "Edited 30-Dec-2021 18:03 by rmk")
|
||||
(* ; "Edited 16-Dec-2021 12:33 by rmk")
|
||||
(* ; "Edited 13-Oct-2021 10:00 by rmk:")
|
||||
(* ; "Edited 27-Feb-2021 20:07 by rmk:")
|
||||
(* ; "Edited 1-Feb-88 19:00 by bvm:")
|
||||
|
||||
(* ;; "See FILE in a scrollable READONLY TEDIT window. If FILE is a LISP source file, copy first to a temporary NODIRCORE image file that interpretes the fontchange characters rather than showing black boxes.")
|
||||
@ -359,8 +380,8 @@ Copyright (c) 1983-1993, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation.
|
||||
(* ;; "Lisp source file")
|
||||
|
||||
(SETQ SEESTREAM (OPENTEXTSTREAM))
|
||||
(DSPFONT DEFAULTFONT SEESTREAM)
|
||||
(COPY.TEXT.TO.IMAGE STREAM SEESTREAM)
|
||||
(APPLY* (FUNCTION SEE)
|
||||
STREAM SEESTREAM)
|
||||
ELSE
|
||||
(* ;; "Not a Lisp source file and not a Tedit file. If it is not random access, we copy it so we can scroll around.")
|
||||
|
||||
@ -2243,7 +2264,7 @@ Copyright (c) 1983-1993, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation.
|
||||
(* ; "TEDIT Support information")
|
||||
|
||||
|
||||
(RPAQQ TEDITSYSTEMDATE "30-Dec-2021 20:50:54")
|
||||
(RPAQQ TEDITSYSTEMDATE "19-May-2022 22:46:25")
|
||||
|
||||
(RPAQ TEDITSUPPORT "TEditSupport.PA")
|
||||
(DEFINEQ
|
||||
@ -2269,19 +2290,20 @@ Copyright (c) 1983-1993, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation.
|
||||
(PUTPROPS TEDIT COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 1991
|
||||
1992 1993 1995 1999 2018 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4336 118040 (\TEDIT2 4346 . 7097) (COERCETEXTOBJ 7099 . 15875) (TEDIT 15877 . 21230) (
|
||||
TEDIT-SEE 21232 . 23716) (TEDIT.CHARWIDTH 23718 . 25742) (TEDIT.COPY 25744 . 34180) (TEDIT.DELETE
|
||||
34182 . 34872) (TEDIT.DO.BLUEPENDINGDELETE 34874 . 37941) (TEDIT.INSERT 37943 . 43473) (TEDIT.KILL
|
||||
43475 . 45032) (TEDIT.MAPLINES 45034 . 46433) (TEDIT.MAPPIECES 46435 . 47391) (TEDIT.MOVE 47393 .
|
||||
57177) (TEDIT.QUIT 57179 . 59179) (TEDIT.STRINGWIDTH 59181 . 59852) (TEDIT.\INSERT 59854 . 61879) (
|
||||
TEXTOBJ 61881 . 63006) (TEXTSTREAM 63008 . 64623) (\TEDIT.INCLUDE 64625 . 68525) (\TEDIT.INSERT.PIECES
|
||||
68527 . 78442) (\TEDIT.MOVE.PIECEMAPFN 78444 . 80523) (\TEDIT.OBJECT.SHOWSEL 80525 . 84154) (
|
||||
\TEDIT.RESTARTFN 84156 . 86151) (\TEDIT.CHARDELETE 86153 . 90115) (\TEDIT.COPY.PIECEMAPFN 90117 .
|
||||
93342) (\TEDIT.DELETE 93344 . 100862) (\TEDIT.DIFFUSE.PARALOOKS 100864 . 103628) (\TEDIT.FOREIGN.COPY?
|
||||
103630 . 107357) (\TEDIT.QUIT 107359 . 110505) (\TEDIT.WORDDELETE 110507 . 115340) (\TEDIT1 115342 .
|
||||
118038)) (118154 118270 (\CREATE.TEDIT.RESTART.MENU 118164 . 118268)) (118369 122058 (PLCHAIN 118379
|
||||
. 118653) (PRINTLINE 118655 . 121419) (SEEFILE 121421 . 122056)) (122099 141742 (TEDIT.INSERT.OBJECT
|
||||
122109 . 131186) (TEDIT.EDIT.OBJECT 131188 . 133444) (TEDIT.FIND.OBJECT 133446 . 134339) (
|
||||
TEDIT.FIND.OBJECT.SUBTREE 134341 . 135147) (TEDIT.PUT.OBJECT 135149 . 136808) (TEDIT.GET.OBJECT 136810
|
||||
. 140009) (TEDIT.OBJECT.CHANGED 140011 . 141740)) (142020 142383 (MAKETEDITFORM 142030 . 142381)))))
|
||||
(FILEMAP (NIL (4355 118455 (\TEDIT2 4365 . 7116) (COERCETEXTOBJ 7118 . 15894) (TEDIT 15896 . 20924) (
|
||||
TEDITSTRING 20926 . 21540) (TEDIT-SEE 21542 . 24131) (TEDIT.CHARWIDTH 24133 . 26157) (TEDIT.COPY 26159
|
||||
. 34595) (TEDIT.DELETE 34597 . 35287) (TEDIT.DO.BLUEPENDINGDELETE 35289 . 38356) (TEDIT.INSERT 38358
|
||||
. 43888) (TEDIT.KILL 43890 . 45447) (TEDIT.MAPLINES 45449 . 46848) (TEDIT.MAPPIECES 46850 . 47806) (
|
||||
TEDIT.MOVE 47808 . 57592) (TEDIT.QUIT 57594 . 59594) (TEDIT.STRINGWIDTH 59596 . 60267) (TEDIT.\INSERT
|
||||
60269 . 62294) (TEXTOBJ 62296 . 63421) (TEXTSTREAM 63423 . 65038) (\TEDIT.INCLUDE 65040 . 68940) (
|
||||
\TEDIT.INSERT.PIECES 68942 . 78857) (\TEDIT.MOVE.PIECEMAPFN 78859 . 80938) (\TEDIT.OBJECT.SHOWSEL
|
||||
80940 . 84569) (\TEDIT.RESTARTFN 84571 . 86566) (\TEDIT.CHARDELETE 86568 . 90530) (
|
||||
\TEDIT.COPY.PIECEMAPFN 90532 . 93757) (\TEDIT.DELETE 93759 . 101277) (\TEDIT.DIFFUSE.PARALOOKS 101279
|
||||
. 104043) (\TEDIT.FOREIGN.COPY? 104045 . 107772) (\TEDIT.QUIT 107774 . 110920) (\TEDIT.WORDDELETE
|
||||
110922 . 115755) (\TEDIT1 115757 . 118453)) (118569 118685 (\CREATE.TEDIT.RESTART.MENU 118579 . 118683
|
||||
)) (118784 122473 (PLCHAIN 118794 . 119068) (PRINTLINE 119070 . 121834) (SEEFILE 121836 . 122471)) (
|
||||
122514 142157 (TEDIT.INSERT.OBJECT 122524 . 131601) (TEDIT.EDIT.OBJECT 131603 . 133859) (
|
||||
TEDIT.FIND.OBJECT 133861 . 134754) (TEDIT.FIND.OBJECT.SUBTREE 134756 . 135562) (TEDIT.PUT.OBJECT
|
||||
135564 . 137223) (TEDIT.GET.OBJECT 137225 . 140424) (TEDIT.OBJECT.CHANGED 140426 . 142155)) (142435
|
||||
142798 (MAKETEDITFORM 142445 . 142796)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
247
library/TEXTOFD
247
library/TEXTOFD
@ -1,11 +1,11 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "22-Dec-2021 10:29:27" {DSK}<Users>kaplan>Local>medley3.5>my-medley>library>TEXTOFD.;12 182752
|
||||
(FILECREATED " 5-May-2022 15:12:26" {DSK}<Users>kaplan>Local>medley3.5>my-medley>library>TEXTOFD.;18 183046
|
||||
|
||||
:CHANGES-TO (FNS \TEXTBIN \TEXTPEEKBIN)
|
||||
:CHANGES-TO (FNS \TEXTINIT)
|
||||
|
||||
:PREVIOUS-DATE "22-Dec-2021 10:01:53"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>TEXTOFD.;11)
|
||||
:PREVIOUS-DATE "31-Jan-2022 22:04:01"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>TEXTOFD.;14)
|
||||
|
||||
|
||||
(* ; "
|
||||
@ -107,20 +107,22 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor
|
||||
(RETURN NEWSTREAM])
|
||||
|
||||
(OPENTEXTSTREAM
|
||||
[LAMBDA (TEXT WINDOW START END PROPS) (* ; "Edited 4-May-93 14:38 by jds")
|
||||
[LAMBDA (TEXT WINDOW START END PROPS) (* ;
|
||||
"Edited 31-Jan-2022 17:25 by rmk: A string TEXT is converted here to a stream")
|
||||
(* ; "Edited 4-May-93 14:38 by jds")
|
||||
(* ;
|
||||
"Create a text-type STREAM to describe TEXT. Optionally, connect that to WINDOW for display.")
|
||||
"Create a text-type STREAM to describe TEXT. Optionally, connect that to WINDOW for display.")
|
||||
(PROG* ([WAS-TEXTSTREAM (AND (type? STREAM TEXT)
|
||||
(type? TEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) of TEXT]
|
||||
[TEXTOBJ (COND
|
||||
(WAS-TEXTSTREAM (* ;
|
||||
"If the guy gave us a text stream to edit, use its TEXTOBJ as ours.")
|
||||
(create TEXTOBJ
|
||||
reusing (fetch (TEXTSTREAM TEXTOBJ) of TEXT)
|
||||
\INSERTFIRSTCH _ -1 \INSERTNEXTCH _ -1 \INSERTPCVALID _ NIL))
|
||||
"If the guy gave us a text stream to edit, use its TEXTOBJ as ours.")
|
||||
(create TEXTOBJ reusing (fetch (TEXTSTREAM TEXTOBJ) of TEXT)
|
||||
\INSERTFIRSTCH _ -1 \INSERTNEXTCH _ -1
|
||||
\INSERTPCVALID _ NIL))
|
||||
((type? TEXTOBJ TEXT)
|
||||
(create TEXTOBJ using TEXT \INSERTFIRSTCH _ -1 \INSERTNEXTCH _ -1
|
||||
\INSERTPCVALID _ NIL))
|
||||
\INSERTPCVALID _ NIL))
|
||||
(T (create TEXTOBJ]
|
||||
(TEDIT.GET.FINISHEDFORMS NIL)
|
||||
[PROPS (APPEND PROPS (COPY TEDIT.DEFAULT.PROPS)
|
||||
@ -129,18 +131,18 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor
|
||||
(EQ TEXTOBJ (WINDOWPROP WINDOW 'TEXTOBJ]
|
||||
FONT SEL PCTB PC TEXTSTREAM OTEXTOBJ PROP CLEARGET? PARALOOKS PWINDOW)
|
||||
(* ;
|
||||
"Remember if the textobj had a window already.")
|
||||
"Remember if the textobj had a window already.")
|
||||
(replace (TEXTOBJ \WINDOW) of TEXTOBJ with (AND WINDOW (LIST WINDOW)))
|
||||
(* ;
|
||||
"Necessary because some incoming object types depend on knowing where the window is.")
|
||||
"Necessary because some incoming object types depend on knowing where the window is.")
|
||||
(replace (TEXTOBJ LINES) of TEXTOBJ with NIL)
|
||||
|
||||
(* ;; "This is here so if we re-OPENTEXTSTREAM an existing stream/window pair we don't get two sets of line descriptors")
|
||||
|
||||
(for PROPNAME in PROPS by (CDDR PROPNAME) as PROPVAL
|
||||
in (CDR PROPS) by (CDDR PROPVAL) do (TEXTPROP TEXTOBJ PROPNAME PROPVAL)
|
||||
) (* ;
|
||||
"Save the PROPS for later people who'd like to know them")
|
||||
(for PROPNAME in PROPS by (CDDR PROPNAME) as PROPVAL in (CDR PROPS)
|
||||
by (CDDR PROPVAL) do (TEXTPROP TEXTOBJ PROPNAME PROPVAL))
|
||||
(* ;
|
||||
"Save the PROPS for later people who'd like to know them")
|
||||
[SETQ FONT (COND
|
||||
((type? CHARLOOKS (LISTGET PROPS 'FONT))
|
||||
(LISTGET PROPS 'FONT))
|
||||
@ -152,38 +154,36 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor
|
||||
(T (OR (LISTGET PROPS 'FONT)
|
||||
DEFAULTFONT]
|
||||
NIL TEXTOBJ] (* ;
|
||||
"Find the default font for this session -- either what the guy tells us, or the global default font")
|
||||
"Find the default font for this session -- either what the guy tells us, or the global default font")
|
||||
(SETQ PARALOOKS (LISTGET PROPS 'PARALOOKS))
|
||||
|
||||
(* ;; "Get the default paragraph looks. This must come before the first piece is created, so its fields can be filled in right.")
|
||||
|
||||
(replace (TEXTOBJ FMTSPEC) of TEXTOBJ
|
||||
with (\TEDIT.UNIQUIFY.PARALOOKS [SETQ PARALOOKS (\TEDIT.PARSE.PARALOOKS.LIST
|
||||
(OR PARALOOKS
|
||||
(create FMTSPEC
|
||||
using
|
||||
(replace (TEXTOBJ FMTSPEC) of TEXTOBJ with (\TEDIT.UNIQUIFY.PARALOOKS
|
||||
[SETQ PARALOOKS
|
||||
(\TEDIT.PARSE.PARALOOKS.LIST
|
||||
(OR PARALOOKS (create FMTSPEC using
|
||||
TEDIT.DEFAULT.FMTSPEC
|
||||
]
|
||||
TEXTOBJ))
|
||||
TEXTOBJ))
|
||||
[COND
|
||||
[WAS-TEXTSTREAM (* ;
|
||||
"We got a TEXTOFD stream to edit; just use it")
|
||||
"We got a TEXTOFD stream to edit; just use it")
|
||||
(SETQ OTEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) of TEXT))
|
||||
(SETQ TEXTSTREAM TEXT)
|
||||
(for SELN in (LIST (fetch (TEXTOBJ SEL) of TEXTOBJ)
|
||||
(fetch (TEXTOBJ SCRATCHSEL) of TEXTOBJ)
|
||||
(fetch (TEXTOBJ SHIFTEDSEL) of TEXTOBJ)
|
||||
(fetch (TEXTOBJ MOVESEL) of TEXTOBJ)
|
||||
(fetch (TEXTOBJ DELETESEL) of TEXTOBJ))
|
||||
(fetch (TEXTOBJ SCRATCHSEL) of TEXTOBJ)
|
||||
(fetch (TEXTOBJ SHIFTEDSEL) of TEXTOBJ)
|
||||
(fetch (TEXTOBJ MOVESEL) of TEXTOBJ)
|
||||
(fetch (TEXTOBJ DELETESEL) of TEXTOBJ))
|
||||
do
|
||||
(* ;; "Make all the selections point to the CURRENT textobj!")
|
||||
|
||||
(* ;; "Make all the selections point to the CURRENT textobj!")
|
||||
|
||||
(COND
|
||||
((EQ OTEXTOBJ (fetch (SELECTION \TEXTOBJ) of SELN))
|
||||
(replace (SELECTION \TEXTOBJ) of SELN with TEXTOBJ))
|
||||
(T (replace (SELECTION SET) of SELN with NIL)))
|
||||
(replace (SELECTION ONFLG) of SELN with NIL))
|
||||
(COND
|
||||
((EQ OTEXTOBJ (fetch (SELECTION \TEXTOBJ) of SELN))
|
||||
(replace (SELECTION \TEXTOBJ) of SELN with TEXTOBJ))
|
||||
(T (replace (SELECTION SET) of SELN with NIL)))
|
||||
(replace (SELECTION ONFLG) of SELN with NIL))
|
||||
(replace (TEXTSTREAM TEXTOBJ) of TEXTSTREAM with TEXTOBJ)
|
||||
(replace (TEXTOBJ STREAMHINT) of TEXTOBJ with TEXTSTREAM)
|
||||
(SETQ PCTB (fetch (TEXTOBJ PCTB) of TEXTOBJ))
|
||||
@ -193,106 +193,106 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor
|
||||
(* ; "And mark it not changed.")
|
||||
(COND
|
||||
(FONT (* ;
|
||||
"If a new default font was specified, set it up.")
|
||||
(replace (TEXTOBJ DEFAULTCHARLOOKS) of TEXTOBJ
|
||||
with (\TEDIT.UNIQUIFY.CHARLOOKS FONT TEXTOBJ]
|
||||
((type? TEXTOBJ TEXT) (* ;
|
||||
"We got a TEXTOBJ to edit; fill in the stream, since it might have been GC'd.")
|
||||
"If a new default font was specified, set it up.")
|
||||
(replace (TEXTOBJ DEFAULTCHARLOOKS) of TEXTOBJ with (
|
||||
\TEDIT.UNIQUIFY.CHARLOOKS
|
||||
FONT TEXTOBJ]
|
||||
((type? TEXTOBJ TEXT) (* ;
|
||||
"We got a TEXTOBJ to edit; fill in the stream, since it might have been GC'd.")
|
||||
(SETQ TEXTSTREAM (replace (TEXTOBJ STREAMHINT) of TEXTOBJ
|
||||
with (create TEXTSTREAM
|
||||
TEXTOBJ _ TEXTOBJ)))
|
||||
TEXTOBJ _ TEXTOBJ)))
|
||||
(SETQ PCTB (fetch (TEXTOBJ PCTB) of TEXTOBJ))
|
||||
(for FORM in TEDIT.GET.FINISHEDFORMS do (EVAL FORM)))
|
||||
(T (* ;
|
||||
"Otherwise, create a TEXTOFD to describe the text we're editing.-")
|
||||
"Otherwise, create a TEXTOFD to describe the text we're editing.-")
|
||||
(CL:WHEN (AND TEXT (OR (LITATOM TEXT)
|
||||
(STRINGP TEXT))) (* ; "rmk: Strings are now file names")
|
||||
[SETQ TEXT (OPENSTREAM TEXT 'INPUT 'OLD '((TYPE TEXT])
|
||||
(SETQ TEXTSTREAM (replace (TEXTOBJ STREAMHINT) of TEXTOBJ
|
||||
with (create TEXTSTREAM
|
||||
TEXTOBJ _ TEXTOBJ)))
|
||||
[replace (TEXTOBJ PCTB) of TEXTOBJ
|
||||
with (SETQ PCTB (TEDIT.BUILD.PCTB TEXT TEXTOBJ START END FONT PARALOOKS
|
||||
(LISTGET PROPS 'CLEARGET]
|
||||
TEXTOBJ _ TEXTOBJ)))
|
||||
[replace (TEXTOBJ PCTB) of TEXTOBJ with (SETQ PCTB
|
||||
(TEDIT.BUILD.PCTB TEXT TEXTOBJ START END
|
||||
FONT PARALOOKS (LISTGET PROPS
|
||||
'CLEARGET]
|
||||
|
||||
(* ;; "(setq pc (\\editelt pctb (add1 |\\FirstPieceOffset|)))")
|
||||
|
||||
(SETQ PC (\GETBASEPTR (\FIRSTNODE PCTB)
|
||||
0))
|
||||
(for FORM in TEDIT.GET.FINISHEDFORMS do (EVAL FORM))
|
||||
(replace (TEXTOBJ TEXTLEN) of TEXTOBJ with (fetch (BTREENODE TOTLEN)
|
||||
of PCTB]
|
||||
(replace (TEXTOBJ CARETLOOKS) of TEXTOBJ
|
||||
with (\TEDIT.UNIQUIFY.CHARLOOKS (\TEDIT.CARETLOOKS.VERIFY TEXTOBJ
|
||||
(replace (TEXTOBJ DEFAULTCHARLOOKS)
|
||||
of TEXTOBJ with (
|
||||
(replace (TEXTOBJ TEXTLEN) of TEXTOBJ with (fetch (BTREENODE TOTLEN) of PCTB]
|
||||
(replace (TEXTOBJ CARETLOOKS) of TEXTOBJ with (\TEDIT.UNIQUIFY.CHARLOOKS
|
||||
(\TEDIT.CARETLOOKS.VERIFY
|
||||
TEXTOBJ
|
||||
(replace (TEXTOBJ DEFAULTCHARLOOKS)
|
||||
of TEXTOBJ with (
|
||||
\TEDIT.UNIQUIFY.CHARLOOKS
|
||||
FONT TEXTOBJ)))
|
||||
TEXTOBJ))
|
||||
(replace (TEXTOBJ CARET) of TEXTOBJ with (create
|
||||
TEDITCARET
|
||||
TCCARETDS _
|
||||
(AND WINDOW (WINDOWPROP WINDOW
|
||||
'DSP))
|
||||
TCFORCEUP _ T))
|
||||
FONT TEXTOBJ)))
|
||||
TEXTOBJ))
|
||||
(replace (TEXTOBJ CARET) of TEXTOBJ with (create TEDITCARET
|
||||
TCCARETDS _ (AND WINDOW
|
||||
(WINDOWPROP WINDOW
|
||||
'DSP))
|
||||
TCFORCEUP _ T))
|
||||
(replace (TEXTOBJ TXTREADONLY) of TEXTOBJ with (LISTGET PROPS 'READONLY))
|
||||
(replace (TEXTOBJ TXTTERMSA) of TEXTOBJ with (AND (SETQ PROP
|
||||
(LISTGET PROPS 'TERMTABLE))
|
||||
(fetch TERMSA
|
||||
of PROP)))
|
||||
(replace (TEXTOBJ TXTTERMSA) of TEXTOBJ with (AND (SETQ PROP (LISTGET PROPS 'TERMTABLE))
|
||||
(fetch TERMSA of PROP)))
|
||||
(replace (TEXTOBJ TXTRTBL) of TEXTOBJ with (LISTGET PROPS 'READTABLE))
|
||||
(replace (TEXTOBJ TXTWTBL) of TEXTOBJ with (LISTGET PROPS 'BOUNDTABLE))
|
||||
[COND
|
||||
((LISTGET PROPS 'PAGEFORMAT) (* ;
|
||||
"A default page formatting was supplied. Impose it on the document.")
|
||||
"A default page formatting was supplied. Impose it on the document.")
|
||||
(TEDIT.PAGEFORMAT TEXTOBJ (LISTGET PROPS 'PAGEFORMAT]
|
||||
(SETQ SEL (fetch (TEXTOBJ SEL) of TEXTOBJ))
|
||||
(SETQ PROP (LISTGET PROPS 'SEL)) (* ; "Initial Selection, if any.")
|
||||
(COND
|
||||
((EQ PROP 'DON'T) (* ;
|
||||
"A SEL prop of DON'T means don't make an initial selection")
|
||||
"A SEL prop of DON'T means don't make an initial selection")
|
||||
(replace (SELECTION SET) of SEL with NIL))
|
||||
((type? SELECTION PROP) (* ;
|
||||
"We came in with an explicit initial sel. Set it up.")
|
||||
((type? SELECTION PROP) (* ;
|
||||
"We came in with an explicit initial sel. Set it up.")
|
||||
(\COPYSEL PROP SEL)
|
||||
(replace (SELECTION SET) of SEL with T)
|
||||
(replace (SELECTION \TEXTOBJ) of SEL with TEXTOBJ))
|
||||
((AND (fetch (SELECTION SET) of SEL)
|
||||
(NOT PROP)) (* ;
|
||||
"If we came into this with a valid selection, highlight it.")
|
||||
"If we came into this with a valid selection, highlight it.")
|
||||
(replace (SELECTION \TEXTOBJ) of SEL with TEXTOBJ))
|
||||
(T (* ;
|
||||
"Starting without a selection; let's start with a point selection before the first character.")
|
||||
"Starting without a selection; let's start with a point selection before the first character.")
|
||||
(replace (SELECTION CH#) of SEL with (COND
|
||||
((FIXP PROP))
|
||||
(PROP (CAR PROP))
|
||||
(1)))
|
||||
((FIXP PROP))
|
||||
(PROP (CAR PROP))
|
||||
(1)))
|
||||
(replace (SELECTION CHLIM) of SEL with (COND
|
||||
((FIXP PROP))
|
||||
(PROP (IPLUS (CAR PROP)
|
||||
(CADR PROP)))
|
||||
(1)))
|
||||
((FIXP PROP))
|
||||
(PROP (IPLUS (CAR PROP)
|
||||
(CADR PROP)))
|
||||
(1)))
|
||||
(replace (SELECTION DCH) of SEL with (COND
|
||||
((FIXP PROP)
|
||||
0)
|
||||
(PROP (CADR PROP))
|
||||
(0)))
|
||||
((FIXP PROP)
|
||||
0)
|
||||
(PROP (CADR PROP))
|
||||
(0)))
|
||||
(replace (SELECTION DX) of SEL with 0)
|
||||
(replace (SELECTION POINT) of SEL with 'LEFT)
|
||||
(replace (SELECTION SELKIND) of SEL with 'CHAR)
|
||||
(replace (SELECTION SET) of SEL with (NOT (fetch (TEXTOBJ
|
||||
TXTREADONLY)
|
||||
of TEXTOBJ)))
|
||||
(replace (SELECTION SET) of SEL with (NOT (fetch (TEXTOBJ TXTREADONLY) of TEXTOBJ)))
|
||||
(replace (SELECTION \TEXTOBJ) of SEL with TEXTOBJ)))
|
||||
[COND
|
||||
((fetch (SELECTION SET) of SEL) (* ;
|
||||
"If there's an initial selection, it implies initial caret looks, too.")
|
||||
(replace (TEXTOBJ CARETLOOKS) of TEXTOBJ with (\TEDIT.GET.INSERT.CHARLOOKS
|
||||
TEXTOBJ SEL]
|
||||
((fetch (SELECTION SET) of SEL) (* ;
|
||||
"If there's an initial selection, it implies initial caret looks, too.")
|
||||
(replace (TEXTOBJ CARETLOOKS) of TEXTOBJ with (\TEDIT.GET.INSERT.CHARLOOKS TEXTOBJ SEL
|
||||
]
|
||||
(COND
|
||||
((AND WINDOW (NOT TEXTOBJ.WINDOW.VALID)) (* ;
|
||||
"Only if there's a window to display it in:")
|
||||
"Only if there's a window to display it in:")
|
||||
(replace (TEXTOBJ \WINDOW) of TEXTOBJ with NIL)
|
||||
(\TEDIT.WINDOW.SETUP WINDOW TEXTOBJ TEXTSTREAM PROPS)
|
||||
(* ;
|
||||
"Set up the window, and display the initial text.")
|
||||
"Set up the window, and display the initial text.")
|
||||
)
|
||||
((SETQ PWINDOW (LISTGET PROPS 'PROMPTWINDOW))
|
||||
|
||||
@ -300,10 +300,10 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor
|
||||
|
||||
(replace (TEXTOBJ PROMPTWINDOW) of TEXTOBJ with PWINDOW)))
|
||||
(\SETUPGETCH (create EDITMARK
|
||||
PC _ (\GETBASEPTR (\FIRSTNODE PCTB)
|
||||
0)
|
||||
PCOFF _ 0
|
||||
PCNO _ 1)
|
||||
PC _ (\GETBASEPTR (\FIRSTNODE PCTB)
|
||||
0)
|
||||
PCOFF _ 0
|
||||
PCNO _ 1)
|
||||
TEXTOBJ) (* ; "Set the file ptr to 0")
|
||||
(RETURN TEXTSTREAM])
|
||||
|
||||
@ -676,9 +676,10 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor
|
||||
(RETURN PC])
|
||||
|
||||
(\TEXTINIT
|
||||
[LAMBDA NIL (* ; "Edited 7-Oct-2021 08:40 by rmk:")
|
||||
[LAMBDA NIL (* ; "Edited 5-May-2022 15:12 by rmk")
|
||||
(* ; "Edited 7-Oct-2021 08:40 by rmk:")
|
||||
(* ;
|
||||
"Create the FDEV and STREAM prototypes for TEXT streams.")
|
||||
"Create the FDEV and STREAM prototypes for TEXT streams.")
|
||||
|
||||
(* ;; "TEXT streams make use of the following STREAM fields:")
|
||||
|
||||
@ -700,7 +701,7 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor
|
||||
|
||||
(* ;; "(FW8 WORD)")
|
||||
|
||||
(SETQ \TEXTIMAGEOPS (create IMAGEOPS
|
||||
[SETQ \TEXTIMAGEOPS (create IMAGEOPS
|
||||
IMAGETYPE _ 'TEXT
|
||||
IMXPOSITION _ (FUNCTION \TEXTDSPXPOSITION)
|
||||
IMYPOSITION _ (FUNCTION \TEXTDSPYPOSITION)
|
||||
@ -711,7 +712,8 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor
|
||||
IMFONTCREATE _ 'DISPLAY
|
||||
IMLINEFEED _ (FUNCTION \TEXTDSPLINEFEED)
|
||||
IMCHARWIDTH _ (FUNCTION \TEXTDSPCHARWIDTH)
|
||||
IMSTRINGWIDTH _ (FUNCTION \TEXTDSPSTRINGWIDTH)))
|
||||
IMSTRINGWIDTH _ (FUNCTION \TEXTDSPSTRINGWIDTH)
|
||||
IMSCALE _ (FUNCTION (LAMBDA NIL 1]
|
||||
(SETQ \TEXTFDEV (create FDEV
|
||||
DEVICENAME _ 'TEXT
|
||||
RESETABLE _ T
|
||||
@ -780,9 +782,8 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor
|
||||
(LET ((STREAM (STREAM-ERROR-STREAM CONDITION)))
|
||||
(COND
|
||||
[(AND (BOUNDP 'ERRORPOS)
|
||||
(TEXTSTREAMP STREAM))
|
||||
(* ;
|
||||
"This happened in the error handler, and it happened to a TEdit stream, so try the fix:")
|
||||
(TEXTSTREAMP STREAM)) (* ;
|
||||
"This happened in the error handler, and it happened to a TEdit stream, so try the fix:")
|
||||
(LET ((XCL::RESULT (REOPENTEXTSTREAM STREAM)))
|
||||
(CL:WHEN XCL::RESULT
|
||||
(ENVAPPLY (STKNAME ERRORPOS)
|
||||
@ -791,7 +792,7 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor
|
||||
ERRORPOS T T))]
|
||||
(*TEDIT-OLD-STREAM-ERROR-HANDLER*
|
||||
(* ;
|
||||
"Some other kind of stream, so punt to the old handler (if there is one):")
|
||||
"Some other kind of stream, so punt to the old handler (if there is one):")
|
||||
(APPLY* *TEDIT-OLD-STREAM-ERROR-HANDLER* CONDITION])
|
||||
|
||||
(\TEXTMARK
|
||||
@ -2721,25 +2722,25 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor
|
||||
(PUTPROPS TEXTOFD COPYRIGHT ("John Sybalsky & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989
|
||||
1990 1991 1993 1994 1995 1999 2000 2001 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (2992 53117 (COPYTEXTSTREAM 3002 . 6124) (OPENTEXTSTREAM 6126 . 21003) (REOPENTEXTSTREAM
|
||||
21005 . 21427) (TEDIT.STREAMCHANGEDP 21429 . 21727) (TEXTSTREAMP 21729 . 22043) (TXTFILE 22045 .
|
||||
22490) (\DELETECH 22492 . 33748) (\SETUPGETCH 33750 . 41029) (\TEDIT.REOPEN.STREAM 41031 . 42881) (
|
||||
\TEDIT.COPYTEXTSTREAM.PIECEMAPFN 42883 . 45321) (\TEXTINIT 45323 . 51010) (\TEXTMARK 51012 . 51760) (
|
||||
\TEXTTTYBOUT 51762 . 53115)) (53118 78550 (\INSERTCH 53128 . 76854) (\INSERTCR 76856 . 78548)) (78616
|
||||
98932 (\CHTOPC 78626 . 79815) (\CHTOPCNO 79817 . 81079) (\CLEARPCTB 81081 . 81877) (
|
||||
\CREATEPIECEORSTREAM 81879 . 84853) (\DELETEPIECE 84855 . 85768) (\FINDPIECE 85770 . 86136) (
|
||||
\INSERTPIECE 86138 . 89148) (\MAKEPCTB 89150 . 91065) (\SPLITPIECE 91067 . 98026) (\INSERT.FIRST.PIECE
|
||||
98028 . 98930)) (98984 123222 (\TEXTCLOSEF 98994 . 100221) (\TEXTCLOSEF-SUBTREE 100223 . 100929) (
|
||||
\TEXTDSPFONT 100931 . 101923) (\TEXTEOFP 101925 . 103284) (\TEXTGETEOFPTR 103286 . 103496) (
|
||||
\TEXTGETFILEPTR 103498 . 105561) (\TEXTOPENF 105563 . 106393) (\TEXTOPENF-SUBTREE 106395 . 107196) (
|
||||
\TEXTOUTCHARFN 107198 . 107546) (\TEXTBACKFILEPTR 107548 . 113449) (\TEXTBOUT 113451 . 116799) (
|
||||
\TEDITOUTCCODEFN 116801 . 118067) (\TEXTSETEOF 118069 . 118578) (\TEXTSETFILEPTR 118580 . 119805) (
|
||||
\TEXTDSPXPOSITION 119807 . 120664) (\TEXTDSPYPOSITION 120666 . 121211) (\TEXTLEFTMARGIN 121213 .
|
||||
121696) (\TEXTRIGHTMARGIN 121698 . 122634) (\TEXTDSPCHARWIDTH 122636 . 122874) (\TEXTDSPSTRINGWIDTH
|
||||
122876 . 123116) (\TEXTDSPLINEFEED 123118 . 123220)) (123223 161060 (\TEXTBIN 123233 . 144112) (
|
||||
\TEDIT.TEXTBIN.STRINGSETUP 144114 . 149827) (\TEDIT.TEXTBIN.FILESETUP 149829 . 156215) (
|
||||
\TEDIT.TEXTBIN.NEW.PAGE 156217 . 161058)) (161061 176823 (\TEXTPEEKBIN 161071 . 172564) (
|
||||
\TEDIT.PEEKBIN.NEW.PAGE 172566 . 176821)) (176861 182079 (CGETTEXTPROP 176871 . 177347) (CTEXTPROP
|
||||
177349 . 179693) (GETTEXTPROP 179695 . 180290) (PUTTEXTPROP 180292 . 181617) (TEXTPROP 181619 . 182077
|
||||
(FILEMAP (NIL (2980 53411 (COPYTEXTSTREAM 2990 . 6112) (OPENTEXTSTREAM 6114 . 21173) (REOPENTEXTSTREAM
|
||||
21175 . 21597) (TEDIT.STREAMCHANGEDP 21599 . 21897) (TEXTSTREAMP 21899 . 22213) (TXTFILE 22215 .
|
||||
22660) (\DELETECH 22662 . 33918) (\SETUPGETCH 33920 . 41199) (\TEDIT.REOPEN.STREAM 41201 . 43051) (
|
||||
\TEDIT.COPYTEXTSTREAM.PIECEMAPFN 43053 . 45491) (\TEXTINIT 45493 . 51304) (\TEXTMARK 51306 . 52054) (
|
||||
\TEXTTTYBOUT 52056 . 53409)) (53412 78844 (\INSERTCH 53422 . 77148) (\INSERTCR 77150 . 78842)) (78910
|
||||
99226 (\CHTOPC 78920 . 80109) (\CHTOPCNO 80111 . 81373) (\CLEARPCTB 81375 . 82171) (
|
||||
\CREATEPIECEORSTREAM 82173 . 85147) (\DELETEPIECE 85149 . 86062) (\FINDPIECE 86064 . 86430) (
|
||||
\INSERTPIECE 86432 . 89442) (\MAKEPCTB 89444 . 91359) (\SPLITPIECE 91361 . 98320) (\INSERT.FIRST.PIECE
|
||||
98322 . 99224)) (99278 123516 (\TEXTCLOSEF 99288 . 100515) (\TEXTCLOSEF-SUBTREE 100517 . 101223) (
|
||||
\TEXTDSPFONT 101225 . 102217) (\TEXTEOFP 102219 . 103578) (\TEXTGETEOFPTR 103580 . 103790) (
|
||||
\TEXTGETFILEPTR 103792 . 105855) (\TEXTOPENF 105857 . 106687) (\TEXTOPENF-SUBTREE 106689 . 107490) (
|
||||
\TEXTOUTCHARFN 107492 . 107840) (\TEXTBACKFILEPTR 107842 . 113743) (\TEXTBOUT 113745 . 117093) (
|
||||
\TEDITOUTCCODEFN 117095 . 118361) (\TEXTSETEOF 118363 . 118872) (\TEXTSETFILEPTR 118874 . 120099) (
|
||||
\TEXTDSPXPOSITION 120101 . 120958) (\TEXTDSPYPOSITION 120960 . 121505) (\TEXTLEFTMARGIN 121507 .
|
||||
121990) (\TEXTRIGHTMARGIN 121992 . 122928) (\TEXTDSPCHARWIDTH 122930 . 123168) (\TEXTDSPSTRINGWIDTH
|
||||
123170 . 123410) (\TEXTDSPLINEFEED 123412 . 123514)) (123517 161354 (\TEXTBIN 123527 . 144406) (
|
||||
\TEDIT.TEXTBIN.STRINGSETUP 144408 . 150121) (\TEDIT.TEXTBIN.FILESETUP 150123 . 156509) (
|
||||
\TEDIT.TEXTBIN.NEW.PAGE 156511 . 161352)) (161355 177117 (\TEXTPEEKBIN 161365 . 172858) (
|
||||
\TEDIT.PEEKBIN.NEW.PAGE 172860 . 177115)) (177155 182373 (CGETTEXTPROP 177165 . 177641) (CTEXTPROP
|
||||
177643 . 179987) (GETTEXTPROP 179989 . 180584) (PUTTEXTPROP 180586 . 181911) (TEXTPROP 181913 . 182371
|
||||
)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user