home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / gstobjects_1 / stack / Example / h / Adhesive next >
Encoding:
Text File  |  1994-09-16  |  1.6 KB  |  67 lines
  1. (***************************************************************************
  2.  
  3.                 Adhesive (C) 1994 George Taylor
  4.                 -------------------------------
  5.  
  6.         Title:   adhesive.h, pascal version
  7.  
  8.         Purpose: Access to shared objects
  9.  
  10.         Author:  George Taylor
  11.  
  12.         Version: 1.00
  13.  
  14.         Notes:   See the h.Adhesive header file for C for a
  15.              full description of the routines.
  16.  
  17.              This header file is for use with the
  18.              o.Adhesive file.
  19.  
  20. ***************************************************************************)
  21.  
  22. #ifndef __ADHESIVE
  23. #define __ADHESIVE
  24.  
  25. #include "os.h"
  26.  
  27. (* Abstract object number *)
  28. type Adhesive_ObjectNum = integer;
  29.  
  30. (* Abstract entry point number *)
  31. type Adhesive_EntryNum = integer;
  32.  
  33. (* request for an object *)
  34. type Adhesive_RequestStr = record
  35.     object  : Adhesive_ObjectNum;
  36.     min,max : integer;
  37.     flags   : integer;
  38.     numbranches : integer;
  39.     numpairs : integer;
  40.     (* the rest of the variable size structure follows in memory *)
  41.      end;
  42. type Adhesive_RequestPtr = ^Adhesive_RequestStr;
  43.  
  44.  
  45. (* Abstract user of objects *)
  46. type Adhesive_UserHandle = integer;
  47.  
  48. (* User information *)
  49. type Adhesive_UserInfoStr = record
  50.     flags : integer;
  51.     name  : string;
  52.      end;
  53.  
  54. type Adhesive_User = ^Adhesive_UserHandle;
  55. type Adhesive_UserInfo = ^Adhesive_UserInfoStr;
  56.  
  57. procedure adhesive_Register(user:Adhesive_User;
  58.                 info:Adhesive_UserInfo):error; extern;
  59.  
  60. procedure adhesive_Deregister(user:Adhesive_User):error; extern;
  61.  
  62. procedure adhesive_Request(user:Adhesive_User;
  63.               requesttable:Adhesive_RequestPtr):error; extern;
  64.  
  65.  
  66. #endif
  67.