build: add the SIBO SDK
This commit is contained in:
@@ -0,0 +1,343 @@
|
||||
/* Module WSREPORT.C
|
||||
Written by Steve Mar 1992
|
||||
|
||||
Write a log of one or all the applications window server resources.
|
||||
*/
|
||||
#include <plib.h>
|
||||
#include <wlib.h>
|
||||
#include <hwif.h>
|
||||
|
||||
GLREF_D VOID *DatApp1;
|
||||
GLREF_D WSERV_SPEC *wserv_channel;
|
||||
|
||||
#define MAX_OBJ 256
|
||||
#define G_SEG_SEL_MAX_ROM 63
|
||||
|
||||
typedef struct
|
||||
{
|
||||
G_FONT_INFO info;
|
||||
UBYTE *addr;
|
||||
P_RECT area;
|
||||
UWORD bytewid;
|
||||
UWORD segment;
|
||||
UWORD work_spc_size;
|
||||
UWORD work_spc_wid;
|
||||
UBYTE *width_table;
|
||||
} G_FONT;
|
||||
|
||||
typedef struct
|
||||
{
|
||||
UWORD seg;
|
||||
UBYTE *addr;
|
||||
UWORD bytewid;
|
||||
} BM_DATA;
|
||||
|
||||
typedef struct
|
||||
{
|
||||
UBYTE flags;
|
||||
UBYTE filler;
|
||||
BM_DATA bm_data;
|
||||
VOID *region;
|
||||
P_POINT size;
|
||||
TEXT name[14];
|
||||
} BITMAP;
|
||||
|
||||
typedef union
|
||||
{
|
||||
G_FONT *font;
|
||||
BITMAP *bit;
|
||||
} IFOB;
|
||||
|
||||
typedef struct
|
||||
{
|
||||
UBYTE type;
|
||||
UBYTE usage;
|
||||
IFOB addr;
|
||||
UINT self_index;
|
||||
} SHARED_HEADER;
|
||||
|
||||
typedef struct s_shared_data /* Bitmap and font header structure */
|
||||
{
|
||||
SHARED_HEADER head;
|
||||
UWORD checksum;
|
||||
struct s_shared_data *next;
|
||||
struct s_shared_data **prev;
|
||||
} S_SHARED_DATA;
|
||||
|
||||
typedef struct s_window
|
||||
{
|
||||
UBYTE type;
|
||||
UBYTE status;
|
||||
UWORD flags;
|
||||
P_POINT origin;
|
||||
P_RECT abs;
|
||||
P_RECT rel;
|
||||
struct s_window *parent;
|
||||
struct s_window *child;
|
||||
struct s_window *sibling;
|
||||
VOID *region;
|
||||
VOID *area;
|
||||
UWORD self_index;
|
||||
} S_WINDOW;
|
||||
|
||||
typedef struct s_gcb
|
||||
{
|
||||
UBYTE type;
|
||||
UBYTE style;
|
||||
BM_DATA bm_data;
|
||||
UBYTE gmode;
|
||||
UBYTE textmode;
|
||||
P_POINT origin;
|
||||
VOID *region;
|
||||
UWORD draws_to;
|
||||
G_FONT *font;
|
||||
BM_DATA extra_bm_data;
|
||||
P_RECT extra_rect;
|
||||
} S_GCB;
|
||||
|
||||
typedef union
|
||||
{
|
||||
S_WINDOW win;
|
||||
S_GCB gcb;
|
||||
S_SHARED_DATA shared;
|
||||
} OBJECT;
|
||||
|
||||
#define MAX_DEV_EVENTS 8
|
||||
#define DEQ_ENTRY_SIZE 16
|
||||
typedef struct
|
||||
{
|
||||
UWORD ready;
|
||||
UBYTE front;
|
||||
UBYTE n_entries;
|
||||
UBYTE buffer[DEQ_ENTRY_SIZE][MAX_DEV_EVENTS];
|
||||
} S_DEQ;
|
||||
|
||||
typedef struct
|
||||
{
|
||||
UBYTE *read_addr;
|
||||
UWORD flags;
|
||||
UBYTE *gcb;
|
||||
UWORD os_id;
|
||||
UBYTE SelfIndex;
|
||||
BYTE error;
|
||||
VOID *clock;
|
||||
S_WINDOW *capture;
|
||||
VOID *redrawq;
|
||||
VOID *invalid_area;
|
||||
S_WINDOW *redraw_win;
|
||||
VOID *redraw_region;
|
||||
S_WINDOW *cursor_win;
|
||||
W_CURSOR cursor;
|
||||
UWORD root_handle;
|
||||
S_GCB *tempgcb;
|
||||
S_WINDOW *front_window;
|
||||
VOID *alert;
|
||||
TEXT busy_txt[W_BUSY_MSG_MAX_LEN+1];
|
||||
UBYTE busy_corner;
|
||||
VOID *bit_list;
|
||||
S_GCB *static_gcb;
|
||||
UBYTE *ipcbuf;
|
||||
WORD death_stat;
|
||||
UBYTE *cmd_buf;
|
||||
UWORD open_mode;
|
||||
ULONG open_addr;
|
||||
S_DEQ deq;
|
||||
UINT status[2];
|
||||
UWORD tab_size;
|
||||
OBJECT *obj_tab[MAX_OBJ];
|
||||
} WS_CCB;
|
||||
|
||||
typedef struct
|
||||
{
|
||||
WORD WservStaticInitGcb;
|
||||
WORD WservStaticFontTable;
|
||||
WORD WservStaticClients[WS_MAX_CLIENTS];
|
||||
WORD WservStaticRomSegments[G_SEG_SEL_MAX_ROM];
|
||||
WORD WservStaticFontTabSize;
|
||||
WORD WservStaticBitmapTab;
|
||||
WORD WservStaticBitmapTabSize;
|
||||
WORD WservStaticIconTab;
|
||||
WORD WservStaticIconTabSize;
|
||||
} WSERV_STATICS;
|
||||
|
||||
GLREF_D P_DEVICE p_file;
|
||||
LOCAL_D VOID *FileCB=NULL;
|
||||
LOCAL_D WSERV_STATICS *wsDatApp;
|
||||
LOCAL_D WS_CCB *ClientCCBs[WS_MAX_CLIENTS];
|
||||
LOCAL_D WS_CCB ccb;
|
||||
|
||||
LOCAL_C VOID wsRead(VOID *to,VOID *from,UINT len)
|
||||
{
|
||||
p_pcpyfr(wserv_channel->link.local.wserv_pid,from,to,len);
|
||||
}
|
||||
|
||||
LOCAL_C VOID fWrite(TEXT *str,...)
|
||||
{
|
||||
INT len;
|
||||
TEXT buf[128];
|
||||
|
||||
len=p_atob(&buf[0],str,&str+1);
|
||||
f_write(FileCB,&buf[0],len);
|
||||
}
|
||||
|
||||
LOCAL_C VOID ReportWindow(S_WINDOW *pWin,UINT inset)
|
||||
{
|
||||
S_WINDOW *pNext,win;
|
||||
static TEXT *back[4]={"None","Clr","Set","Bit"};
|
||||
|
||||
for(pNext=pWin;pNext;)
|
||||
{
|
||||
wsRead(&win,pNext,sizeof(S_WINDOW));
|
||||
if (win.self_index>ccb.tab_size ||
|
||||
&ccb.obj_tab[win.self_index]->win!=pNext)
|
||||
break;
|
||||
fWrite("%- *fWindow(%d) %s%sisible %s,{{%d,%d},%d,%d}",inset,
|
||||
win.self_index,
|
||||
win.status&W_UNINITIALISED?"Uninitialised ":"",
|
||||
win.status&W_SET_INVISIBLE?"Inv":"V",
|
||||
back[win.status&3],
|
||||
win.rel.tl.x,win.rel.tl.y,
|
||||
win.rel.br.x-win.rel.tl.x,
|
||||
win.rel.br.y-win.rel.tl.y);
|
||||
ReportWindow(win.child,inset+1);
|
||||
pNext=win.sibling;
|
||||
}
|
||||
}
|
||||
|
||||
LOCAL_C VOID ReportClient(VOID *client)
|
||||
{
|
||||
UINT j;
|
||||
OBJECT object;
|
||||
BITMAP bitmap;
|
||||
G_FONT font;
|
||||
TEXT name[34];
|
||||
|
||||
wsRead(&ccb,client,sizeof(ccb));
|
||||
f_leave(p_pname(ccb.os_id,&name[0]));
|
||||
fWrite(&name[0]);
|
||||
fWrite("--------------");
|
||||
fWrite("Client slot %d",ccb.SelfIndex);
|
||||
fWrite(ccb.read_addr?"Read outstanding":"No read outstanding");
|
||||
fWrite("Flags 0x%x",ccb.flags);
|
||||
if (ccb.error)
|
||||
fWrite("Pending error %d",ccb.error);
|
||||
fWrite(ccb.redrawq ? "Redraws-pending":"No Redraws-pending");
|
||||
fWrite("PID=0x%x",ccb.os_id);
|
||||
fWrite("");
|
||||
ReportWindow(ccb.front_window,0);
|
||||
for(j=2;j<ccb.tab_size;j++)
|
||||
{
|
||||
wsRead(&object,ccb.obj_tab[j],sizeof(OBJECT));
|
||||
switch(object.win.type)
|
||||
{
|
||||
case 0x2:
|
||||
fWrite("GC(%d) draws to %d",j,object.gcb.draws_to);
|
||||
case 0x1:
|
||||
break;
|
||||
case 0x4:
|
||||
wsRead(&bitmap,object.shared.head.addr.bit,sizeof(bitmap));
|
||||
fWrite("Bitmap(%d) {%d,%d}",j,
|
||||
bitmap.size.x,
|
||||
bitmap.size.y);
|
||||
break;
|
||||
case 0x8:
|
||||
wsRead(&font,object.shared.head.addr.font,sizeof(font));
|
||||
p_bcpy(&name[0],&font.info.name[0],32);
|
||||
name[32]=0;
|
||||
fWrite("Font(%d) \"%s\",{low=%d,hi=%d,hgt=%d}",j,&name[0],
|
||||
font.info.low_ch,font.info.high_ch,
|
||||
font.info.height);
|
||||
break;
|
||||
case 0x10:
|
||||
fWrite("MouseIcon(%d)",j);
|
||||
break;
|
||||
case 0x20:
|
||||
fWrite("Clock(%d)",j);
|
||||
break;
|
||||
case 0x40:
|
||||
fWrite("Winbit(%d)",j);
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
#pragma save,ENTER_CALL
|
||||
LOCAL_C INT report(TEXT *fName,UINT index)
|
||||
{
|
||||
UINT i;
|
||||
INT pri,pid;
|
||||
|
||||
hEnsurePath(fName);
|
||||
f_open(&FileCB,fName,P_FTEXT|P_FUPDATE|P_FREPLACE);
|
||||
pid=p_getpid();
|
||||
pri=p_getpri(pid);
|
||||
p_setpri(pid,E_PRIORITY_WSERV+1);
|
||||
p_sound(-5,320);
|
||||
if (index)
|
||||
ReportClient(ClientCCBs[index]);
|
||||
else for(i=1;i<WS_MAX_CLIENTS;i++)
|
||||
{
|
||||
if (ClientCCBs[i]==0)
|
||||
fWrite("Client slot %d :- empty",i);
|
||||
else
|
||||
ReportClient(ClientCCBs[i]);
|
||||
fWrite("");
|
||||
}
|
||||
p_setpri(pid,pri);
|
||||
return(0);
|
||||
}
|
||||
#pragma restore
|
||||
|
||||
GLDEF_C VOID wsReport(HANDLE pid)
|
||||
/* Log one or all the window server clients resources.
|
||||
If pid==0 Log all clients resources.
|
||||
If pid==-1 Log the foreground clients resources.
|
||||
Else log the client with process id PID's resources.
|
||||
*/
|
||||
{
|
||||
H_DI_FSEL fsel;
|
||||
static TEXT fName[128]="\030LOC::M:\\OPL\\WSREPORT.LIS";
|
||||
UINT index,nodlg;
|
||||
UWORD buf[25];
|
||||
|
||||
wsRead(&wsDatApp,&DatApp1,2);
|
||||
wsRead(&ClientCCBs[0],&wsDatApp->WservStaticClients[0],
|
||||
sizeof(ClientCCBs));
|
||||
index=nodlg=0;
|
||||
if (pid==-1) /* Log the foreground clients resources */
|
||||
{
|
||||
wGetProcessList(&buf[0]);
|
||||
pid=buf[0];
|
||||
nodlg=TRUE; /* Log to the last file name used with no query */
|
||||
}
|
||||
if (pid) /* Find the client index of the process to log */
|
||||
FOREVER
|
||||
{
|
||||
index++;
|
||||
if (index==WS_MAX_CLIENTS)
|
||||
{
|
||||
wInfoMsg("Not a window server client");
|
||||
return;
|
||||
}
|
||||
if (ClientCCBs[index])
|
||||
{
|
||||
wsRead(&ccb,ClientCCBs[index],sizeof(ccb));
|
||||
if (ccb.os_id==pid)
|
||||
break;
|
||||
}
|
||||
}
|
||||
fsel.fname= &fName[0];
|
||||
fsel.flags=H_FILE_SET_DEFEXT|H_FILE_NEW_EDITOR;
|
||||
if (nodlg==TRUE ||
|
||||
(uOpenDialog("Select file to write report to")>=0 &&
|
||||
uAddDialogItem(H_DIALOG_FSEL,"File",&fsel)>=0 &&
|
||||
uRunDialog()>0))
|
||||
{
|
||||
wsRead(&wsDatApp,&DatApp1,2);
|
||||
fName[fName[0]+1]=0;
|
||||
uErrorValue(p_enter3(report,&fName[1],index));
|
||||
p_close(FileCB);
|
||||
FileCB=NULL;
|
||||
}
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user