home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OS2BAS.ZIP / REGBAS.C < prev    next >
C/C++ Source or Header  |  1989-07-29  |  804b  |  38 lines
  1. #define INCL_WIN
  2. #include <os2.h>
  3.  
  4. extern MRESULT EXPENTRY ClientWndProc ( long near *, int near *,
  5.                     long near *, long near *);
  6.  
  7. MRESULT EXPENTRY BasClientWndProc(HWND hwnd, USHORT msg, MPARAM mp1, MPARAM mp2)
  8. {
  9.    static long near hwndb;
  10.    static int near  msgb;
  11.    static long near mp1b;
  12.    static long near mp2b;
  13.    hwndb=(long)hwnd;
  14.    msgb=(int)msg;
  15.    mp1b=(long)mp1;
  16.    mp2b=(long) mp2;
  17.    return ClientWndProc(&hwndb, &msgb, &mp1b, &mp2b);
  18.  
  19. } /* BasClientWndProc */
  20.  
  21.  
  22. long pascal far RegBas(void)
  23. {
  24.    return (long) BasClientWndProc;
  25.  
  26. } /* regbas */
  27.  
  28. long pascal far MakeLong (long passedlong)
  29. {
  30. return passedlong;
  31. } /* makelong */
  32.  
  33. void pascal far BreakLong (int hiword, int loword, int *phiword, int *ploword)
  34. {
  35. *phiword = hiword;
  36. *ploword = loword;
  37. }
  38.