home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ESL32BIT.ZIP / ESLSAMP.C < prev    next >
Text File  |  1992-08-12  |  1KB  |  60 lines
  1. #define INCL_WIN
  2. #include <os2.h>
  3. #include "esllib.h"
  4. #include <string.h>
  5.  
  6. int PASCAL16 MessageBox(void);
  7. long PASCAL16 Add(long, long);
  8. long PASCAL16 Mul(long, long);
  9. long PASCAL16 Sub(long, long);
  10. long PASCAL16 Div(long, long);
  11. HSTRING PASCAL16 HelloWorld(void);
  12. long PASCAL16 ToUpper(HSTRING * _Seg16);
  13.  
  14. int PASCAL16 MessageBox(void)
  15. {
  16.    WinMessageBox(HWND_DESKTOP,
  17.                  HWND_DESKTOP,
  18.                  "This is from a C Set/2 DLL!",
  19.                  "Message",
  20.                  0,
  21.                  MB_OK | MB_NOICON);
  22. }
  23.  
  24. long PASCAL16 Add(long A, long B)
  25. {
  26.   return (A + B);
  27. }
  28.  
  29. long PASCAL16 Mul(long A,  long B)
  30. {
  31.   return (A * B);
  32. }
  33.  
  34. long PASCAL16 Sub(long A, long B)
  35. {
  36.   return (A - B);
  37. }
  38.  
  39. long PASCAL16 Div(long A, long B)
  40. {
  41.   return (A / B);
  42. }
  43.  
  44. HSTRING PASCAL16 HelloWorld(void)
  45. {
  46.   return EslCreateString(12, "Hello World!");
  47. }
  48.  
  49. long PASCAL16 ToUpper(HSTRING * _Seg16 EslString)
  50. {
  51.   char CString[256];
  52.  
  53.   EslQueryStringChars(*EslString, CString, 255);
  54.   strupr(CString);
  55.   EslSetStringValue(EslString, CString, strlen(CString));
  56.  
  57.   return 0;
  58. }
  59.  
  60.