Rmk62 old tedit formats and nits (#851)
* TEDIT-FIND, TEDIT-OFD: Read old-format TEDIT files TEDIT-OFD also traps non-stream TEXT arguments that should no longer propagate * EDITKEYS: Only BKSYSBUF when TEDIT has the TTY Also, changed the name from Function Keys to Tedit Keys, made the shrunk window open on left-click * COMPAREDIRECTORIES: better format when one of the columns is empty * GITFNS: "cob next" asks to confirm the parent branch * TEDIT-FILE: Pass TEXTSTREAM to TEDIT.GET.OBJECT * TEDIT-FILE again: same problem in readers for old formats * Eliminate (OPENTEXTSTREAM "")
This commit is contained in:
rmkaplan
GitHub
File diff suppressed because it is too large
Load Diff
Binary file not shown.
@@ -1,10 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "14-Jul-2022 17:00:29"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>library>tedit>TEDIT-TEXTOFD.;1 174498
|
||||
(FILECREATED "20-Jul-2022 08:09:55"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>TEDIT>TEDIT-TEXTOFD.;2 174869
|
||||
|
||||
:PREVIOUS-DATE "14-Jul-2022 11:08:01"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>library>newtedit>TEDIT-TEXTOFD.;2)
|
||||
:CHANGES-TO (FNS \CREATEPIECEORSTREAM)
|
||||
|
||||
:PREVIOUS-DATE "14-Jul-2022 17:00:29"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>TEDIT>TEDIT-TEXTOFD.;1)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-TEXTOFDCOMS)
|
||||
@@ -1202,7 +1204,8 @@
|
||||
(HELP])
|
||||
|
||||
(\CREATEPIECEORSTREAM
|
||||
[LAMBDA (TEXT LOOKS PARALOOKS START END) (* ; "Edited 13-Jul-2022 18:46 by rmk")
|
||||
[LAMBDA (TEXT LOOKS PARALOOKS START END) (* ; "Edited 20-Jul-2022 08:09 by rmk")
|
||||
(* ; "Edited 13-Jul-2022 18:46 by rmk")
|
||||
(* ; "Edited 11-Jun-99 14:25 by rmk:")
|
||||
(* ; "Edited 31-May-91 14:18 by jds")
|
||||
|
||||
@@ -1214,6 +1217,7 @@
|
||||
[SETQ PC
|
||||
(COND
|
||||
((STRINGP TEXT) (* ; "It's a string.")
|
||||
(HELP "STRING TEXTS ARE NOW INTERPRETED AS FILE NAMES" TEXT)
|
||||
(create PIECE
|
||||
PSTR _ TEXT
|
||||
PFILE _ NIL
|
||||
@@ -1230,6 +1234,7 @@
|
||||
PPARALAST _ NIL
|
||||
PPARALOOKS _ PARALOOKS))
|
||||
((ATOM TEXT) (* ; "An atom is a file name. Open it.")
|
||||
(HELP "ATOM TEXTS SHOULD ALREADY HAVE BEEN COERCED TO STREAMS" TEXT)
|
||||
[SETQ TEXT (OPENSTREAM TEXT 'INPUT 'OLD '(TYPE TEXT]
|
||||
(RETURN TEXT))
|
||||
((STREAMP TEXT) (* ;
|
||||
@@ -1243,6 +1248,7 @@
|
||||
TEXT)
|
||||
(T (* ;
|
||||
"Anything else is coerced to a string first.")
|
||||
(HELP "ONLY STREAMS CAN BE EDITGED" TEXT)
|
||||
(SETQ TEXT (MKSTRING TEXT))
|
||||
(create PIECE
|
||||
PSTR _ TEXT
|
||||
@@ -2594,25 +2600,25 @@
|
||||
(ADDTOVAR LAMA TEXTPROP)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (2896 51935 (COPYTEXTSTREAM 2906 . 5645) (OPENTEXTSTREAM 5647 . 20914) (REOPENTEXTSTREAM
|
||||
20916 . 21342) (TEDIT.STREAMCHANGEDP 21344 . 21646) (TEXTSTREAMP 21648 . 22062) (TXTFILE 22064 .
|
||||
22517) (\DELETECH 22519 . 32935) (\SETUPGETCH 32937 . 39715) (\TEDIT.REOPEN.STREAM 39717 . 41542) (
|
||||
\TEDIT.COPYTEXTSTREAM.PIECEMAPFN 41544 . 44016) (\TEXTINIT 44018 . 49968) (\TEXTMARK 49970 . 50722) (
|
||||
\TEXTTTYBOUT 50724 . 51933)) (51936 77485 (\INSERTCH 51946 . 75777) (\INSERTCR 75779 . 77483)) (77551
|
||||
96475 (\CHTOPC 77561 . 79013) (\CHTOPCNO 79015 . 80169) (\CLEARPCTB 80171 . 80955) (
|
||||
\CREATEPIECEORSTREAM 80957 . 84017) (\DELETEPIECE 84019 . 84938) (\FINDPIECE 84940 . 85312) (
|
||||
\INSERTPIECE 85314 . 88080) (\MAKEPCTB 88082 . 89908) (\SPLITPIECE 89910 . 95647) (\INSERT.FIRST.PIECE
|
||||
95649 . 96473)) (96527 118502 (\TEXTCLOSEF 96537 . 97751) (\TEXTCLOSEF-SUBTREE 97753 . 98463) (
|
||||
\TEXTDSPFONT 98465 . 99461) (\TEXTEOFP 99463 . 100526) (\TEXTGETEOFPTR 100528 . 100742) (
|
||||
\TEXTGETFILEPTR 100744 . 102676) (\TEXTOPENF 102678 . 103448) (\TEXTOPENF-SUBTREE 103450 . 104186) (
|
||||
\TEXTOUTCHARFN 104188 . 104479) (\TEXTBACKFILEPTR 104481 . 110030) (\TEXTBOUT 110032 . 112586) (
|
||||
\TEDITOUTCCODEFN 112588 . 113699) (\TEXTSETEOF 113701 . 114216) (\TEXTSETFILEPTR 114218 . 115451) (
|
||||
\TEXTDSPXPOSITION 115453 . 116313) (\TEXTDSPYPOSITION 116315 . 116862) (\TEXTLEFTMARGIN 116864 .
|
||||
117286) (\TEXTRIGHTMARGIN 117288 . 118036) (\TEXTDSPCHARWIDTH 118038 . 118215) (\TEXTDSPSTRINGWIDTH
|
||||
118217 . 118396) (\TEXTDSPLINEFEED 118398 . 118500)) (118503 153841 (\TEXTBIN 118513 . 139392) (
|
||||
\TEDIT.TEXTBIN.STRINGSETUP 139394 . 144358) (\TEDIT.TEXTBIN.FILESETUP 144360 . 149881) (
|
||||
\TEDIT.TEXTBIN.NEW.PAGE 149883 . 153839)) (153842 168715 (\TEXTPEEKBIN 153852 . 165345) (
|
||||
\TEDIT.PEEKBIN.NEW.PAGE 165347 . 168713)) (168753 173973 (CGETTEXTPROP 168763 . 169223) (CTEXTPROP
|
||||
169225 . 171573) (GETTEXTPROP 171575 . 172174) (PUTTEXTPROP 172176 . 173507) (TEXTPROP 173509 . 173971
|
||||
(FILEMAP (NIL (2939 51978 (COPYTEXTSTREAM 2949 . 5688) (OPENTEXTSTREAM 5690 . 20957) (REOPENTEXTSTREAM
|
||||
20959 . 21385) (TEDIT.STREAMCHANGEDP 21387 . 21689) (TEXTSTREAMP 21691 . 22105) (TXTFILE 22107 .
|
||||
22560) (\DELETECH 22562 . 32978) (\SETUPGETCH 32980 . 39758) (\TEDIT.REOPEN.STREAM 39760 . 41585) (
|
||||
\TEDIT.COPYTEXTSTREAM.PIECEMAPFN 41587 . 44059) (\TEXTINIT 44061 . 50011) (\TEXTMARK 50013 . 50765) (
|
||||
\TEXTTTYBOUT 50767 . 51976)) (51979 77528 (\INSERTCH 51989 . 75820) (\INSERTCR 75822 . 77526)) (77594
|
||||
96846 (\CHTOPC 77604 . 79056) (\CHTOPCNO 79058 . 80212) (\CLEARPCTB 80214 . 80998) (
|
||||
\CREATEPIECEORSTREAM 81000 . 84388) (\DELETEPIECE 84390 . 85309) (\FINDPIECE 85311 . 85683) (
|
||||
\INSERTPIECE 85685 . 88451) (\MAKEPCTB 88453 . 90279) (\SPLITPIECE 90281 . 96018) (\INSERT.FIRST.PIECE
|
||||
96020 . 96844)) (96898 118873 (\TEXTCLOSEF 96908 . 98122) (\TEXTCLOSEF-SUBTREE 98124 . 98834) (
|
||||
\TEXTDSPFONT 98836 . 99832) (\TEXTEOFP 99834 . 100897) (\TEXTGETEOFPTR 100899 . 101113) (
|
||||
\TEXTGETFILEPTR 101115 . 103047) (\TEXTOPENF 103049 . 103819) (\TEXTOPENF-SUBTREE 103821 . 104557) (
|
||||
\TEXTOUTCHARFN 104559 . 104850) (\TEXTBACKFILEPTR 104852 . 110401) (\TEXTBOUT 110403 . 112957) (
|
||||
\TEDITOUTCCODEFN 112959 . 114070) (\TEXTSETEOF 114072 . 114587) (\TEXTSETFILEPTR 114589 . 115822) (
|
||||
\TEXTDSPXPOSITION 115824 . 116684) (\TEXTDSPYPOSITION 116686 . 117233) (\TEXTLEFTMARGIN 117235 .
|
||||
117657) (\TEXTRIGHTMARGIN 117659 . 118407) (\TEXTDSPCHARWIDTH 118409 . 118586) (\TEXTDSPSTRINGWIDTH
|
||||
118588 . 118767) (\TEXTDSPLINEFEED 118769 . 118871)) (118874 154212 (\TEXTBIN 118884 . 139763) (
|
||||
\TEDIT.TEXTBIN.STRINGSETUP 139765 . 144729) (\TEDIT.TEXTBIN.FILESETUP 144731 . 150252) (
|
||||
\TEDIT.TEXTBIN.NEW.PAGE 150254 . 154210)) (154213 169086 (\TEXTPEEKBIN 154223 . 165716) (
|
||||
\TEDIT.PEEKBIN.NEW.PAGE 165718 . 169084)) (169124 174344 (CGETTEXTPROP 169134 . 169594) (CTEXTPROP
|
||||
169596 . 171944) (GETTEXTPROP 171946 . 172545) (PUTTEXTPROP 172547 . 173878) (TEXTPROP 173880 . 174342
|
||||
)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user