search

Interlisp / medley

The main repo for the Medley Interlisp project. Wiki, Issues are here. Other repositories include maiko (the VM implementation) and Interlisp.github.io (web site sources)
https://Interlisp.org
MIT License
376 stars 19 forks source link

PDFs missing from NoteCards HC files at files.interlisp.org #1830

Open pamoroso opened 2 months ago

pamoroso commented 2 months ago

Some TEdit files of the NoteCards documentation are missing the matching PDFs the HC file generation process should make from them at files.interlisp.org. In directory {MEDLEY}/notecards/docs/user-guide-v1.2/ the following TEdit files have no matching PDFs:

Most or all PDFs are missing from {MEDLEY}/notecards/docs/user-guide-v1.2/from_envos/ and {MEDLEY}/notecards/docs/misc/from_envos/.

masinter commented 2 months ago

these are all files that failed in some way (an error or call to HELP) when run through TEdit or (for Lisp source files) have package problems.

The Notecards files might have missing image object sources, because Notecards isn't in WHEREIS.HASH for TEdit to pick up.

There may be other reasons that all need to be fixedd in the HCFILES process or perhaps some TEdit bugs.

I think the way to address these is to take the files one at a time, try to TEdit hardcopy the file, fix the problems encountered and then try again. Since many of the problems affect more than one file.

masinter commented 2 months ago

@pamoroso @rmkaplan @fghalasz The task here is to figure out why HCFILES fails on these files by seeing what errors arise when you just try to TEDIT the files and "hardcopy" to pdf or postscript.

@fghalasz wrote:

The hcfiles-fails.txt and hcfiles.dribble files from the weekly builds are stored along with all the hcfiles-generated PDF files on files.interlisp.org. Unfortunately they are not included in the html index pages that HCFILES creates because they are not available until after HCFILES is run.

But they are available at https://files.interlisp.org/medley/loadups/hcfiles-fails.txt and https://files.interlisp.org/medley/loadups/hcfiles.dribble either in a browser or via wget.

hcfiles-fails.txt is just a selection from hcfiles.dribble of every line that ends in IL:FAIL.

pamoroso commented 2 months ago

I did a quick sampling and most of the issues are GETFN: HRULE.GETFN errors in IMAGEOBJs.

In one case opening the file with TEdit breaks with the error Help! Shouldn't happen:. In another I was able to use the file browser's hardcopy option to produce a PostScript file. The PostScript document has dashed boxes with an error message where the IMAGEOBs errors show up in TEdit.

I'll go through each file and report on the issues in more detail.

pamoroso commented 2 months ago

