Return to calcutil.c CVS log

Up to [OS/2 SDKs] / pmsdk / samples / calc

Annotation of pmsdk/samples/calc/calcutil.c, revision 1.1.1.1

1.1       root        1: /****************************** Module Header ******************************\
                      2: * Module Name: calcutil.c - Calc application
                      3: *
                      4: * OS/2 Presentation Manager version of Calc, ported from Windows version
                      5: *
                      6: * Created by Microsoft Corporation, 1987
                      7: *
                      8: \***************************************************************************/
                      9: 
                     10: #define INCL_PM
                     11: #define INCL_DDIMISC
                     12: #include <os2.h>
                     13: #include <string.h>
                     14: #include "calc.h"
                     15: 
                     16: extern HAB hab;
                     17: extern HWND hwndCalcFrame;
                     18: 
                     19: 
                     20: VOID CalcTextOut(HPS, INT, INT, PCH, INT);
                     21: VOID FarStrcpy(PSZ, PSZ);
                     22: 
                     23: VOID CalcTextOut(hps, x, y, lpch, cch)
                     24: HPS hps;
                     25: INT x, y;
                     26: PCH  lpch;
                     27: INT cch;
                     28: {
                     29:     POINTL ptl;
                     30: 
                     31:     ptl.x = x;
                     32:     ptl.y = y;
                     33: 
                     34:     GpiSetColor( hps, CLR_BLACK);
                     35:     GpiCharStringAt( hps, (PPOINTL)&ptl, (LONG)cch, (PSZ)lpch);
                     36: }
                     37: 
                     38: 
                     39: VOID FarStrcpy(lpszDest, lpszSrc)
                     40: PSZ  lpszDest, lpszSrc;
                     41: {
                     42:     while(*lpszDest++ = *lpszSrc++);
                     43: }

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