mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 20:08:12 +02:00
51 lines
2.8 KiB
PHP
51 lines
2.8 KiB
PHP
{
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 2020-2021 by Karoly Balogh
|
|
|
|
Headers to QDOS OS functions used by the Sinclair QL RTL
|
|
|
|
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.
|
|
|
|
**********************************************************************}
|
|
|
|
|
|
procedure mt_frjob(jobID: Tjobid; exitCode: longint); external name '_mt_frjob';
|
|
function mt_inf(sys_vars: PPAnsiChar; ver_ascii: plongint): Tjobid; external name '_mt_inf';
|
|
|
|
procedure mt_dmode(s_mode: pword; d_type: pword); external name '_mt_dmode';
|
|
|
|
function mt_alchp(size: dword; sizegot: pdword; jobid: Tjobid): pointer; external name '_mt_alchp';
|
|
procedure mt_rechp(area: pointer); external name '_mt_rechp';
|
|
|
|
function io_open_qlstr(name_qlstr: pointer; mode: longint): Tchanid; external name '_io_open_qlstr';
|
|
function io_open(name: PAnsiChar; mode: longint): Tchanid; external name '_io_open';
|
|
function io_close(chan: Tchanid): longint; external name '_io_close';
|
|
function io_delet(name: PAnsiChar): longint; external name '_io_delet';
|
|
|
|
function io_fbyte(chan: Tchanid; timeout: Ttimeout): longint; external name '_io_fbyte';
|
|
function io_fline(chan: Tchanid; timeout: Ttimeout; buf: pointer; len: word): longint; external name '_io_fline';
|
|
function io_fstrg(chan: Tchanid; timeout: Ttimeout; buf: pointer; len: word): longint; external name '_io_fstrg';
|
|
function io_sbyte(chan: Tchanid; timeout: Ttimeout; c: AnsiChar): longint; external name '_io_sbyte';
|
|
function io_sstrg(chan: Tchanid; timeout: Ttimeout; buf: pointer; len: word): longint; external name '_io_sstrg';
|
|
|
|
function fs_posab(chan: Tchanid; var new_pos: longint): longint; external name '_fs_posab';
|
|
function fs_posre(chan: Tchanid; var new_pos: longint): longint; external name '_fs_posre';
|
|
function fs_headr(chan: Tchanid; buf: pointer; buf_size: word): longint; external name '_fs_headr';
|
|
function fs_rename_qlstr(chan: Tchanid; new_name_as_qlstr: pointer): longint; external name '_fs_rename_qlstr';
|
|
function fs_rename(chan: Tchanid; new_name: PAnsiChar): longint; external name '_fs_rename';
|
|
function fs_truncate(chan: Tchanid): longint; external name '_fs_truncate';
|
|
function fs_mkdir(chan: Tchanid): longint; external name '_iof_mkdr'; { SMS }
|
|
|
|
function sd_wdef(chan: Tchanid; timeout: Ttimeout; border_colour: byte; border_width: word; window: PQLRect): longint; external name '_sd_wdef';
|
|
function sd_clear(chan: Tchanid; timeout: Ttimeout): longint; external name '_sd_clear';
|
|
|
|
function ut_con(params: PWindowDef): Tchanid; external name '_ut_con';
|
|
function ut_scr(params: PWindowDef): Tchanid; external name '_ut_scr';
|
|
|
|
function mt_rclck: longint; external name '_mt_rclck';
|