Opening {MEDLEY}/notecards/docs/user-guide-v1.2/03-SOFTWARE-INSTALLATION.TEDIT with (TEDIT '03-SOFTWARE-INSTALLATION.TEDIT) yields a blank TEdit window and a break window with the error:

Help! Shouldn't happen:

The context of the error:

6_: BT
HELP
SHOULDNT
OPENTEXTSTREAM
TEDIT
TEDIT
FAULTEVAL
EVAL
EXEC

7_: BTV
   MESS1 "Shouldn't happen:"
   MESS2 NIL
HELP
   MESS NIL
SHOULDNT
   FILE 
#<Input Stream on {DSK}<home>paolo>il>ncdocs>03-SOFTWARE-INSTALLATION.TEDIT;1/130,12200>
   TEXTOBJ {TEXTOBJ}#144,172000
   LOOKS {FMT101/62648:NI-204-504}
   FILEPOS 9827
   LOOKSLEN 53
   TABFLG 87
   DEFTAB NIL
   TABCOUNT NIL
   TABS NIL
   TABSPEC (36)
   TABTYPE NIL
   QUAD 135
\TEDIT.GET.SINGLE.PARALOOKS
   FILE 
#<Input Stream on {DSK}<home>paolo>il>ncdocs>03-SOFTWARE-INSTALLATION.TEDIT;1/130,12200>
   TEXTOBJ {TEXTOBJ}#144,172000
   I 1
\TEDIT.GET.PARALOOKS.LIST
   TEXT 
#<Input Stream on {DSK}<home>paolo>il>ncdocs>03-SOFTWARE-INSTALLATION.TEDIT;1/130,12200>
   TEXTOBJ {TEXTOBJ}#144,172000
   PCCOUNT 467
   CURFILEBYTE# 0
   END 16966
   PCNO 1
   ORIGBYTE# 0
   DEFAULTCHARLOOKS {CL101/13312:Gacha10}
   OLDPARALOOKS {FMT101/62694:LE-0-0}
   PC NIL
   BYTELEN 0
   PREVPC {PIECE}#144,127614
   FIRSTPC {PIECE}#144,127614
   PARALOOKSMAP NIL
   CHARLOOKSMAP NIL
\TEDIT.GET.PIECES3
   TEXT 
#<Input Stream on {DSK}<home>paolo>il>ncdocs>03-SOFTWARE-INSTALLATION.TEDIT;1/130,12200>
   TSTREAM #<IO Text Stream/174,76000>
   START 0
   END 16966
   PROPS (BEING-EDITED T)
   TEXTOBJ {TEXTOBJ}#144,172000
   TRAILER (8283 17 3 467 1756286001)
   PCCOUNT 467
   IDATE NIL
   PC NIL
\TEDIT.GET.FORMATTED.FILE
   SI::*CLEANUP-FORMS* SI::RESETUNWIND
   TEXTOBJ {TEXTOBJ}#144,172000
   PWINDOW {WINDOW}#122,73664
   READONLY NIL
SI::*UNWIND-PROTECT*
   TEXT 
#<Input Stream on {DSK}<home>paolo>il>ncdocs>03-SOFTWARE-INSTALLATION.TEDIT;1/130,12200>
   TSTREAM #<IO Text Stream/174,76000>
   START 0
   END 16966
   PROPS (BEING-EDITED T)
   LISPXHIST ((&) (4 "" . "_ ") "<not yet evaluated>" 
NIL)
   SI::*RESETFORMS* NIL
   RESETSTATE NIL
\TEDIT.OPENTEXTSTREAM.PIECES
   SI::*CLEANUP-FORMS* SI::RESETUNWIND
   TSTREAM #<IO Text Stream/174,76000>
   TEXTOBJ {TEXTOBJ}#144,172000
   TEDIT.GET.FINISHEDFORMS NIL
   PRIMARYW NIL
SI::*UNWIND-PROTECT*
   TEXT 
#<Input Stream on {DSK}<home>paolo>il>ncdocs>03-SOFTWARE-INSTALLATION.TEDIT;1/130,12200>
   WINDOW {WINDOW}#122,77000
   START NIL
   END NIL
   PROPS (BEING-EDITED T)
   LISPXHIST ((&) (4 "" . "_ ") "<not yet evaluated>" 
NIL)
   SI::*RESETFORMS* NIL
   RESETSTATE NIL
OPENTEXTSTREAM
   TEXT 03-SOFTWARE-INSTALLATION.TEDIT
   WINDOW NIL
   DONTSPAWN NIL
   PROPS (BEING-EDITED T)
   TSTREAM NIL
   PROC NIL
TEDIT
   TEXT 03-SOFTWARE-INSTALLATION.TEDIT
   WINDOW NIL
   DONTSPAWN NIL
   PROPS NIL
TEDIT
   *FORM* (TEDIT (QUOTE 03-SOFTWARE-INSTALLATION.TEDIT))
   *ARGVAL* NIL
   *TAIL* NIL
   *FN* TEDIT
\EVALFORM
FAULTEVAL
   *FORM* (UNDOABLY (TEDIT &))
\EVALFORM
   \INTERNAL NIL
EVAL
EVAL-INPUT
   RETRYFLAG NIL
   HELPCLOCK 1084
DO-EVENT
   SI::*DUMMY-FOR-CATCH* T
   SI::*CATCH-RETURN-FROM* (&)
   LISPXHIST ((&) (4 "" . "_ ") "<not yet evaluated>" 
NIL)
   HELPCLOCK 0
XCL::EXECA0001A0002
   *CURRENT-EVENT* ((&) (4 "" . "_ ") 
"<not yet evaluated>" NIL)
   SI::NLSETQ-VALUE NIL
   *PROCEED-CASES* (&)
   SI::*NLSETQFLAG* NIL
XCL::EXECA0001
\PROGV
   XCL::TOP-LEVEL-P T
   XCL::WINDOW {WINDOW}#161,150664
   XCL::TITLE-SUPPLIED NIL
   XCL::TITLE NIL
   *THIS-EXEC-COMMANDS* (#<Hash-Table @ 166,31666>)
   XCL::ENVIRONMENT NIL
   XCL::PROMPT NIL
   XCL::FN EVAL-INPUT
   XCL::PROFILE "XCL"
   *EXEC-ID* ""
   XCL::PROFILE-CACHE (XCL::*PROFILE-NAME* "IL" 
XCL:*EVAL-FUNCTION* EVAL *PACKAGE* #<Package INTERLISP> 
*READTABLE* #<ReadTable INTERLISP/174,75714> 
XCL:*EXEC-PROMPT* "_ " --)
EXEC
\PROC.REPEATEDLYEVALQT
   *FORM* (\PROC.REPEATEDLYEVALQT)
   *ARGVAL* NIL
   *TAIL* NIL
   *FN* \PROC.REPEATEDLYEVALQT
\EVALFORM
   %#FORM# (\PROC.REPEATEDLYEVALQT)
   *CURRENT-PROCESS* #<Process EXEC/174,26204>
   HELPFLAG BREAK!
   \CURRENTDISPLAYLINE 0
   \#DISPLAYLINES 25
   \LINEBUF.OFD #<IO Linebuffer Stream/144,125400>
   *READTABLE* #<ReadTable INTERLISP/174,75714>
   \PRIMTERMTABLE {TERMTABLEP}#174,70740
   \PRIMTERMSA {CHARTABLE}#174,71000
   TtyDisplayStream #<Output Display Stream/130,12700>
   SI::*RESETFORMS* NIL
   \INTERRUPTABLE T
   \TTYWINDOW NIL
   READBUF NIL
   \TERM.OFD #<Output Display Stream/170,117500>
   *STANDARD-OUTPUT* #<Output Display Stream/170,117500>
   *STANDARD-INPUT* #<IO Linebuffer Stream/144,125400>
\MAKE.PROCESS0
T
pamoroso commented 2 months ago

Opening {MEDLEY}/notecards/docs/user-guide-v1.2/04-SYSTEM-USE-ISSUES.TEDIT with (TEDIT '04-SYSTEM-USE-ISSUES.TEDIT)displays the document with errors like this in some IMAGEOBJs:

Error in IMAGEOBJ
GETFN: HRULE.GETFN

The document has other rendering issues such as black boxes and random ideographic characters like in this screenshot:

ncdocs-tedit-error

Using the mouse wheel to scroll down the document yields a break window with the error:

In CL::%%NOT-NONCOMPLEX-NUMBER-ERROR
NIL is not a NUMBER.

The error context:

OLDMOUSE/8(debug)BT
CL::%%NOT-NONCOMPLEX-NUMBER-ERROR
IDIFFERENCE
HRULE.IMAGEBOXFN
ENCAPSULATEDOBJ.IMAGEBOXFN
SCROLLW
WHEELSCROLL.DOIT

OLDMOUSE/9(debug)BTV
CL::%%NOT-NONCOMPLEX-NUMBER-ERROR
IDIFFERENCE
   HRULE {IMAGEOBJ}#144,166110
   IMAGE.STREAM #<Output Display Stream/130,12300>
   CURRENT.X NIL
   RIGHT.MARGIN NIL
   SCALE 1
   WIDTHS 2
HRULE.IMAGEBOXFN
   IMAGEOBJ {IMAGEOBJ}#144,166110
   STREAM #<Output Display Stream/130,12300>
   GETFN HRULE.GETFN
   NEWOBJ {IMAGEOBJ}#120,57572
   WIDTH NIL
   HEIGHT NIL
   FONT NIL
ENCAPSULATEDOBJ.IMAGEBOXFN
   TEXTOBJ {TEXTOBJ}#144,172000
   CH#1 7355
   LINE {L:NIL-1000000 79/22482}
   REGION NIL
   IMAGESTREAM #<Output Display Stream/130,12300>
   FORMATTINGSTATE NIL
   TSTREAM #<IO Text Stream/174,76000>
   THISLINE {THISLINE}#144,171714
   OFFSET 0
   TRUEASCENT 9
   TRUEDESCENT 3
   ASCENTB 9
   DESCENTB 3
   ASCENTC 12
   DESCENTC 3
   OVERHANG 0
   SPACELEFT 0
   TX 250
   LINETYPE TRUEDISPLAY
   DISPLAYSTREAM #<Output Display Stream/130,12300>
   WIDTH 300
   WMARGIN 8
   SCALE 1
   FMTSPEC {FMT82/27136:JU-204-504}
   RIGHTMARGIN 504
   TABSPEC (36 (240 . LEFT) (240 . LEFT) (504 . RIGHT))
   KERN NIL
   FIRSTWHITEX 175
   FIRSTWHITESLOT {}#107,17114
   PC {PIECE}#121,176744
   CHARSLOT {}#107,17204
   PREVSP {}#107,17114
   1STLN NIL
   PROTECTED NIL
   CHNOB 7389
   FORCED-END NIL
   CHNO 7402
   LX1 204
   TX NIL
   TXB 177
   FONT {FONTDESCRIPTOR}#136,30524
   CHARSLOTB {}#107,17114
   TABPENDING NIL
   PREVHYPH NIL
   PREVDHYPH NIL
   START-OF-PIECE 7114
   UNBREAKABLE NIL
   JUSTIFIED T
   INWORD T
   LASTCHARSLOT {}#107,20674
   TEXTLEN 28317
   CH {IMAGEOBJ}#144,166110
   DX 10
   BOX NIL
   INSPACES NIL
\TEDIT.FORMATLINE
   PREVLINE {L:7232-7295 79/22612}
   LASTCHAR 28317
   PANE {WINDOW}#122,77000
   TEXTOBJ {TEXTOBJ}#144,172000
   DONTDISPLAY NIL
   LCHARLIM 7354
   YBOT 3
   PBOTTOM 0
   L {L:7296-7354 79/22528}
   NEXT {L:7296-7354 79/22528}
\TEDIT.LINES.BELOW
   TEXTOBJ {TEXTOBJ}#144,172000
   PANE {WINDOW}#122,77000
   DY -8
   PREG (0 0 592 850)
   TEXTLEN 28317
   PBOTTOM 0
   PHEIGHT 850
   PLINES {L:0-0 FE 79/65490}
   OLDTOPLINE {L:5421-5422* FE 79/27560}
   NEWTOPLINE {L:5423-5423* FE 79/27476}
   LASTVISIBLE {L:7232-7295 79/22612}
   WHERESEL (ABOVE . ABOVE)
   DELTA 14
\TEDIT.SCROLLUP
   PANE {WINDOW}#122,77000
   DX 0
   DY 20
   TEXTOBJ {TEXTOBJ}#144,172000
\TEDIT.SCROLLFN
   WINDOW {WINDOW}#122,77000
   DX 0
   DY 20
   CONTINUOUSFLG NIL
SCROLLW
   SI::*CLEANUP-FORMS* SI::RESETUNWIND
SI::*UNWIND-PROTECT*
   WINDOW {WINDOW}#122,77000
   DX 0
   DY 20
   SI::*RESETFORMS* ((\WHEELSCROLLINPROGRESS))
WHEELSCROLL.DOIT
   *FORM* (WHEELSCROLL.DOIT (QUOTE {WINDOW}#122,77000) 0
 20)
   *ARGVAL* NIL
   *TAIL* NIL
   *FN* WHEELSCROLL.DOIT
\EVALFORM
   ..PEV-FORM.. (WHEELSCROLL.DOIT (QUOTE {WINDOW}#122,
77000) 0 20)
   ..PEV-PROC.. NIL
\PROCESS.EVAL1
   \OLDTTY NIL
   \MOUSEBUSY NIL
\MOUSE.PROCESS
   *FORM* (\MOUSE.PROCESS)
   *ARGVAL* NIL
   *TAIL* NIL
   *FN* \MOUSE.PROCESS
\EVALFORM
   %#FORM# (\MOUSE.PROCESS)
   *CURRENT-PROCESS* #<Process OLDMOUSE/174,26410>
   HELPFLAG BREAK!
   \CURRENTDISPLAYLINE 0
   \#DISPLAYLINES 15
   \LINEBUF.OFD #<IO Linebuffer Stream/130,31700>
   *READTABLE* #<ReadTable INTERLISP/174,75714>
   \PRIMTERMTABLE {TERMTABLEP}#174,70740
   \PRIMTERMSA {CHARTABLE}#174,71000
   TtyDisplayStream #<Output Display Stream/170,117300>
   SI::*RESETFORMS* NIL
   \INTERRUPTABLE T
   \TTYWINDOW {WINDOW}#122,72264
   READBUF NIL
   \TERM.OFD #<Output Display Stream/167,117700>
   *STANDARD-OUTPUT* #<Output Display Stream/167,117700>
   *STANDARD-INPUT* #<IO Linebuffer Stream/130,31700>
\MAKE.PROCESS0
T

Exiting the break with ^ and scrolling down some more sometimes yields the same break window.

Using the scroll bar to scroll yields a break window with the same error but a different stacktrace.

Using the Hardcopy > To a file option of the TEdit window's right-click menu yields a break window with the same error but a different stacktrace. However, a PostScript file is still produced and it renders similarly to the document in the TEdit window.

pamoroso commented 2 months ago

Opening {MEDLEY}/notecards/docs/user-guide-v1.2/05-NOTECARDS-BASICS.TEDIT with (TEDIT '05-NOTECARDS-BASICS.TEDIT)opens a blank TEdit window and a break window with the error:

In ERROR:
FONT NOT FOUND (coerced to)
(###### 12 (BOLD REGULAR REGULAR) 0 DISPLAY)

where # shows up as a black box in the break window. The context of the error:

6_: BT
ERROR
FONTCREATE
OPENTEXTSTREAM
TEDIT
TEDIT
FAULTEVAL
EVAL
EXEC

7_: BTV
   MESS1 "FONT NOT FOUND (coerced to)"
   MESS2 (\FF\F0MODERN\FF\00 12 (BOLD REGULAR REGULAR) 0 DISPLAY)
   NOBREAK NIL
ERROR
FONTCREATE
   FILE 
#<Input Stream on {DSK}<home>paolo>il>ncdocs>05-NOTECARDS-BASICS.TEDIT;1/130,12200>
   TEXTOBJ {TEXTOBJ}#144,172000
   LOOKS {CL100/30432:Nil12BR}
   FILEPOS 167980
   LOOKSLEN 20
   FONT NIL
   NAME \FF\F0MODERN\FF\00
   SIZE 12
   SUPER 0
   PROPS 512
   STYLESTR NIL
\TEDIT.GET.SINGLE.CHARLOOKS
   TEXT 
#<Input Stream on {DSK}<home>paolo>il>ncdocs>05-NOTECARDS-BASICS.TEDIT;1/130,12200>
   TEXTOBJ {TEXTOBJ}#144,172000
   PCCOUNT 559
   CURFILEBYTE# 153820
   END 168358
   PCNO 529
   ORIGBYTE# 0
   DEFAULTCHARLOOKS {CL101/13312:Gacha10}
   OLDPARALOOKS 10
   PC {PIECE}#122,7334
   BYTELEN 2
   PREVPC {PIECE}#122,7362
   FIRSTPC {PIECE}#144,127614
   PARALOOKSMAP {ARRAYP}#172,37256
   CHARLOOKSMAP {ARRAYP}#172,37264
\TEDIT.GET.PIECES3
   TEXT 
#<Input Stream on {DSK}<home>paolo>il>ncdocs>05-NOTECARDS-BASICS.TEDIT;1/130,12200>
   TSTREAM #<IO Text Stream/174,76000>
   START 0
   END 168358
   PROPS (BEING-EDITED T)
   TEXTOBJ {TEXTOBJ}#144,172000
   TRAILER (158588 17 3 559 1756286001)
   PCCOUNT 559
   IDATE NIL
   PC NIL
\TEDIT.GET.FORMATTED.FILE
   SI::*CLEANUP-FORMS* SI::RESETUNWIND
   TEXTOBJ {TEXTOBJ}#144,172000
   PWINDOW {WINDOW}#122,71664
   READONLY NIL
SI::*UNWIND-PROTECT*
   TEXT 
#<Input Stream on {DSK}<home>paolo>il>ncdocs>05-NOTECARDS-BASICS.TEDIT;1/130,12200>
   TSTREAM #<IO Text Stream/174,76000>
   START 0
   END 168358
   PROPS (BEING-EDITED T)
   LISPXHIST ((&) (4 "" . "_ ") "<not yet evaluated>" 
NIL)
   SI::*RESETFORMS* NIL
   RESETSTATE NIL
\TEDIT.OPENTEXTSTREAM.PIECES
   SI::*CLEANUP-FORMS* SI::RESETUNWIND
   TSTREAM #<IO Text Stream/174,76000>
   TEXTOBJ {TEXTOBJ}#144,172000
   TEDIT.GET.FINISHEDFORMS NIL
   PRIMARYW NIL
SI::*UNWIND-PROTECT*
   TEXT 
#<Input Stream on {DSK}<home>paolo>il>ncdocs>05-NOTECARDS-BASICS.TEDIT;1/130,12200>
   WINDOW {WINDOW}#122,77000
   START NIL
   END NIL
   PROPS (BEING-EDITED T)
   LISPXHIST ((&) (4 "" . "_ ") "<not yet evaluated>" 
NIL)
   SI::*RESETFORMS* NIL
   RESETSTATE NIL
OPENTEXTSTREAM
   TEXT 05-NOTECARDS-BASICS.TEDIT
   WINDOW NIL
   DONTSPAWN NIL
   PROPS (BEING-EDITED T)
   TSTREAM NIL
   PROC NIL
TEDIT
   TEXT 05-NOTECARDS-BASICS.TEDIT
   WINDOW NIL
   DONTSPAWN NIL
   PROPS NIL
TEDIT
   *FORM* (TEDIT (QUOTE 05-NOTECARDS-BASICS.TEDIT))
   *ARGVAL* NIL
   *TAIL* NIL
   *FN* TEDIT
\EVALFORM
FAULTEVAL
   *FORM* (UNDOABLY (TEDIT &))
\EVALFORM
   \INTERNAL NIL
EVAL
EVAL-INPUT
   RETRYFLAG NIL
   HELPCLOCK 1415
DO-EVENT
   SI::*DUMMY-FOR-CATCH* T
   SI::*CATCH-RETURN-FROM* (&)
   LISPXHIST ((&) (4 "" . "_ ") "<not yet evaluated>" 
NIL)
   HELPCLOCK 0
XCL::EXECA0001A0002
   *CURRENT-EVENT* ((&) (4 "" . "_ ") 
"<not yet evaluated>" NIL)
   SI::NLSETQ-VALUE NIL
   *PROCEED-CASES* (&)
   SI::*NLSETQFLAG* NIL
XCL::EXECA0001
\PROGV
   XCL::TOP-LEVEL-P T
   XCL::WINDOW {WINDOW}#161,150664
   XCL::TITLE-SUPPLIED NIL
   XCL::TITLE NIL
   *THIS-EXEC-COMMANDS* (#<Hash-Table @ 166,31666>)
   XCL::ENVIRONMENT NIL
   XCL::PROMPT NIL
   XCL::FN EVAL-INPUT
   XCL::PROFILE "XCL"
   *EXEC-ID* ""
   XCL::PROFILE-CACHE (XCL::*PROFILE-NAME* "IL" 
XCL:*EVAL-FUNCTION* EVAL *PACKAGE* #<Package INTERLISP> 
*READTABLE* #<ReadTable INTERLISP/174,75714> 
XCL:*EXEC-PROMPT* "_ " --)
EXEC
\PROC.REPEATEDLYEVALQT
   *FORM* (\PROC.REPEATEDLYEVALQT)
   *ARGVAL* NIL
   *TAIL* NIL
   *FN* \PROC.REPEATEDLYEVALQT
\EVALFORM
   %#FORM# (\PROC.REPEATEDLYEVALQT)
   *CURRENT-PROCESS* #<Process EXEC/174,26204>
   HELPFLAG BREAK!
   \CURRENTDISPLAYLINE 0
   \#DISPLAYLINES 25
   \LINEBUF.OFD #<IO Linebuffer Stream/144,125400>
   *READTABLE* #<ReadTable INTERLISP/174,75714>
   \PRIMTERMTABLE {TERMTABLEP}#174,70740
   \PRIMTERMSA {CHARTABLE}#174,71000
   TtyDisplayStream #<Output Display Stream/130,31100>
   SI::*RESETFORMS* NIL
   \INTERRUPTABLE T
   \TTYWINDOW NIL
   READBUF NIL
   \TERM.OFD #<Output Display Stream/170,117500>
   *STANDARD-OUTPUT* #<Output Display Stream/170,117500>
   *STANDARD-INPUT* #<IO Linebuffer Stream/144,125400>
\MAKE.PROCESS0
T

The context of the FONTCREATE frame:

8_: ?=
  FAMILY = \FF\F0MODERN\FF\00
  SIZE = 12
  FACE = BOLD
  ROTATION = 0
  DEVICE = NIL
  NOERRORFLG = NIL
  CHARSET = NIL
nbriggs commented 1 month ago

That looks like an xccs encoding issue- it thinks the font name is not in charset 0. This is one for @rmkaplan

rmkaplan commented 1 month ago

This one fails also in the Venue sysout, albeit with a different kind of error. But there the image object getfns don’t load automatically, and maybe were not included in the basic loadup. So I’ll have to poke a little more before I can say that the file itself is smashed

On Sep 23, 2024, at 9:00 AM, Nick Briggs @.***> wrote:

That looks like an xccs encoding issue- it thinks the font name is not in charset 0. This is one for @rmkaplan https://github.com/rmkaplan — Reply to this email directly, view it on GitHub https://github.com/Interlisp/medley/issues/1830#issuecomment-2368723981, or unsubscribe https://github.com/notifications/unsubscribe-auth/AQSTUJLCAOQD2EKXCUCW6HDZYA3LHAVCNFSM6AAAAABOFG2EUGVHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHMZDGNRYG4ZDGOJYGE. You are receiving this because you were mentioned.

masinter commented 1 month ago

if you load the image object GETFN manually, does it still fail in the Venue sysout?

rmkaplan commented 1 month ago

The HRULE getfn is already there, although it is hard to say that that is what it is really looking for. In the venue sysout the failure shows up as trying to get the UNKNOWNGETFN proper of a NIL image object, in my current code it shows up as a font problem with a message that it failed in HRULE.GETFN (but that message may be the result of an earlier problem).

On Sep 23, 2024, at 9:27 AM, Larry Masinter @.***> wrote:

if you load the image object GETFN manually, does it still fail in the Venue sysout?

— Reply to this email directly, view it on GitHub https://github.com/Interlisp/medley/issues/1830#issuecomment-2368783808, or unsubscribe https://github.com/notifications/unsubscribe-auth/AQSTUJJ7UPQYNQE4KLHU5ZLZYA6NPAVCNFSM6AAAAABOFG2EUGVHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHMZDGNRYG44DGOBQHA. You are receiving this because you were mentioned.

pamoroso commented 1 month ago

Opening {MEDLEY}/notecards/docs/user-guide-v1.2/11-SYSTEM-CARDS.TEDIT with (TEDIT '11-SYSTEM-CARDS.TEDIT)opens a blank TEdit window and a break window with the error:

In ERROR:
EXPECTED PLANE 0 XCCS CHARACTER IS ILL-FORMED

The context of the error:

6_: BT
ERROR
OPENTEXTSTREAM
TEDIT
TEDIT
FAULTEVAL
EVAL
EXEC

7_: BTV
   MESS1 "EXPECTED PLANE 0 XCCS CHARACTER IS ILL-FORMED"
   MESS2 NIL
   NOBREAK NIL
ERROR
   STRM 
#<Input Stream on {DSK}<home>paolo>il>ncdocs>11-SYSTEM-CARDS.TEDIT;1/130,12200>
   START 0
   END 98304
   DEFAULTCHARLOOKS {CL101/13312:Gacha10}
   DEFAULTPARALOOKS {FMT101/62694:LE-0-0}
   NEXTFILEPOS 1060
   CHARSET 255
   FIRSTPC {PIECE}#144,127614
   CODESIZE 1
   SBINABLE T
   EOLC 0
   PC {PIECE}#122,66362
   BYTE 255
   CHAR NIL
   PREVPC {PIECE}#122,66362
   PTYPE 0
   RUNLEN 15
   FILEPOS 1045
   CRBEFORE T
   SHIFTNEXT T
\TEDIT.GET.UNFORMATTED.FILE.XCCS
   SI::*CLEANUP-FORMS* SI::RESETUNWIND
   TEXTOBJ {TEXTOBJ}#144,172000
   FORMAT :XCCS
   DEFAULTCHARLOOKS {CL101/13312:Gacha10}
   DEFAULTPARALOOKS {FMT101/62694:LE-0-0}
   PIECES NIL
SI::*UNWIND-PROTECT*
   STREAM 
#<Input Stream on {DSK}<home>paolo>il>ncdocs>11-SYSTEM-CARDS.TEDIT;1/130,12200>
   TSTREAM #<IO Text Stream/174,76000>
   START 0
   END 98304
   PROPS NIL
   LISPXHIST ((&) (4 "" . "_ ") "<not yet evaluated>" 
NIL)
   SI::*RESETFORMS* ((& NIL))
   RESETSTATE NIL
\TEDIT.GET.UNFORMATTED.FILE
   SI::*CLEANUP-FORMS* SI::RESETUNWIND
   TEXTOBJ {TEXTOBJ}#144,172000
   PWINDOW {WINDOW}#122,71664
   READONLY NIL
SI::*UNWIND-PROTECT*
   TEXT 
#<Input Stream on {DSK}<home>paolo>il>ncdocs>11-SYSTEM-CARDS.TEDIT;1/130,12200>
   TSTREAM #<IO Text Stream/174,76000>
   START 0
   END 98304
   PROPS (BEING-EDITED T)
   LISPXHIST ((&) (4 "" . "_ ") "<not yet evaluated>" 
NIL)
   SI::*RESETFORMS* NIL
   RESETSTATE NIL
\TEDIT.OPENTEXTSTREAM.PIECES
   SI::*CLEANUP-FORMS* SI::RESETUNWIND
   TSTREAM #<IO Text Stream/174,76000>
   TEXTOBJ {TEXTOBJ}#144,172000
   TEDIT.GET.FINISHEDFORMS NIL
   PRIMARYW NIL
SI::*UNWIND-PROTECT*
   TEXT 
#<Input Stream on {DSK}<home>paolo>il>ncdocs>11-SYSTEM-CARDS.TEDIT;1/130,12200>
   WINDOW {WINDOW}#122,77000
   START NIL
   END NIL
   PROPS (BEING-EDITED T)
   LISPXHIST ((&) (4 "" . "_ ") "<not yet evaluated>" 
NIL)
   SI::*RESETFORMS* NIL
   RESETSTATE NIL
OPENTEXTSTREAM
   TEXT 11-SYSTEM-CARDS.TEDIT
   WINDOW NIL
   DONTSPAWN NIL
   PROPS (BEING-EDITED T)
   TSTREAM NIL
   PROC NIL
TEDIT
   TEXT 11-SYSTEM-CARDS.TEDIT
   WINDOW NIL
   DONTSPAWN NIL
   PROPS NIL
TEDIT
   *FORM* (TEDIT (QUOTE 11-SYSTEM-CARDS.TEDIT))
   *ARGVAL* NIL
   *TAIL* NIL
   *FN* TEDIT
\EVALFORM
FAULTEVAL
   *FORM* (UNDOABLY (TEDIT &))
\EVALFORM
   \INTERNAL NIL
EVAL
EVAL-INPUT
   RETRYFLAG NIL
   HELPCLOCK 674
DO-EVENT
   SI::*DUMMY-FOR-CATCH* T
   SI::*CATCH-RETURN-FROM* (&)
   LISPXHIST ((&) (4 "" . "_ ") "<not yet evaluated>" 
NIL)
   HELPCLOCK 0
XCL::EXECA0001A0002
   *CURRENT-EVENT* ((&) (4 "" . "_ ") 
"<not yet evaluated>" NIL)
   SI::NLSETQ-VALUE NIL
   *PROCEED-CASES* (&)
   SI::*NLSETQFLAG* NIL
XCL::EXECA0001
\PROGV
   XCL::TOP-LEVEL-P T
   XCL::WINDOW {WINDOW}#161,150664
   XCL::TITLE-SUPPLIED NIL
   XCL::TITLE NIL
   *THIS-EXEC-COMMANDS* (#<Hash-Table @ 166,31666>)
   XCL::ENVIRONMENT NIL
   XCL::PROMPT NIL
   XCL::FN EVAL-INPUT
   XCL::PROFILE "XCL"
   *EXEC-ID* ""
   XCL::PROFILE-CACHE (XCL::*PROFILE-NAME* "IL" 
XCL:*EVAL-FUNCTION* EVAL *PACKAGE* #<Package INTERLISP> 
*READTABLE* #<ReadTable INTERLISP/174,75714> 
XCL:*EXEC-PROMPT* "_ " --)
EXEC
\PROC.REPEATEDLYEVALQT
   *FORM* (\PROC.REPEATEDLYEVALQT)
   *ARGVAL* NIL
   *TAIL* NIL
   *FN* \PROC.REPEATEDLYEVALQT
\EVALFORM
   %#FORM# (\PROC.REPEATEDLYEVALQT)
   *CURRENT-PROCESS* #<Process EXEC/174,26204>
   HELPFLAG BREAK!
   \CURRENTDISPLAYLINE 0
   \#DISPLAYLINES 25
   \LINEBUF.OFD #<IO Linebuffer Stream/144,125400>
   *READTABLE* #<ReadTable INTERLISP/174,75714>
   \PRIMTERMTABLE {TERMTABLEP}#174,70740
   \PRIMTERMSA {CHARTABLE}#174,71000
   TtyDisplayStream #<Output Display Stream/130,12700>
   SI::*RESETFORMS* NIL
   \INTERRUPTABLE T
   \TTYWINDOW NIL
   READBUF NIL
   \TERM.OFD #<Output Display Stream/170,117500>
   *STANDARD-OUTPUT* #<Output Display Stream/170,117500>
   *STANDARD-INPUT* #<IO Linebuffer Stream/144,125400>
\MAKE.PROCESS0
T
rmkaplan commented 1 month ago

This doesn’t give an error in the Venue sysout, but the file shows up as mostly black bars after the first half page.

With current code, this is not recognized as a Tedit format file, something wrong with the trailer. So Tedit tries to read it as a plaintext file,and runs into long 255 sequences, which the XCCS format doesn’t like.

On Sep 23, 2024, at 12:27 PM, Paolo Amoroso @.***> wrote:

Opening {MEDLEY}/notecards/docs/user-guide-v1.2/11-SYSTEM-CARDS.TEDIT with (TEDIT '11-SYSTEM-CARDS.TEDIT)opens a blank TEdit window and a break window with the error:

In ERROR: EXPECTED PLANE 0 XCCS CHARACTER IS ILL-FORMED The context of the error:

6_: BT ERROR OPENTEXTSTREAM TEDIT TEDIT FAULTEVAL EVAL EXEC

7_: BTV MESS1 "EXPECTED PLANE 0 XCCS CHARACTER IS ILL-FORMED" MESS2 NIL NOBREAK NIL ERROR STRM

<Input Stream on {DSK}paolo>il>ncdocs>11-SYSTEM-CARDS.TEDIT;1/130,12200>

START 0 END 98304 DEFAULTCHARLOOKS {CL101/13312:Gacha10} DEFAULTPARALOOKS {FMT101/62694:LE-0-0} NEXTFILEPOS 1060 CHARSET 255 FIRSTPC {PIECE}#144,127614 CODESIZE 1 SBINABLE T EOLC 0 PC {PIECE}#122,66362 BYTE 255 CHAR NIL PREVPC {PIECE}#122,66362 PTYPE 0 RUNLEN 15 FILEPOS 1045 CRBEFORE T SHIFTNEXT T \TEDIT.GET.UNFORMATTED.FILE.XCCS SI::CLEANUP-FORMS SI::RESETUNWIND TEXTOBJ {TEXTOBJ}#144,172000 FORMAT :XCCS DEFAULTCHARLOOKS {CL101/13312:Gacha10} DEFAULTPARALOOKS {FMT101/62694:LE-0-0} PIECES NIL SI::UNWIND-PROTECT STREAM

<Input Stream on {DSK}paolo>il>ncdocs>11-SYSTEM-CARDS.TEDIT;1/130,12200>

TSTREAM #<IO Text Stream/174,76000> START 0 END 98304 PROPS NIL LISPXHIST ((&) (4 "" . "_ ") "" NIL) SI::RESETFORMS ((& NIL)) RESETSTATE NIL \TEDIT.GET.UNFORMATTED.FILE SI::CLEANUP-FORMS SI::RESETUNWIND TEXTOBJ {TEXTOBJ}#144,172000 PWINDOW {WINDOW}#122,71664 READONLY NIL SI::UNWIND-PROTECT TEXT

<Input Stream on {DSK}paolo>il>ncdocs>11-SYSTEM-CARDS.TEDIT;1/130,12200>

TSTREAM #<IO Text Stream/174,76000> START 0 END 98304 PROPS (BEING-EDITED T) LISPXHIST ((&) (4 "" . "_ ") "" NIL) SI::RESETFORMS NIL RESETSTATE NIL \TEDIT.OPENTEXTSTREAM.PIECES SI::CLEANUP-FORMS SI::RESETUNWIND TSTREAM #<IO Text Stream/174,76000> TEXTOBJ {TEXTOBJ}#144,172000 TEDIT.GET.FINISHEDFORMS NIL PRIMARYW NIL SI::UNWIND-PROTECT TEXT

<Input Stream on {DSK}paolo>il>ncdocs>11-SYSTEM-CARDS.TEDIT;1/130,12200>

WINDOW {WINDOW}#122,77000 START NIL END NIL PROPS (BEING-EDITED T) LISPXHIST ((&) (4 "" . " ") "" NIL) SI::RESETFORMS NIL RESETSTATE NIL OPENTEXTSTREAM TEXT 11-SYSTEM-CARDS.TEDIT WINDOW NIL DONTSPAWN NIL PROPS (BEING-EDITED T) TSTREAM NIL PROC NIL TEDIT TEXT 11-SYSTEM-CARDS.TEDIT WINDOW NIL DONTSPAWN NIL PROPS NIL TEDIT FORM (TEDIT (QUOTE 11-SYSTEM-CARDS.TEDIT)) ARGVAL NIL TAIL NIL FN TEDIT \EVALFORM FAULTEVAL FORM (UNDOABLY (TEDIT &)) \EVALFORM \INTERNAL NIL EVAL EVAL-INPUT RETRYFLAG NIL HELPCLOCK 674 DO-EVENT SI::DUMMY-FOR-CATCH T SI::CATCH-RETURN-FROM (&) LISPXHIST ((&) (4 "" . " ") "" NIL) HELPCLOCK 0 XCL::EXECA0001A0002 CURRENT-EVENT ((&) (4 "" . " ") "" NIL) SI::NLSETQ-VALUE NIL PROCEED-CASES (&) SI::NLSETQFLAG NIL XCL::EXECA0001 \PROGV XCL::TOP-LEVEL-P T XCL::WINDOW {WINDOW}#161,150664 XCL::TITLE-SUPPLIED NIL XCL::TITLE NIL THIS-EXEC-COMMANDS (#<Hash-Table @ 166,31666>) XCL::ENVIRONMENT NIL XCL::PROMPT NIL XCL::FN EVAL-INPUT XCL::PROFILE "XCL" EXEC-ID "" XCL::PROFILE-CACHE (XCL::PROFILE-NAME "IL" XCL:EVAL-FUNCTION EVAL PACKAGE # READTABLE #<ReadTable INTERLISP/174,75714> XCL:EXEC-PROMPT " " --) EXEC \PROC.REPEATEDLYEVALQT FORM (\PROC.REPEATEDLYEVALQT) ARGVAL NIL TAIL NIL FN \PROC.REPEATEDLYEVALQT \EVALFORM %#FORM# (\PROC.REPEATEDLYEVALQT) CURRENT-PROCESS #<Process EXEC/174,26204> HELPFLAG BREAK! \CURRENTDISPLAYLINE 0 #DISPLAYLINES 25 \LINEBUF.OFD #<IO Linebuffer Stream/144,125400> READTABLE #<ReadTable INTERLISP/174,75714> \PRIMTERMTABLE {TERMTABLEP}#174,70740 \PRIMTERMSA {CHARTABLE}#174,71000 TtyDisplayStream #<Output Display Stream/130,12700> SI::RESETFORMS NIL \INTERRUPTABLE T \TTYWINDOW NIL READBUF NIL \TERM.OFD #<Output Display Stream/170,117500> STANDARD-OUTPUT #<Output Display Stream/170,117500> STANDARD-INPUT #<IO Linebuffer Stream/144,125400> \MAKE.PROCESS0 T — Reply to this email directly, view it on GitHub https://github.com/Interlisp/medley/issues/1830#issuecomment-2369179469, or unsubscribe https://github.com/notifications/unsubscribe-auth/AQSTUJI3SLANYXRPDNOMPUDZYBTRBAVCNFSM6AAAAABOFG2EUGVHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHMZDGNRZGE3TSNBWHE. You are receiving this because you were mentioned.

pamoroso commented 1 month ago

Opening {MEDLEY}/notecards/docs/user-guide-v1.2/APP-Z-PROG-INTERFACE.TEDIT with (TEDIT 'APP-Z-PROG-INTERFACE.TEDIT), the last file with issues in the user-guide-v1.2 directory, displays the document in TEdit. However, the document contains GETFN: HRULE.GETFN errors in a dozen IMAGEOBJs. Using the Hardcopy > To a file option of the TEdit window's right-click menu produces a PostScript file with the errors rendered the same way.