home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / os2 / bbss10b2.zip / API / APIINT.PAS next >
Pascal/Delphi Source File  |  1994-02-28  |  6KB  |  114 lines
  1. unit ApiInt;
  2.  
  3. interface
  4. uses
  5.   types;
  6.  
  7. {----------------------------------------------------------------------------}
  8. function  apiVersion : String; far;
  9. procedure apiInitDLL(path : String); far; { path = B&BSYS/2-root path }
  10. {----------------------------------------------------------------------------}
  11. function  fioReadMainCfg(var cfg : SysCfgT) : Boolean; far;
  12. procedure fioWriteMainCfg(var cfg : SysCfgT); far;
  13. {----------------------------------------------------------------------------}
  14. function  fioReadNodeCfg(var cfg : ModCfgT; pos : LongInt) : Boolean; far;
  15. procedure fioWriteNodeCfg(var cfg : ModCfgT; var pos : LongInt); far;
  16. procedure fioDelNodeCfg; far;
  17. function  fioGetNodeCnt : LongInt; far;
  18. {----------------------------------------------------------------------------}
  19. function  fioReadAreaCfg(var cfg : Area_Config_Record; pos : LongInt) : Boolean; far;
  20. function  fioFindAreaCode(var cfg : Area_Config_Record; code : String; pos : LongInt) : Boolean; far;
  21. function  fioFindAreaName(var cfg : Area_Config_Record; name : String; pos : LongInt) : Boolean; far;
  22. procedure fioWriteAreaCfg(var cfg : Area_Config_Record; var pos : LongInt); far;
  23. {----------------------------------------------------------------------------}
  24. function  fioReadLocalUsr(var usr : LocUsers; pos : LongInt) : Boolean; far;
  25. function  fioFindLocalUsr(var usr : LocUsers; name : String; var pos : LongInt)
  26.                           : Boolean; far;
  27. {----------------------------------------------------------------------------}
  28. procedure fioWriteLocalUsr(var usr : LocUsers; var pos : LongInt); far;
  29. function  fioGetLocalUsrCnt : LongInt; far;
  30. {----------------------------------------------------------------------------}
  31. function  fioReadUsrAreaReg(var reg : Area_Reg; var area : Area_Config_Record;
  32.                             pos : LongInt) : Boolean; far;
  33. procedure fioWriteUsrAreaReg(var reg : Area_Reg; var area : Area_Config_Record;
  34.                              var pos : LongInt); far;
  35. {----------------------------------------------------------------------------}
  36. function  fioReadMsgHeader(var mhd : Area_Mhd; var area : Area_Config_Record;
  37.                            pos : LongInt) : Boolean; far;
  38. function  fioFindMsgNo(var mhd : Area_Mhd; var area : Area_Config_Record;
  39.                        no : LongInt) : Boolean; far;
  40. function  fioFindNextMsg(var mhd : Area_Mhd; var area : Area_Config_Record)
  41.                          : Boolean; far;
  42. procedure fioReadMsgBuf(var mhd : Area_Mhd; var area : Area_Config_Record;
  43.                         ptr : PMsgBuffer);
  44. procedure fioReadMsgStatus(var area : Area_Config_Record; var reg : Area_Reg;
  45.                            usrpos : LongInt; var last, newall, newyou : LongInt); far;
  46. procedure fioWriteMsgHeader(var mhd : Area_Mhd; var area : Area_Config_Record;
  47.                             var pos : LongInt); far;
  48. procedure fioUpdateMsgHeader(var mhd : Area_Mhd; var area : Area_Config_Record); far;
  49. procedure fioWriteMsg(var mhd : Area_Mhd; var area : Area_Config_Record;
  50.                       ptr : PMsgBuffer); far;
  51. {----------------------------------------------------------------------------}
  52. function  fioReadDirCfg(var cfg : Area_Directory_Record;
  53.                         var area : Area_Config_Record; pos : LongInt) : Boolean; far;
  54. function  fioFindDirNo(var cfg : Area_Directory_Record; no : LongInt;
  55.                        var area : Area_Config_Record; pos : LongInt) : Boolean; far;
  56. function  fioFindDirName(var cfg : Area_Directory_Record; name : String;
  57.                          var area : Area_Config_Record; pos : LongInt) : Boolean; far;
  58. procedure fioWriteDirCfg(var cfg : Area_Directory_Record;
  59.                          var area : Area_Config_Record; var pos : LongInt); far;
  60. {----------------------------------------------------------------------------}
  61. function  strUpCase(S : string) : string; far;
  62. function  strNiceCase(S : string) : string; far;
  63. function  strInsertIdx(org, ins, idx : String) : String; far;
  64. {----------------------------------------------------------------------------}
  65. function  usrHaveAccess(acc : AccessT; var area : Area_Config_Record;
  66.                         var reg : Area_Reg; var usr : LocUsers) : Boolean; far;
  67. {----------------------------------------------------------------------------}
  68.  
  69. implementation
  70.  
  71. function  apiVersion;          external 'B&BAPI' index   1;
  72. procedure apiInitDLL;          external 'B&BAPI' index   2;
  73.  
  74. function  fioReadMainCfg;      external 'B&BAPI' index   3;
  75. procedure fioWriteMainCfg;     external 'B&BAPI' index   4;
  76.  
  77. function  fioReadNodeCfg;      external 'B&BAPI' index   5;
  78. procedure fioWriteNodeCfg;     external 'B&BAPI' index   6;
  79. procedure fioDelNodeCfg;       external 'B&BAPI' index   7;
  80. function  fioGetNodeCnt;       external 'B&BAPI' index   8;
  81.  
  82. function  fioReadAreaCfg;      external 'B&BAPI' index   9;
  83. function  fioFindAreaCode;     external 'B&BAPI' index  22;
  84. function  fioFindAreaName;     external 'B&BAPI' index  23;
  85. procedure fioWriteAreaCfg;     external 'B&BAPI' index  10;
  86.  
  87. function  fioReadLocalUsr;     external 'B&BAPI' index  11;
  88. function  fioFindLocalUsr;     external 'B&BAPI' index  14;
  89. procedure fioWriteLocalUsr;    external 'B&BAPI' index  12;
  90. function  fioGetLocalUsrCnt;   external 'B&BAPI' index  13;
  91.  
  92. function  fioReadUsrAreaReg;   external 'B&BAPI' index  15;
  93. procedure fioWriteUsrAreaReg;  external 'B&BAPI' index  16;
  94.  
  95. function  fioReadMsgHeader;    external 'B&BAPI' index  17;
  96. function  fioFindMsgNo;        external 'B&BAPI' index  18;
  97. function  fioFindNextMsg;      external 'B&BAPI' index  19;
  98. procedure fioReadMsgBuf;       external 'B&BAPI' index  20;
  99. procedure fioReadMsgStatus;    external 'B&BAPI' index  21;
  100. procedure fioWriteMsgHeader;   external 'B&BAPI' index  34;
  101. procedure fioUpdateMsgHeader;  external 'B&BAPI' index  29;
  102. procedure fioWriteMsg;         external 'B&BAPI' index  28;
  103.  
  104. function  fioReadDirCfg;       external 'B&BAPI' index  30;
  105. function  fioFindDirNo;        external 'B&BAPI' index  33;
  106. function  fioFindDirName;      external 'B&BAPI' index  31;
  107. procedure fioWriteDirCfg;      external 'B&BAPI' index  32;
  108.  
  109. function  strUpCase;           external 'B&BAPI' index  24;
  110. function  strNiceCase;         external 'B&BAPI' index  25;
  111. function  strInsertIdx;        external 'B&BAPI' index  26;
  112. function  usrHaveAccess;       external 'B&BAPI' index  27;
  113.  
  114. end.