Return to tool.c CVS log

Up to [OS/2 SDKs] / os232sdk / toolkt20 / c / samples / opendlg

Annotation of os232sdk/toolkt20/c/samples/opendlg/tool.c, revision 1.1.1.1

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

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