workbench/system/SysMon/main.c

   1 /*
   2     Copyright 2010-2017, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #define DEBUG 0
   7 #include <aros/debug.h>
   8
   9 #include <proto/alib.h>
  10 #include <proto/muimaster.h>
  11
  12 #include <dos/dos.h>
  13
  14 #include <zune/graph.h>
  15
  16 #include "sysmon_intern.h"
  17
  18 #include "locale.h"
  19
  20 #define VERSION "$VER: SysMon 1.9 (26.02.2017) ©2011-2017 The AROS Development Team"
  21
  22 CONST_STRPTR CPU_DEFSTR  = "CPU --\n--.- %";
  23
  24 //#define NOTYET_USED
  25
  26 AROS_UFH3(VOID, tasklistrefreshfunction,
  27     AROS_UFHA(struct Hook *, h, A0),
  28     AROS_UFHA(Object *, object, A2),
  29     AROS_UFHA(APTR, msg, A1))
  30 {
  31     AROS_USERFUNC_INIT
  32
  33     struct SysMonData * smdata = h->h_Data;
  34     IPTR taskReady = 0, taskWait = 0;
  35
  36     D(bug("[SysMon] %s(0x%p)\n", __func__, object));
  37
  38     GET(smdata->tasklist, MUIA_Tasklist_ReadyCount, &taskReady);
  39     GET(smdata->tasklist, MUIA_Tasklist_WaitingCount, &taskWait);
  40
  41     __sprintf(smdata->tasklistinfobuf, smdata->msg_taskreadywait, taskReady, taskWait);
  42
  43     set(smdata->tasklistinfo, MUIA_Text_Contents, smdata->tasklistinfobuf);
  44
  45     AROS_USERFUNC_EXIT
  46 }
  47
  48 #ifdef NOTYET_USED
  49 AROS_UFH3(VOID, pageactivefunction,
  50     AROS_UFHA(struct Hook *, h, A0),
  51     AROS_UFHA(Object *, object, A2),
  52     AROS_UFHA(APTR, msg, A1))
  53 {
  54     AROS_USERFUNC_INIT
  55
  56     IPTR thisPage = 0;
  57
  58     D(bug("[SysMon] %s(0x%p)\n", __func__, object));
  59
  60     // get the selected page
  61     get(object, MUIA_Group_ActivePage, &thisPage);
  62
  63     D(bug("[SysMon] page #%d\n", thisPage));
  64
  65     // TODO: change the menu for the active page.
  66
  67     AROS_USERFUNC_EXIT
  68 }
  69 #endif
  70
  71 BOOL CreateApplication(struct SysMonData * smdata)
  72 {
  73     Object      * menuitemfast,
  74                 * menuitemnormal,
  75                 * menuitemslow,
  76                 * cmenucpugauge,
  77                 * cmenucpugraph,
  78                 * cmenucpugraphpcpu = NULL;
  79
  80     Object      * cpufreqgroup,
  81                 * cpufreqcntnr;
  82
  83     IPTR i;
  84     ULONG processorcount;
  85
  86     processorcount = GetProcessorCount();
  87
  88     smdata->tabs[0] = _(MSG_TAB_TASKS);
  89     smdata->tabs[1] = _(MSG_TAB_CPU);
  90     smdata->tabs[2] = _(MSG_TAB_SYSTEM);
  91     smdata->tabs[3] = NULL;
  92
  93     smdata->tasklistinfobuf = AllocVec(30, MEMF_PUBLIC);
  94     smdata->tasklistrefreshhook.h_Entry = (APTR)tasklistrefreshfunction;
  95     smdata->tasklistrefreshhook.h_Data = (APTR)smdata;
  96
  97 #ifdef NOTYET_USED
  98     smdata->pageactivehook.h_Entry = (APTR)pageactivefunction;
  99     smdata->pageactivehook.h_Data = (APTR)smdata;
 100 #endif
 101
 102     smdata->msg_taskreadywait = (STRPTR)_(MSG_TASK_READY_WAIT);
 103     smdata->msg_project = (STRPTR)_(MSG_PROJECT);
 104     smdata->msg_refresh_speed = (STRPTR)_(MSG_REFRESH_SPEED);
 105     smdata->msg_fast = (STRPTR)_(MSG_FAST);
 106     smdata->msg_normal = (STRPTR)_(MSG_NORMAL);
 107     smdata->msg_slow  = (STRPTR)_(MSG_SLOW);
 108
 109     smdata->tasklist = (Object *)NewObject(Tasklist_CLASS->mcc_Class, NULL, MUIA_Tasklist_RefreshMSecs, MUIV_Tasklist_Refresh_Normal, TAG_DONE);
 110
 111     /* prepare the cpu frequency group */
 112     cpufreqgroup = ColGroup(4),
 113         End;
 114
 115     /* If we have more than 3 processors,
 116         use a scrollgroup */
 117     if (processorcount <= 4)
 118     {
 119         cpufreqcntnr = GroupObject,
 120                         GroupFrameT(_(MSG_FREQUENCY)),
 121                         Child, cpufreqgroup,
 122                     End;
 123     }
 124     else
 125     {
 126         cpufreqcntnr = ScrollgroupObject,
 127                         GroupFrameT(_(MSG_FREQUENCY)),
 128                         MUIA_Scrollgroup_FreeHoriz, FALSE,
 129                         MUIA_Scrollgroup_Contents, VirtgroupObject,
 130                             Child, cpufreqgroup,
 131                         End,
 132                     End;
 133     }
 134
 135     smdata->application = ApplicationObject,
 136         MUIA_Application_Title, __(MSG_APP_NAME),
 137         MUIA_Application_Version, (IPTR) VERSION,
 138         MUIA_Application_Author, (IPTR) "Krzysztof Smiechowicz",
 139         MUIA_Application_Copyright, (IPTR)"©2011-2017, The AROS Development Team",
 140         MUIA_Application_Base, (IPTR)"SYSMON",
 141         MUIA_Application_Description, __(MSG_APP_TITLE),
 142         SubWindow,
 143             smdata->mainwindow = WindowObject,
 144                 MUIA_Window_Title, __(MSG_WINDOW_TITLE),
 145                 MUIA_Window_ID, MAKE_ID('S','Y','S','M'),
 146                 MUIA_Window_Height, MUIV_Window_Height_Visible(45),
 147                 MUIA_Window_Width, MUIV_Window_Width_Visible(35),
 148                 MUIA_Window_Menustrip, (MenustripObject,
 149                             MUIA_Family_Child, (MenuObject,
 150                                 MUIA_Menu_Title, (IPTR)smdata->msg_project,
 151                                 MUIA_Family_Child, (MenuitemObject,
 152                                     MUIA_Menuitem_Title, (IPTR)smdata->msg_refresh_speed,
 153                                     MUIA_Family_Child, (menuitemfast = MenuitemObject, MUIA_Menuitem_Title, (IPTR)smdata->msg_fast, MUIA_Menuitem_Shortcut, (IPTR)"F",End),
 154                                     MUIA_Family_Child, (menuitemnormal = MenuitemObject, MUIA_Menuitem_Title, (IPTR)smdata->msg_normal, MUIA_Menuitem_Shortcut, (IPTR)"N",End),
 155                                     MUIA_Family_Child, (menuitemslow = MenuitemObject, MUIA_Menuitem_Title, (IPTR)smdata->msg_slow, MUIA_Menuitem_Shortcut, (IPTR)"S",End),
 156                                 End),
 157                             End),
 158                         End),
 159                 WindowContents,
 160                     smdata->pages = RegisterGroup(smdata->tabs),
 161                         Child, (VGroup,
 162                             Child, ListviewObject,
 163                                 MUIA_Listview_List, (IPTR)smdata->tasklist,
 164                             End,
 165                             Child, VGroup,
 166                                 Child, smdata->tasklistinfo = TextObject,
 167                                     NoFrame,
 168                                     MUIA_Font, MUIV_Font_Tiny,
 169                                     MUIA_Text_PreParse, (IPTR)"\33r",
 170                                     MUIA_Text_Contents, (IPTR)_(MSG_TASK_READY_WAIT_INIT),
 171                                 End,
 172                             End,
 173                         End),
 174                         Child, (VGroup,
 175                             Child, (smdata->cpuusagegroup = HGroup,
 176                                 GroupFrameT(_(MSG_USAGE)),
 177                                 MUIA_ContextMenu, (MenustripObject,
 178                                     MUIA_Family_Child, (MenuObject,
 179                                         MUIA_Menu_Title, (IPTR)"Processor Load",
 180                                         MUIA_Family_Child, (MenuitemObject,
 181                                             MUIA_Menuitem_Title, (IPTR)"Display Mode",
 182                                             MUIA_Family_Child, (cmenucpugauge = MenuitemObject, MUIA_Menuitem_Title, (IPTR)"Gauge", MUIA_Menuitem_Shortcut, (IPTR)"G",End),
 183                                             MUIA_Family_Child, (cmenucpugraph = MenuitemObject, MUIA_Menuitem_Title, (IPTR)"Graph", MUIA_Menuitem_Shortcut, (IPTR)"S",End),
 184                                             (processorcount > 1) ? MUIA_Family_Child : TAG_IGNORE,
 185                                                 (cmenucpugraphpcpu = MenuitemObject, MUIA_Menuitem_Title, (IPTR)"Graph Per Processor", MUIA_Menuitem_Shortcut, (IPTR)"P",End),
 186                                         End),
 187                                     End),
 188                                 End),
 189                                 Child, (IPTR)(smdata->cpuusageobj = ProcessorGroupObject(smdata, processorcount)),
 190                             End),
 191                             Child, BalanceObject, End,
 192                             Child, cpufreqcntnr,
 193                         End),
 194                         Child, (VGroup,
 195                             Child, ColGroup(2),
 196                                 Child, VGroup, GroupFrameT(_(MSG_MEMORY_SIZE)),
 197                                         Child, ColGroup(2),
 198                                         Child, Label(_(MSG_TOTAL_RAM)),
 199                                         Child, smdata->memorysize[MEMORY_RAM] = TextObject, TextFrame, MUIA_Background, MUII_TextBack,
 200                                                 MUIA_Text_PreParse, (IPTR)"\33r", MUIA_Text_Contents, (IPTR)"---- Kb",
 201                                         End,
 202                                         Child, Label(_(MSG_CHIP_RAM)),
 203                                         Child, smdata->memorysize[MEMORY_CHIP] = TextObject, TextFrame, MUIA_Background, MUII_TextBack,
 204                                                 MUIA_Text_PreParse, (IPTR)"\33r", MUIA_Text_Contents, (IPTR)"",
 205                                         End,
 206                                         Child, Label(_(MSG_FAST_RAM)),
 207                                         Child, smdata->memorysize[MEMORY_FAST] = TextObject, TextFrame, MUIA_Background, MUII_TextBack,
 208                                                 MUIA_Text_PreParse, (IPTR)"\33r", MUIA_Text_Contents, (IPTR)"",
 209                                         End,
 210                                     End,
 211                                 End,
 212                                 Child, VGroup, GroupFrameT(_(MSG_MEMORY_FREE)),
 213                                     Child, ColGroup(2),
 214                                         Child, Label(_(MSG_TOTAL_RAM)),
 215                                         Child, smdata->memoryfree[MEMORY_RAM] = TextObject, TextFrame, MUIA_Background, MUII_TextBack,
 216                                                 MUIA_Text_PreParse, (IPTR)"\33r", MUIA_Text_Contents, (IPTR)"---- Kb",
 217                                         End,
 218                                         Child, Label(_(MSG_CHIP_RAM)),
 219                                         Child, smdata->memoryfree[MEMORY_CHIP] = TextObject, TextFrame, MUIA_Background, MUII_TextBack,
 220                                                 MUIA_Text_PreParse, (IPTR)"\33r", MUIA_Text_Contents, (IPTR)"",
 221                                         End,
 222                                         Child, Label(_(MSG_FAST_RAM)),
 223                                         Child, smdata->memoryfree[MEMORY_FAST] = TextObject, TextFrame, MUIA_Background, MUII_TextBack,
 224                                                 MUIA_Text_PreParse, (IPTR)"\33r", MUIA_Text_Contents, (IPTR)"",
 225                                         End,
 226                                     End,
 227                                 End,
 228                             End,
 229                             Child, ColGroup(2),
 230                                 Child, VGroup, GroupFrameT(_(MSG_VIDEO_SIZE)),
 231                                     Child, ColGroup(2),
 232                                         Child, Label(_(MSG_VIDEO_RAM)),
 233                                         Child, smdata->memorysize[MEMORY_VRAM] = TextObject, TextFrame, MUIA_Background, MUII_TextBack,
 234                                                 MUIA_Text_PreParse, (IPTR)"\33r", MUIA_Text_Contents, (IPTR)"",
 235                                         End,
 236                                         Child, Label(_(MSG_GART_APER)),
 237                                         Child, smdata->memorysize[MEMORY_GART] = TextObject, TextFrame, MUIA_Background, MUII_TextBack,
 238                                                 MUIA_Text_PreParse, (IPTR)"\33r", MUIA_Text_Contents, (IPTR)"",
 239                                         End,
 240                                     End,
 241                                 End,
 242                                 Child, VGroup, GroupFrameT(_(MSG_VIDEO_FREE)),
 243                                     Child, ColGroup(2),
 244                                         Child, Label(_(MSG_VIDEO_RAM)),
 245                                         Child, smdata->memoryfree[MEMORY_VRAM] = TextObject, TextFrame, MUIA_Background, MUII_TextBack,
 246                                                 MUIA_Text_PreParse, (IPTR)"\33r", MUIA_Text_Contents, (IPTR)"",
 247                                         End,
 248                                         Child, Label(_(MSG_GART_APER)),
 249                                         Child, smdata->memoryfree[MEMORY_GART] = TextObject, TextFrame, MUIA_Background, MUII_TextBack,
 250                                                 MUIA_Text_PreParse, (IPTR)"\33r", MUIA_Text_Contents, (IPTR)"",
 251                                         End,
 252                                     End,
 253                                 End,
 254                             End,
 255                             Child, HVSpace,
 256                         End),
 257                     End,
 258             End,
 259     End;
 260
 261     if (!smdata->application)
 262         return FALSE;
 263
 264     DoMethod(smdata->mainwindow, MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
 265         smdata->application, 2, MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit);
 266
 267     DoMethod(menuitemfast, MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
 268         smdata->tasklist, 3, MUIM_Set, MUIA_Tasklist_RefreshMSecs, MUIV_Tasklist_Refresh_Fast);
 269     DoMethod(menuitemnormal, MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
 270         smdata->tasklist, 3, MUIM_Set, MUIA_Tasklist_RefreshMSecs, MUIV_Tasklist_Refresh_Normal);
 271     DoMethod(menuitemslow, MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
 272         smdata->tasklist, 3, MUIM_Set, MUIA_Tasklist_RefreshMSecs, MUIV_Tasklist_Refresh_Slow);
 273
 274     DoMethod(smdata->tasklist, MUIM_Notify, MUIA_Tasklist_Refreshed, TRUE,
 275         smdata->application, 2, MUIM_CallHook, (IPTR)&smdata->tasklistrefreshhook);
 276
 277 #ifdef NOTYET_USED
 278     DoMethod(smdata->pages, MUIM_Notify, MUIA_Group_ActivePage, MUIV_EveryTime,
 279         smdata->pages, 2, MUIM_CallHook, (IPTR)&smdata->pageactivehook);
 280 #endif
 281
 282     smdata->cpuusagecmhooks[0].h_Entry = (APTR)processorgaugehookfunc;
 283     smdata->cpuusagecmhooks[0].h_Data = (APTR)smdata;
 284     smdata->cpuusagecmhooks[1].h_Entry = (APTR)processorgraphhookfunc;
 285     smdata->cpuusagecmhooks[1].h_Data = (APTR)smdata;
 286
 287     DoMethod(cmenucpugauge, MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
 288         smdata->application, 5, MUIM_Application_PushMethod,
 289                 smdata->application, 2, MUIM_CallHook, (IPTR)&smdata->cpuusagecmhooks[0]);
 290     DoMethod(cmenucpugraph, MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
 291         smdata->application, 5, MUIM_Application_PushMethod,
 292                 smdata->application, 2, MUIM_CallHook, (IPTR)&smdata->cpuusagecmhooks[1]);
 293     if (cmenucpugraphpcpu)
 294     {
 295         smdata->cpuusagecmhooks[2].h_Entry = (APTR)processorgraphpercpuhookfunc;
 296         smdata->cpuusagecmhooks[2].h_Data = (APTR)smdata;
 297
 298         DoMethod(cmenucpugraphpcpu, MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
 299             smdata->application, 5, MUIM_Application_PushMethod,
 300                 smdata->application, 2, MUIM_CallHook, (IPTR)&smdata->cpuusagecmhooks[2]);
 301     }
 302
 303     /* Adding cpu frequency labels */
 304     smdata->cpufreqlabels = AllocVec(sizeof(Object *) * processorcount, MEMF_ANY | MEMF_CLEAR);
 305     smdata->cpufreqvalues = AllocVec(sizeof(Object *) * processorcount, MEMF_ANY | MEMF_CLEAR);
 306
 307     for (i = 0; i < processorcount; i++)
 308     {
 309         smdata->cpufreqlabels[i] = TextObject, MUIA_Text_PreParse, "\33l",
 310                         MUIA_Text_Contents, (IPTR)"", End;
 311         smdata->cpufreqvalues[i] = TextObject, TextFrame, MUIA_Background, MUII_TextBack,
 312                         MUIA_Text_PreParse, (IPTR)"\33l",
 313                         MUIA_Text_Contents, (IPTR)"", End;
 314
 315         DoMethod(cpufreqgroup, OM_ADDMEMBER, (IPTR)HVSpace);
 316         DoMethod(cpufreqgroup, OM_ADDMEMBER, smdata->cpufreqlabels[i]);
 317         DoMethod(cpufreqgroup, OM_ADDMEMBER, smdata->cpufreqvalues[i]);
 318         DoMethod(cpufreqgroup, OM_ADDMEMBER, (IPTR)HVSpace);
 319     }
 320     DoMethod(cpufreqgroup, OM_ADDMEMBER, (IPTR)HVSpace);
 321     DoMethod(cpufreqgroup, OM_ADDMEMBER, (IPTR)HVSpace);
 322     DoMethod(cpufreqgroup, OM_ADDMEMBER, (IPTR)HVSpace);
 323     DoMethod(cpufreqgroup, OM_ADDMEMBER, (IPTR)HVSpace);
 324
 325     return TRUE;
 326 }
 327
 328 VOID DisposeApplication(struct SysMonData * smdata)
 329 {
 330     MUI_DisposeObject(smdata->application);
 331
 332     FreeVec(smdata->tasklistinfobuf);
 333     FreeVec(smdata->cpufreqlabels);
 334     FreeVec(smdata->cpufreqvalues);
 335 }
 336
 337 VOID DeInitModules(struct SysMonModule ** modules, struct SysMonData *smdata, LONG lastinitedmodule)
 338 {
 339     LONG i;
 340
 341     for (i = lastinitedmodule; i >= 0; i--)
 342         modules[i]->DeInit(smdata);
 343 }
 344
 345 LONG InitModules(struct SysMonModule ** modules, struct SysMonData *smdata)
 346 {
 347     LONG lastinitedmodule = -1;
 348
 349     /* Make sure we initialize values ..*/
 350     smdata->cpuusageclass = NULL;
 351
 352     while(modules[lastinitedmodule + 1] != NULL)
 353     {
 354         if (modules[lastinitedmodule + 1]->Init(smdata))
 355             lastinitedmodule++;
 356         else
 357         {
 358             DeInitModules(modules, smdata, lastinitedmodule);
 359             return -1;
 360         }
 361     }
 362
 363     return lastinitedmodule;
 364 }
 365
 366 int main()
 367 {
 368     ULONG signals = 0;
 369     ULONG itercounter = 0;
 370     struct SysMonData smdata;
 371     struct SysMonModule * modules [] = {&memorymodule, &videomodule, &processormodule, &timermodule, NULL};
 372     LONG lastinitedmodule = -1;
 373
 374     if ((lastinitedmodule = InitModules(modules, &smdata)) == -1)
 375         return 1;
 376
 377     if (!CreateApplication(&smdata))
 378         return 1;
 379
 380     /* Increase our priority! */
 381     SetTaskPri(FindTask(NULL), 19);
 382
 383     UpdateProcessorStaticInformation(&smdata);
 384     UpdateProcessorInformation(&smdata);
 385     UpdateMemoryStaticInformation(&smdata);
 386     UpdateMemoryInformation(&smdata);
 387     UpdateVideoStaticInformation(&smdata);
 388     UpdateVideoInformation(&smdata);
 389
 390     set(smdata.mainwindow, MUIA_Window_Open, TRUE);
 391     set(smdata.pages, MUIA_Group_ActivePage, 0);
 392     SignalMeAfter(250);
 393
 394     while (DoMethod(smdata.application, MUIM_Application_NewInput, &signals) != MUIV_Application_ReturnID_Quit)
 395     {
 396         if (signals)
 397         {
 398             signals = Wait(signals | SIGBREAKF_CTRL_C | GetSIG_TIMER());
 399             if (signals & SIGBREAKF_CTRL_C)
 400                 break;
 401
 402             if (signals & GetSIG_TIMER())
 403             {
 404                 IPTR currentPage = 0;
 405
 406                 get(smdata.pages, MUIA_Group_ActivePage, &currentPage);
 407                 switch (currentPage)
 408                 {
 409                     case 1:
 410                             UpdateProcessorInformation(&smdata);
 411                         break;
 412                     case 2:
 413                         if ((itercounter % 8) == 0)
 414                         {
 415                             UpdateMemoryInformation(&smdata);
 416                             UpdateVideoInformation(&smdata);
 417                         }
 418                         break;
 419                     default:
 420                         break;
 421                 }
 422
 423                 itercounter++;
 424
 425                 SignalMeAfter(250);
 426             }
 427         }
 428     }
 429
 430     set(smdata.mainwindow, MUIA_Window_Open, FALSE);
 431
 432     DisposeApplication(&smdata);
 433
 434     DeInitModules(modules, &smdata, lastinitedmodule);
 435
 436     return 0;
 437 }