home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / foss10.zip / DEVELOP / APIINT.PAS next >
Pascal/Delphi Source File  |  1995-09-24  |  9KB  |  167 lines
  1. unit ApiInt;
  2.  
  3. interface
  4. uses
  5.   types;
  6.  
  7. {----------------------------------------------------------------------------}
  8. function  dllVer : String; far;
  9. procedure dllInit            ( path : String;
  10.                                node : Byte ); far; { path = FOSS/2-root path }
  11. {----------------------------------------------------------------------------}
  12. function  fioReadMainCfg(var cfg : SysCfgT) : Boolean; far;
  13. procedure fioWriteMainCfg(var cfg : SysCfgT); far;
  14. {----------------------------------------------------------------------------}
  15. function  fioReadNodeCfg(var cfg : ModCfgT; pos : LongInt) : Boolean; far;
  16. procedure fioWriteNodeCfg(var cfg : ModCfgT; var pos : LongInt); far;
  17. procedure fioDelNodeCfg; far;
  18. function  fioGetNodeCnt : LongInt; far;
  19. {----------------------------------------------------------------------------}
  20. function  fioReadAreaCfg(var cfg : Area_Config_Record; pos : LongInt) : Boolean; far;
  21. function  fioFindAreaCode(var cfg : Area_Config_Record; code : String; pos : LongInt) : Boolean; far;
  22. function  fioFindAreaName(var cfg : Area_Config_Record; name : String; pos : LongInt) : LongInt; far;
  23. procedure fioWriteAreaCfg(var cfg : Area_Config_Record; pos : LongInt); far;
  24. {----------------------------------------------------------------------------}
  25. function  fioReadEventCfg(var cfg : Event_Cfg_Record; pos : LongInt) : Boolean; far;
  26. procedure fioWriteEventCfg(var cfg : Event_Cfg_Record; var pos : LongInt); far;
  27. procedure fioDelEventCfg(pos : LongInt); far;
  28. {----------------------------------------------------------------------------}
  29. function  fioReadLocalUsr(var usr : LocUsers; pos : LongInt) : Boolean; far;
  30. function  fioFindLocalUsr(var usr : LocUsers; name : String; var pos : LongInt)
  31.                           : Boolean; far;
  32. procedure fioWriteLocalUsr(var usr : LocUsers; var pos : LongInt); far;
  33. function  fioGetLocalUsrCnt : LongInt; far;
  34.  
  35. function  fioReadNetAddr     ( pos : LongInt;
  36.                                var area : Area_Config_Record )
  37.                              : string; far;
  38. function  fioWriteNetAddr    ( name : string;
  39.                                var area : Area_Config_Record )
  40.                              : LongInt; far;
  41. {----------------------------------------------------------------------------}
  42. function  fioReadUsrAreaReg(var reg : Area_Reg; var area : Area_Config_Record;
  43.                             pos : LongInt) : Boolean; far;
  44. procedure fioWriteUsrAreaReg(var reg : Area_Reg; var area : Area_Config_Record;
  45.                              var pos : LongInt); far;
  46. {----------------------------------------------------------------------------}
  47. function  fioReadMsgHeader(var mhd : Area_Mhd; var area : Area_Config_Record;
  48.                            pos : LongInt) : Boolean; far;
  49. function  fioFindMsgNo(var mhd : Area_Mhd; var area : Area_Config_Record;
  50.                        no : LongInt) : Boolean; far;
  51. function  fioFindNextMsg(var mhd : Area_Mhd; var area : Area_Config_Record)
  52.                          : Boolean; far;
  53. function  fioFindPrevMsg(var mhd : Area_Mhd; var area : Area_Config_Record)
  54.                          : Boolean; far;
  55. procedure fioReadMsgBuf(var mhd : Area_Mhd; var area : Area_Config_Record;
  56.                         ptr : PMsgBuffer); far;
  57. procedure fioReadMsgStatus(var area : Area_Config_Record; var reg : Area_Reg;
  58.                            var usr : LocUsers; var last, newall, newyou : LongInt); far;
  59. procedure fioWriteMsgHeader(var mhd : Area_Mhd; var area : Area_Config_Record;
  60.                             var pos : LongInt); far;
  61. procedure fioUpdateMsgHeader(var mhd : Area_Mhd; var area : Area_Config_Record); far;
  62. procedure fioWriteMsg(var mhd : Area_Mhd; var area : Area_Config_Record;
  63.                       ptr : PMsgBuffer); far;
  64. {----------------------------------------------------------------------------}
  65. function  fioReadDirCfg(var cfg : Area_Directory_Record;
  66.                         var area : Area_Config_Record; pos : LongInt) : Boolean; far;
  67. function  fioFindDirNo(var cfg : Area_Directory_Record; no : LongInt;
  68.                        var area : Area_Config_Record; pos : LongInt) : Boolean; far;
  69. function  fioFindDirName(var cfg : Area_Directory_Record; name : String;
  70.                          var area : Area_Config_Record; pos : LongInt) : Boolean; far;
  71. procedure fioWriteDirCfg(var cfg : Area_Directory_Record;
  72.                          var area : Area_Config_Record; var pos : LongInt); far;
  73. {----------------------------------------------------------------------------}
  74. function  fioReadFileRec     ( var frec : TFileRec;
  75.                                var area : Area_Config_Record;
  76.                                var rpos : LongInt )
  77.                              : Boolean;
  78. procedure fioWriteFileRec    ( var frec : TFileRec;
  79.                                var area : Area_Config_Record;
  80.                                var rpos : LongInt );
  81. {----------------------------------------------------------------------------}
  82. function  fioGetNodeStatus   ( var stat : NodeStat;
  83.                                node : Word )
  84.                              : Boolean; far;
  85. {----------------------------------------------------------------------------}
  86. function  fioGetNodeMsg      ( var msg : NodeMsg )
  87.                              : Boolean; far;
  88. procedure fioSendNodeMsg     ( var msg : NodeMsg;
  89.                                node : Integer ); far;
  90. {----------------------------------------------------------------------------}
  91. function  strUpCase(S : string) : string; far;
  92. function  strNiceCase(S : string) : string; far;
  93. function  strInsertIdx(org, ins, idx : String) : String; far;
  94. {----------------------------------------------------------------------------}
  95. function  usrHaveAccess(acc : S_Access; var area : Area_Config_Record;
  96.                         var reg : Area_Reg; var usr : LocUsers) : Boolean; far;
  97. function  usrAccess2Msg(var mhd : Area_Mhd; var usr : LocUsers) : Boolean; far;
  98. function  usrMsgAddress      ( var msg : Area_Mhd;
  99.                                var area : Area_Config_Record;
  100.                                tofrom : Byte ) : string; far;
  101. {----------------------------------------------------------------------------}
  102.  
  103. implementation
  104.  
  105. function  dllVer;              external 'FOSS16' index   1;
  106. procedure dllInit;             external 'FOSS16' index   2;
  107.  
  108. function  fioReadMainCfg;      external 'FOSS16' index   3;
  109. procedure fioWriteMainCfg;     external 'FOSS16' index   4;
  110.  
  111. function  fioReadNodeCfg;      external 'FOSS16' index   5;
  112. procedure fioWriteNodeCfg;     external 'FOSS16' index   6;
  113. procedure fioDelNodeCfg;       external 'FOSS16' index   7;
  114. function  fioGetNodeCnt;       external 'FOSS16' index   8;
  115.  
  116. function  fioReadAreaCfg;      external 'FOSS16' index   9;
  117. function  fioFindAreaCode;     external 'FOSS16' index  22;
  118. function  fioFindAreaName;     external 'FOSS16' index  23;
  119. procedure fioWriteAreaCfg;     external 'FOSS16' index  10;
  120.  
  121. function  fioReadEventCfg;     external 'FOSS16' index  35;
  122. procedure fioWriteEventCfg;    external 'FOSS16' index  36;
  123. procedure fioDelEventCfg;      external 'FOSS16' index  39;
  124.  
  125. function  fioReadLocalUsr;     external 'FOSS16' index  11;
  126. function  fioFindLocalUsr;     external 'FOSS16' index  14;
  127. procedure fioWriteLocalUsr;    external 'FOSS16' index  12;
  128. function  fioGetLocalUsrCnt;   external 'FOSS16' index  13;
  129.  
  130. function  fioReadNetAddr;      external 'FOSS16' index  44;
  131. function  fioWriteNetAddr;     external 'FOSS16' index  45;
  132.  
  133. function  fioReadUsrAreaReg;   external 'FOSS16' index  15;
  134. procedure fioWriteUsrAreaReg;  external 'FOSS16' index  16;
  135.  
  136. function  fioReadMsgHeader;    external 'FOSS16' index  17;
  137. function  fioFindMsgNo;        external 'FOSS16' index  18;
  138. function  fioFindNextMsg;      external 'FOSS16' index  19;
  139. function  fioFindPrevMsg;      external 'FOSS16' index  38;
  140. procedure fioReadMsgBuf;       external 'FOSS16' index  20;
  141. procedure fioReadMsgStatus;    external 'FOSS16' index  21;
  142. procedure fioWriteMsgHeader;   external 'FOSS16' index  34;
  143. procedure fioUpdateMsgHeader;  external 'FOSS16' index  29;
  144. procedure fioWriteMsg;         external 'FOSS16' index  28;
  145.  
  146. function  fioReadDirCfg;       external 'FOSS16' index  30;
  147. function  fioFindDirNo;        external 'FOSS16' index  33;
  148. function  fioFindDirName;      external 'FOSS16' index  31;
  149. procedure fioWriteDirCfg;      external 'FOSS16' index  32;
  150.  
  151. function  fioReadFileRec;      external 'FOSS16' index  42;
  152. procedure fioWriteFileRec;     external 'FOSS16' index  47;
  153.  
  154. function  fioGetNodeStatus;    external 'FOSS16' index  43;
  155.  
  156. function  fioGetNodeMsg;       external 'FOSS16' index  40;
  157. procedure fioSendNodeMsg;      external 'FOSS16' index  41;
  158.  
  159. function  strUpCase;           external 'FOSS16' index  24;
  160. function  strNiceCase;         external 'FOSS16' index  25;
  161. function  strInsertIdx;        external 'FOSS16' index  26;
  162.  
  163. function  usrHaveAccess;       external 'FOSS16' index  27;
  164. function  usrAccess2Msg;       external 'FOSS16' index  37;
  165. function  usrMsgAddress;       external 'FOSS16' index  46;
  166.  
  167. end.