Return to hdrlib.c CVS log

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

Annotation of pmsdk/samples/petzold/chap16/hdrlib.c, revision 1.1.1.1

1.1       root        1: /*-----------------------------------------------------------
                      2:    HDRLIB.C -- "Handy Drawing Routines" Dynamic Link Library
                      3:   -----------------------------------------------------------*/
                      4: 
                      5: #define INCL_GPI
                      6: #include <os2.h>
                      7: #include <stdio.h>
                      8: #include <stdarg.h>
                      9: #include <stdlib.h>
                     10: #include <string.h>
                     11: #include "hdrlib.h"
                     12: 
                     13: SHORT APIENTRY HdrPuts (HPS hps, PPOINTL pptl, PCHAR szText)
                     14:      {
                     15:      SHORT sLength = strlen (szText) ;
                     16: 
                     17:      if (pptl == NULL)
                     18:           GpiCharString (hps, (LONG) sLength, szText) ;
                     19:      else
                     20:           GpiCharStringAt (hps, pptl, (LONG) sLength, szText) ;
                     21: 
                     22:      return sLength ;
                     23:      }
                     24: 
                     25: SHORT cdecl FAR HdrPrintf (HPS hps, PPOINTL pptl, PCHAR szFormat, ...)
                     26:      {
                     27:      static CHAR chBuffer [1024] ;
                     28:      SHORT       sLength ;
                     29:      va_list     pArguments ;
                     30: 
                     31:      va_start (pArguments, szFormat) ;
                     32:      sLength = vsprintf (chBuffer, szFormat, pArguments) ;
                     33: 
                     34:      if (pptl == NULL)
                     35:           GpiCharString (hps, (LONG) sLength, chBuffer) ;
                     36:      else
                     37:           GpiCharStringAt (hps, pptl, (LONG) sLength, chBuffer) ;
                     38: 
                     39:      va_end (pArguments) ;
                     40:      return sLength ;
                     41:      }
                     42: 
                     43: LONG APIENTRY HdrEllipse (HPS hps, LONG lOption, PPOINTL pptl)
                     44:      {
                     45:      POINTL ptlCurrent ;
                     46: 
                     47:      GpiQueryCurrentPosition (hps, &ptlCurrent) ;
                     48: 
                     49:      return GpiBox (hps, lOption, pptl, labs (pptl->x - ptlCurrent.x),
                     50:                                         labs (pptl->y - ptlCurrent.y)) ;
                     51:      }

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