FOSS Documentation - Pascal unit for the FOSS-API
unit ApiInt;
interface
uses
types;
{----------------------------------------------------------------------------}
function dllVer : string; far;
procedure dllInit ( path : string;
node : Byte ); far; { path = FOSS/2-root path }
{----------------------------------------------------------------------------}
function fioReadMainCfg ( var cfg : SysCfgT )
: Boolean; far;
procedure fioWriteMainCfg ( var cfg : SysCfgT ); far;
{----------------------------------------------------------------------------}
function fioReadNodeCfg ( var cfg : ModCfgT;
pos : LongInt )
: Boolean; far;
procedure fioWriteNodeCfg ( var cfg : ModCfgT;
var pos : LongInt); far;
procedure fioDelNodeCfg; far;
function fioGetNodeCnt : LongInt; far;
{----------------------------------------------------------------------------}
function fioReadAreaCfg ( var cfg : Area_Config_Record;
pos : LongInt ) : Boolean; far;
function fioFindAreaCode ( var cfg : Area_Config_Record;
code : string;
pos : LongInt )
: Boolean; far;
function fioFindAreaName ( var cfg : Area_Config_Record;
name : string;
pos : LongInt ) : LongInt; far;
procedure fioWriteAreaCfg ( var cfg : Area_Config_Record;
pos : LongInt ); far;
{----------------------------------------------------------------------------}
function fioReadEventCfg ( var cfg : Event_Cfg_Record;
pos : LongInt )
: Boolean; far;
procedure fioWriteEventCfg ( var cfg : Event_Cfg_Record;
var pos : LongInt ); far;
procedure fioDelEventCfg ( pos : LongInt ); far;
{----------------------------------------------------------------------------}
function fioReadLocalUsr ( var usr : LocUsers;
pos : LongInt )
: Boolean; far;
function fioFindLocalUsr ( var usr : LocUsers;
name : string;
var pos : LongInt )
: Boolean; far;
procedure fioWriteLocalUsr ( var usr : LocUsers;
var pos : LongInt ); far;
function fioGetLocalUsrCnt : LongInt; far;
function fioReadNetAddr ( pos : LongInt;
var area : Area_Config_Record )
: string; far;
function fioWriteNetAddr ( name : string;
var area : Area_Config_Record )
: LongInt; far;
{----------------------------------------------------------------------------}
function fioReadUsrAreaReg ( var reg : Area_Reg;
var area : Area_Config_Record;
pos : LongInt )
: Boolean; far;
procedure fioWriteUsrAreaReg ( var reg : Area_Reg;
var area : Area_Config_Record;
var pos : LongInt ); far;
{----------------------------------------------------------------------------}
function fioReadMsgHeader ( var mhd : Area_Mhd;
var area : Area_Config_Record;
pos : LongInt )
: Boolean; far;
function fioFindMsgNo ( var mhd : Area_Mhd;
var area : Area_Config_Record;
no : LongInt )
: Boolean; far;
function fioFindNextMsg ( var mhd : Area_Mhd;
var area : Area_Config_Record )
: Boolean; far;
function fioFindPrevMsg ( var mhd : Area_Mhd;
var area : Area_Config_Record )
: Boolean; far;
procedure fioReadMsgBuf ( var mhd : Area_Mhd;
var area : Area_Config_Record;
ptr : PMsgBuffer ); far;
procedure fioReadMsgStatus ( var area : Area_Config_Record;
var reg : Area_Reg;
var usr : LocUsers;
var last,
newall,
newyou : LongInt ); far;
procedure fioWriteMsgHeader ( var mhd : Area_Mhd;
var area : Area_Config_Record;
var pos : LongInt ); far;
procedure fioUpdateMsgHeader ( var mhd : Area_Mhd;
var area : Area_Config_Record ); far;
procedure fioWriteMsg ( var mhd : Area_Mhd;
var area : Area_Config_Record;
ptr : PMsgBuffer ); far;
{----------------------------------------------------------------------------}
function fioReadDirCfg ( var cfg : Area_Directory_Record;
var area : Area_Config_Record;
pos : LongInt )
: Boolean; far;
function fioFindDirNo ( var cfg : Area_Directory_Record;
no : LongInt;
var area : Area_Config_Record;
pos : LongInt )
: Boolean; far;
function fioFindDirName ( var cfg : Area_Directory_Record;
name : string;
var area : Area_Config_Record;
pos : LongInt )
: Boolean; far;
procedure fioWriteDirCfg ( var cfg : Area_Directory_Record;
var area : Area_Config_Record;
var pos : LongInt); far;
{----------------------------------------------------------------------------}
function fioReadFileRec ( var frec : TFileRec;
var area : Area_Config_Record;
var rpos : LongInt )
: Boolean;
procedure fioWriteFileRec ( var frec : TFileRec;
var area : Area_Config_Record;
var rpos : LongInt );
{----------------------------------------------------------------------------}
function fioGetNodeStatus ( var stat : NodeStat;
node : Word )
: Boolean; far;
{----------------------------------------------------------------------------}
function fioGetNodeMsg ( var msg : NodeMsg )
: Boolean; far;
procedure fioSendNodeMsg ( var msg : NodeMsg;
node : Integer ); far;
{----------------------------------------------------------------------------}
function strUpCase ( S : string )
: string; far;
function strNiceCase ( S : string )
: string; far;
function strInsertIdx ( org,
ins,
idx : string )
: string; far;
{----------------------------------------------------------------------------}
function usrHaveAccess ( acc : SAccess;
var area : Area_Config_Record;
var reg : Area_Reg;
var usr : LocUsers )
: Boolean; far;
function usrAccess2Msg ( var mhd : Area_Mhd;
var usr : LocUsers )
: Boolean; far;
function usrMsgAddress ( var msg : Area_Mhd;
var area : Area_Config_Record;
tofrom : Byte )
: string; far;
{----------------------------------------------------------------------------}
implementation
function dllVer; external 'FOSS16' index 1;
procedure dllInit; external 'FOSS16' index 2;
function fioReadMainCfg; external 'FOSS16' index 3;
procedure fioWriteMainCfg; external 'FOSS16' index 4;
function fioReadNodeCfg; external 'FOSS16' index 5;
procedure fioWriteNodeCfg; external 'FOSS16' index 6;
procedure fioDelNodeCfg; external 'FOSS16' index 7;
function fioGetNodeCnt; external 'FOSS16' index 8;
function fioReadAreaCfg; external 'FOSS16' index 9;
function fioFindAreaCode; external 'FOSS16' index 22;
function fioFindAreaName; external 'FOSS16' index 23;
procedure fioWriteAreaCfg; external 'FOSS16' index 10;
function fioReadEventCfg; external 'FOSS16' index 35;
procedure fioWriteEventCfg; external 'FOSS16' index 36;
procedure fioDelEventCfg; external 'FOSS16' index 39;
function fioReadLocalUsr; external 'FOSS16' index 11;
function fioFindLocalUsr; external 'FOSS16' index 14;
procedure fioWriteLocalUsr; external 'FOSS16' index 12;
function fioGetLocalUsrCnt; external 'FOSS16' index 13;
function fioReadNetAddr; external 'FOSS16' index 44;
function fioWriteNetAddr; external 'FOSS16' index 45;
function fioReadUsrAreaReg; external 'FOSS16' index 15;
procedure fioWriteUsrAreaReg; external 'FOSS16' index 16;
function fioReadMsgHeader; external 'FOSS16' index 17;
function fioFindMsgNo; external 'FOSS16' index 18;
function fioFindNextMsg; external 'FOSS16' index 19;
function fioFindPrevMsg; external 'FOSS16' index 38;
procedure fioReadMsgBuf; external 'FOSS16' index 20;
procedure fioReadMsgStatus; external 'FOSS16' index 21;
procedure fioWriteMsgHeader; external 'FOSS16' index 34;
procedure fioUpdateMsgHeader; external 'FOSS16' index 29;
procedure fioWriteMsg; external 'FOSS16' index 28;
function fioReadDirCfg; external 'FOSS16' index 30;
function fioFindDirNo; external 'FOSS16' index 33;
function fioFindDirName; external 'FOSS16' index 31;
procedure fioWriteDirCfg; external 'FOSS16' index 32;
function fioReadFileRec; external 'FOSS16' index 42;
procedure fioWriteFileRec; external 'FOSS16' index 47;
function fioGetNodeStatus; external 'FOSS16' index 43;
function fioGetNodeMsg; external 'FOSS16' index 40;
procedure fioSendNodeMsg; external 'FOSS16' index 41;
function strUpCase; external 'FOSS16' index 24;
function strNiceCase; external 'FOSS16' index 25;
function strInsertIdx; external 'FOSS16' index 26;
function usrHaveAccess; external 'FOSS16' index 27;
function usrAccess2Msg; external 'FOSS16' index 37;
function usrMsgAddress; external 'FOSS16' index 46;
end.
These pages are Copyright © 1995-96 by Terje Flaarønning
This page is last updated at 24th March 1999