166 lines
4.7 KiB
HolyC
Executable File
166 lines
4.7 KiB
HolyC
Executable File
#help_index "Windows"
|
||
|
||
class CWallPaperGlbls
|
||
{
|
||
I64 last_calc_idle_cnt,last_swap_cnter[MP_PROCESSORS_NUM];
|
||
F64 last_calc_idle_delta_time;
|
||
U8 top_line[STR_LEN];
|
||
} *wall=CAlloc(sizeof(CWallPaperGlbls));
|
||
wall->last_calc_idle_delta_time=1.0;
|
||
|
||
class CTaskWallPaperData
|
||
{
|
||
I64 alloced_u8s,used_u8s;
|
||
U8 caller_stk[STR_LEN-$$];
|
||
};
|
||
|
||
U0 WallPaper(CTask *_task)
|
||
{
|
||
I64 i,j,l=TEXT_ROWS-1;
|
||
CTask *task;
|
||
CTaskWallPaperData *wpd;
|
||
CHashTable *old_hash=Fs->hash_table;
|
||
CCPU *c;
|
||
CDateStruct ds;
|
||
U8 *st;
|
||
_task->text_attr=BLUE<<4+WHITE;
|
||
if (sys_data_bp) {
|
||
TextPrint(Fs,0,l--,BLUE<<4+YELLOW,
|
||
"%010X/%010X %010X/%010X%12td%12td%12td",
|
||
sys_data_bp->used_u8s,sys_data_bp->alloced_u8s,
|
||
sys_code_bp->used_u8s,sys_code_bp->alloced_u8s,
|
||
cmp.compiled_lines,blkdev.read_cnt,blkdev.write_cnt);
|
||
TextPrint(Fs,0,l--,BLUE<<4+WHITE,
|
||
"______Data_Heap______ ______Code_Heap______ "
|
||
"___Lines___ ___Reads___ __Writes___");
|
||
} else {
|
||
TextPrint(Fs,0,l--,BLUE<<4+WHITE,
|
||
"%010X/%010X%12td%12td%12td",
|
||
sys_code_bp->used_u8s,sys_code_bp->alloced_u8s,
|
||
cmp.compiled_lines,blkdev.read_cnt,blkdev.write_cnt);
|
||
TextPrint(Fs,0,l--,BLUE<<4+WHITE,
|
||
"____CodeData_Heap____ "
|
||
"___Lines___ ___Reads___ ___Writes__");
|
||
}
|
||
TextPrint(Fs,0,l--,BLUE<<4+WHITE,"ProgressBars:%016X %016X %016X %016X",
|
||
progress1,progress2,progress3,progress4);
|
||
for (i=0;i<mp_cnt;i++) {
|
||
c=&cpu_structs[i];
|
||
if (winmgr.t->calc_idle_cnt!=wall->last_calc_idle_cnt) {
|
||
wall->last_calc_idle_delta_time=winmgr.t->calc_idle_delta_time;
|
||
wall->last_swap_cnter[i]=winmgr.t->last_swap_cnter[i];
|
||
winmgr.t->last_swap_cnter[i]=c->swap_cnter;
|
||
}
|
||
|
||
task=c->seth_task;
|
||
do {
|
||
wpd=&task->wallpaper_data;
|
||
if (!TaskValidate(task)) break;
|
||
if (!(winmgr.updates&31)) {
|
||
if (c==Gs)
|
||
Fs->hash_table=task->hash_table;
|
||
else //precaution
|
||
Fs->hash_table=old_hash;
|
||
StrPrint(wpd->caller_stk," %-18tp %-18tp %-18tp %-18tp",
|
||
TaskCaller(task,0),TaskCaller(task,1),
|
||
TaskCaller(task,2),TaskCaller(task,3));
|
||
}
|
||
TextPrint(Fs,0,l--,BLUE<<4+YELLOW,wpd->caller_stk);
|
||
j=UnusedStk(task);
|
||
if (j<0)
|
||
Panic("Stk Overflow",task);
|
||
if (!(winmgr.updates&31)) {
|
||
wpd->alloced_u8s=TaskMemAlloced(task);
|
||
wpd->used_u8s =TaskMemUsed(task);
|
||
}
|
||
TextPrint(Fs,0,l--,BLUE<<4+BROWN,
|
||
" %-18ts #%08X %010X %010X/%010X %04X:%02tX:%08X",
|
||
task->task_title,task,j,wpd->used_u8s,wpd->alloced_u8s,
|
||
task->task_flags,task->display_flags,task->win_inhibit);
|
||
if (!TaskValidate(task)) break;
|
||
task=task->next_task;
|
||
} while (task!=c->seth_task);
|
||
TextPrint(Fs,0,l--,BLUE<<4+WHITE,"CPU%02X %2tf%% ContextSwaps/s:%9,d",i,
|
||
100.0*(1.0-c->idle_factor),ToI64((winmgr.t->last_swap_cnter[i]
|
||
-wall->last_swap_cnter[i])/wall->last_calc_idle_delta_time));
|
||
}
|
||
TextPrint(Fs,0,l--,BLUE<<4+WHITE,
|
||
" ___Description____ #__Task__ UnusedStk_ _UsedMem__/_AllocMem_ "
|
||
"______Flags_____");
|
||
|
||
if (!(winmgr.updates&31) || !*wall->top_line) {
|
||
Date2Struct(&ds,Now+local_time_offset);
|
||
i=sys_code_bp->alloced_u8s-sys_code_bp->used_u8s;
|
||
if (sys_data_bp)
|
||
i+=sys_data_bp->alloced_u8s-sys_data_bp->used_u8s;
|
||
StrPrint(wall->top_line,
|
||
"%3tZ %02d/%02d %02d:%02d:%02d FPS:%2tf Mem:%010X CPU",
|
||
ds.day_of_week,"ST_DAYS_OF_WEEK",ds.mon,ds.day_of_mon,
|
||
ds.hour,ds.min,ds.sec,winmgr.fps,i);
|
||
}
|
||
TextPrint(Fs,0,0,BLUE<<4+WHITE,wall->top_line);
|
||
|
||
if (scrncast.record)
|
||
TextPrint(Fs,44-4,0,BLUE<<4+RED,"*");
|
||
for (i=0;i<mp_cnt;i++) {
|
||
c=&cpu_structs[i];
|
||
if (i&1)
|
||
TextPrint(Fs,44+i*2,0,BLUE<<4+WHITE,"%2tf",100.0*(1.0-c->idle_factor));
|
||
else
|
||
TextPrint(Fs,44+i*2,0,BLUE<<4+YELLOW,"%2tf",100.0*(1.0-c->idle_factor));
|
||
}
|
||
|
||
st=ScanCode2KeyName(kbd.last_down_scan_code);
|
||
TextPrint(Fs,80-18,0,BLUE<<4+YELLOW,"%18ts",st);
|
||
Free(st);
|
||
|
||
Fs->hash_table=old_hash;
|
||
wall->last_calc_idle_cnt=winmgr.t->calc_idle_cnt;
|
||
}
|
||
|
||
$SP,"<1>",BI=1$
|
||
|
||
|
||
|
||
U0 DrawTermBttn(CDC *dc,CCtrl *c)
|
||
{
|
||
if (Blink)
|
||
Sprite3(dc,c->left,c->top,0,$IB,"<1>",BI=1$);
|
||
}
|
||
|
||
U0 LeftClickTermBttn(CCtrl *,I64,I64,Bool down)
|
||
{
|
||
if (down)
|
||
User;
|
||
}
|
||
|
||
CCtrl *TermBttnNew()
|
||
{
|
||
I64 min_x,max_x,min_y,max_y;
|
||
CCtrl *c=ACAlloc(sizeof(CCtrl));
|
||
|
||
c->win_task=sys_winmgr_task;
|
||
c->flags=CTRLF_SHOW;
|
||
c->type=CTRLT_GENERIC;
|
||
c->draw_it=&DrawTermBttn;
|
||
c->left_click=&LeftClickTermBttn;
|
||
|
||
SpriteExtents($IB,"<1>",BI=1$,&min_x,&max_x,&min_y,&max_y);
|
||
//min must be zero
|
||
c->left=sys_winmgr_task->pix_width-(max_x-min_x+1);
|
||
c->right=c->left+(max_x-min_x+1)-1;
|
||
c->top=sys_winmgr_task->pix_height-(max_y-min_y+1);
|
||
c->bottom=c->top+(max_y-min_y+1)-1;
|
||
|
||
QueIns(c,sys_winmgr_task->last_ctrl);
|
||
TaskDerivedValsUpdate(sys_winmgr_task);
|
||
|
||
return c;
|
||
}
|
||
|
||
U0 WallPaperInit()
|
||
{
|
||
TermBttnNew;
|
||
gr.fp_wall_paper=&WallPaper;
|
||
}
|
||
7 ( $ Term |