|
DataMuseum.dkPresents historical artifacts from the history of: Commodore CBM-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Commodore CBM-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 640 (0x280)
Types: TextFile
Notes: UNIX file
Names: »jl15.c«
└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
└─⟦2d53db1df⟧ UNIX V7 Filesystem
└─ ⟦this⟧ »hr/src/jlib/jl15.c«
#include <jlib.h>
extern int myfd;
extern struct jqueue sendq,
runq,
s_replyq;
int G_CharWidth(wid, c)
int wid;
char c;
{
MsgReceiver = SMGR;
MsgCmd = SM_CHARW;
MsgWid = wid;
MsgBytL0 = c;
sendmess( );
jdoze(&s_replyq);
Msg = runq.jq_head->j_m;
if ( MsgWid != wid )
warn("M_CharWidth: mismatched wid");
return MsgData1;
}
int G_StrWidth(wid, s, slen)
int wid;
char *s;
char slen;
{
MsgReceiver = SMGR;
MsgCmd = SM_STRW;
MsgWid = wid;
MsgBytL0 = slen;
MsgPtr = s;
sendmess( );
jdoze(&s_replyq);
Msg = runq.jq_head->j_m;
if ( MsgWid != wid )
warn("M_strWidth: mismatched wid");
return MsgData1;
}