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