Return to freemem.c CVS log

Up to [OS/2 SDKs] / pmsdk / samples / petzold / chap10

Annotation of pmsdk/samples/petzold/chap10/freemem.c, revision 1.1.1.1

1.1       root        1: /*----------------------------------
                      2:    FREEMEM.C -- Free Memory Display 
                      3:   ----------------------------------*/
                      4: 
                      5: #define INCL_WIN
                      6: #define INCL_GPI
                      7: #define INCL_DOS
                      8: #include <os2.h>
                      9: #include <string.h>
                     10: 
                     11: #define ID_TIMER 1
                     12: 
                     13: MRESULT EXPENTRY ClientWndProc (HWND, USHORT, MPARAM, MPARAM) ;
                     14: VOID    SizeTheWindow (HWND) ;
                     15: 
                     16: int main (void)
                     17:      {
                     18:      static CHAR  szClientClass[] = "FreeMem" ;
                     19:      static ULONG flFrameFlags = FCF_TITLEBAR | FCF_SYSMENU  |
                     20:                                  FCF_BORDER   | FCF_TASKLIST ;
                     21:      HAB          hab ;
                     22:      HMQ          hmq ;
                     23:      HWND         hwndFrame, hwndClient ;
                     24:      QMSG         qmsg ;
                     25: 
                     26:      hab = WinInitialize (0) ;
                     27:      hmq = WinCreateMsgQueue (hab, 0) ;
                     28: 
                     29:      WinRegisterClass (hab, szClientClass, ClientWndProc, 0L, 0) ;
                     30: 
                     31:      hwndFrame = WinCreateStdWindow (HWND_DESKTOP, WS_VISIBLE,
                     32:                                      &flFrameFlags, szClientClass, NULL,
                     33:                                     0L, NULL, 0, &hwndClient) ;
                     34:      SizeTheWindow (hwndFrame) ;
                     35: 
                     36:      if (WinStartTimer (hab, hwndClient, ID_TIMER, 1000))
                     37:           {
                     38:           while (WinGetMsg (hab, &qmsg, NULL, 0, 0))
                     39:                WinDispatchMsg (hab, &qmsg) ;
                     40: 
                     41:           WinStopTimer (hab, hwndClient, ID_TIMER) ;
                     42:           }
                     43:      else
                     44:           WinMessageBox (HWND_DESKTOP, hwndClient,
                     45:                          "Too many clocks or timers",
                     46:                          szClientClass, 0, MB_OK | MB_ICONEXCLAMATION) ;
                     47: 
                     48:      WinDestroyWindow (hwndFrame) ;
                     49:      WinDestroyMsgQueue (hmq) ;
                     50:      WinTerminate (hab) ;
                     51:      return 0 ;
                     52:      }
                     53: 
                     54: VOID SizeTheWindow (HWND hwndFrame)
                     55:      {
                     56:      static CHAR szText [] = "1,234,567,890 bytes" ;
                     57:      HPS         hps ;
                     58:      POINTL      aptl[TXTBOX_COUNT] ;
                     59:      RECTL       rcl ;
                     60: 
                     61:      hps = WinGetPS (hwndFrame) ;
                     62:      GpiQueryTextBox (hps, sizeof szText - 1L, szText, TXTBOX_COUNT, aptl) ;
                     63:      WinReleasePS (hps) ;
                     64: 
                     65:      rcl.yBottom = 0 ;
                     66:      rcl.yTop    = 3 * (aptl[TXTBOX_TOPLEFT].y -
                     67:                         aptl[TXTBOX_BOTTOMLEFT].y) / 2 ;
                     68:      rcl.xLeft   = 0 ;
                     69:      rcl.xRight  = (sizeof szText + 1L) * (aptl[TXTBOX_BOTTOMRIGHT].x -
                     70:                    aptl[TXTBOX_BOTTOMLEFT].x) / (sizeof szText - 1L) ;
                     71: 
                     72:      WinCalcFrameRect (hwndFrame, &rcl, FALSE) ;
                     73: 
                     74:      WinSetWindowPos (hwndFrame, NULL, (SHORT) rcl.xLeft, (SHORT) rcl.yBottom,
                     75:                       (SHORT) (rcl.xRight - rcl.xLeft),
                     76:                       (SHORT) (rcl.yTop - rcl.yBottom), SWP_SIZE | SWP_MOVE) ;
                     77:      }
                     78: 
                     79: VOID FormatNumber (CHAR *pchResult, ULONG ulValue)
                     80:      {
                     81:      BOOL  fDisplay = FALSE ;
                     82:      SHORT sDigit ;
                     83:      ULONG ulQuotient, ulDivisor = 1000000000L ;
                     84: 
                     85:      for (sDigit = 0 ; sDigit < 10 ; sDigit++)
                     86:           {
                     87:           ulQuotient = ulValue / ulDivisor ;
                     88: 
                     89:           if (fDisplay || ulQuotient > 0 || sDigit == 9)
                     90:                {
                     91:                fDisplay = TRUE ;
                     92: 
                     93:                *pchResult++ = (CHAR) ('0' + ulQuotient) ;
                     94: 
                     95:                if ((sDigit % 3 == 0) && sDigit != 9)
                     96:                     *pchResult++ = ',' ;
                     97:                }
                     98:           ulValue -= ulQuotient * ulDivisor ;
                     99:           ulDivisor /= 10 ;
                    100:           }
                    101:      *pchResult = '\0' ;
                    102:      }
                    103: 
                    104: MRESULT EXPENTRY ClientWndProc (HWND hwnd, USHORT msg, MPARAM mp1, MPARAM mp2)
                    105:      {
                    106:      static RECTL rcl ;
                    107:      static ULONG ulFreeMem, ulPrevMem ;
                    108:      CHAR         szBuffer [24] ;
                    109:      HPS          hps;
                    110: 
                    111:      switch (msg)
                    112:           {
                    113:           case WM_SIZE:
                    114:                WinQueryWindowRect (hwnd, &rcl) ;
                    115:                return 0 ;               
                    116: 
                    117:           case WM_TIMER:
                    118:                DosMemAvail (&ulFreeMem) ;
                    119: 
                    120:                if (ulFreeMem != ulPrevMem)
                    121:                     {
                    122:                     WinInvalidateRect (hwnd, NULL, FALSE) ;
                    123:                     ulPrevMem = ulFreeMem ;
                    124:                     }
                    125:                return 0 ;
                    126: 
                    127:           case WM_PAINT:
                    128:                hps = WinBeginPaint (hwnd, NULL, NULL) ;
                    129: 
                    130:                FormatNumber (szBuffer, ulFreeMem) ;
                    131:                strcat (szBuffer, " bytes") ;
                    132: 
                    133:                WinDrawText (hps, -1, szBuffer, &rcl, 
                    134:                             CLR_NEUTRAL, CLR_BACKGROUND,
                    135:                             DT_CENTER | DT_VCENTER | DT_ERASERECT) ;
                    136: 
                    137:                WinEndPaint (hps) ;
                    138:                return 0 ;
                    139:           }
                    140:      return WinDefWindowProc (hwnd, msg, mp1, mp2) ;
                    141:      }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.