Upgrade TEDIT to LF (#324)
* Upgrade TEDIT to LF Fixes the black boxes in the Tedit menus. TEDIT had a built-in bias towards CR in files and in displaying them. I changed the bias to LF. * TEDITDCL had no content Its COMS specified lots of records etc from other TEDIT files, but none of those were actually in the symbolic file (the LCOM was OK). I loaded all of the other TEDIT files and remade/recompiled this, looks like it captured everything
This commit is contained in:
rmkaplan
GitHub
@@ -1,13 +1,15 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "19-May-2001 11:45:53" {DSK}<project>medley3.5>library>TEDITFILE.;5 245586
|
||||
(FILECREATED "30-Apr-2021 14:46:41"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFILE.;8 246290
|
||||
|
||||
changes to%: (FNS TEDIT.GET TEDIT.INCLUDE)
|
||||
changes to%: (FNS TEDIT.PUT.PCTB)
|
||||
|
||||
previous date%: "26-Dec-2000 15:18:25" {DSK}<project>medley3.5>library>TEDITFILE.;4)
|
||||
previous date%: "30-Apr-2021 13:43:24"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFILE.;7)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1999, 2000, 2001 by Venue & Xerox Corporation. All rights reserved.
|
||||
Copyright (c) 1983-1994, 1999-2001, 2021 by Venue & Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT TEDITFILECOMS)
|
||||
@@ -83,7 +85,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
|
||||
|
||||
(TEDIT.BUILD.PCTB
|
||||
[LAMBDA (TEXT TEXTOBJ START END DEFAULTLOOKS DEFAULTPARALOOKS CLEARGET?)
|
||||
(* ; "Edited 11-Jun-99 14:51 by rmk:")
|
||||
(* ; "Edited 29-Apr-2021 22:52 by rmk:")
|
||||
(* ; "Edited 11-Jun-99 14:37 by rmk:")
|
||||
(* ; "Edited 19-Apr-93 13:46 by jds")
|
||||
(* ;
|
||||
@@ -160,10 +162,13 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
|
||||
|
||||
))
|
||||
(SETQ PCCOUNT (\TEDIT.FORMATTEDP1 TEXT END))
|
||||
|
||||
(* ;; "RMK: Domestic EOL is now LF, so changed from CR")
|
||||
|
||||
(COND
|
||||
((AND (NOT PCCOUNT)
|
||||
(NEQ (fetch (STREAM EOLCONVENTION) of TEXT)
|
||||
CR.EOLC))
|
||||
LF.EOLC))
|
||||
|
||||
(* ;; "This is an UNFORMATTED file, and it has a foreign EOL convention. Convert it, and save the converted copy locally.")
|
||||
|
||||
@@ -1348,7 +1353,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
|
||||
(RETURN OFILE])
|
||||
|
||||
(TEDIT.PUT.PCTB
|
||||
[LAMBDA (TEXTOBJ OFILE UNFORMATTED? SEPARATEFORMAT) (* ; "Edited 11-Jun-99 15:55 by rmk:")
|
||||
[LAMBDA (TEXTOBJ OFILE UNFORMATTED? SEPARATEFORMAT) (* ; "Edited 30-Apr-2021 14:46 by rmk:")
|
||||
(* ; "Edited 19-May-99 21:58 by rmk:")
|
||||
(* ;
|
||||
"Edited 27-May-93 16:00 by sybalsky:mv:envos")
|
||||
@@ -1378,10 +1383,13 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
|
||||
(fetch (PIECE PLOOKS) of PC))
|
||||
(fetch (TEXTOBJ DEFAULTCHARLOOKS) of TEXTOBJ)
|
||||
TEDIT.DEFAULT.CHARLOOKS)) (* ; "Starting looks")
|
||||
|
||||
(* ;; "RMK: CHANGED DEFAULT FROM CR TO LF")
|
||||
|
||||
(COND
|
||||
((NEQ (fetch (STREAM EOLCONVENTION) of OFILE)
|
||||
CR.EOLC) (* ;
|
||||
"This file is on a non-CR host; make a note to cache it")
|
||||
LF.EOLC) (* ;
|
||||
"This file is on a non-LF host; make a note to cache it")
|
||||
(SETQ TRUEFILE OFILE) (* ;
|
||||
"Remember where the file should wind up.")
|
||||
[SETQ OFILE (OPENSTREAM '{NODIRCORE} 'BOTH 'NEW '((TYPE TEXT]
|
||||
@@ -1604,17 +1612,26 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
|
||||
((SETQ PSTR (fetch (PIECE PSTR) of PC))
|
||||
(* ;
|
||||
"It's in a string. Just print it.")
|
||||
(COND
|
||||
[(fetch (PIECE PFATP) of PC)
|
||||
(* ;
|
||||
"The string is fat: Copy twice as many bytes as chars.")
|
||||
(for I from 1 to (fetch (PIECE PLEN) of PC)
|
||||
as CH instring PSTR do (\BOUT OFILE (\CHARSET CH))
|
||||
(\BOUT OFILE (\CHAR8CODE CH]
|
||||
(T (* ;
|
||||
"The string is thin. Just copy it to the file.")
|
||||
(for I from 1 to (fetch (PIECE PLEN) of PC)
|
||||
as CH instring PSTR do (\BOUT OFILE CH]
|
||||
|
||||
(* ;;
|
||||
"RMK: BOUT ptimizations would miss external formats and EOL conventions")
|
||||
|
||||
(for I from 1 to (fetch (PIECE PLEN) of PC)
|
||||
as CH instring PSTR do (\OUTCHAR OFILE CH))
|
||||
(* (COND ((fetch (PIECE PFATP) of PC)
|
||||
(* ;
|
||||
"The string is fat: Copy twice as many bytes as chars.")
|
||||
(for I from 1 to (fetch
|
||||
(PIECE PLEN) of PC) as CH instring
|
||||
PSTR do (\BOUT OFILE
|
||||
(\CHARSET CH)) (\BOUT OFILE
|
||||
(\CHAR8CODE CH))))
|
||||
(T (* ;
|
||||
"The string is thin. Just copy it to the file.")
|
||||
(for I from 1 to (fetch
|
||||
(PIECE PLEN) of PC) as CH instring
|
||||
PSTR do (\BOUT OFILE CH)))))
|
||||
]
|
||||
[COND
|
||||
((AND (NOT CACHE)
|
||||
(RANDACCESSP OFILE)) (* ;
|
||||
@@ -3633,27 +3650,27 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
|
||||
(RPLACD TABSPEC TABS])
|
||||
)
|
||||
(PUTPROPS TEDITFILE COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990
|
||||
1991 1992 1993 1994 1999 2000 2001))
|
||||
1991 1992 1993 1994 1999 2000 2001 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (3099 57926 (TEDIT.BUILD.PCTB 3109 . 37483) (\TEDIT.CONVERT.FOREIGN.FORMAT 37485 . 38926
|
||||
) (TEDIT.FORMATTEDFILEP 38928 . 42792) (TEDIT.GET 42794 . 51610) (TEDIT.PARSE.PAGEFRAMES1 51612 .
|
||||
53318) (\ARBIN 53320 . 53941) (\ATMIN 53943 . 54272) (\DWIN 54274 . 54552) (\STRINGIN 54554 . 55151) (
|
||||
\TEDIT.FORMATTEDP1 55153 . 57417) (\TEDIT.SET.WINDOW 57419 . 57924)) (57962 78490 (TEDIT.INCLUDE 57972
|
||||
. 69359) (TEDIT.RAW.INCLUDE 69361 . 78488)) (78524 122097 (TEDIT.PUT 78534 . 88907) (TEDIT.PUT.PCTB
|
||||
88909 . 115833) (\TEDIT.PUTRESET 115835 . 116081) (TEDIT.PUT.PIECE.DESCRIPTOR 116083 . 118546) (
|
||||
\ARBOUT 118548 . 119748) (\ATMOUT 119750 . 120265) (\DWOUT 120267 . 120550) (\STRINGOUT 120552 .
|
||||
121004) (\TEDIT-OPEN-FONT-FILE 121006 . 122095)) (122098 132610 (\TEDIT.GET.CHARLOOKS.LIST 122108 .
|
||||
122513) (\TEDIT.GET.SINGLE.CHARLOOKS 122515 . 125560) (\TEDIT.PUT.CHARLOOKS.LIST 125562 . 127357) (
|
||||
\TEDIT.PUT.SINGLE.CHARLOOKS 127359 . 132608)) (132611 146890 (\TEDIT.GET.PARALOOKS.LIST 132621 .
|
||||
133034) (\TEDIT.GET.SINGLE.PARALOOKS 133036 . 139430) (\TEDIT.PUT.PARALOOKS.LIST 139432 . 140426) (
|
||||
\TEDIT.PUT.SINGLE.PARALOOKS 140428 . 146888)) (147198 208459 (TEDIT.BUILD.PCTB2 147208 . 160564) (
|
||||
\TEDIT.GET.CHARLOOKS.LIST2 160566 . 160973) (\TEDIT.GET.SINGLE.CHARLOOKS2 160975 . 163887) (
|
||||
\TEDIT.PUT.SINGLE.PARALOOKS2 163889 . 168603) (\TEDIT.PUT.SINGLE.CHARLOOKS2 168605 . 173101) (
|
||||
\TEDIT.GET.PARALOOKS.LIST2 173103 . 173510) (\TEDIT.GET.SINGLE.PARALOOKS2 173512 . 178100) (
|
||||
TEDIT.PUT.PCTB2 178102 . 205763) (\TEDIT.PUT.CHARLOOKS.LIST2 205765 . 207562) (
|
||||
\TEDIT.PUT.PARALOOKS.LIST2 207564 . 208457)) (208536 229660 (TEDIT.BUILD.PCTB1 208546 . 218736) (
|
||||
TEDIT.GET.PAGEFRAMES1 218738 . 218993) (\TEDIT.GET.CHARLOOKS1 218995 . 222545) (\TEDIT.GET.PARALOOKS1
|
||||
222547 . 227128) (TEDIT.GET.OBJECT1 227130 . 229658)) (229720 245426 (TEDIT.BUILD.PCTB0 229730 .
|
||||
235437) (TEDIT.GET.CHARLOOKS0 235439 . 239458) (TEDIT.GET.OBJECT0 239460 . 241988) (
|
||||
TEDIT.GET.PARALOOKS0 241990 . 245424)))))
|
||||
(FILEMAP (NIL (3052 57958 (TEDIT.BUILD.PCTB 3062 . 37515) (\TEDIT.CONVERT.FOREIGN.FORMAT 37517 . 38958
|
||||
) (TEDIT.FORMATTEDFILEP 38960 . 42824) (TEDIT.GET 42826 . 51642) (TEDIT.PARSE.PAGEFRAMES1 51644 .
|
||||
53350) (\ARBIN 53352 . 53973) (\ATMIN 53975 . 54304) (\DWIN 54306 . 54584) (\STRINGIN 54586 . 55183) (
|
||||
\TEDIT.FORMATTEDP1 55185 . 57449) (\TEDIT.SET.WINDOW 57451 . 57956)) (57994 78522 (TEDIT.INCLUDE 58004
|
||||
. 69391) (TEDIT.RAW.INCLUDE 69393 . 78520)) (78556 122796 (TEDIT.PUT 78566 . 88939) (TEDIT.PUT.PCTB
|
||||
88941 . 116532) (\TEDIT.PUTRESET 116534 . 116780) (TEDIT.PUT.PIECE.DESCRIPTOR 116782 . 119245) (
|
||||
\ARBOUT 119247 . 120447) (\ATMOUT 120449 . 120964) (\DWOUT 120966 . 121249) (\STRINGOUT 121251 .
|
||||
121703) (\TEDIT-OPEN-FONT-FILE 121705 . 122794)) (122797 133309 (\TEDIT.GET.CHARLOOKS.LIST 122807 .
|
||||
123212) (\TEDIT.GET.SINGLE.CHARLOOKS 123214 . 126259) (\TEDIT.PUT.CHARLOOKS.LIST 126261 . 128056) (
|
||||
\TEDIT.PUT.SINGLE.CHARLOOKS 128058 . 133307)) (133310 147589 (\TEDIT.GET.PARALOOKS.LIST 133320 .
|
||||
133733) (\TEDIT.GET.SINGLE.PARALOOKS 133735 . 140129) (\TEDIT.PUT.PARALOOKS.LIST 140131 . 141125) (
|
||||
\TEDIT.PUT.SINGLE.PARALOOKS 141127 . 147587)) (147897 209158 (TEDIT.BUILD.PCTB2 147907 . 161263) (
|
||||
\TEDIT.GET.CHARLOOKS.LIST2 161265 . 161672) (\TEDIT.GET.SINGLE.CHARLOOKS2 161674 . 164586) (
|
||||
\TEDIT.PUT.SINGLE.PARALOOKS2 164588 . 169302) (\TEDIT.PUT.SINGLE.CHARLOOKS2 169304 . 173800) (
|
||||
\TEDIT.GET.PARALOOKS.LIST2 173802 . 174209) (\TEDIT.GET.SINGLE.PARALOOKS2 174211 . 178799) (
|
||||
TEDIT.PUT.PCTB2 178801 . 206462) (\TEDIT.PUT.CHARLOOKS.LIST2 206464 . 208261) (
|
||||
\TEDIT.PUT.PARALOOKS.LIST2 208263 . 209156)) (209235 230359 (TEDIT.BUILD.PCTB1 209245 . 219435) (
|
||||
TEDIT.GET.PAGEFRAMES1 219437 . 219692) (\TEDIT.GET.CHARLOOKS1 219694 . 223244) (\TEDIT.GET.PARALOOKS1
|
||||
223246 . 227827) (TEDIT.GET.OBJECT1 227829 . 230357)) (230419 246125 (TEDIT.BUILD.PCTB0 230429 .
|
||||
236136) (TEDIT.GET.CHARLOOKS0 236138 . 240157) (TEDIT.GET.OBJECT0 240159 . 242687) (
|
||||
TEDIT.GET.PARALOOKS0 242689 . 246123)))))
|
||||
STOP
|
||||
|
||||
Reference in New Issue
Block a user