Rmk20: Eliminate string arguments to TEDIT, move some bogus files to obsolete (#668)
* Eliminate string arguments to OPENTEXTSTREAM #666 Empty string replaced by NIL, mostly. Otherwise, string wrapped in OPENSTRINGSTREAM. TEDIT hasn't yet been modified, just all the callers. * INDEX, NGROUP: move to obsolete #667 * HELPSYS: Add proper FILETYPE property * ROOMS files: Also updated for TEDIT string arguments
This commit is contained in:
rmkaplan
GitHub
@@ -1,11 +1,11 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "13-Jun-2021 09:46:34"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TFBRAVO.;3 74596
|
||||
|
||||
changes to%: (FNS \TFBRAVO.WRITE.RUN \TFBRAVO.WRITE.RUNS \TFBRAVO.PARSE.PARA)
|
||||
(FILECREATED "31-Jan-2022 23:28:20" {DSK}<Users>kaplan>Local>medley3.5>my-medley>library>TFBRAVO.;4 74716
|
||||
|
||||
previous date%: "19-Apr-2018 12:19:55"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TFBRAVO.;2)
|
||||
:CHANGES-TO (FNS TEDITFROMBRAVO)
|
||||
|
||||
:PREVIOUS-DATE "13-Jun-2021 09:46:34"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>TFBRAVO.;3)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -20,7 +20,7 @@ Copyright (c) 1984-1987, 1990-1991, 2018, 2021 by Venue & Xerox Corporation.
|
||||
(FILES (LOADCOMP)
|
||||
TEDITDCL))
|
||||
[DECLARE%: EVAL@COMPILE DONTCOPY
|
||||
(COMS (* ; "Compile-time needs")
|
||||
(COMS (* ; "Compile-time needs")
|
||||
(RECORDS FONT PARA RUN TFBRAVOPAGEFRAMES)
|
||||
(CONSTANTS (PTSPERINCH 72.27)
|
||||
(DefaultLeftMargin 2540)
|
||||
@@ -50,8 +50,8 @@ Copyright (c) 1984-1987, 1990-1991, 2018, 2021 by Venue & Xerox Corporation.
|
||||
(SETSYNTAX (CHARCODE ^Z)
|
||||
'SEPRCHAR PROFILE.PARA.RDTBL))
|
||||
(GLOBALVARS \NAMEDTAB.IMAGEFNS)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (ADDTOVAR TEDIT.INPUT.FORMATS (\TEDIT.BRAVOFILE?
|
||||
TEDITFROMBRAVO))
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (ADDTOVAR TEDIT.INPUT.FORMATS (\TEDIT.BRAVOFILE?
|
||||
TEDITFROMBRAVO))
|
||||
(\NAMEDTAB.INIT])
|
||||
|
||||
(FILESLOAD TEDITDCL)
|
||||
@@ -732,22 +732,22 @@ Copyright (c) 1984-1987, 1990-1991, 2018, 2021 by Venue & Xerox Corporation.
|
||||
MARGIN.CANDIDATE])
|
||||
|
||||
(TEDITFROMBRAVO
|
||||
[LAMBDA (FILIN USER.CM TEXTSTREAM) (* ; "Edited 13-Jun-90 01:00 by mitani")
|
||||
[LAMBDA (FILIN USER.CM TEXTSTREAM) (* ; "Edited 31-Jan-2022 23:28 by rmk")
|
||||
(* ; "Edited 13-Jun-90 01:00 by mitani")
|
||||
|
||||
(* * Top level entry for conversion from Bravo to a Textstream which is
|
||||
returned)
|
||||
(* * Top level entry for conversion from Bravo to a Textstream which is returned)
|
||||
|
||||
(INFILE FILIN)
|
||||
(PROG (OLDPLOOKS CURRENT.PARAGRAPH USER.CM.ALIST START NEXTPARAPTR TEDITWINDOW TEXTOBJ
|
||||
(NONFEATURES NIL)
|
||||
(SMALLEST.MARGIN MAX.FIXP)
|
||||
(NEWSTREAM (OR TEXTSTREAM (OPENTEXTSTREAM "")))
|
||||
(NEWSTREAM (OR TEXTSTREAM (OPENTEXTSTREAM NIL)))
|
||||
USER.CM.PARALOOKS USER.CM.CHARLOOKS)
|
||||
(DECLARE (SPECVARS NOUT))
|
||||
(SETQ TEXTOBJ (TEXTOBJ NEWSTREAM))
|
||||
(SETQ USER.CM.ALIST (\TFBRAVO.READ.USER.CM USER.CM))
|
||||
(* read the user.cm file and produce
|
||||
the alist of default values)
|
||||
(* read the user.cm file and produce
|
||||
the alist of default values)
|
||||
(CLOSEF? USER.CM)
|
||||
(SETQ OLDPLOOKS (SETQ USER.CM.PARALOOKS (\TFBRAVO.INIT.PARALOOKS USER.CM.ALIST)))
|
||||
(SETQ USER.CM.CHARLOOKS (\TFBRAVO.INIT.CHARLOOKS))
|
||||
@@ -757,17 +757,17 @@ Copyright (c) 1984-1987, 1990-1991, 2018, 2021 by Venue & Xerox Corporation.
|
||||
(SETQ CURRENT.PARAGRAPH (\TFBRAVO.PARSE.PARA OLDPLOOKS FILIN))
|
||||
while (fetch RUNS of CURRENT.PARAGRAPH)
|
||||
do (SETQ NEXTPARAPTR (GETFILEPTR FILIN))
|
||||
(SETFILEPTR FILIN START)
|
||||
(SETQ SMALLEST.MARGIN (\TFBRAVO.WRITE.PARAGRAPH CURRENT.PARAGRAPH
|
||||
FILIN TEXTOBJ SMALLEST.MARGIN))
|
||||
(SETFILEPTR FILIN NEXTPARAPTR)
|
||||
(SETQ OLDPLOOKS (fetch PARALOOKS of CURRENT.PARAGRAPH))
|
||||
(SETQ START (GETFILEPTR FILIN))
|
||||
(SETQ CURRENT.PARAGRAPH (\TFBRAVO.PARSE.PARA OLDPLOOKS FILIN))
|
||||
finally (* (\SHIFT.DOCUMENT
|
||||
(fetch (TEXTOBJ PCTB) of TEXTOBJ)
|
||||
(MINUS SMALLEST.MARGIN)))
|
||||
NIL))
|
||||
(SETFILEPTR FILIN START)
|
||||
(SETQ SMALLEST.MARGIN (\TFBRAVO.WRITE.PARAGRAPH CURRENT.PARAGRAPH FILIN
|
||||
TEXTOBJ SMALLEST.MARGIN))
|
||||
(SETFILEPTR FILIN NEXTPARAPTR)
|
||||
(SETQ OLDPLOOKS (fetch PARALOOKS of CURRENT.PARAGRAPH))
|
||||
(SETQ START (GETFILEPTR FILIN))
|
||||
(SETQ CURRENT.PARAGRAPH (\TFBRAVO.PARSE.PARA OLDPLOOKS FILIN)) finally
|
||||
(* (\SHIFT.DOCUMENT (fetch
|
||||
(TEXTOBJ PCTB) of TEXTOBJ)
|
||||
(MINUS SMALLEST.MARGIN)))
|
||||
NIL))
|
||||
(CLOSEF (INPUT))
|
||||
(\TFBRAVO.INSTALL.PAGEFORMAT TEXTOBJ)
|
||||
(RETURN NEWSTREAM])
|
||||
@@ -1327,19 +1327,19 @@ Copyright (c) 1984-1987, 1990-1991, 2018, 2021 by Venue & Xerox Corporation.
|
||||
)
|
||||
(PUTPROPS TFBRAVO COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1990 1991 2018 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4259 34161 (\TFBRAVO.FIND.LAST.TRAILER 4269 . 5762) (\TFBRAVO.HANDLE.HEADING 5764 .
|
||||
7642) (\TFBRAVO.INIT.CHARLOOKS 7644 . 8460) (\TFBRAVO.INIT.PAGEFORMAT 8462 . 8940) (
|
||||
\TFBRAVO.INSTALL.PAGEFORMAT 8942 . 13579) (\TFBRAVO.PARSE.PROFILE.PARA 13581 . 22094) (
|
||||
\TFBRAVO.PARSE.PROFILE.VALUE 22096 . 22863) (\TFBRAVO.GET.FONTSIZE 22865 . 23181) (
|
||||
\TFBRAVO.GET.FONTSTYLE 23183 . 23511) (\TFBRAVO.WRITE.RUN 23513 . 24646) (\TFBRAVO.ASSERT 24648 .
|
||||
24960) (\SHIFT.DOCUMENT 24962 . 28838) (\TEDIT.BRAVOFILE? 28840 . 30887) (\TEST.CHARACTER.LOOKS 30889
|
||||
. 32529) (\TEST.PARAGRAPH.LOOKS 32531 . 34159)) (34162 37709 (\TFBRAVO.COPY.NAMEDTAB 34172 . 34531) (
|
||||
\TFBRAVO.PUT.NAMEDTAB 34533 . 34829) (\TFBRAVO.GET.NAMEDTAB 34831 . 35108) (\TFBRAVO.ADD.NAMEDTAB
|
||||
35110 . 36087) (\NAMEDTABNYET 36089 . 36254) (\NAMEDTABSIZE 36256 . 37141) (\NAMEDTAB.INIT 37143 .
|
||||
37707)) (37710 73994 (\TFBRAVO.APPLY.PARALOOKS 37720 . 38751) (TEDITFROMBRAVO 38753 . 41155) (
|
||||
\TFBRAVO.WRITE.PARAGRAPH 41157 . 42179) (\TFBRAVO.WRITE.RUNS 42181 . 42950) (\TFBRAVO.SPREAD.LOOKS
|
||||
42952 . 45924) (\TFBRAVO.PARSE.PARA 45926 . 47923) (\TFBRAVO.INIT.PARALOOKS 47925 . 51249) (
|
||||
\TFBRAVO.READ.PARALOOKS 51251 . 58427) (\TFBRAVO.READ.CHARLOOKS 58429 . 66562) (\TFBRAVO.READ.USER.CM
|
||||
66564 . 69894) (\TFBRAVO.GETPARAMS 69896 . 70725) (\TFBRAVO.PARAMNAMEP 70727 . 71175) (\TFBRAVO.EOLS
|
||||
71177 . 71590) (\TFBRAVO.LCASER 71592 . 72144) (\TFBRAVO.FONT.FROM.CHARLOOKS 72146 . 73992)))))
|
||||
(FILEMAP (NIL (4213 34115 (\TFBRAVO.FIND.LAST.TRAILER 4223 . 5716) (\TFBRAVO.HANDLE.HEADING 5718 .
|
||||
7596) (\TFBRAVO.INIT.CHARLOOKS 7598 . 8414) (\TFBRAVO.INIT.PAGEFORMAT 8416 . 8894) (
|
||||
\TFBRAVO.INSTALL.PAGEFORMAT 8896 . 13533) (\TFBRAVO.PARSE.PROFILE.PARA 13535 . 22048) (
|
||||
\TFBRAVO.PARSE.PROFILE.VALUE 22050 . 22817) (\TFBRAVO.GET.FONTSIZE 22819 . 23135) (
|
||||
\TFBRAVO.GET.FONTSTYLE 23137 . 23465) (\TFBRAVO.WRITE.RUN 23467 . 24600) (\TFBRAVO.ASSERT 24602 .
|
||||
24914) (\SHIFT.DOCUMENT 24916 . 28792) (\TEDIT.BRAVOFILE? 28794 . 30841) (\TEST.CHARACTER.LOOKS 30843
|
||||
. 32483) (\TEST.PARAGRAPH.LOOKS 32485 . 34113)) (34116 37663 (\TFBRAVO.COPY.NAMEDTAB 34126 . 34485) (
|
||||
\TFBRAVO.PUT.NAMEDTAB 34487 . 34783) (\TFBRAVO.GET.NAMEDTAB 34785 . 35062) (\TFBRAVO.ADD.NAMEDTAB
|
||||
35064 . 36041) (\NAMEDTABNYET 36043 . 36208) (\NAMEDTABSIZE 36210 . 37095) (\NAMEDTAB.INIT 37097 .
|
||||
37661)) (37664 74114 (\TFBRAVO.APPLY.PARALOOKS 37674 . 38705) (TEDITFROMBRAVO 38707 . 41275) (
|
||||
\TFBRAVO.WRITE.PARAGRAPH 41277 . 42299) (\TFBRAVO.WRITE.RUNS 42301 . 43070) (\TFBRAVO.SPREAD.LOOKS
|
||||
43072 . 46044) (\TFBRAVO.PARSE.PARA 46046 . 48043) (\TFBRAVO.INIT.PARALOOKS 48045 . 51369) (
|
||||
\TFBRAVO.READ.PARALOOKS 51371 . 58547) (\TFBRAVO.READ.CHARLOOKS 58549 . 66682) (\TFBRAVO.READ.USER.CM
|
||||
66684 . 70014) (\TFBRAVO.GETPARAMS 70016 . 70845) (\TFBRAVO.PARAMNAMEP 70847 . 71295) (\TFBRAVO.EOLS
|
||||
71297 . 71710) (\TFBRAVO.LCASER 71712 . 72264) (\TFBRAVO.FONT.FROM.CHARLOOKS 72266 . 74112)))))
|
||||
STOP
|
||||
|
||||
Reference in New Issue
Block a user