Return to tool.c CVS log

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

Annotation of pmsdk/samples/opendlg/tool.c, revision 1.1

1.1     ! root        1: /*
        !             2:     TOOL.C -- Contains commonly used routines and globals
        !             3:     Created by Microsoft Corporation, 1989
        !             4: */
        !             5: 
        !             6: #define NO_DOS
        !             7: #define NO_GPI
        !             8: #include "tool.h"
        !             9: 
        !            10: 
        !            11: /****************************************************************************\
        !            12: * This function returns the character following the current one.
        !            13: \****************************************************************************/
        !            14: 
        !            15: PSZ  FAR PASCAL NextChar (PSZ lpsz)
        !            16:     { if (*lpsz) return ++lpsz; else return lpsz; }
        !            17: 
        !            18: 
        !            19: /****************************************************************************\
        !            20: * This function returns the character previous to the current one.
        !            21: \****************************************************************************/
        !            22: 
        !            23: PSZ  FAR PASCAL PrevChar (PSZ lpszStart, PSZ lpszCurrent)
        !            24:     { if (lpszCurrent > lpszStart) return --lpszCurrent; else return lpszStart; }
        !            25: 
        !            26: 
        !            27: /****************************************************************************\
        !            28: * This function transforms a string to upper case.
        !            29: \****************************************************************************/
        !            30: 
        !            31: PSZ  FAR PASCAL Upper (PSZ lpsz) {
        !            32:     PSZ  lpszPtr = lpsz;
        !            33: 
        !            34:     while (*lpszPtr) {
        !            35:         if (*lpszPtr >= 'a' && *lpszPtr <= 'z') *lpszPtr &= ~0x20;
        !            36:         lpszPtr++;
        !            37:         }
        !            38:     return lpsz;
        !            39:     }

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