Conversation
… previously spread in other files (MCCS)
…the external format
…t, MCCS, complete)
…antiated, simpler arguments
|
I should also mention: This includes 300 new versions of the files in fonts/medleydisplayfonts/, upgraded to version 1 of the medleyfontformat. It does not (yet?) include transitional code for converting version 0 to version 1. |
|
Building the apps sysout up to commit d0b17b4 on Linux Mint 22.1 Cinnamon aborts in URAID:
The dribble files: loadups.zip |
|
I don't get that failure, on a Mac. To start, can you enter the lu command in URAID to show what's on the stack, and send a screen snap? |
|
This is the output of |
|
OK, after the lu, do f3
It seems like it is asking for the Unix DISPLAY parameter, before the UTF-8 translation has been installed. But that would be the same call to UNIX-GETPARM on every platform, so why does it fail for you?
… On Apr 7, 2026, at 9:27 AM, Paolo Amoroso ***@***.***> wrote:
pamoroso
left a comment
(Interlisp/medley#2555)
<#2555 (comment)>
This is the output of lu in URAID:
< lu
0 : 0x11932 : #:RAID
1 : 0x1191c : #:FAULTAPPLY
2 : 0x118d0 : #:\INTERPRETER
3 : 0x118b4 : #:UNIX-GETPARM
4 : 0x11896 : #:\KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS
5 : 0x1187e : #:KEYACTIONTABLE
6 : 0x11868 : #:\KEYBOARDINIT
7 : 0x11848 : #:\EVALFORM
8 : 0x11834 : #:EVAL
9 : 0x11814 : #:INITIALEVALQT
10 : 0x11802 : #:CL::T
—
Reply to this email directly, view it on GitHub <#2555 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/AQSTUJKLJM6ZKREXYPHQ3R34UUT7JAVCNFSM6AAAAACXOLJ46GVHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHM2DEMBQGYYTONJZGM>.
You are receiving this because you authored the thread.
|
|
The output of |
|
Next, just to confirm that the function exists, try d MTOSYSSTRING That function is defined in UNICODE-FORMATS, which is included in the init.sysout and should therefore exist when the init.sysout is started and begins to evaluate all of the file expressions. Has anyone else experienced this? On Mac or other platforms? I don't think any of the font changes would have an impact on anything at this level. |
|
The output of |
|
So the mystery is, why is that function undefined for you and not for me, when its file is shown as loaded in the init.dribble?
… On Apr 7, 2026, at 11:58 AM, Paolo Amoroso ***@***.***> wrote:
pamoroso
left a comment
(Interlisp/medley#2555)
<#2555 (comment)>
The output of d MTOSYSSTRING:
< d MTOSYSSTRING
INDEX : 1041
Atom: MTOSYSSTRING index 1041
#:CL::NIL
—
Reply to this email directly, view it on GitHub <#2555 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/AQSTUJN5BDHCF5MRRDWNU6L4UVFUVAVCNFSM6AAAAACXOLJ46GVHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHM2DEMBRGQ4DIOBTG4>.
You are receiving this because you authored the thread.
|
|
It fails for me too. Exact same problem. |
|
I don't see MTOSYSSTRING defined anywhere. Perhaps you have a file not checked in?
|
|
Nothing unusual to report at commit beb6110. |
|
|
||
| :CHANGES-TO (VARS UNIXYCDCOMS) | ||
| (COMMANDS cdm) |
There was a problem hiding this comment.
this has nothing to do with offline font construction.
I would like to clean up the top level commands and I don't think cdm is in the right direction. But don't add it in with a huge PR where it will get lost in the noise.
|
Actually, I think UNIXYCD should be deleted, along with its bogus .LCOM and incorrect .TXT.
All it contains is 3 commands, they should be moved to UNIXUTILS.
With {MEDLEY}=MEDLEYDIR becoming a more explicit and significant hingepoint, I think a cdm command is appropriate and useful, parallel to the existing cd that goes to the other hingepoint, LOGINHOST/DIR.
… On Apr 28, 2026, at 9:47 PM, Larry Masinter ***@***.***> wrote:
@masinter commented on this pull request.
In lispusers/UNIXYCD <#2555 (comment)>:
>
:CHANGES-TO (VARS UNIXYCDCOMS)
+ (COMMANDS cdm)
this has nothing to do with offline font construction.
I would like to clean up the top level commands and I don't think cdm is in the right direction. But don't add it in with a huge PR where it will get lost in the noise.
—
Reply to this email directly, view it on GitHub <#2555 (review)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/AQSTUJMN2HH3XX6Q26LUNTL4YGCOPAVCNFSM6AAAAACXOLJ46GVHI2DSMVQWIX3LMV43YUDVNRWFEZLROVSXG5CSMV3GSZLXHM2DCOJUGE3DCNZZHA>.
You are receiving this because you authored the thread.
|
|
Still looking good at commit efa423e. |
|
Still looking good at commit e589a8b. |
|
Still looking good at commit 55827f5. |
|
It still works with no issues at commit e2c2c10. |
|
I made the apps loadup at commit 7a6abb7 and there's a NoteCards issue that's missing from Medley Online on master. To reproduce:
This yields the error:
The backtrace: |
|
Actually, I haven't used Notecards. How do I open the DEMO.NOTEFILE ?
… On May 5, 2026, at 3:52 AM, Paolo Amoroso ***@***.***> wrote:
pamoroso
left a comment
(Interlisp/medley#2555)
<#2555 (comment)>
I made the apps loadup at commit 7a6abb7 <7a6abb7> and there's a NoteCards issue that's missing from Medley Online on master. To reproduce:
load NoteCards
open DEMO.NOTEFILE
click Examples of NoteCards Types
click Sample Text Notecard
This yields the error:
FILE-NOT-FOUND
File Not found:
notecards-error.png (view on web) <https://github.com/user-attachments/assets/8c4179d2-01a2-4368-870c-f5320c018422>
The backtrace:
MOUSE/5(debug)BTV
OPENSTREAM
SI::*CLEANUP-FORMS* SI::RESETUNWIND
FILENAME ||
STREAM NIL
FONT NIL
CSLOC NIL
MAXCHARSET NIL
SI::*UNWIND-PROTECT*
FILE NIL
CHARSETS NIL
NOERROR T
DIRECTORY NIL
LISPXHIST NIL
SI::*RESETFORMS* NIL
RESETSTATE NIL
MEDLEYFONT.READ.FONT
\CREATEDISPLAYFONT
\CREATEFONT
\CREATEFONT
FONTCREATE1
FONTCREATE
FILE #<IO Nodircore Stream/136,121400>
TEXTOBJ {TEXTOBJ}#121,135000
LOOKS {CL101/14534:Gacha10}
FILEPOS 627
LOOKSLEN 23
FONT NIL
NAME HELVETICA
SIZE 10
SUPER 0
STYLESTR NIL
BOLD T
ITALIC T
BITS 768
PROPS NIL
PROPS ((USERINFO) (COLOR . BLACK))
\TEDIT.GET.SINGLE.CHARLOOKS
FILE #<IO Nodircore Stream/136,121400>
TEXTOBJ {TEXTOBJ}#121,135000
I 3
\TEDIT.GET.CHARLOOKS.LIST
TEXT #<IO Nodircore Stream/136,121400>
TSTREAM #<IO Tedit Stream/136,121500>
PCCOUNT 13
CURFILEBYTE# 0
END 885
PCNO 0
TEXTOBJ {TEXTOBJ}#121,135000
ORIGBYTE# 0
PC NIL
BYTELEN 0
PREVPC {PIECE}#121,105260
FIRSTPC {PIECE}#121,105260
PARALOOKSMAP NIL
CHARLOOKSMAP NIL
DEFAULTCHARLOOKS {CL101/14592:Helvetica12}
OLDPARALOOKS {PL81/46848:LE-0-0}
\TEDIT.GET.PIECES3
TEXT #<IO Nodircore Stream/136,121400>
TSTREAM #<IO Tedit Stream/136,121500>
START 0
END 885
PROPS (TITLEMENUFN NC.TEditMenuFn PUTFN NC.TEditPutFn
GETFN NC.TEditGetFn QUITFN (NC.TEditPropsListQuitFn
NC.MakeTEditPropsListA0001) PROMPTWINDOW DON'T --)
TEXTOBJ {TEXTOBJ}#121,135000
TRAILER (573 8 3 13 1807947143 NIL)
PCCOUNT 13
IDATE NIL
PROPS NIL
PC NIL
\TEDIT.GET.FORMATTED.FILE
SI::*CLEANUP-FORMS* SI::RESETUNWIND
TEXTOBJ {TEXTOBJ}#121,135000
PWINDOW NIL
READONLY NIL
SI::*UNWIND-PROTECT*
TEXT #<IO Nodircore Stream/136,121400>
TSTREAM #<IO Tedit Stream/136,121500>
START 0
END 885
PROPS (TITLEMENUFN NC.TEditMenuFn PUTFN NC.TEditPutFn
GETFN NC.TEditGetFn QUITFN (NC.TEditPropsListQuitFn
NC.MakeTEditPropsListA0001) PROMPTWINDOW DON'T --)
LISPXHIST NIL
SI::*RESETFORMS* NIL
RESETSTATE NIL
\TEDIT.OPENTEXTSTREAM.PIECES
SI::*CLEANUP-FORMS* SI::RESETUNWIND
TSTREAM #<IO Tedit Stream/136,121500>
TEXTOBJ {TEXTOBJ}#121,135000
TEDIT.GET.FINISHEDFORMS NIL
PRIMPANE NIL
START NIL
SI::*UNWIND-PROTECT*
TEXT #<IO Nodircore Stream/136,121400>
WINDOW NIL
START/PROPS NIL
END NIL
PROPS (TITLEMENUFN NC.TEditMenuFn PUTFN NC.TEditPutFn
GETFN NC.TEditGetFn QUITFN (NC.TEditPropsListQuitFn
NC.MakeTEditPropsListA0001) PROMPTWINDOW DON'T --)
LISPXHIST NIL
SI::*RESETFORMS* NIL
RESETSTATE NIL
OPENTEXTSTREAM
Card {CardObject}#121,150116
Length 885
Stream
#<IO Stream on {DSK}<home>paolo>il>notefiles>DEMO.NOTEFILE;1/127,112500>
TempStream #<IO Nodircore Stream/136,121400>
TextStream NIL
StartPtr 317660
NC.GetTextSubstance
SI::*CLEANUP-FORMS* SI::RESETUNWIND
Stream
#<IO Stream on {DSK}<home>paolo>il>notefiles>DEMO.NOTEFILE;1/127,112500>
Length 885
SubstanceVersion 0
SI::*UNWIND-PROTECT*
SI::*CLEANUP-FORMS* SI::MONITOR-UNWIND
LISPXHIST NIL
SI::*RESETFORMS* ((& 317594))
RESETSTATE NIL
SI::*UNWIND-PROTECT*
Card {CardObject}#121,150116
OverrideStream NIL
SI::*LOCKED-MONITOR* NIL
SI::*RESETFORMS* NIL
NC.GetMainCardData
SI::*CLEANUP-FORMS* SI::MONITOR-UNWIND
SI::*UNWIND-PROTECT*
Card {CardObject}#121,150116
SI::*LOCKED-MONITOR*
#<Lock {DSK}<home>paolo>il>notefiles>DEMO.NOTEFILE;1/172
,3550>
SI::*RESETFORMS* NIL
NC.GetNoteCard
SI::*CLEANUP-FORMS* SI::RESETUNWIND
OpInProgress NIL
CardWindow NIL
Window NIL
Substance NIL
EditResult NIL
SI::*UNWIND-PROTECT*
Card {CardObject}#121,150116
ReadOnly NIL
RegionOrPosition NIL
TypeSpecificArgs NIL
LISPXHIST NIL
SI::*RESETFORMS* ((&) (& &) (& &) (& "Edit NoteCard")
(& &))
RESETSTATE NIL
NC.EditNoteCard
LinkIcon {IMAGEOBJ}#132,44564
Window {WINDOW}#161,150074
Link {Link}#121,130232
InterestedWindow {WINDOW}#161,150074
Card {CardObject}#121,150116
OldTitle "Sample Text Notecard"
NC.TraverseLink
LinkIcon {IMAGEOBJ}#132,44564
Window {WINDOW}#161,150074
Card {CardObject}#121,150116
CardType Text
LinkIconLeftButtonFn NIL
NC.LinkIconLeftButtonFn
ImageObject {IMAGEOBJ}#132,44564
Window #<Output Display Stream/136,121100>
Window {WINDOW}#161,150074
ClippingRegion (0 0 166 21)
HotRegion (7 0 152 21)
MouseButtonState 4
TTYWindow NIL
ClippingRegionWidth 166
NC.LinkIconButtonEventInFn
SI::*DUMMY-FOR-CATCH* T
SI::*CATCH-RETURN-FROM* (& &)
\TEDIT.SELECT.OBJECTA0001A0002
SI::*CLEANUP-FORMS* SI::RESETUNWIND
SI::NLSETQ-VALUE NIL
*PROCEED-CASES* (& &)
SI::*NLSETQFLAG* NIL
SI::*UNWIND-PROTECT*
TSTREAM #<IO Tedit Stream/171,130200>
NEWSEL {SEL: 10-1-L _ 102/31948}
LINE {L81/34258: 10-11 FE}
X 96
Y 185
SELPANE {WINDOW}#161,150074
SELOPERATION NORMAL
BUTTON LEFT
TEXTOBJ {TEXTOBJ}#121,135140
OBJ {IMAGEOBJ}#132,44564
RESULT NIL
LISPXHIST NIL
SI::*RESETFORMS* ((& &) (& 126) (& 1484))
RESETSTATE NIL
\TEDIT.SELECT.OBJECT
X 96
Y 185
NEWSEL {SEL: 10-1-L _ 102/31948}
TSTREAM #<IO Tedit Stream/171,130200>
SELOPERATION NORMAL
PANE {WINDOW}#161,150074
BUTTON LEFT
CURSEL {SEL: 1-0-L _ 102/31914}
REGIONTYPE NIL
TEXTOBJ {TEXTOBJ}#121,135140
LINE {L81/34258: 10-11 FE}
PARAFIRSTCHNO NIL
PARALASTCHNO NIL
SELFN NIL
\TEDIT.XYTOSEL
SI::*CLEANUP-FORMS* SI::RESETUNWIND
TTYPROC #<Process TEdit#2/121,165306>
TSTREAM #<IO Tedit Stream/171,130200>
X 96
Y 185
DS #<Output Display Stream/136,121100>
OLDX 96
OLDY 185
PREG (0 0 239 329)
TEXTOBJ {TEXTOBJ}#121,135140
CURSEL {SEL: 1-0-L _ 102/31914}
NEWSEL {SEL: 10-1-L _ 102/31948}
CUROPERATION NORMAL
NEWOPERATION NORMAL
PENDINGDEL NIL
READONLY NIL
SI::*UNWIND-PROTECT*
PANE {WINDOW}#161,150074
LISPXHIST NIL
SI::*RESETFORMS* ((& {CURSOR}#163,2334))
RESETSTATE NIL
MODERN-ORIG-\TEDIT.BUTTONEVENTFN
WINDOW {WINDOW}#161,150074
ORIGFUNCTION MODERN-ORIG-\TEDIT.BUTTONEVENTFN
ANYWHERE NIL
TITLEPROPORTION 0.25
CORNERREGION (1480 122 247 350)
TOPMARGIN 13
CORNER NIL
ATTACHEDREGION (1480 122 247 393)
MODERNWINDOW.BUTTONEVENTFN
WINDOW {WINDOW}#161,150074
ORIGFUNCTION MODERN-ORIG-\TEDIT.BUTTONEVENTFN
ANYWHERE NIL
TITLEPROPORTION 0.25
CORNERREGION (1480 122 247 350)
TOPMARGIN "Examples of Notecard Types"
MODERNWINDOW.BUTTONEVENTFN
W {WINDOW}#161,150074
STREAM NIL
\TEDIT.BUTTONEVENTFN
W {WINDOW}#161,150074
STREAM NIL
\TEDIT.BUTTONEVENTFN
SI::*DUMMY-FOR-CATCH* T
SI::*CATCH-RETURN-FROM* (&)
\PROTECTED.APPLYA0001
FN \TEDIT.BUTTONEVENTFN
WINDOW {WINDOW}#161,150074
SI::NLSETQ-VALUE NIL
*PROCEED-CASES* (&)
SI::*NLSETQFLAG* NIL
\PROTECTED.APPLY
\MHCOM \TEDIT.BUTTONEVENTFN
\MHPROCESS #<Process TEdit#2/121,165306>
\MHWINDOW {WINDOW}#161,150074
\MOUSEBUSY T
WINDOW.MOUSE.HANDLER
\OLDTTY #<Process TEdit#2/121,165306>
\MOUSEBUSY NIL
\MOUSE.PROCESS
*FORM* (\MOUSE.PROCESS)
*ARGVAL* NIL
*TAIL* NIL
*FN* \MOUSE.PROCESS
\EVALFORM
%#FORM# (\MOUSE.PROCESS)
*CURRENT-PROCESS* #<Process OLDMOUSE/172,6410>
HELPFLAG BREAK!
\CURRENTDISPLAYLINE 0
\#DISPLAYLINES 13
\LINEBUF.OFD #<IO Linebuffer Stream/137,117500>
*READTABLE* #<ReadTable INTERLISP/172,52714>
\PRIMTERMTABLE {TERMTABLEP}#172,45740
\PRIMTERMSA {CHARTABLE}#172,46000
TtyDisplayStream #<Output Display Stream/171,130100>
SI::*RESETFORMS* NIL
\INTERRUPTABLE T
\TTYWINDOW {WINDOW}#121,113570
READBUF NIL
\TERM.OFD #<Output Display Stream/137,117400>
*STANDARD-OUTPUT* #<Output Display Stream/137,117400>
*STANDARD-INPUT* #<IO Linebuffer Stream/137,117500>
\MAKE.PROCESS0
T
—
Reply to this email directly, view it on GitHub <#2555 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/AQSTUJIQFR7OG2IMRTD3DXL4ZHBWLAVCNFSM6AAAAACXOLJ46GVHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHM2DGNZYGU3DCMJWHE>.
You are receiving this because you authored the thread.
|
|
In an apps sysout you can load NoteCards by clicking on the |
|
Try it now--missing file reported as NIL instead of empty atom. |
|
Commit 4ef73ae fixes the file not found error and NoteCards works with no issues. |
|
Nothing unusual to report at commit 7ad5b04. |
|
Still works with no issues at commit 926ceb6. |
|
Still building and working at commit 3f876fa. |


This provides standardized tools and interfaces for importing fonts from external sources into medleyfont format, recoding to MCCS, completing according to CHARSETCOERCIONS, and possibly face-faking for italic/bold/compressed.
Also allows for fonts with up to \MAXCHARSET = 65535 character sets corresponding to 24-bit character codes.