Sage-ST

Sage-ST ä
Doslib
Documentation

ChangeDirectory	CloseFile	CommitFile	CreateFile
DeleteFile	DosExec	FindClose	FindFirstFile
FindNextFile	GetCmndLine	GetCurrentDirectory	GetDate
GetDiskFreeSpace	GetExtendedError	GetFileDate	GetFileMode
GetReturnCode	GetTime	GetVersion	KbdDataAvailable
LSeek	MakeDirectory	OpenFile	PrinterStatus
ReadFile	RemoveDirectory	RenameFile	SetDate
SetFileDate	SetFileMode	SetHandleCount	SetTime
WriteFile


  PROCEDURE KbdDataAvailable
             () : BOOLEAN;


  PROCEDURE GetExtendedError
             (VAR   Error    : CARDINAL;
              VAR   ErrClass : CARDINAL;
              VAR   action   : CARDINAL;
              VAR   locus    : CARDINAL);


  PROCEDURE PrinterStatus
             (CONST port : CARDINAL) : CHAR;


  PROCEDURE GetReturnCode
             (VAR   returnType : CARDINAL;
              VAR   returnCode : CARDINAL);


  PROCEDURE GetDate
             (VAR   Year    : CARDINAL;
              VAR   Month   : CARDINAL;
              VAR   Day     : CARDINAL;
              VAR   weekDay : CARDINAL);


  PROCEDURE SetDate
             (CONST Year   : CARDINAL;
              CONST Month  : CARDINAL;
              CONST Day    : CARDINAL;
              VAR   Status : BOOLEAN);


  PROCEDURE GetTime
             (VAR   Hour       : CARDINAL;
              VAR   Minute     : CARDINAL;
              VAR   Second     : CARDINAL;
              VAR   hundredths : CARDINAL);


  PROCEDURE SetTime
             (CONST Hour       : CARDINAL;
              CONST Minute     : CARDINAL;
              CONST Second     : CARDINAL;
              CONST hundredths : CARDINAL;
              VAR   Status     : BOOLEAN);


  PROCEDURE GetCmndLine
             (VAR   line : ARRAY OF CHAR);


  PROCEDURE GetVersion
             (VAR   major : CARDINAL;
              VAR   minor : CARDINAL);



%IF OS_LINUX %THEN


  PROCEDURE GetDiskFreeSpace
             (CONST Drive       : ARRAY OF CHAR;
              VAR   TotalBlocks : CARDINAL;
              VAR   blocksAvail : CARDINAL;
              VAR   blockSize   : CARDINAL);

%ELSE


  PROCEDURE GetDiskFreeSpace
             (CONST DriveOrUNC    : ARRAY OF CHAR;
              VAR   clustersAvail : CARDINAL;
              VAR   clustPerDrv   : CARDINAL;
              VAR   bytesPerSec   : CARDINAL;
              VAR   secPerClust   : CARDINAL);

%END


  PROCEDURE MakeDirectory
             (CONST directoryName : ARRAY OF CHAR;
              VAR   returnCode    : CARDINAL);


  PROCEDURE RemoveDirectory
             (CONST directoryName : ARRAY OF CHAR;
              VAR   returnCode    : CARDINAL);


  PROCEDURE ChangeDirectory
             (CONST directoryName : ARRAY OF CHAR;
              VAR   returnCode    : CARDINAL);


  PROCEDURE CreateFile
             (CONST FileName   : ARRAY OF CHAR;
              CONST attribute  : AttrType;
              VAR   handle     : HandleType;
              VAR   returnCode : CARDINAL);


  PROCEDURE OpenFile
             (CONST FileName   : ARRAY OF CHAR;
              CONST openMode   : OpenType;
              VAR   handle     : HandleType;
              VAR   returnCode : CARDINAL);


  PROCEDURE CloseFile
             (CONST handle     : HandleType;
              VAR   returnCode : CARDINAL);


  PROCEDURE CommitFile
             (CONST handle     : HandleType;
              VAR   returnCode : CARDINAL);


  PROCEDURE ReadFile
             (CONST handle     : HandleType;
              CONST Buffer     : SYSTEM.ADDRESS;
              VAR   Count      : CARDINAL;
              VAR   returnCode : CARDINAL);


  PROCEDURE WriteFile
             (CONST handle     : HandleType;
              CONST Buffer     : SYSTEM.ADDRESS;
              VAR   Count      : CARDINAL;
              VAR   returnCode : CARDINAL);


  PROCEDURE DeleteFile
             (CONST FileName   : ARRAY OF CHAR;
              VAR   returnCode : CARDINAL);


  PROCEDURE LSeek
             (CONST handle     : HandleType;
              CONST offset     : ModSys.INT32;
              CONST Method     : CARDINAL;
              VAR   newPos     : ModSys.INT32;
              VAR   returnCode : CARDINAL);


  PROCEDURE GetFileMode
             (CONST FileName   : ARRAY OF CHAR;
              VAR   attribute  : AttrType;
              VAR   returnCode : CARDINAL);

  (*
      If in OS_LINUX not all Unix bases systems have all the attribute tags.
      If tags are set that don't exist, they will just be lost and
      when a GetFileMode is called they will not be present
  *)


  PROCEDURE SetFileMode
             (CONST FileName   : ARRAY OF CHAR;
              CONST attribute  : AttrType;
              VAR   returnCode : CARDINAL);


  PROCEDURE GetCurrentDirectory
             (VAR   Directory  : ARRAY OF CHAR;
              VAR   returnCode : CARDINAL);


  PROCEDURE FindFirstFile
             (CONST filePattern  : ARRAY OF CHAR;
              CONST searchBuffer : SYSTEM.ADDRESS;
              CONST attribute    : AttrType;
              VAR   returnCode   : CARDINAL);


  PROCEDURE FindNextFile
             (CONST searchBuffer : SYSTEM.ADDRESS;
              VAR   returnCode   : CARDINAL);


  PROCEDURE FindClose
             (CONST searchBuffer : SYSTEM.ADDRESS;
              VAR   returnCode   : CARDINAL);

  (* must use FindClose if in Linux after calling findFirst *)


  PROCEDURE RenameFile
             (CONST OldFileName : ARRAY OF CHAR;
              CONST NewFileName : ARRAY OF CHAR;
              VAR   returnCode  : CARDINAL);



%IF OS_LINUX %THEN


  PROCEDURE GetFileDate
             (CONST FileName   : ARRAY OF CHAR;
              VAR   date       : ModSys.INT32;
              VAR   time       : ModSys.INT32;
              VAR   returnCode : CARDINAL);

%ELSE


  PROCEDURE GetFileDate
             (CONST handle     : HandleType;
              VAR   date       : ModSys.INT32;
              VAR   time       : ModSys.INT32;
              VAR   returnCode : CARDINAL);

%END



%IF OS_LINUX %THEN


  PROCEDURE SetFileDate
             (CONST FileName   : ARRAY OF CHAR;
              CONST date       : ModSys.INT32;
              CONST time       : ModSys.INT32;
              VAR   returnCode : CARDINAL);

%ELSE


  PROCEDURE SetFileDate
             (CONST handle     : HandleType;
              CONST date       : ModSys.INT32;
              CONST time       : ModSys.INT32;
              VAR   returnCode : CARDINAL);

%END


  PROCEDURE SetHandleCount
             (CONST Count      : CARDINAL;
              VAR   returnCode : CARDINAL);


  PROCEDURE DosExec
             (CONST FileName   : ARRAY OF CHAR;
              CONST parms      : ARRAY OF CHAR;
              CONST function   : CARDINAL;
              VAR   returnCode : CARDINAL);