home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / OS2 / MODEM / FOSS1B7 / API / APIINT.PAS next >
Pascal/Delphi Source File  |  1995-03-12  |  7KB  |  128 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 = FOSS/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) : LongInt; far;
  22. procedure fioWriteAreaCfg(var cfg : Area_Config_Record; var pos : LongInt); far;
  23. {----------------------------------------------------------------------------}
  24. function  fioReadEventCfg(var cfg : Event_Cfg_Record; pos : LongInt) : Boolean; far;
  25. procedure fioWriteEventCfg(var cfg : Event_Cfg_Record; var pos : LongInt); far;
  26. procedure fioDelEventCfg(pos : LongInt); far;
  27. {----------------------------------------------------------------------------}
  28. function  fioReadLocalUsr(var usr : LocUsers; pos : LongInt) : Boolean; far;
  29. function  fioFindLocalUsr(var usr : LocUsers; name : String; var pos : LongInt)
  30.                           : Boolean; far;
  31. {----------------------------------------------------------------------------}
  32. procedure fioWriteLocalUsr(var usr : LocUsers; var pos : LongInt); far;
  33. function  fioGetLocalUsrCnt : LongInt; far;
  34. {----------------------------------------------------------------------------}
  35. function  fioReadUsrAreaReg(var reg : Area_Reg; var area : Area_Config_Record;
  36.                             pos : LongInt) : Boolean; far;
  37. procedure fioWriteUsrAreaReg(var reg : Area_Reg; var area : Area_Config_Record;
  38.                              var pos : LongInt); far;
  39. {----------------------------------------------------------------------------}
  40. function  fioReadMsgHeader(var mhd : Area_Mhd; var area : Area_Config_Record;
  41.                            pos : LongInt) : Boolean; far;
  42. function  fioFindMsgNo(var mhd : Area_Mhd; var area : Area_Config_Record;
  43.                        no : LongInt) : Boolean; far;
  44. function  fioFindNextMsg(var mhd : Area_Mhd; var area : Area_Config_Record)
  45.                          : Boolean; far;
  46. function  fioFindPrevMsg(var mhd : Area_Mhd; var area : Area_Config_Record)
  47.                          : Boolean; far;
  48. procedure fioReadMsgBuf(var mhd : Area_Mhd; var area : Area_Config_Record;
  49.                         ptr : P_MsgBuffer); far;
  50. procedure fioReadMsgStatus(var area : Area_Config_Record; var reg : Area_Reg;
  51.                            usrpos : LongInt; var last, newall, newyou : LongInt); far;
  52. procedure fioWriteMsgHeader(var mhd : Area_Mhd; var area : Area_Config_Record;
  53.                             var pos : LongInt); far;
  54. procedure fioUpdateMsgHeader(var mhd : Area_Mhd; var area : Area_Config_Record); far;
  55. procedure fioWriteMsg(var mhd : Area_Mhd; var area : Area_Config_Record;
  56.                       ptr : P_MsgBuffer); far;
  57. {----------------------------------------------------------------------------}
  58. function  fioReadDirCfg(var cfg : Area_Directory_Record;
  59.                         var area : Area_Config_Record; pos : LongInt) : Boolean; far;
  60. function  fioFindDirNo(var cfg : Area_Directory_Record; no : LongInt;
  61.                        var area : Area_Config_Record; pos : LongInt) : Boolean; far;
  62. function  fioFindDirName(var cfg : Area_Directory_Record; name : String;
  63.                          var area : Area_Config_Record; pos : LongInt) : Boolean; far;
  64. procedure fioWriteDirCfg(var cfg : Area_Directory_Record;
  65.                          var area : Area_Config_Record; var pos : LongInt); far;
  66. {----------------------------------------------------------------------------}
  67. function  strUpCase(S : string) : string; far;
  68. function  strNiceCase(S : string) : string; far;
  69. function  strInsertIdx(org, ins, idx : String) : String; far;
  70. {----------------------------------------------------------------------------}
  71. function  usrHaveAccess(acc : S_Access; var area : Area_Config_Record;
  72.                         var reg : Area_Reg; var usr : LocUsers) : Boolean; far;
  73. function  usrAccess2Msg(var mhd : Area_Mhd; var usr : LocUsers) : Boolean; far;
  74. {----------------------------------------------------------------------------}
  75.  
  76. implementation
  77.  
  78. function  apiVersion;          external 'FOSS16' index   1;
  79. procedure apiInitDLL;          external 'FOSS16' index   2;
  80.  
  81. function  fioReadMainCfg;      external 'FOSS16' index   3;
  82. procedure fioWriteMainCfg;     external 'FOSS16' index   4;
  83.  
  84. function  fioReadNodeCfg;      external 'FOSS16' index   5;
  85. procedure fioWriteNodeCfg;     external 'FOSS16' index   6;
  86. procedure fioDelNodeCfg;       external 'FOSS16' index   7;
  87. function  fioGetNodeCnt;       external 'FOSS16' index   8;
  88.  
  89. function  fioReadAreaCfg;      external 'FOSS16' index   9;
  90. function  fioFindAreaCode;     external 'FOSS16' index  22;
  91. function  fioFindAreaName;     external 'FOSS16' index  23;
  92. procedure fioWriteAreaCfg;     external 'FOSS16' index  10;
  93.  
  94. function  fioReadEventCfg;     external 'FOSS16' index  35;
  95. procedure fioWriteEventCfg;    external 'FOSS16' index  36;
  96. procedure fioDelEventCfg;      external 'FOSS16' index  39;
  97.  
  98. function  fioReadLocalUsr;     external 'FOSS16' index  11;
  99. function  fioFindLocalUsr;     external 'FOSS16' index  14;
  100. procedure fioWriteLocalUsr;    external 'FOSS16' index  12;
  101. function  fioGetLocalUsrCnt;   external 'FOSS16' index  13;
  102.  
  103. function  fioReadUsrAreaReg;   external 'FOSS16' index  15;
  104. procedure fioWriteUsrAreaReg;  external 'FOSS16' index  16;
  105.  
  106. function  fioReadMsgHeader;    external 'FOSS16' index  17;
  107. function  fioFindMsgNo;        external 'FOSS16' index  18;
  108. function  fioFindNextMsg;      external 'FOSS16' index  19;
  109. function  fioFindPrevMsg;      external 'FOSS16' index  38;
  110. procedure fioReadMsgBuf;       external 'FOSS16' index  20;
  111. procedure fioReadMsgStatus;    external 'FOSS16' index  21;
  112. procedure fioWriteMsgHeader;   external 'FOSS16' index  34;
  113. procedure fioUpdateMsgHeader;  external 'FOSS16' index  29;
  114. procedure fioWriteMsg;         external 'FOSS16' index  28;
  115.  
  116. function  fioReadDirCfg;       external 'FOSS16' index  30;
  117. function  fioFindDirNo;        external 'FOSS16' index  33;
  118. function  fioFindDirName;      external 'FOSS16' index  31;
  119. procedure fioWriteDirCfg;      external 'FOSS16' index  32;
  120.  
  121. function  strUpCase;           external 'FOSS16' index  24;
  122. function  strNiceCase;         external 'FOSS16' index  25;
  123. function  strInsertIdx;        external 'FOSS16' index  26;
  124.  
  125. function  usrHaveAccess;       external 'FOSS16' index  27;
  126. function  usrAccess2Msg;       external 'FOSS16' index  37;
  127.  
  128. end.