mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-18 07:21:37 +01:00
125 lines
5.0 KiB
PHP
125 lines
5.0 KiB
PHP
{
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 2016 by Free Pascal development team
|
|
|
|
GEMDOS related defines for Atari TOS
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************}
|
|
|
|
|
|
{ The API description of this file is based on the information available
|
|
online at: http://toshyp.atari.org }
|
|
|
|
const
|
|
E_OK = 0; // OK. No error has arisen
|
|
EINVFN = -32; // Unknown function number
|
|
EFILNF = -33; // File not found
|
|
EPTHNF = -34; // Directory (folder) not found
|
|
ENHNDL = -35; // No more handles available
|
|
EACCDN = -36; // Access denied
|
|
EIHNDL = -37; // Invalid file handle
|
|
ENSMEM = -39; // Insufficient memory
|
|
EIMBA = -40; // Invalid memory block address
|
|
EDRIVE = -46; // Invalid drive specification
|
|
ECWD = -47; // Current directory cannot be deleted
|
|
ENSAME = -48; // Files on different logical drives
|
|
ENMFIL = -49; // No more files can be opened
|
|
ELOCKED = -58; // Segment of a file is protected (network)
|
|
ENSLOCK = -59; // Invalid lock removal request
|
|
ERANGE = -64; // File pointer in invalid segment (see also FreeMiNT message -88)
|
|
EINTRN = -65; // Internal error of GEMDOS
|
|
EPLFMT = -66; // Invalid program load format
|
|
EGSBF = -67; // Allocated memory block could not be enlarged
|
|
EBREAK = -68; // Program termination by Control-C
|
|
EXCPT = -69; // 68000 exception (bombs)
|
|
EPTHOV = -70; // Path overflow
|
|
ELOOP = -80; // Endless loop with symbolic links
|
|
EPIPE = -81; // Write to broken pipe.
|
|
|
|
// as used by fseek
|
|
const
|
|
SEEK_FROM_START = 0;
|
|
SEEK_FROM_CURRENT = 1;
|
|
SEEK_FROM_END = 2;
|
|
|
|
// as used by fcreate and fattrib
|
|
const
|
|
ATTRIB_WRITE_PROT = ( 1 shl 0 );
|
|
ATTRIB_HIDDEN = ( 1 shl 1 );
|
|
ATTRIB_SYSTEM = ( 1 shl 2 );
|
|
ATTRIB_VOLUME_LABEL = ( 1 shl 3 );
|
|
ATTRIB_DIRECTORY = ( 1 shl 4 );
|
|
ATTRIB_ARCHIVE = ( 1 shl 5 );
|
|
|
|
// as used by fopen
|
|
const
|
|
OPEN_READ_ONLY = ( 1 shl 0 );
|
|
OPEN_WRITE_ONLY = ( 1 shl 1 );
|
|
OPEN_READ_WRITE = ( 1 shl 2 );
|
|
|
|
// as used by fattrib
|
|
const
|
|
FLAG_GET = 0;
|
|
FLAG_SET = 1;
|
|
|
|
type
|
|
PDTA = ^TDTA;
|
|
TDTA = packed record
|
|
d_reserved: array[0..20] of shortint; {* Reserved for GEMDOS *}
|
|
d_attrib: byte; {* File attributes *}
|
|
d_time: word; {* Time *}
|
|
d_date: word; {* Date *}
|
|
d_length: dword; {* File length *}
|
|
d_fname: array[0..13] of char; {* Filename *}
|
|
end;
|
|
|
|
type
|
|
PDISKINFO = ^TDISKINFO;
|
|
TDISKINFO = record
|
|
b_free: dword; {* Number of free clusters *}
|
|
b_total: dword; {* Total number of clusters *}
|
|
b_secsiz: dword; {* Bytes per sector *}
|
|
b_clsiz: dword; {* Sector per cluster *}
|
|
end;
|
|
|
|
|
|
function gemdos_dsetdrv(drv: smallint): longint; syscall 1 14;
|
|
|
|
function gemdos_dgetdrv: smallint; syscall 1 25;
|
|
procedure gemdos_setdta(buf: PDTA); syscall 1 26;
|
|
|
|
function gemdos_getdta: PDTA; syscall 1 47;
|
|
|
|
function gemdos_dfree(buf: PDISKINFO; driveno: smallint): smallint; syscall 1 54;
|
|
|
|
function gemdos_dcreate(const path: pchar): longint; syscall 1 57;
|
|
function gemdos_ddelete(const path: pchar): longint; syscall 1 58;
|
|
function gemdos_dsetpath(path: pchar): smallint; syscall 1 59;
|
|
|
|
function gemdos_fcreate(fname: pchar; attr: smallint): smallint; syscall 1 60;
|
|
function gemdos_fopen(fname: pchar; mode: smallint): longint; syscall 1 61;
|
|
function gemdos_fclose(handle: smallint): smallint; syscall 1 62;
|
|
function gemdos_fread(handle: smallint; count: longint; buf: pointer): longint; syscall 1 63;
|
|
function gemdos_fwrite(handle: smallint; count: longint; buf: pointer): longint; syscall 1 64;
|
|
function gemdos_fdelete(fname: pchar): smallint; syscall 1 65;
|
|
function gemdos_fseek(offset: longint; handle: smallint; seekmode: smallint): longint; syscall 1 66;
|
|
function gemdos_fattrib(filename: pchar; wflag: smallint; attrib: smallint): smallint; syscall 1 67;
|
|
|
|
function gemdos_dgetpath(path: pchar; driveno: smallint): smallint; syscall 1 71;
|
|
function gemdos_malloc(number: dword): pointer; syscall 1 72;
|
|
function gemdos_free(block: pointer): dword; syscall 1 73;
|
|
|
|
procedure gemdos_pterm(returncode: smallint); syscall 1 76;
|
|
|
|
function gemdos_fsfirst(filename: pchar; attr: smallint): longint; syscall 1 78;
|
|
function gemdos_fsnext: smallint; syscall 1 79;
|
|
|
|
function gemdos_frename(oldname: pchar; newname: pchar): longint; syscall 1 86;
|