home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / samples / refch26 / mydll.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-09-30  |  1.7 KB  |  79 lines
  1. /*************************************************************
  2.  *    Realizer Reference Manual Sample Program
  3.  *
  4.  *    Chapter 26:  MyDLL.c
  5.  *
  6.  *    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  7.  *    All rights reserved.
  8.  *************************************************************/
  9.  
  10. typedef unsigned int    WORD; 
  11. typedef char far        *LPSTR; 
  12. typedef WORD            HANDLE; 
  13. typedef HANDLE            HWND; 
  14.  
  15. /* 
  16.  *  Uppercase - converts all letters in a string to uppercase. 
  17.  */ 
  18.  
  19. void far pascal Uppercase(LPSTR s) 
  20. { 
  21.     while (*s) { 
  22.         if ((*s >= 'a') && (*s <= 'z')) 
  23.             *s -= 32; 
  24.         s++; 
  25.     } 
  26. } 
  27.  
  28. /* 
  29.  * FindMatch - finds the first occurrence of x within a real array. 
  30.  * 
  31.  * Returns the index of the matching element, or 0 if it isn't found. 
  32.  * The index is based on the Realizer style, with 1 as the 
  33.  * first element. 
  34.  */ 
  35.  
  36. WORD far pascal FindMatch(double far *array, WORD len, double x) 
  37. { 
  38.     int i; 
  39.  
  40.     for (i = 0; i < len; i++) 
  41.         if (array[i] == x) 
  42.             return(i + 1); 
  43.     return(0); 
  44. } 
  45.  
  46.  
  47. /* 
  48.  * LibMain - DLL initialization routine 
  49.  * 
  50.  * The LibMain function is required for each DLL.  It is called when 
  51.  * the DLL is first loaded.  Any initialization for the library should  
  52.  * be done here.  LibMain should return a value of 1 if the 
  53.  * initialization is successful.           
  54.  */ 
  55.  
  56. int far pascal LibMain(hModule, wDataSeg, cbHeapSize, lpszCmdLine) 
  57.  
  58. WORD    wDataSeg; 
  59. WORD    cbHeapSize; 
  60. LPSTR   lpszCmdLine; 
  61. { 
  62.     return 1; 
  63. } 
  64.  
  65.  
  66. /* 
  67.  * WEP - DLL cleanup routine 
  68.  * 
  69.  * The WEP function should also be found in each DLL.  It is called when 
  70.  * the DLL is unloaded.  There is no return value. 
  71.  */ 
  72.  
  73. void far pascal WEP(bSystemExit) 
  74. int  bSystemExit; 
  75. { 
  76.     return; 
  77. } 
  78.  
  79.