mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 22:11:12 +01:00
3475 lines
104 KiB
ObjectPascal
3475 lines
104 KiB
ObjectPascal
{
|
||
This file is part of the Free Pascal run time library.
|
||
(c) 2000-2003 by Marco van de Voort
|
||
member of the Free Pascal development team.
|
||
|
||
See the file COPYING.FPC, included in this distribution,
|
||
for details about the copyright.
|
||
|
||
Header conversions (with FpIoctl macro expansion) for FreeBSD 4.2's
|
||
sys/fbio.h sys/consio.h sys/kbdio.h (together these three form
|
||
machine/console.h) and
|
||
machine/mouse.h
|
||
|
||
Converted to use in a future FreeBSD API to get the IDE running on
|
||
the physical console with mousesupport.
|
||
|
||
As soon as cross unit inlining is ready, all functions should be made
|
||
inline. (so the FpIoctl and the other very small macro's)
|
||
|
||
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.
|
||
}
|
||
|
||
UNIT Console;
|
||
|
||
{$packrecords C}
|
||
|
||
interface
|
||
|
||
{I tried to keep original types as much as possible, only "int" is converted
|
||
to longint because INT is a standard function in TP/FPC}
|
||
|
||
TYPE
|
||
uchar = char;
|
||
uint = dword;
|
||
u_int = uint;
|
||
ushort= word;
|
||
short = integer;
|
||
long = dword; {?}
|
||
size_t= longint; {Dunno sure, but it is 32-bit}
|
||
caddr_t= longint; {idem}
|
||
vm_offset_t=dword; {idem}
|
||
|
||
{----------------------------- sys/fbio.h ----------------------------------}
|
||
|
||
{
|
||
* Copyright (c) 1992, 1993
|
||
* The Regents of the University of California. All rights reserved.
|
||
*
|
||
* This code is derived from software developed by the Computer Systems
|
||
* Engineering group at Lawrence Berkeley Laboratory under DARPA
|
||
* contract BG 91-66 and contributed to Berkeley.
|
||
*
|
||
* Redistribution and use in source and binary forms, with or without
|
||
* modification, are permitted provided that the following conditions
|
||
* are met:
|
||
* 1. Redistributions of source code must retain the above copyright
|
||
* notice, this list of conditions and the following disclaimer.
|
||
* 2. Redistributions in binary form must reproduce the above copyright
|
||
* notice, this list of conditions and the following disclaimer in the
|
||
* documentation and/or other materials provided with the distribution.
|
||
* 3. All advertising materials mentioning features or use of this software
|
||
* must display the following acknowledgement:
|
||
* This product includes software developed by the University of
|
||
* California, Berkeley and its contributors.
|
||
* 4. Neither the name of the University nor the names of its contributors
|
||
* may be used to endorse or promote products derived from this software
|
||
* without specific prior written permission.
|
||
*
|
||
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
|
||
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
||
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
||
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
|
||
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
||
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
||
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
||
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
||
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
||
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
||
* SUCH DAMAGE.
|
||
*
|
||
* @(#)fbio.h 8.2 (Berkeley) 10/30/93
|
||
*
|
||
* $FreeBSD: src/sys/sys/fbio.h,v 1.9.2.1 2000/05/05 09:16:16 nyan Exp $
|
||
}
|
||
|
||
{
|
||
* Frame buffer FpIoctls (from Sprite, trimmed to essentials for X11).
|
||
}
|
||
|
||
{
|
||
* Frame buffer type codes.
|
||
}
|
||
|
||
CONST
|
||
|
||
FBTYPE_SUN1BW =0; { multibus mono }
|
||
FBTYPE_SUN1COLOR =1; { multibus color }
|
||
FBTYPE_SUN2BW =2; { memory mono }
|
||
FBTYPE_SUN2COLOR =3; { color w/rasterop chips }
|
||
FBTYPE_SUN2GP =4; { GP1/GP2 }
|
||
FBTYPE_SUN5COLOR =5; { RoadRunner accelerator }
|
||
FBTYPE_SUN3COLOR =6; { memory color }
|
||
FBTYPE_MEMCOLOR =7; { memory 24-bit }
|
||
FBTYPE_SUN4COLOR =8; { memory color w/overlay }
|
||
|
||
FBTYPE_NOTSUN1 =9; { reserved for customer }
|
||
FBTYPE_NOTSUN2 =10; { reserved for customer }
|
||
FBTYPE_NOTSUN3 =11; { reserved for customer }
|
||
|
||
FBTYPE_SUNFAST_COLOR =12; { accelerated 8bit }
|
||
FBTYPE_SUNROP_COLOR =13; { MEMCOLOR with rop h/w }
|
||
FBTYPE_SUNFB_VIDEO =14; { Simple video mixing }
|
||
FBTYPE_RESERVED5 =15; { reserved, do not use }
|
||
FBTYPE_RESERVED4 =16; { reserved, do not use }
|
||
FBTYPE_RESERVED3 =17; { reserved, do not use }
|
||
FBTYPE_RESERVED2 =18; { reserved, do not use }
|
||
FBTYPE_RESERVED1 =19; { reserved, do not use }
|
||
|
||
FBTYPE_MDA =20;
|
||
FBTYPE_HERCULES =21;
|
||
FBTYPE_CGA =22;
|
||
FBTYPE_EGA =23;
|
||
FBTYPE_VGA =24;
|
||
FBTYPE_PC98 =25;
|
||
FBTYPE_TGA =26;
|
||
|
||
FBTYPE_LASTPLUSONE =27; { max number of fbs (change as add) }
|
||
|
||
{
|
||
* Frame buffer descriptor as returned by FBIOGTYPE.
|
||
}
|
||
|
||
type fbtype = record
|
||
fb_type : longint; { as defined above }
|
||
fb_height : longint; { in pixels }
|
||
fb_width : longint; { in pixels }
|
||
fb_depth : longint; { bits per pixel }
|
||
fb_cmsize : longint; { size of color map (entries) }
|
||
fb_size : longint; { total size in bytes }
|
||
end;
|
||
|
||
Function FBIOGTYPE(fd:longint;var param1 : fbtype):boolean;
|
||
|
||
{
|
||
* General purpose structure for passing info in and out of frame buffers
|
||
* (used for gp1) -- unsupported.
|
||
}
|
||
type fbinfo = record
|
||
fb_physaddr : longint; { physical frame buffer address }
|
||
fb_hwwidth : longint; { fb board width }
|
||
fb_hwheight : longint; { fb board height }
|
||
fb_addrdelta : longint; { phys addr diff between boards }
|
||
fb_ropaddr : ^uchar; { fb virtual addr }
|
||
fb_unit : longint; { minor devnum of fb }
|
||
end;
|
||
|
||
Function FBIOGINFO(fd:longint;var param1 : fbinfo):boolean;
|
||
|
||
type
|
||
{
|
||
* Color map I/O.
|
||
}
|
||
fbcmap = record
|
||
index : longint; { first element (0 origin) }
|
||
count : longint; { number of elements }
|
||
red : ^uchar; { red color map elements }
|
||
green : ^uchar; { green color map elements }
|
||
blue : ^uchar; { blue color map elements }
|
||
end;
|
||
|
||
Function FBIOPUTCMAP(fd:longint;var param1 : fbcmap):boolean;
|
||
Function FBIOGETCMAP(fd:longint;var param1 : fbcmap):boolean;
|
||
|
||
{
|
||
* Set/get attributes.
|
||
}
|
||
const
|
||
FB_ATTR_NDEVSPECIFIC =8; { no. of device specific values }
|
||
FB_ATTR_NEMUTYPES =4; { no. of emulation types }
|
||
|
||
type fbsattr = record
|
||
flags:longint; { flags; see below }
|
||
emu_type : longint; { emulation type (-1 if unused) }
|
||
dev_specific : array[0..FB_ATTR_NDEVSPECIFIC-1] of longint; { catchall }
|
||
end;
|
||
const
|
||
FB_ATTR_AUTOINIT =1; { emulation auto init flag }
|
||
FB_ATTR_DEVSPECIFIC =2; { dev. specific stuff valid flag }
|
||
|
||
type fbgattr = record
|
||
real_type : longint; { real device type }
|
||
owner : longint; { PID of owner, 0 if myself }
|
||
_fbtype : fbtype; { fbtype info for real device }
|
||
sattr : fbsattr; { see above }
|
||
emu_types : array [0..FB_ATTR_NEMUTYPES-1] OF Longint; { possible emulations }
|
||
{ (-1 if unused) }
|
||
end;
|
||
|
||
{ FBIOSATTR _IOW('F', 5, struct fbsattr) -- unsupported }
|
||
|
||
Function FBIOGATTR(fd:longint;var param1 : fbgattr):boolean;
|
||
|
||
{
|
||
* Video control.
|
||
}
|
||
|
||
const
|
||
FBVIDEO_OFF =0;
|
||
FBVIDEO_ON =1;
|
||
|
||
Function FBIOSVIDEO(fd:longint;var param1 : longint):boolean;
|
||
Function FBIOGVIDEO(fd:longint;var param1 : longint):boolean;
|
||
|
||
{
|
||
* Hardware cursor control (for, e.g., CG6). A rather complex and icky
|
||
* interface that smells like VMS, but there it is....
|
||
}
|
||
type fbcurpos = record
|
||
x : short;
|
||
y : short;
|
||
end;
|
||
|
||
|
||
|
||
fbcursor = record
|
||
_set : short; { flags; see below }
|
||
enable : short; { nonzero => cursor on, 0 => cursor off }
|
||
_pos : fbcurpos; { position on display }
|
||
hot : fbcurpos; { hot-spot within cursor }
|
||
cmap : fbcmap; { cursor color map }
|
||
_size : fbcurpos; { number of valid bits in image & mask }
|
||
image : caddr_t; { cursor image bits }
|
||
mask : caddr_t; { cursor mask bits }
|
||
end;
|
||
|
||
const
|
||
FB_CUR_SETCUR =$01; { set on/off (i.e., obey fbcursor.enable) }
|
||
FB_CUR_SETPOS =$02; { set position }
|
||
FB_CUR_SETHOT =$04; { set hot-spot }
|
||
FB_CUR_SETCMAP =$08; { set cursor color map }
|
||
FB_CUR_SETSHAPE =$10; { set size & bits }
|
||
FB_CUR_SETALL =(FB_CUR_SETCUR OR FB_CUR_SETPOS OR FB_CUR_SETHOT OR
|
||
FB_CUR_SETCMAP OR FB_CUR_SETSHAPE);
|
||
|
||
{ controls for cursor attributes & shape (including position) }
|
||
Function FBIOSCURSOR(fd:longint;var param1 : fbcursor):boolean;
|
||
Function FBIOGCURSOR(fd:longint;var param1 : fbcursor):boolean;
|
||
|
||
{ controls for cursor position only }
|
||
Function FBIOSCURPOS(fd:longint;var param1 : fbcurpos):boolean;
|
||
Function FBIOGCURPOS(fd:longint;var param1 : fbcurpos):boolean;
|
||
|
||
{ get maximum cursor size }
|
||
Function FBIOGCURMAX(fd:longint;var param1 : fbcurpos):boolean;
|
||
|
||
{ The new style frame buffer FpIoctls. }
|
||
|
||
CONST
|
||
V_INFO_COLOR =(1 SHL 0);
|
||
V_INFO_GRAPHICS =(1 SHL 1);
|
||
V_INFO_LINEAR =(1 SHL 2);
|
||
V_INFO_VESA =(1 SHL 3);
|
||
V_INFO_MM_OTHER =(-1);
|
||
V_INFO_MM_TEXT =0;
|
||
V_INFO_MM_PLANAR =1;
|
||
V_INFO_MM_PACKED =2;
|
||
V_INFO_MM_DIRECT =3;
|
||
V_INFO_MM_CGA =100;
|
||
V_INFO_MM_HGC =101;
|
||
V_INFO_MM_VGAX =102;
|
||
|
||
TYPE
|
||
{ video mode information block }
|
||
video_info = record
|
||
vi_mode : longint; { mode number, see below }
|
||
vi_flags : longint;
|
||
vi_width : longint;
|
||
vi_height : longint;
|
||
vi_cwidth : longint;
|
||
vi_cheight : longint;
|
||
vi_depth : longint;
|
||
vi_planes : longint;
|
||
vi_window : uint; { physical address }
|
||
vi_window_size : size_t;
|
||
vi_window_gran : size_t;
|
||
vi_buffer : uint; { physical address }
|
||
vi_buffer_size : size_t;
|
||
vi_mem_model : longint;
|
||
{ for MM_PACKED and MM_DIRECT only }
|
||
vi_pixel_size : longint; { in bytes }
|
||
{ for MM_DIRECT only }
|
||
vi_pixel_fields : array[0..3] of longint; { RGB and reserved fields }
|
||
vi_pixel_fsizes : array[0..3] of longint;
|
||
{ reserved }
|
||
vi_reserved : array[0..63] of uchar;
|
||
end;
|
||
|
||
video_info_t = video_info;
|
||
const
|
||
KD_OTHER =0; { unknown }
|
||
KD_MONO =1; { monochrome adapter }
|
||
KD_HERCULES =2; { hercules adapter }
|
||
KD_CGA =3; { color graphics adapter }
|
||
KD_EGA =4; { enhanced graphics adapter }
|
||
KD_VGA =5; { video graphics adapter }
|
||
KD_PC98 =6; { PC-98 display }
|
||
KD_TGA =7; { TGA }
|
||
V_ADP_COLOR =(1 SHL 0);
|
||
V_ADP_MODECHANGE=(1 SHL 1);
|
||
V_ADP_STATESAVE =(1 SHL 2);
|
||
V_ADP_STATELOAD =(1 SHL 3);
|
||
V_ADP_FONT =(1 SHL 4);
|
||
V_ADP_PALETTE =(1 SHL 5);
|
||
V_ADP_BORDER =(1 SHL 6);
|
||
V_ADP_VESA =(1 SHL 7);
|
||
V_ADP_PROBED =(1 SHL 16);
|
||
V_ADP_INITIALIZED=(1 SHL 17);
|
||
V_ADP_REGISTERED =(1 SHL 18);
|
||
|
||
{ adapter infromation block }
|
||
type video_adapter = record
|
||
va_index : longint;
|
||
va_type : longint;
|
||
va_name : pchar;
|
||
va_unit : longint;
|
||
va_minor : longint;
|
||
va_flags : longint;
|
||
va_io_base : longint;
|
||
va_io_size : longint;
|
||
va_crtc_addr : longint;
|
||
va_mem_base : longint;
|
||
va_mem_size : longint;
|
||
va_window : vm_offset_t; { virtual address }
|
||
va_window_size : size_t;
|
||
va_window_gran : size_t;
|
||
va_window_orig : uint;
|
||
va_buffer : vm_offset_t; { virtual address }
|
||
va_buffer_size : size_t;
|
||
va_initial_mode : longint;
|
||
va_initial_bios_mode : longint;
|
||
va_mode : longint;
|
||
va_info : video_info;
|
||
va_line_width : longint;
|
||
va_disp_start : record
|
||
x : longint;
|
||
y : longint;
|
||
end;
|
||
va_token : pointer;
|
||
end;
|
||
|
||
video_adapter_t = video_adapter;
|
||
|
||
video_adapter_info = record
|
||
va_index : longint;
|
||
va_type : longint;
|
||
va_name : array[0..15] of char;
|
||
va_unit : longint;
|
||
va_flags : longint;
|
||
va_io_base : longint;
|
||
va_io_size : longint;
|
||
va_crtc_addr : longint;
|
||
va_mem_base : longint;
|
||
va_mem_size : longint;
|
||
va_window : uint; { virtual address }
|
||
va_window_size : size_t;
|
||
va_window_gran : size_t;
|
||
va_unused0 : uint;
|
||
va_buffer_size : size_t;
|
||
va_initial_mode : longint;
|
||
va_initial_bios_mode : longint;
|
||
va_mode : longint;
|
||
va_line_width : longint;
|
||
va_disp_start : record
|
||
x : longint;
|
||
y : longint;
|
||
end;
|
||
va_window_orig : uint;
|
||
{ reserved }
|
||
va_reserved : array[0..63] OF uchar;
|
||
end;
|
||
video_adapter_info_t = video_adapter_info;
|
||
|
||
CONST
|
||
{ some useful video adapter index }
|
||
V_ADP_PRIMARY =0;
|
||
V_ADP_SECONDARY =1;
|
||
|
||
{ video mode numbers }
|
||
|
||
M_B40x25 =0; { black & white 40 columns }
|
||
M_C40x25 =1; { color 40 columns }
|
||
M_B80x25 =2; { black & white 80 columns }
|
||
M_C80x25 =3; { color 80 columns }
|
||
M_BG320 =4; { black & white graphics 320x200 }
|
||
M_CG320 =5; { color graphics 320x200 }
|
||
M_BG640 =6; { black & white graphics 640x200 hi-res }
|
||
M_EGAMONO80x25 =7; { ega-mono 80x25 }
|
||
M_CG320_D =13; { ega mode D }
|
||
M_CG640_E =14; { ega mode E }
|
||
M_EGAMONOAPA =15; { ega mode F }
|
||
M_CG640x350 =16; { ega mode 10 }
|
||
M_ENHMONOAPA2 =17; { ega mode F with extended memory }
|
||
M_ENH_CG640 =18; { ega mode 10* }
|
||
M_ENH_B40x25 =19; { ega enhanced black & white 40 columns }
|
||
M_ENH_C40x25 =20; { ega enhanced color 40 columns }
|
||
M_ENH_B80x25 =21; { ega enhanced black & white 80 columns }
|
||
M_ENH_C80x25 =22; { ega enhanced color 80 columns }
|
||
M_VGA_C40x25 =23; { vga 8x16 font on color }
|
||
M_VGA_C80x25 =24; { vga 8x16 font on color }
|
||
M_VGA_M80x25 =25; { vga 8x16 font on mono }
|
||
|
||
M_VGA11 =26; { vga 640x480 2 colors }
|
||
M_BG640x480 =26;
|
||
M_VGA12 =27; { vga 640x480 16 colors }
|
||
M_CG640x480 =27;
|
||
M_VGA13 =28; { vga 320x200 256 colors }
|
||
M_VGA_CG320 =28;
|
||
|
||
M_VGA_C80x50 =30; { vga 8x8 font on color }
|
||
M_VGA_M80x50 =31; { vga 8x8 font on color }
|
||
M_VGA_C80x30 =32; { vga 8x16 font on color }
|
||
M_VGA_M80x30 =33; { vga 8x16 font on color }
|
||
M_VGA_C80x60 =34; { vga 8x8 font on color }
|
||
M_VGA_M80x60 =35; { vga 8x8 font on color }
|
||
M_VGA_CG640 =36; { vga 640x400 256 color }
|
||
M_VGA_MODEX =37; { vga 320x240 256 color }
|
||
|
||
M_VGA_C90x25 =40; { vga 8x16 font on color }
|
||
M_VGA_M90x25 =41; { vga 8x16 font on mono }
|
||
M_VGA_C90x30 =42; { vga 8x16 font on color }
|
||
M_VGA_M90x30 =43; { vga 8x16 font on mono }
|
||
M_VGA_C90x43 =44; { vga 8x8 font on color }
|
||
M_VGA_M90x43 =45; { vga 8x8 font on mono }
|
||
M_VGA_C90x50 =46; { vga 8x8 font on color }
|
||
M_VGA_M90x50 =47; { vga 8x8 font on mono }
|
||
M_VGA_C90x60 =48; { vga 8x8 font on color }
|
||
M_VGA_M90x60 =49; { vga 8x8 font on mono }
|
||
|
||
M_ENH_B80x43 =$70; { ega black & white 80x43 }
|
||
M_ENH_C80x43 =$71; { ega color 80x43 }
|
||
|
||
M_PC98_80x25 =98; { PC98 text 80x25 }
|
||
M_PC98_80x30 =99; { PC98 text 80x30 }
|
||
M_PC98_EGC640x400 =100; { PC98 graphic 640x400 16 colors }
|
||
M_PC98_PEGC640x400 =101; { PC98 graphic 640x400 256 colors }
|
||
M_PC98_PEGC640x480 =102; { PC98 graphic 640x480 256 colors }
|
||
|
||
M_HGC_P0 =$e0; { hercules graphics - page 0 @ B0000 }
|
||
M_HGC_P1 =$e1; { hercules graphics - page 1 @ B8000 }
|
||
M_MCA_MODE =$ff; { monochrome adapter mode }
|
||
|
||
M_TEXT_80x25 =200; { generic text modes }
|
||
M_TEXT_80x30 =201;
|
||
M_TEXT_80x43 =202;
|
||
M_TEXT_80x50 =203;
|
||
M_TEXT_80x60 =204;
|
||
M_TEXT_132x25 =205;
|
||
M_TEXT_132x30 =206;
|
||
M_TEXT_132x43 =207;
|
||
M_TEXT_132x50 =208;
|
||
M_TEXT_132x60 =209;
|
||
|
||
M_VESA_BASE =$100; { VESA mode number base }
|
||
M_VESA_CG640x400 =$100; { 640x400, 256 color }
|
||
M_VESA_CG640x480 =$101; { 640x480, 256 color }
|
||
M_VESA_800x600 =$102; { 800x600, 16 color }
|
||
M_VESA_CG800x600 =$103; { 800x600, 256 color }
|
||
M_VESA_1024x768 =$104; { 1024x768, 16 color }
|
||
M_VESA_CG1024x768 =$105; { 1024x768, 256 color }
|
||
M_VESA_1280x1024 =$106; { 1280x1024, 16 color }
|
||
M_VESA_CG1280x1024 =$107; { 1280x1024, 256 color }
|
||
M_VESA_C80x60 =$108; { 8x8 font }
|
||
M_VESA_C132x25 =$109; { 8x16 font }
|
||
M_VESA_C132x43 =$10a; { 8x14 font }
|
||
M_VESA_C132x50 =$10b; { 8x8 font }
|
||
M_VESA_C132x60 =$10c; { 8x8 font }
|
||
M_VESA_32K_320 =$10d; { 320x200, 5:5:5 }
|
||
M_VESA_64K_320 =$10e; { 320x200, 5:6:5 }
|
||
M_VESA_FULL_320 =$10f; { 320x200, 8:8:8 }
|
||
M_VESA_32K_640 =$110; { 640x480, 5:5:5 }
|
||
M_VESA_64K_640 =$111; { 640x480, 5:6:5 }
|
||
M_VESA_FULL_640 =$112; { 640x480, 8:8:8 }
|
||
M_VESA_32K_800 =$113; { 800x600, 5:5:5 }
|
||
M_VESA_64K_800 =$114; { 800x600, 5:6:5 }
|
||
M_VESA_FULL_800 =$115; { 800x600, 8:8:8 }
|
||
M_VESA_32K_1024 =$116; { 1024x768, 5:5:5 }
|
||
M_VESA_64K_1024 =$117; { 1024x768, 5:6:5 }
|
||
M_VESA_FULL_1024 =$118; { 1024x768, 8:8:8 }
|
||
M_VESA_32K_1280 =$119; { 1280x1024, 5:5:5 }
|
||
M_VESA_64K_1280 =$11a; { 1280x1024, 5:6:5 }
|
||
M_VESA_FULL_1280 =$11b; { 1280x1024, 8:8:8 }
|
||
M_VESA_MODE_MAX =$1ff;
|
||
|
||
type
|
||
video_display_start = record
|
||
x :longint;
|
||
y : longint;
|
||
end;
|
||
|
||
video_display_start_t= video_display_start;
|
||
|
||
video_color_palette = record
|
||
index : longint; { first element (zero-based) }
|
||
count : longint; { number of elements }
|
||
red : ^uchar; { red }
|
||
green : ^uchar; { green }
|
||
blue : ^uchar; { blue }
|
||
transparent : ^uchar; { may be NULL }
|
||
end;
|
||
|
||
video_color_palette_t = video_color_palette;
|
||
|
||
{ adapter info. }
|
||
Function FBIO_ADAPTER(fd:longint;var param1 : longint):boolean;
|
||
Function FBIO_ADPTYPE(fd:longint;var param1 : longint):boolean;
|
||
Function FBIO_ADPINFO(fd:longint;var param1 : video_adapter_info):boolean;
|
||
|
||
{ video mode control }
|
||
Function FBIO_MODEINFO(fd:longint;var param1 : video_info):boolean;
|
||
Function FBIO_FINDMODE(fd:longint;var param1 : video_info):boolean;
|
||
Function FBIO_GETMODE(fd:longint;var param1 : longint):boolean;
|
||
Function FBIO_SETMODE(fd:longint;var param1 : longint):boolean;
|
||
|
||
{ get/set frame buffer window origin }
|
||
Function FBIO_GETWINORG(fd:longint;var param1 : u_int):boolean;
|
||
Function FBIO_SETWINORG(fd:longint;var param1 : u_int):boolean;
|
||
|
||
{ get/set display start address }
|
||
Function FBIO_GETDISPSTART(fd:longint;var param1 : video_display_start_t):boolean;
|
||
Function FBIO_SETDISPSTART(fd:longint;var param1 : video_display_start_t):boolean;
|
||
|
||
{ get/set scan line width }
|
||
Function FBIO_GETLINEWIDTH(fd:longint;var param1 : u_int):boolean;
|
||
Function FBIO_SETLINEWIDTH(fd:longint;var param1 : u_int):boolean;
|
||
|
||
{ color palette control }
|
||
Function FBIO_GETPALETTE(fd:longint;var param1 : video_color_palette_t):boolean;
|
||
Function FBIO_SETPALETTE(fd:longint;var param1 : video_color_palette_t):boolean;
|
||
|
||
{----------------------------- sys/consio.h ----------------------------------}
|
||
|
||
{ version packaged with FreeBSD 4.2-RELEASE
|
||
Translation to FreePascal by Marco van de Voort. (2000-2001), original
|
||
copyright follows:
|
||
|
||
* Copyright (c) 1991-1996 S<>ren Schmidt
|
||
* All rights reserved.
|
||
*
|
||
* Redistribution and use in source and binary forms, with or without
|
||
* modification, are permitted provided that the following conditions
|
||
* are met:
|
||
* 1. Redistributions of source code must retain the above copyright
|
||
* notice, this list of conditions and the following disclaimer
|
||
* in this position and unchanged.
|
||
* 2. Redistributions in binary form must reproduce the above copyright
|
||
* notice, this list of conditions and the following disclaimer in the
|
||
* documentation and/or other materials provided with the distribution.
|
||
* 3. The name of the author may not be used to endorse or promote products
|
||
* derived from this software without specific prior written permission
|
||
*
|
||
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
|
||
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
|
||
* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
|
||
* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
|
||
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
|
||
* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
||
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
||
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
||
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
|
||
* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||
*
|
||
* $FreeBSD: src/sys/sys/consio.h,v 1.5.2.1 2000/05/05 09:16:15 nyan Exp $
|
||
|
||
}
|
||
|
||
{$define definconsole}
|
||
|
||
{
|
||
* Console FpIoctl commands. Some commands are named as KDXXXX, GIO_XXX, and
|
||
* PIO_XXX, rather than CONS_XXX, for historical and compatibility reasons.
|
||
* Some other CONS_XXX commands are works as wrapper around frame buffer
|
||
* FpIoctl commands FBIO_XXX. Do not try to change all these commands,
|
||
* otherwise we shall have compatibility problems.
|
||
}
|
||
|
||
const
|
||
|
||
{ get/set video mode }
|
||
KD_TEXT =0; { set text mode restore fonts }
|
||
KD_TEXT0 =0; { ditto }
|
||
KD_GRAPHICS =1; { set graphics mode }
|
||
KD_TEXT1 =2; { set text mode !restore fonts }
|
||
KD_PIXEL =3; { set pixel mode }
|
||
|
||
Function KDGETMODE(fd:longint;var param1 : longint):boolean;
|
||
Function KDSETMODE(fd:longint;param1 : longint):boolean;
|
||
|
||
{ set border color }
|
||
Function KDSBORDER(fd:longint;param1 : longint):boolean;
|
||
|
||
{ set up raster(pixel) text mode }
|
||
type
|
||
scr_size = record
|
||
_scrsize : array[0..2] of longint;
|
||
end;
|
||
scr_size_t = scr_size;
|
||
|
||
Function KDRASTER(fd:longint;var param1 : scr_size_t):boolean;
|
||
|
||
type
|
||
|
||
{ get/set screen char map }
|
||
|
||
scrmap = record
|
||
_scrmap : array[0..255] of char;
|
||
end;
|
||
scrmap_t = scrmap;
|
||
|
||
Function GIO_SCRNMAP(fd:longint;var param1 : scrmap_t):boolean;
|
||
Function PIO_SCRNMAP(fd:longint;var param1 : scrmap_t):boolean;
|
||
|
||
{ get the current text attribute }
|
||
Function GIO_ATTR(fd:longint;var param1 : longint):boolean;
|
||
|
||
{ get the current text color }
|
||
Function GIO_COLOR(fd:longint;var param1 : longint):boolean;
|
||
|
||
{ get the adapter type (equivalent to FBIO_ADPTYPE) }
|
||
Function CONS_CURRENT(fd:longint;var param1 : longint):boolean;
|
||
|
||
{ get the current video mode (equivalent to FBIO_GETMODE) }
|
||
Function CONS_GET(fd:longint;var param1 : longint):boolean;
|
||
|
||
{ not supported? }
|
||
Function CONS_IO(fd:longint):boolean;
|
||
|
||
{ set blank time interval }
|
||
Function CONS_BLANKTIME(fd:longint;var param1 : longint):boolean;
|
||
|
||
{ set/get the screen saver (these FpIoctls are current noop) }
|
||
CONST maxsaver=16;
|
||
|
||
type ssaver =record
|
||
name : array[0..maxsaver-1] of char;
|
||
num : Longint;
|
||
time : Long;
|
||
end;
|
||
ssaver_t = ssaver;
|
||
|
||
Function CONS_SSAVER(fd:longint;var param1 : ssaver_t):boolean;
|
||
Function CONS_GSAVER(fd:longint;var param1 : ssaver_t):boolean;
|
||
|
||
{ set the text cursor shape }
|
||
|
||
CONST
|
||
CONS_BLINK_CURSOR = (1 shl 0);
|
||
CONS_CHAR_CURSOR = (1 shl 1);
|
||
|
||
Function CONS_CURSORTYPE(fd:longint;var param1 : longint):boolean;
|
||
|
||
{ set the bell type to audible or visual }
|
||
CONST
|
||
CONS_VISUAL_BELL =(1 shl 0);
|
||
CONS_QUIET_BELL =(1 shl 1);
|
||
|
||
Function CONS_BELLTYPE(fd:longint;var param1 : longint):boolean;
|
||
|
||
{ set the history (scroll back) buffer size (in lines) }
|
||
Function CONS_HISTORY(fd:longint;var param1 : longint):boolean;
|
||
|
||
{ mouse cursor FpIoctl }
|
||
type
|
||
mouse_data = record
|
||
x : longint;
|
||
y : Longint;
|
||
z : longint;
|
||
buttons : longint;
|
||
end;
|
||
|
||
mouse_data_t = mouse_data;
|
||
|
||
mouse_mode = record
|
||
mode : longint;
|
||
signal : longint;
|
||
end;
|
||
|
||
mouse_mode_t = mouse_mode;
|
||
|
||
mouse_event = record
|
||
id : Longint; { one based }
|
||
value : longint;
|
||
end;
|
||
|
||
mouse_event_t = mouse_event;
|
||
|
||
CONST
|
||
MOUSE_SHOW =$01;
|
||
MOUSE_HIDE =$02;
|
||
MOUSE_MOVEABS =$03;
|
||
MOUSE_MOVEREL =$04;
|
||
MOUSE_GETINFO =$05;
|
||
_MOUSE_MODE =$06;
|
||
MOUSE_ACTION =$07;
|
||
MOUSE_MOTION_EVENT =$08;
|
||
MOUSE_BUTTON_EVENT =$09;
|
||
MOUSE_MOUSECHAR =$0a;
|
||
|
||
TYPE
|
||
mouse_info = record
|
||
operation : longint;
|
||
u : record
|
||
case integer of
|
||
0: (data : mouse_data_t);
|
||
1: (mode : mouse_mode_t);
|
||
2: (event: mouse_event_t);
|
||
3: (mouse_char : longint);
|
||
end;
|
||
end;
|
||
mouse_info_t = mouse_info;
|
||
|
||
Function CONS_MOUSECTL(fd:longint;var param1 : mouse_info_t):boolean;
|
||
|
||
{ see if the vty has been idle }
|
||
Function CONS_IDLE(fd:longint;var param1 : longint):boolean;
|
||
|
||
{ set the screen saver mode }
|
||
CONST
|
||
CONS_LKM_SAVER = 0;
|
||
CONS_USR_SAVER = 1;
|
||
|
||
Function CONS_SAVERMODE(fd:longint;var param1 : longint):boolean;
|
||
|
||
{ start the screen saver }
|
||
Function CONS_SAVERSTART(fd:longint;var param1 : longint):boolean;
|
||
|
||
TYPE
|
||
{ set/get font data }
|
||
fnt8 = record
|
||
fnt8x8 : array[0..8*256-1] of char;
|
||
end;
|
||
|
||
fnt8_t = fnt8;
|
||
|
||
fnt14 = record
|
||
fnt8x14: array[0..14*256-1] of char;
|
||
end;
|
||
|
||
fnt14_t = fnt14;
|
||
|
||
fnt16 = record
|
||
fnt8x16: array[0..16*256-1] of char;
|
||
end;
|
||
fnt16_t = fnt16;
|
||
|
||
Function PIO_FONT8x8(fd:longint;var param1 : fnt8_t):boolean;
|
||
Function GIO_FONT8x8(fd:longint;var param1 : fnt8_t):boolean;
|
||
Function PIO_FONT8x14(fd:longint;var param1 : fnt14_t):boolean;
|
||
Function GIO_FONT8x14(fd:longint;var param1 : fnt14_t):boolean;
|
||
Function PIO_FONT8x16(fd:longint;var param1 : fnt16_t):boolean;
|
||
Function GIO_FONT8x16(fd:longint;var param1 : fnt16_t):boolean;
|
||
|
||
|
||
{ get video mode information }
|
||
type colors = record
|
||
fore : char;
|
||
back : char;
|
||
end;
|
||
|
||
vid_info = record
|
||
_size : short;
|
||
m_num : short;
|
||
mv_row,
|
||
mv_col : ushort;
|
||
mv_rsz,
|
||
mv_csz : ushort;
|
||
mv_norm,
|
||
mv_rev,
|
||
mv_grfc : colors;
|
||
mv_ovscan : uchar;
|
||
mk_keylock : uchar;
|
||
end;
|
||
vid_info_t = vid_info;
|
||
|
||
Function CONS_GETINFO(fd:longint;var param1 : vid_info_t):boolean;
|
||
|
||
{ get version }
|
||
|
||
Function CONS_GETVERS(fd:longint;var param1 : longint):boolean;
|
||
|
||
{ get the video adapter index (equivalent to FBIO_ADAPTER) }
|
||
Function CONS_CURRENTADP(fd:longint;var param1 : longint):boolean;
|
||
|
||
{ get the video adapter information (equivalent to FBIO_ADPINFO) }
|
||
Function CONS_ADPINFO(fd:longint;var param1 : video_adapter_info_t):boolean;
|
||
|
||
{ get the video mode information (equivalent to FBIO_MODEINFO) }
|
||
Function CONS_MODEINFO(fd:longint;var param1 : video_info_t):boolean;
|
||
|
||
{ find a video mode (equivalent to FBIO_FINDMODE) }
|
||
Function CONS_FINDMODE(fd:longint;var param1 : video_info_t):boolean;
|
||
|
||
{ set the frame buffer window origin (equivalent to FBIO_SETWINORG) }
|
||
Function CONS_SETWINORG(fd:longint;param1 : longint):boolean;
|
||
|
||
{ use the specified keyboard }
|
||
Function CONS_SETKBD(fd:longint;param1 : longint):boolean;
|
||
|
||
{ release the current keyboard }
|
||
Function CONS_RELKBD(fd:longint):boolean;
|
||
|
||
{ get/set the current terminal emulator info. }
|
||
CONST
|
||
TI_NAME_LEN = 32;
|
||
TI_DESC_LEN = 64;
|
||
|
||
TYPE
|
||
term_info = record
|
||
ti_index : Longint;
|
||
ti_flags : longint;
|
||
ti_name : array[0..TI_NAME_LEN-1] of uchar;
|
||
ti_desc : array[0..TI_DESC_LEN-1] of uchar;
|
||
end;
|
||
term_info_t = term_info;
|
||
|
||
Function CONS_GETTERM(fd:longint;var param1 : term_info_t):boolean;
|
||
Function CONS_SETTERM(fd:longint;var param1 : term_info_t):boolean;
|
||
|
||
{$ifdef PC98}
|
||
Function ADJUST_CLOCK(fd:longint):boolean;
|
||
{$endif}
|
||
|
||
{
|
||
* Vty switching FpIoctl commands.
|
||
}
|
||
|
||
{ get the next available vty }
|
||
Function VT_OPENQRY(fd:longint;var param1 : longint):boolean;
|
||
|
||
{ set/get vty switching mode }
|
||
const
|
||
VT_AUTO =0; { switching is automatic }
|
||
VT_PROCESS =1; { switching controlled by prog }
|
||
VT_KERNEL =255; { switching controlled in kernel }
|
||
|
||
TYPE
|
||
vt_mode = record
|
||
mode : Char;
|
||
waitv : char; { not implemented yet SOS }
|
||
relsig : short;
|
||
acqsig : short;
|
||
frsig : short; { not implemented yet SOS }
|
||
end;
|
||
|
||
vtmode_t = vt_mode;
|
||
|
||
|
||
Function VT_SETMODE(fd:longint;var param1 : vtmode_t):boolean;
|
||
Function VT_GETMODE(fd:longint;var param1 : vtmode_t):boolean;
|
||
|
||
|
||
{ acknowledge release or acquisition of a vty }
|
||
const
|
||
VT_FALSE = 0;
|
||
VT_TRUE = 1;
|
||
VT_ACKACQ = 2;
|
||
|
||
Function VT_RELDISP(fd:longint;param1 : longint):boolean;
|
||
|
||
{ activate the specified vty }
|
||
Function VT_ACTIVATE(fd:longint;param1 : longint):boolean;
|
||
|
||
{ wait until the specified vty is activate }
|
||
Function VT_WAITACTIVE(fd:longint;param1 : longint):boolean;
|
||
|
||
{ get the currently active vty }
|
||
Function VT_GETACTIVE(fd:longint;var param1 : longint):boolean;
|
||
|
||
{ get the index of the vty }
|
||
Function VT_GETINDEX(fd:longint;var param1 : longint):boolean;
|
||
|
||
{
|
||
* Video mode switching FpIoctl. See sys/fbio.h for mode numbers.
|
||
}
|
||
|
||
Function SW_B40x25(fd:longint):boolean;
|
||
Function SW_C40x25(fd:longint):boolean;
|
||
Function SW_B80x25(fd:longint):boolean;
|
||
Function SW_C80x25(fd:longint):boolean;
|
||
Function SW_BG320(fd:longint):boolean;
|
||
Function SW_CG320(fd:longint):boolean;
|
||
Function SW_BG640(fd:longint):boolean;
|
||
Function SW_EGAMONO80x25(fd:longint):boolean;
|
||
Function SW_CG320_D(fd:longint):boolean;
|
||
Function SW_CG640_E(fd:longint):boolean;
|
||
Function SW_EGAMONOAPA(fd:longint):boolean;
|
||
Function SW_CG640x350(fd:longint):boolean;
|
||
Function SW_ENH_MONOAPA2(fd:longint):boolean;
|
||
Function SW_ENH_CG640(fd:longint):boolean;
|
||
Function SW_ENH_B40x25(fd:longint):boolean;
|
||
Function SW_ENH_C40x25(fd:longint):boolean;
|
||
Function SW_ENH_B80x25(fd:longint):boolean;
|
||
Function SW_ENH_C80x25(fd:longint):boolean;
|
||
Function SW_ENH_B80x43(fd:longint):boolean;
|
||
Function SW_ENH_C80x43(fd:longint):boolean;
|
||
Function SW_MCAMODE(fd:longint):boolean;
|
||
Function SW_VGA_C40x25(fd:longint):boolean;
|
||
Function SW_VGA_C80x25(fd:longint):boolean;
|
||
Function SW_VGA_C80x30(fd:longint):boolean;
|
||
Function SW_VGA_C80x50(fd:longint):boolean;
|
||
Function SW_VGA_C80x60(fd:longint):boolean;
|
||
Function SW_VGA_M80x25(fd:longint):boolean;
|
||
Function SW_VGA_M80x30(fd:longint):boolean;
|
||
Function SW_VGA_M80x50(fd:longint):boolean;
|
||
Function SW_VGA_M80x60(fd:longint):boolean;
|
||
Function SW_VGA11(fd:longint):boolean;
|
||
Function SW_BG640x480(fd:longint):boolean;
|
||
Function SW_VGA12(fd:longint):boolean;
|
||
Function SW_CG640x480(fd:longint):boolean;
|
||
Function SW_VGA13(fd:longint):boolean;
|
||
Function SW_VGA_CG320(fd:longint):boolean;
|
||
Function SW_VGA_CG640(fd:longint):boolean;
|
||
Function SW_VGA_MODEX(fd:longint):boolean;
|
||
Function SW_PC98_80x25(fd:longint):boolean;
|
||
Function SW_PC98_80x30(fd:longint):boolean;
|
||
Function SW_PC98_EGC640x400(fd:longint):boolean;
|
||
Function SW_PC98_PEGC640x400(fd:longint):boolean;
|
||
Function SW_PC98_PEGC640x480(fd:longint):boolean;
|
||
Function SW_VGA_C90x25(fd:longint):boolean;
|
||
Function SW_VGA_M90x25(fd:longint):boolean;
|
||
Function SW_VGA_C90x30(fd:longint):boolean;
|
||
Function SW_VGA_M90x30(fd:longint):boolean;
|
||
Function SW_VGA_C90x43(fd:longint):boolean;
|
||
Function SW_VGA_M90x43(fd:longint):boolean;
|
||
Function SW_VGA_C90x50(fd:longint):boolean;
|
||
Function SW_VGA_M90x50(fd:longint):boolean;
|
||
Function SW_VGA_C90x60(fd:longint):boolean;
|
||
Function SW_VGA_M90x60(fd:longint):boolean;
|
||
Function SW_TEXT_80x25(fd:longint):boolean;
|
||
Function SW_TEXT_80x30(fd:longint):boolean;
|
||
Function SW_TEXT_80x43(fd:longint):boolean;
|
||
Function SW_TEXT_80x50(fd:longint):boolean;
|
||
Function SW_TEXT_80x60(fd:longint):boolean;
|
||
Function SW_TEXT_132x25(fd:longint):boolean;
|
||
Function SW_TEXT_132x30(fd:longint):boolean;
|
||
Function SW_TEXT_132x43(fd:longint):boolean;
|
||
Function SW_TEXT_132x50(fd:longint):boolean;
|
||
Function SW_TEXT_132x60(fd:longint):boolean;
|
||
Function SW_VESA_CG640x400(fd:longint):boolean;
|
||
Function SW_VESA_CG640x480(fd:longint):boolean;
|
||
Function SW_VESA_800x600(fd:longint):boolean;
|
||
Function SW_VESA_CG800x600(fd:longint):boolean;
|
||
Function SW_VESA_1024x768(fd:longint):boolean;
|
||
Function SW_VESA_CG1024x768(fd:longint):boolean;
|
||
Function SW_VESA_1280x1024(fd:longint):boolean;
|
||
Function SW_VESA_CG1280x1024(fd:longint):boolean;
|
||
Function SW_VESA_C80x60(fd:longint):boolean;
|
||
Function SW_VESA_C132x25(fd:longint):boolean;
|
||
Function SW_VESA_C132x43(fd:longint):boolean;
|
||
Function SW_VESA_C132x50(fd:longint):boolean;
|
||
Function SW_VESA_C132x60(fd:longint):boolean;
|
||
Function SW_VESA_32K_320(fd:longint):boolean;
|
||
Function SW_VESA_64K_320(fd:longint):boolean;
|
||
Function SW_VESA_FULL_320(fd:longint):boolean;
|
||
Function SW_VESA_32K_640(fd:longint):boolean;
|
||
Function SW_VESA_64K_640(fd:longint):boolean;
|
||
Function SW_VESA_FULL_640(fd:longint):boolean;
|
||
Function SW_VESA_32K_800(fd:longint):boolean;
|
||
Function SW_VESA_64K_800(fd:longint):boolean;
|
||
Function SW_VESA_FULL_800(fd:longint):boolean;
|
||
Function SW_VESA_32K_1024(fd:longint):boolean;
|
||
Function SW_VESA_64K_1024(fd:longint):boolean;
|
||
Function SW_VESA_FULL_1024(fd:longint):boolean;
|
||
Function SW_VESA_32K_1280(fd:longint):boolean;
|
||
Function SW_VESA_64K_1280(fd:longint):boolean;
|
||
Function SW_VESA_FULL_1280(fd:longint):boolean;
|
||
|
||
{----------------------------- sys/kbio.h ----------------------------------}
|
||
|
||
{ version packaged with FreeBSD 4.2-RELEASE
|
||
Translation to FreePascal by Marco van de Voort. (2000-2001), original
|
||
copyright follows: ( I assume BSD licensed)
|
||
|
||
Based on
|
||
* $FreeBSD: src/sys/sys/kbio.h,v 1.5.2.1 2000/10/29 16:59:32 dwmalone Exp $
|
||
}
|
||
|
||
{ get/set keyboard I/O mode}
|
||
const K_RAW =0; { keyboard returns scancodes}
|
||
K_XLATE =1; { keyboard returns ascii}
|
||
K_CODE =2; { keyboard returns keycodes}
|
||
|
||
{After each FpIoctl value, I've put the type of the parameters to be passed:
|
||
@int -> pass a pointer to an int.
|
||
int -> pass pointer(int)
|
||
- -> nothing
|
||
@keymap_t -> pass a pointer to a keymap_t
|
||
etc.
|
||
}
|
||
|
||
Function KDGKBMODE(fd:longint;var param1 : longint):boolean;
|
||
Function KDSKBMODE(fd:longint;param1 : longint):boolean;
|
||
|
||
|
||
{ make tone}
|
||
Function KDMKTONE(fd:longint;param1 : longint):boolean;
|
||
|
||
{ see console.h for the definitions of the following FpIoctls}
|
||
{$ifndef definconsole}
|
||
Function KDGETMODE(fd:longint;var param1 : longint):boolean;
|
||
Function KDSETMODE(fd:longint;param1 : longint):boolean;
|
||
Function KDSBORDER(fd:longint;param1 : longint):boolean;
|
||
|
||
{$endif}
|
||
const
|
||
{ get/set keyboard lock state}
|
||
CLKED =1; { Caps locked}
|
||
NLKED =2; { Num locked}
|
||
SLKED =4; { Scroll locked}
|
||
ALKED =8; { AltGr locked}
|
||
LOCK_MASK =CLKED or NLKED or SLKED or ALKED;
|
||
|
||
Function KDGKBSTATE(fd:longint;var param1 : longint):boolean;
|
||
Function KDSKBSTATE(fd:longint;param1 : longint):boolean;
|
||
|
||
{ enable/disable I/O access}
|
||
Function KDENABIO(fd:longint):boolean;
|
||
Function KDDISABIO(fd:longint):boolean;
|
||
|
||
{ make sound}
|
||
Function KIOCSOUND(fd:longint;param1 : longint):boolean;
|
||
|
||
Const
|
||
{ get keyboard model}
|
||
KB_OTHER =0; { keyboard not known}
|
||
KB_84 =1; { 'old' 84 key AT-keyboard}
|
||
KB_101 =2; { MF-101 or MF-102 keyboard}
|
||
Function KDGKBTYPE(fd:longint;var param1 : longint):boolean;
|
||
|
||
const
|
||
{ get/set keyboard LED state}
|
||
LED_CAP =1; { Caps lock LED}
|
||
LED_NUM =2; { Num lock LED}
|
||
LED_SCR =4; { Scroll lock LED}
|
||
LED_MASK =LED_CAP or LED_NUM or LED_SCR;
|
||
Function KDGETLED(fd:longint;var param1 : longint):boolean;
|
||
Function KDSETLED(fd:longint;param1 : longint):boolean;
|
||
|
||
{ set keyboard repeat rate (obsolete, use KDSETREPEAT below)}
|
||
Function KDSETRAD(fd:longint;param1 : longint):boolean;
|
||
|
||
{ see console.h for the definition of the following FpIoctl}
|
||
{$ifndef definconsole}
|
||
Function KDRASTER(fd:longint;var param1 : scr_size_t):boolean;
|
||
|
||
{$endif}
|
||
|
||
TYPE
|
||
{ get keyboard information}
|
||
keyboard_info = Record
|
||
kb_index : longint; { kbdio index#}
|
||
kb_name : array[0..15] of char; { driver name}
|
||
kb_unit : longint; { unit#}
|
||
kb_type : longint; { KB_84, KB_101, KB_OTHER,...}
|
||
kb_config: longint; { device configuration flags}
|
||
kb_flags : longint; { internal flags}
|
||
end;
|
||
keyboard_info_t=keyboard_info;
|
||
|
||
Function KDGKBINFO(fd:longint;var param1 : keyboard_info_t):boolean;
|
||
|
||
Type
|
||
{ set/get keyboard repeat rate (new interface)}
|
||
keyboard_repeat = record
|
||
kb_repeat: array[0..1] of longint;
|
||
end;
|
||
|
||
keyboard_repeat_t = keyboard_repeat;
|
||
|
||
Function KDSETREPEAT(fd:longint;var param1 : keyboard_repeat_t):boolean;
|
||
Function KDGETREPEAT(fd:longint;var param1 : keyboard_repeat_t):boolean;
|
||
|
||
{ get/set key map/accent map/function key strings}
|
||
|
||
const
|
||
NUM_KEYS =256; { number of keys in table}
|
||
NUM_STATES =8; { states per key}
|
||
ALTGR_OFFSET =128; { offset for altlock keys}
|
||
|
||
NUM_DEADKEYS =15; { number of accent keys}
|
||
NUM_ACCENTCHARS =52; { max number of accent chars}
|
||
|
||
NUM_FKEYS =96; { max number of function keys}
|
||
MAXFK =16; { max length of a function key str}
|
||
|
||
type
|
||
keyent_t = record
|
||
map : array[0..NUM_STATES-1] of uchar;
|
||
spcl : uchar;
|
||
flgs : uchar;
|
||
end;
|
||
|
||
const
|
||
FLAG_LOCK_O =0;
|
||
FLAG_LOCK_C =1;
|
||
FLAG_LOCK_N =2;
|
||
|
||
type keymap = record
|
||
n_keys : ushort;
|
||
key : array[0..NUM_KEYS-1] OF keyent_t;
|
||
end;
|
||
|
||
keymap_t= keymap;
|
||
|
||
CONST
|
||
{ defines for "special" keys (spcl bit set in keymap)}
|
||
NOP =$00; { nothing (dead key)}
|
||
LSH =$02; { left shift key}
|
||
RSH =$03; { right shift key}
|
||
CLK =$04; { caps lock key}
|
||
NLK =$05; { num lock key}
|
||
SLK =$06; { scroll lock key}
|
||
LALT =$07; { left alt key}
|
||
BTAB =$08; { backwards tab}
|
||
LCTR =$09; { left control key}
|
||
NEXT =$0a; { switch to next screen}
|
||
F_SCR =$0b; { switch to first screen}
|
||
L_SCR =$1a; { switch to last screen}
|
||
F_FN =$1b; { first function key}
|
||
L_FN =$7a; { last function key}
|
||
{ $7b-$7f reserved do not use !}
|
||
RCTR =$80; { right control key}
|
||
RALT =$81; { right alt (altgr) key}
|
||
ALK =$82; { alt lock key}
|
||
ASH =$83; { alt shift key}
|
||
META =$84; { meta key}
|
||
RBT =$85; { boot machine}
|
||
DBG =$86; { call debugger}
|
||
SUSP =$87; { suspend power (APM)}
|
||
SPSC =$88; { toggle splash/text screen}
|
||
|
||
DGRA =$89; { grave}
|
||
F_ACC =DGRA; { first accent key}
|
||
|
||
DACU =$8a; { acute}
|
||
DCIR =$8b; { circumflex}
|
||
DTIL =$8c; { tilde}
|
||
DMAC =$8d; { macron}
|
||
DBRE =$8e; { breve}
|
||
DDOT =$8f; { dot}
|
||
DUML =$90; { umlaut/diaresis}
|
||
DDIA =$90; { diaresis}
|
||
DSLA =$91; { slash}
|
||
DRIN =$92; { ring}
|
||
DCED =$93; { cedilla}
|
||
DAPO =$94; { apostrophe}
|
||
DDAC =$95; { double acute}
|
||
DOGO =$96; { ogonek}
|
||
DCAR =$97; { caron}
|
||
L_ACC =DCAR; { last accent key}
|
||
|
||
STBY =$98; { Go into standby mode (apm)}
|
||
PREV =$99; { switch to previous screen}
|
||
PNC =$9a; { force system panic}
|
||
LSHA =$9b; { left shift key / alt lock}
|
||
RSHA =$9c; { right shift key / alt lock}
|
||
LCTRA =$9d; { left ctrl key / alt lock}
|
||
RCTRA =$9e; { right ctrl key / alt lock}
|
||
LALTA =$9f; { left alt key / alt lock}
|
||
RALTA =$a0; { right alt key / alt lock}
|
||
HALT =$a1; { halt machine}
|
||
PDWN =$a2; { halt machine and power down}
|
||
|
||
function kbio_F(x:longint):longint;
|
||
function kbio_S(x:longint):longint;
|
||
function kbio_ACC(x:longint):longint;
|
||
|
||
type acc_t = record
|
||
accchar : uchar;
|
||
map : array[0..NUM_ACCENTCHARS-1,0..1] of uchar;
|
||
end;
|
||
|
||
accentmap = record
|
||
n_accs : ushort;
|
||
acc : array[0..NUM_DEADKEYS-1] of acc_t
|
||
end;
|
||
|
||
accentmap_t = accentmap ;
|
||
|
||
keyarg = record
|
||
keynum : ushort;
|
||
key : keyent_t;
|
||
end;
|
||
|
||
keyarg_t = keyarg;
|
||
|
||
fkeytab = record
|
||
str : array [0..MAXFK-1] of uchar;
|
||
len : uchar;
|
||
end;
|
||
fkeytab_t = fkeytab;
|
||
|
||
fkeyarg =record
|
||
keynum : ushort;
|
||
keydef : array[0..MAXFK-1] of char;
|
||
flen :char;
|
||
end;
|
||
|
||
fkeyarg_t = fkeyarg;
|
||
|
||
Function GETFKEY(fd:longint;var param1 : fkeyarg_t):boolean;
|
||
Function SETFKEY(fd:longint;var param1 : fkeyarg_t):boolean;
|
||
|
||
{$ifndef definconsole}
|
||
Function GIO_SCRNMAP(fd:longint;var param1 : scrmap_t):boolean;
|
||
Function PIO_SCRNMAP(fd:longint;var param1 : scrmap_t):boolean;
|
||
{$endif}
|
||
Function GIO_KEYMAP(fd:longint;var param1 : keymap_t):boolean;
|
||
Function PIO_KEYMAP(fd:longint;var param1 : keymap_t):boolean;
|
||
Function GIO_DEADKEYMAP(fd:longint;var param1 : accentmap_t):boolean;
|
||
Function PIO_DEADKEYMAP(fd:longint;var param1 : accentmap_t):boolean;
|
||
Function GIO_KEYMAPENT(fd:longint;var param1 : keyarg_t):boolean;
|
||
Function PIO_KEYMAPENT(fd:longint;var param1 : keyarg_t):boolean;
|
||
|
||
{ flags set to the return value in the KD_XLATE mode}
|
||
Const
|
||
NOKEY =$100; { no key pressed marker}
|
||
FKEY =$200; { function key marker}
|
||
MKEY =$400; { meta key marker (prepend ESC)}
|
||
BKEY =$800; { backtab (ESC [ Z)}
|
||
|
||
SPCLKEY =$8000; { special key}
|
||
RELKEY =$4000; { key released}
|
||
ERRKEY =$2000; { error}
|
||
|
||
|
||
function KEYCHAR(c:longint):longint;
|
||
|
||
function KEYFLAGS(c:longint):longint;
|
||
|
||
{----------------------------- machine/mouse.h -------------------------------}
|
||
|
||
{ Based on machine/mouse.h from FreeBSD release 4.2
|
||
|
||
* Copyright (c) 1992, 1993 Erik Forsberg.
|
||
* Copyright (c) 1996, 1997 Kazutaka YOKOTA
|
||
* All rights reserved.
|
||
*
|
||
* Redistribution and use in source and binary forms, with or without
|
||
* modification, are permitted provided that the following conditions
|
||
* are met:
|
||
* 1. Redistributions of source code must retain the above copyright
|
||
* notice, this list of conditions and the following disclaimer.
|
||
*
|
||
* THIS SOFTWARE IS PROVIDED BY ``AS IS'' AND ANY EXPRESS OR IMPLIED
|
||
* WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
|
||
* MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN
|
||
* NO EVENT SHALL I BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
|
||
* EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
|
||
* PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
|
||
* PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
|
||
* LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
|
||
* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
||
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||
*
|
||
* $FreeBSD: src/sys/i386/include/mouse.h,v 1.15.2.1 2000/03/21 14:44:10 yokota Exp $
|
||
}
|
||
|
||
|
||
{ FpIoctls }
|
||
|
||
|
||
{ mouse status block }
|
||
|
||
type
|
||
mousestatus = record
|
||
flags : longint; { state change flags }
|
||
button : longint; { button status }
|
||
obutton : longint; { previous button status }
|
||
dx : longint; { x movement }
|
||
dy : longint; { y movement }
|
||
dz : longint; { z movement }
|
||
end;
|
||
|
||
mousestatus_t = mousestatus;
|
||
|
||
CONST
|
||
|
||
{ button }
|
||
MOUSE_BUTTON1DOWN =$0001; { left }
|
||
MOUSE_BUTTON2DOWN =$0002; { middle }
|
||
MOUSE_BUTTON3DOWN =$0004; { right }
|
||
MOUSE_BUTTON4DOWN =$0008;
|
||
MOUSE_BUTTON5DOWN =$0010;
|
||
MOUSE_BUTTON6DOWN =$0020;
|
||
MOUSE_BUTTON7DOWN =$0040;
|
||
MOUSE_BUTTON8DOWN =$0080;
|
||
MOUSE_MAXBUTTON =31;
|
||
MOUSE_STDBUTTONS =$0007; { buttons 1-3 }
|
||
MOUSE_EXTBUTTONS =$7ffffff8; { the others (28 of them!) }
|
||
MOUSE_BUTTONS =(MOUSE_STDBUTTONS or MOUSE_EXTBUTTONS);
|
||
|
||
{ flags }
|
||
MOUSE_STDBUTTONSCHANGED =MOUSE_STDBUTTONS;
|
||
MOUSE_EXTBUTTONSCHANGED =MOUSE_EXTBUTTONS;
|
||
MOUSE_BUTTONSCHANGED =MOUSE_BUTTONS;
|
||
MOUSE_POSCHANGED =$80000000;
|
||
|
||
type
|
||
mousehw =record
|
||
buttons : longint; { -1 if unknown }
|
||
iftype : longint; { MOUSE_IF_XXX }
|
||
_type : longint; { mouse/track ball/pad... }
|
||
model : longint; { I/F dependent model ID: MOUSE_MODEL_XXX }
|
||
hwid : longint; { I/F dependent hardware ID}
|
||
{ for the PS/2 mouse, it will be PSM_XXX_ID }
|
||
end;
|
||
|
||
mousehw_t = mousehw;
|
||
|
||
const
|
||
|
||
{ iftype }
|
||
MOUSE_IF_UNKNOWN =(-1);
|
||
MOUSE_IF_SERIAL =0;
|
||
MOUSE_IF_BUS =1;
|
||
MOUSE_IF_INPORT =2;
|
||
MOUSE_IF_PS2 =3;
|
||
MOUSE_IF_SYSMOUSE =4;
|
||
MOUSE_IF_USB =5;
|
||
|
||
{ type }
|
||
MOUSE_UNKNOWN =(-1); { should be treated as a mouse }
|
||
MOUSE_MOUSE =0;
|
||
MOUSE_TRACKBALL =1;
|
||
MOUSE_STICK =2;
|
||
MOUSE_PAD =3;
|
||
|
||
{ model }
|
||
MOUSE_MODEL_UNKNOWN =(-1);
|
||
MOUSE_MODEL_GENERIC =0;
|
||
MOUSE_MODEL_GLIDEPOINT =1;
|
||
MOUSE_MODEL_NETSCROLL =2;
|
||
MOUSE_MODEL_NET =3;
|
||
MOUSE_MODEL_INTELLI =4;
|
||
MOUSE_MODEL_THINK =5;
|
||
MOUSE_MODEL_EASYSCROLL =6;
|
||
MOUSE_MODEL_MOUSEMANPLUS =7;
|
||
MOUSE_MODEL_KIDSPAD =8;
|
||
MOUSE_MODEL_VERSAPAD =9;
|
||
MOUSE_MODEL_EXPLORER =10;
|
||
MOUSE_MODEL_4D =11;
|
||
MOUSE_MODEL_4DPLUS =12;
|
||
|
||
type mousemode = record
|
||
protocol : longint; { MOUSE_PROTO_XXX }
|
||
rate : longint; { report rate (per sec), -1 if unknown }
|
||
resolution : longint; { MOUSE_RES_XXX, -1 if unknown }
|
||
accelfactor : longint; { accelation factor (must be 1 or greater) }
|
||
level : longint; { driver operation level }
|
||
packetsize : longint; { the length of the data packet }
|
||
syncmask : array[0..1] of uchar; { sync. data bits in the header byte }
|
||
end;
|
||
|
||
type mousemode_t = mousemode;
|
||
|
||
{ protocol }
|
||
{
|
||
* Serial protocols:
|
||
* Microsoft, MouseSystems, Logitech, MM series, MouseMan, Hitachi Tablet,
|
||
* GlidePoint, IntelliMouse, Thinking Mouse, MouseRemote, Kidspad,
|
||
* VersaPad
|
||
* Bus mouse protocols:
|
||
* bus, InPort
|
||
* PS/2 mouse protocol:
|
||
* PS/2
|
||
}
|
||
const
|
||
|
||
MOUSE_PROTO_UNKNOWN =(-1);
|
||
MOUSE_PROTO_MS =0; { Microsoft Serial, 3 bytes }
|
||
MOUSE_PROTO_MSC =1; { Mouse Systems, 5 bytes }
|
||
MOUSE_PROTO_LOGI =2; { Logitech, 3 bytes }
|
||
MOUSE_PROTO_MM =3; { MM series, 3 bytes }
|
||
MOUSE_PROTO_LOGIMOUSEMAN =4; { Logitech MouseMan 3/4 bytes }
|
||
MOUSE_PROTO_BUS =5; { MS/Logitech bus mouse }
|
||
MOUSE_PROTO_INPORT =6; { MS/ATI InPort mouse }
|
||
MOUSE_PROTO_PS2 =7; { PS/2 mouse, 3 bytes }
|
||
MOUSE_PROTO_HITTAB =8; { Hitachi Tablet 3 bytes }
|
||
MOUSE_PROTO_GLIDEPOINT =9; { ALPS GlidePoint, 3/4 bytes }
|
||
MOUSE_PROTO_INTELLI =10; { MS IntelliMouse, 4 bytes }
|
||
MOUSE_PROTO_THINK =11; { Kensignton Thinking Mouse, 3/4 bytes }
|
||
MOUSE_PROTO_SYSMOUSE =12; { /dev/sysmouse }
|
||
MOUSE_PROTO_X10MOUSEREM =13; { X10 MouseRemote, 3 bytes }
|
||
MOUSE_PROTO_KIDSPAD =14; { Genius Kidspad }
|
||
MOUSE_PROTO_VERSAPAD =15; { Interlink VersaPad, 6 bytes }
|
||
|
||
MOUSE_RES_UNKNOWN =(-1);
|
||
MOUSE_RES_DEFAULT =0;
|
||
MOUSE_RES_LOW =(-2);
|
||
MOUSE_RES_MEDIUMLOW =(-3);
|
||
MOUSE_RES_MEDIUMHIGH =(-4);
|
||
MOUSE_RES_HIGH =(-5);
|
||
|
||
type mousedata = record
|
||
len : longint; { # of data in the buffer }
|
||
buf : array [0..15] of longint; { data buffer }
|
||
end;
|
||
|
||
mousedata_t=mousedata;
|
||
|
||
mousevar = record
|
||
_var : array[0..15] of longint;
|
||
end;
|
||
|
||
type mousevar_t = mousevar;
|
||
|
||
Function MOUSE_GETSTATUS(fd:longint;var param1 : mousestatus_t):boolean;
|
||
Function MOUSE_GETHWINFO(fd:longint;var param1 : mousehw_t):boolean;
|
||
Function MOUSE_GETMODE(fd:longint;var param1 : mousemode_t):boolean;
|
||
Function MOUSE_SETMODE(fd:longint;var param1 : mousemode_t):boolean;
|
||
Function MOUSE_GETLEVEL(fd:longint;var param1 : longint):boolean;
|
||
Function MOUSE_SETLEVEL(fd:longint;var param1 : longint):boolean;
|
||
Function MOUSE_GETVARS(fd:longint;var param1 : mousevar_t):boolean;
|
||
Function MOUSE_SETVARS(fd:longint;var param1 : mousevar_t):boolean;
|
||
Function MOUSE_READSTATE(fd:longint;var param1 : mousedata_t):boolean;
|
||
Function MOUSE_READDATA(fd:longint;var param1 : mousedata_t):boolean;
|
||
|
||
Function MOUSE_SETRESOLUTION(fd:longint;var param1 : longint):boolean;
|
||
Function MOUSE_SETSCALING(fd:longint;var param1 : longint):boolean;
|
||
Function MOUSE_SETRATE(fd:longint;var param1 : longint):boolean;
|
||
Function MOUSE_GETHWID(fd:longint;var param1 : longint):boolean;
|
||
|
||
|
||
|
||
const
|
||
|
||
{ magic numbers in var[0] }
|
||
MOUSE_VARS_PS2_SIG = $00325350; { 'PS2' }
|
||
MOUSE_VARS_BUS_SIG = $00535542; { 'BUS' }
|
||
MOUSE_VARS_INPORT_SIG = $00504e49; { 'INP' }
|
||
|
||
{ Microsoft Serial mouse data packet }
|
||
MOUSE_MSS_PACKETSIZE = 3;
|
||
MOUSE_MSS_SYNCMASK = $40;
|
||
MOUSE_MSS_SYNC = $40;
|
||
MOUSE_MSS_BUTTONS = $30;
|
||
MOUSE_MSS_BUTTON1DOWN = $20; { left }
|
||
MOUSE_MSS_BUTTON2DOWN = $00; { no middle button }
|
||
MOUSE_MSS_BUTTON3DOWN = $10; { right }
|
||
|
||
{ Logitech MouseMan data packet (M+ protocol) }
|
||
MOUSE_LMAN_BUTTON2DOWN = $20; { middle button, the 4th byte }
|
||
|
||
{ ALPS GlidePoint extension (variant of M+ protocol) }
|
||
MOUSE_ALPS_BUTTON2DOWN = $20; { middle button, the 4th byte }
|
||
MOUSE_ALPS_TAP = $10; { `tapping' action, the 4th byte }
|
||
|
||
{ Kinsington Thinking Mouse extension (variant of M+ protocol) }
|
||
MOUSE_THINK_BUTTON2DOWN = $20; { lower-left button, the 4th byte }
|
||
MOUSE_THINK_BUTTON4DOWN = $10; { lower-right button, the 4th byte }
|
||
|
||
{ MS IntelliMouse (variant of MS Serial) }
|
||
MOUSE_INTELLI_PACKETSIZE = 4;
|
||
MOUSE_INTELLI_BUTTON2DOWN = $10; { middle button in the 4th byte }
|
||
|
||
{ Mouse Systems Corp. mouse data packet }
|
||
MOUSE_MSC_PACKETSIZE = 5;
|
||
MOUSE_MSC_SYNCMASK = $f8;
|
||
MOUSE_MSC_SYNC = $80;
|
||
MOUSE_MSC_BUTTONS = $07;
|
||
MOUSE_MSC_BUTTON1UP = $04; { left }
|
||
MOUSE_MSC_BUTTON2UP = $02; { middle }
|
||
MOUSE_MSC_BUTTON3UP = $01; { right }
|
||
MOUSE_MSC_MAXBUTTON = 3;
|
||
|
||
{ MM series mouse data packet }
|
||
MOUSE_MM_PACKETSIZE = 3;
|
||
MOUSE_MM_SYNCMASK = $e0;
|
||
MOUSE_MM_SYNC = $80;
|
||
MOUSE_MM_BUTTONS = $07;
|
||
MOUSE_MM_BUTTON1DOWN = $04; { left }
|
||
MOUSE_MM_BUTTON2DOWN = $02; { middle }
|
||
MOUSE_MM_BUTTON3DOWN = $01; { right }
|
||
MOUSE_MM_XPOSITIVE = $10;
|
||
MOUSE_MM_YPOSITIVE = $08;
|
||
|
||
{ PS/2 mouse data packet }
|
||
MOUSE_PS2_PACKETSIZE = 3;
|
||
MOUSE_PS2_SYNCMASK = $c8;
|
||
MOUSE_PS2_SYNC = $08;
|
||
MOUSE_PS2_BUTTONS = $07; { = $03 for 2 button mouse }
|
||
MOUSE_PS2_BUTTON1DOWN = $01; { left }
|
||
MOUSE_PS2_BUTTON2DOWN = $04; { middle }
|
||
MOUSE_PS2_BUTTON3DOWN = $02; { right }
|
||
MOUSE_PS2_TAP = MOUSE_PS2_SYNC; { GlidePoint (PS/2) `tapping'
|
||
* Yes! this is the same bit
|
||
* as SYNC!
|
||
}
|
||
|
||
MOUSE_PS2_XNEG = $10;
|
||
MOUSE_PS2_YNEG = $20;
|
||
MOUSE_PS2_XOVERFLOW = $40;
|
||
MOUSE_PS2_YOVERFLOW = $80;
|
||
|
||
{ Logitech MouseMan+ (PS/2) data packet (PS/2++ protocol) }
|
||
MOUSE_PS2PLUS_SYNCMASK = $48;
|
||
MOUSE_PS2PLUS_SYNC = $48;
|
||
MOUSE_PS2PLUS_ZNEG = $08; { sign bit }
|
||
MOUSE_PS2PLUS_BUTTON4DOWN = $10; { 4th button on MouseMan+ }
|
||
MOUSE_PS2PLUS_BUTTON5DOWN = $20;
|
||
|
||
{ IBM ScrollPoint (PS/2) also uses PS/2++ protocol }
|
||
MOUSE_SPOINT_ZNEG = $80; { sign bits }
|
||
MOUSE_SPOINT_WNEG = $08;
|
||
|
||
{ MS IntelliMouse (PS/2) data packet }
|
||
MOUSE_PS2INTELLI_PACKETSIZE = 4;
|
||
{ some compatible mice have additional buttons }
|
||
MOUSE_PS2INTELLI_BUTTON4DOWN = $40;
|
||
MOUSE_PS2INTELLI_BUTTON5DOWN = $80;
|
||
|
||
{ MS IntelliMouse Explorer (PS/2) data packet (variation of IntelliMouse) }
|
||
MOUSE_EXPLORER_ZNEG = $08; { sign bit }
|
||
{ IntelliMouse Explorer has additional button data in the fourth byte }
|
||
MOUSE_EXPLORER_BUTTON4DOWN = $10;
|
||
MOUSE_EXPLORER_BUTTON5DOWN = $20;
|
||
|
||
{ Interlink VersaPad (serial I/F) data packet }
|
||
MOUSE_VERSA_PACKETSIZE = 6;
|
||
MOUSE_VERSA_IN_USE = $04;
|
||
MOUSE_VERSA_SYNCMASK = $c3;
|
||
MOUSE_VERSA_SYNC = $c0;
|
||
MOUSE_VERSA_BUTTONS = $30;
|
||
MOUSE_VERSA_BUTTON1DOWN = $20; { left }
|
||
MOUSE_VERSA_BUTTON2DOWN = $00; { middle }
|
||
MOUSE_VERSA_BUTTON3DOWN = $10; { right }
|
||
MOUSE_VERSA_TAP = $08;
|
||
|
||
{ Interlink VersaPad (PS/2 I/F) data packet }
|
||
MOUSE_PS2VERSA_PACKETSIZE = 6;
|
||
MOUSE_PS2VERSA_IN_USE = $10;
|
||
MOUSE_PS2VERSA_SYNCMASK = $e8;
|
||
MOUSE_PS2VERSA_SYNC = $c8;
|
||
MOUSE_PS2VERSA_BUTTONS = $05;
|
||
MOUSE_PS2VERSA_BUTTON1DOWN = $04; { left }
|
||
MOUSE_PS2VERSA_BUTTON2DOWN = $00; { middle }
|
||
MOUSE_PS2VERSA_BUTTON3DOWN = $01; { right }
|
||
MOUSE_PS2VERSA_TAP = $02;
|
||
|
||
{ A4 Tech 4D Mouse (PS/2) data packet }
|
||
MOUSE_4D_PACKETSIZE = 3;
|
||
MOUSE_4D_WHEELBITS = $f0;
|
||
|
||
{ A4 Tech 4D+ Mouse (PS/2) data packet }
|
||
MOUSE_4DPLUS_PACKETSIZE = 3;
|
||
MOUSE_4DPLUS_ZNEG = $04; { sign bit }
|
||
MOUSE_4DPLUS_BUTTON4DOWN = $08;
|
||
|
||
{ sysmouse extended data packet }
|
||
{
|
||
* /dev/sysmouse sends data in two formats, depending on the protocol
|
||
* level. At the level 0, format is exactly the same as MousSystems'
|
||
* five byte packet. At the level 1, the first five bytes are the same
|
||
* as at the level 0. There are additional three bytes which shows
|
||
* `dz' and the states of additional buttons. `dz' is expressed as the
|
||
* sum of the byte 5 and 6 which contain signed seven bit values.
|
||
* The states of the button 4 though 10 are in the bit 0 though 6 in
|
||
* the byte 7 respectively: 1 indicates the button is up.
|
||
}
|
||
MOUSE_SYS_PACKETSIZE = 8;
|
||
MOUSE_SYS_SYNCMASK = $f8;
|
||
MOUSE_SYS_SYNC = $80;
|
||
MOUSE_SYS_BUTTON1UP = $04; { left, 1st byte }
|
||
MOUSE_SYS_BUTTON2UP = $02; { middle, 1st byte }
|
||
MOUSE_SYS_BUTTON3UP = $01; { right, 1st byte }
|
||
MOUSE_SYS_BUTTON4UP = $0001; { 7th byte }
|
||
MOUSE_SYS_BUTTON5UP = $0002;
|
||
MOUSE_SYS_BUTTON6UP = $0004;
|
||
MOUSE_SYS_BUTTON7UP = $0008;
|
||
MOUSE_SYS_BUTTON8UP = $0010;
|
||
MOUSE_SYS_BUTTON9UP = $0020;
|
||
MOUSE_SYS_BUTTON10UP = $0040;
|
||
MOUSE_SYS_MAXBUTTON = 10;
|
||
MOUSE_SYS_STDBUTTONS = $07;
|
||
MOUSE_SYS_EXTBUTTONS = $7f; { the others }
|
||
|
||
{ Mouse remote socket }
|
||
_PATH_MOUSEREMOTE ='/var/run/MouseRemote';
|
||
|
||
|
||
{fbio FpIoctl numbers}
|
||
nr_FBIOGTYPE =$40184600;
|
||
nr_FBIOGINFO =$40184602;
|
||
nr_FBIOPUTCMAP =$80144603;
|
||
nr_FBIOGETCMAP =$80144604;
|
||
nr_FBIOGATTR =$40584606;
|
||
nr_FBIOSVIDEO =$80044607;
|
||
nr_FBIOGVIDEO =$40044608;
|
||
nr_FBIOSCURSOR =$802c4618;
|
||
nr_FBIOGCURSOR =$c02c4619;
|
||
nr_FBIOSCURPOS =$8004461a;
|
||
nr_FBIOGCURPOS =$8004461b;
|
||
nr_FBIOGCURMAX =$4004461c;
|
||
nr_FBIO_ADAPTER =$40044664;
|
||
nr_FBIO_ADPTYPE =$40044665;
|
||
nr_FBIO_ADPINFO =$40a44666;
|
||
nr_FBIO_MODEINFO =$c09c4667;
|
||
nr_FBIO_FINDMODE =$c09c4668;
|
||
nr_FBIO_GETMODE =$40044669;
|
||
nr_FBIO_SETMODE =$8004466a;
|
||
nr_FBIO_GETWINORG =$4004466b;
|
||
nr_FBIO_SETWINORG =$8004466c;
|
||
nr_FBIO_GETDISPSTART =$4008466d;
|
||
nr_FBIO_SETDISPSTART =$8008466e;
|
||
nr_FBIO_GETLINEWIDTH =$4004466f;
|
||
nr_FBIO_SETLINEWIDTH =$80044670;
|
||
nr_FBIO_GETPALETTE =$80184671;
|
||
nr_FBIO_SETPALETTE =$80184672;
|
||
|
||
{consio FpIoctl numbers}
|
||
|
||
nr_KDGETMODE =$40044b09;
|
||
nr_KDSETMODE =$20004b0a;
|
||
nr_KDSBORDER =$20004b0d;
|
||
nr_KDRASTER =$800c4b64;
|
||
nr_GIO_SCRNMAP =$41006b02;
|
||
nr_PIO_SCRNMAP =$81006b03;
|
||
nr_GIO_ATTR =$40046100;
|
||
nr_GIO_COLOR =$40046300;
|
||
nr_CONS_CURRENT =$40046301;
|
||
nr_CONS_GET =$40046302;
|
||
nr_CONS_IO =$20006303;
|
||
nr_CONS_BLANKTIME =$80046304;
|
||
nr_CONS_SSAVER =$80186305;
|
||
nr_CONS_GSAVER =$c0186306;
|
||
nr_CONS_CURSORTYPE =$80046307;
|
||
nr_CONS_BELLTYPE =$80046308;
|
||
nr_CONS_HISTORY =$80046309;
|
||
nr_CONS_MOUSECTL =$c014630a;
|
||
nr_CONS_IDLE =$4004630b;
|
||
nr_CONS_SAVERMODE =$8004630c;
|
||
nr_CONS_SAVERSTART =$8004630d;
|
||
nr_PIO_FONT8x8 =$88006340;
|
||
nr_GIO_FONT8x8 =$48006341;
|
||
nr_PIO_FONT8x14 =$8e006342;
|
||
nr_GIO_FONT8x14 =$4e006343;
|
||
nr_PIO_FONT8x16 =$90006344;
|
||
nr_GIO_FONT8x16 =$50006345;
|
||
nr_CONS_GETINFO =$c0146349;
|
||
nr_CONS_GETVERS =$4004634a;
|
||
nr_CONS_CURRENTADP =$40046364;
|
||
nr_CONS_ADPINFO =$c0a46365;
|
||
nr_CONS_MODEINFO =$c09c6366;
|
||
nr_CONS_FINDMODE =$c09c6367;
|
||
nr_CONS_SETWINORG =$20006368;
|
||
nr_CONS_SETKBD =$2000636e;
|
||
nr_CONS_RELKBD =$2000636f;
|
||
nr_CONS_GETTERM =$c0686370;
|
||
nr_CONS_SETTERM =$80686371;
|
||
nr_ADJUST_CLOCK =$20007464;
|
||
nr_VT_OPENQRY =$40047601;
|
||
nr_VT_SETMODE =$80087602;
|
||
nr_VT_GETMODE =$40087603;
|
||
nr_VT_RELDISP =$20007604;
|
||
nr_VT_ACTIVATE =$20007605;
|
||
nr_VT_WAITACTIVE =$20007606;
|
||
nr_VT_GETACTIVE =$40047607;
|
||
nr_VT_GETINDEX =$40047608;
|
||
nr_SW_B40x25 =$20005300;
|
||
nr_SW_C40x25 =$20005301;
|
||
nr_SW_B80x25 =$20005302;
|
||
nr_SW_C80x25 =$20005303;
|
||
nr_SW_BG320 =$20005304;
|
||
nr_SW_CG320 =$20005305;
|
||
nr_SW_BG640 =$20005306;
|
||
nr_SW_EGAMONO80x25 =$20005307;
|
||
nr_SW_CG320_D =$2000530d;
|
||
nr_SW_CG640_E =$2000530e;
|
||
nr_SW_EGAMONOAPA =$2000530f;
|
||
nr_SW_CG640x350 =$20005310;
|
||
nr_SW_ENH_MONOAPA2 =$20005311;
|
||
nr_SW_ENH_CG640 =$20005312;
|
||
nr_SW_ENH_B40x25 =$20005313;
|
||
nr_SW_ENH_C40x25 =$20005314;
|
||
nr_SW_ENH_B80x25 =$20005315;
|
||
nr_SW_ENH_C80x25 =$20005316;
|
||
nr_SW_ENH_B80x43 =$20005370;
|
||
nr_SW_ENH_C80x43 =$20005371;
|
||
nr_SW_MCAMODE =$200053ff;
|
||
nr_SW_VGA_C40x25 =$20005317;
|
||
nr_SW_VGA_C80x25 =$20005318;
|
||
nr_SW_VGA_C80x30 =$20005320;
|
||
nr_SW_VGA_C80x50 =$2000531e;
|
||
nr_SW_VGA_C80x60 =$20005322;
|
||
nr_SW_VGA_M80x25 =$20005319;
|
||
nr_SW_VGA_M80x30 =$20005321;
|
||
nr_SW_VGA_M80x50 =$2000531f;
|
||
nr_SW_VGA_M80x60 =$20005323;
|
||
nr_SW_VGA11 =$2000531a;
|
||
nr_SW_BG640x480 =$2000531a;
|
||
nr_SW_VGA12 =$2000531b;
|
||
nr_SW_CG640x480 =$2000531b;
|
||
nr_SW_VGA13 =$2000531c;
|
||
nr_SW_VGA_CG320 =$2000531c;
|
||
nr_SW_VGA_CG640 =$20005324;
|
||
nr_SW_VGA_MODEX =$20005325;
|
||
nr_SW_PC98_80x25 =$20005362;
|
||
nr_SW_PC98_80x30 =$20005363;
|
||
nr_SW_PC98_EGC640x400 =$20005364;
|
||
nr_SW_PC98_PEGC640x400 =$20005365;
|
||
nr_SW_PC98_PEGC640x480 =$20005366;
|
||
nr_SW_VGA_C90x25 =$20005328;
|
||
nr_SW_VGA_M90x25 =$20005329;
|
||
nr_SW_VGA_C90x30 =$2000532a;
|
||
nr_SW_VGA_M90x30 =$2000532b;
|
||
nr_SW_VGA_C90x43 =$2000532c;
|
||
nr_SW_VGA_M90x43 =$2000532d;
|
||
nr_SW_VGA_C90x50 =$2000532e;
|
||
nr_SW_VGA_M90x50 =$2000532f;
|
||
nr_SW_VGA_C90x60 =$20005330;
|
||
nr_SW_VGA_M90x60 =$20005331;
|
||
nr_SW_TEXT_80x25 =$200053c8;
|
||
nr_SW_TEXT_80x30 =$200053c9;
|
||
nr_SW_TEXT_80x43 =$200053ca;
|
||
nr_SW_TEXT_80x50 =$200053cb;
|
||
nr_SW_TEXT_80x60 =$200053cc;
|
||
nr_SW_TEXT_132x25 =$200053cd;
|
||
nr_SW_TEXT_132x30 =$200053ce;
|
||
nr_SW_TEXT_132x43 =$200053cf;
|
||
nr_SW_TEXT_132x50 =$200053d0;
|
||
nr_SW_TEXT_132x60 =$200053d1;
|
||
nr_SW_VESA_CG640x400 =$20005600;
|
||
nr_SW_VESA_CG640x480 =$20005601;
|
||
nr_SW_VESA_800x600 =$20005602;
|
||
nr_SW_VESA_CG800x600 =$20005603;
|
||
nr_SW_VESA_1024x768 =$20005604;
|
||
nr_SW_VESA_CG1024x768 =$20005605;
|
||
nr_SW_VESA_1280x1024 =$20005606;
|
||
nr_SW_VESA_CG1280x1024 =$20005607;
|
||
nr_SW_VESA_C80x60 =$20005608;
|
||
nr_SW_VESA_C132x25 =$20005609;
|
||
nr_SW_VESA_C132x43 =$2000560a;
|
||
nr_SW_VESA_C132x50 =$2000560b;
|
||
nr_SW_VESA_C132x60 =$2000560c;
|
||
nr_SW_VESA_32K_320 =$2000560d;
|
||
nr_SW_VESA_64K_320 =$2000560e;
|
||
nr_SW_VESA_FULL_320 =$2000560f;
|
||
nr_SW_VESA_32K_640 =$20005610;
|
||
nr_SW_VESA_64K_640 =$20005611;
|
||
nr_SW_VESA_FULL_640 =$20005612;
|
||
nr_SW_VESA_32K_800 =$20005613;
|
||
nr_SW_VESA_64K_800 =$20005614;
|
||
nr_SW_VESA_FULL_800 =$20005615;
|
||
nr_SW_VESA_32K_1024 =$20005616;
|
||
nr_SW_VESA_64K_1024 =$20005617;
|
||
nr_SW_VESA_FULL_1024 =$20005618;
|
||
nr_SW_VESA_32K_1280 =$20005619;
|
||
nr_SW_VESA_64K_1280 =$2000561a;
|
||
nr_SW_VESA_FULL_1280 =$2000561b;
|
||
|
||
{kbdsio FpIoctl numbers}
|
||
|
||
nr_KDGKBMODE =$40044b06;
|
||
nr_KDSKBMODE =$20004b07;
|
||
nr_KDMKTONE =$20004b08;
|
||
{$ifndef definconsole}
|
||
nr_KDGETMODE =$40044b09;
|
||
nr_KDSETMODE =$20004b0a;
|
||
nr_KDSBORDER =$20004b0d;
|
||
{$endif}
|
||
nr_KDGKBSTATE =$40044b13;
|
||
nr_KDSKBSTATE =$20004b14;
|
||
nr_KDENABIO =$20004b3c;
|
||
nr_KDDISABIO =$20004b3d;
|
||
nr_KIOCSOUND =$20004b3f;
|
||
nr_KDGKBTYPE =$40044b40;
|
||
nr_KDGETLED =$40044b41;
|
||
nr_KDSETLED =$20004b42;
|
||
nr_KDSETRAD =$20004b43;
|
||
{$ifndef definconsole}
|
||
nr_KDRASTER =$800c4b64;
|
||
{$endif}
|
||
nr_KDGKBINFO =$40244b65;
|
||
nr_KDSETREPEAT =$80084b66;
|
||
nr_KDGETREPEAT =$40084b67;
|
||
nr_GETFKEY =$c0146b00;
|
||
nr_SETFKEY =$c0146b01;
|
||
{$ifndef definconsole}
|
||
nr_GIO_SCRNMAP =$41006b02;
|
||
nr_PIO_SCRNMAP =$81006b03;
|
||
{$endif}
|
||
nr_GIO_KEYMAP =$4a026b06;
|
||
nr_PIO_KEYMAP =$8a026b07;
|
||
nr_GIO_DEADKEYMAP =$462a6b08;
|
||
nr_PIO_DEADKEYMAP =$862a6b09;
|
||
nr_GIO_KEYMAPENT =$c00c6b0a;
|
||
nr_PIO_KEYMAPENT =$800c6b0b;
|
||
|
||
|
||
|
||
{mouse FpIoctl numbers}
|
||
nr_MOUSE_GETSTATUS =$40184d00;
|
||
nr_MOUSE_GETHWINFO =$40144d01;
|
||
nr_MOUSE_GETMODE =$401c4d02;
|
||
nr_MOUSE_SETMODE =$801c4d03;
|
||
nr_MOUSE_GETLEVEL =$40044d04;
|
||
nr_MOUSE_SETLEVEL =$80044d05;
|
||
nr_MOUSE_GETVARS =$40404d06;
|
||
nr_MOUSE_SETVARS =$80404d07;
|
||
nr_MOUSE_READSTATE =$c0444d08;
|
||
nr_MOUSE_READDATA =$c0444d09;
|
||
nr_MOUSE_SETRESOLUTION =$80044d0a;
|
||
nr_MOUSE_SETSCALING =$80044d0b;
|
||
nr_MOUSE_SETRATE =$80044d0c;
|
||
nr_MOUSE_GETHWID =$40044d0d;
|
||
|
||
{------------- Added procedures ---------------}
|
||
|
||
function physicalconsole(fd:longint) : boolean;
|
||
|
||
IMPLEMENTATION
|
||
|
||
Uses BaseUnix,termio;
|
||
|
||
function physicalconsole(fd:longint) : boolean;
|
||
|
||
var name:string;
|
||
|
||
begin
|
||
if (isatty(fd)<>-1) then
|
||
begin
|
||
name:=ttyname(fd);
|
||
if Copy(name,1,8)<>'/dev/tty' then
|
||
physicalconsole:=false {isatty is true, but not /dev/tty.
|
||
Could be /dev/pts support, but
|
||
I reserve the case}
|
||
else
|
||
begin
|
||
if name[9]='v' then {ttyv is phys console. see /etc/ttys}
|
||
physicalconsole:=true
|
||
else
|
||
physicalconsole:=false;
|
||
end;
|
||
end
|
||
else
|
||
physicalconsole:=false; {Not a tty, then I don't know what it is}
|
||
end;
|
||
|
||
{other macros (not FpIoctl)}
|
||
|
||
function KEYCHAR(c:longint):longint;
|
||
|
||
begin
|
||
c:=c and $FF;
|
||
end;
|
||
|
||
function KEYFLAGS(c:longint):longint;
|
||
|
||
begin
|
||
c:=c and NOT $FF;
|
||
end;
|
||
|
||
function kbio_F(x:longint):longint;
|
||
begin
|
||
kbio_f:=x+F_FN-1;
|
||
end;
|
||
|
||
function kbio_S(x:longint):longint;
|
||
begin
|
||
kbio_S:=x+F_SCR-1;
|
||
end;
|
||
|
||
function kbio_ACC(x:longint):longint;
|
||
begin
|
||
kbio_ACC:=x+F_ACC;
|
||
end;
|
||
|
||
{fbio.h FpIoctl's}
|
||
|
||
Function FBIOGTYPE(fd:longint;var param1 : fbtype):boolean;
|
||
{IOR('F',0,sizeof(struct fbtype) }
|
||
|
||
Begin
|
||
FBIOGTYPE:=FpIoctl(fd,nr_FBIOGTYPE,@param1)=0;
|
||
end;
|
||
|
||
Function FBIOGINFO(fd:longint;var param1 : fbinfo):boolean;
|
||
{IOR('F',2,sizeof(struct fbinfo) }
|
||
|
||
Begin
|
||
FBIOGINFO:=FpIoctl(fd,nr_FBIOGINFO,@param1)=0;
|
||
end;
|
||
|
||
Function FBIOPUTCMAP(fd:longint;var param1 : fbcmap):boolean;
|
||
{IOW('F',3,sizeof(struct fbcmap) }
|
||
|
||
Begin
|
||
FBIOPUTCMAP:=FpIoctl(fd,nr_FBIOPUTCMAP,@param1)=0;
|
||
end;
|
||
|
||
Function FBIOGETCMAP(fd:longint;var param1 : fbcmap):boolean;
|
||
{IOW('F',4,sizeof(struct fbcmap) }
|
||
|
||
Begin
|
||
FBIOGETCMAP:=FpIoctl(fd,nr_FBIOGETCMAP,@param1)=0;
|
||
end;
|
||
|
||
Function FBIOGATTR(fd:longint;var param1 : fbgattr):boolean;
|
||
{IOR('F',6,sizeof(struct fbgattr) }
|
||
|
||
Begin
|
||
FBIOGATTR:=FpIoctl(fd,nr_FBIOGATTR,@param1)=0;
|
||
end;
|
||
|
||
Function FBIOSVIDEO(fd:longint;var param1 : longint):boolean;
|
||
{IOW('F',7,sizeof(int) }
|
||
|
||
Begin
|
||
FBIOSVIDEO:=FpIoctl(fd,nr_FBIOSVIDEO,@param1)=0;
|
||
end;
|
||
|
||
Function FBIOGVIDEO(fd:longint;var param1 : longint):boolean;
|
||
{IOR('F',8,sizeof(int) }
|
||
|
||
Begin
|
||
FBIOGVIDEO:=FpIoctl(fd,nr_FBIOGVIDEO,@param1)=0;
|
||
end;
|
||
|
||
Function FBIOSCURSOR(fd:longint;var param1 : fbcursor):boolean;
|
||
{IOW('F',24,sizeof(struct fbcursor) }
|
||
|
||
Begin
|
||
FBIOSCURSOR:=FpIoctl(fd,nr_FBIOSCURSOR,@param1)=0;
|
||
end;
|
||
|
||
Function FBIOGCURSOR(fd:longint;var param1 : fbcursor):boolean;
|
||
{IOWR('F',25,sizeof(struct fbcursor) }
|
||
|
||
Begin
|
||
FBIOGCURSOR:=FpIoctl(fd,nr_FBIOGCURSOR,@param1)=0;
|
||
end;
|
||
|
||
Function FBIOSCURPOS(fd:longint;var param1 : fbcurpos):boolean;
|
||
{IOW('F',26,sizeof(struct fbcurpos) }
|
||
|
||
Begin
|
||
FBIOSCURPOS:=FpIoctl(fd,nr_FBIOSCURPOS,@param1)=0;
|
||
end;
|
||
|
||
Function FBIOGCURPOS(fd:longint;var param1 : fbcurpos):boolean;
|
||
{IOW('F',27,sizeof(struct fbcurpos) }
|
||
|
||
Begin
|
||
FBIOGCURPOS:=FpIoctl(fd,nr_FBIOGCURPOS,@param1)=0;
|
||
end;
|
||
|
||
Function FBIOGCURMAX(fd:longint;var param1 : fbcurpos):boolean;
|
||
{IOR('F',28,sizeof(struct fbcurpos) }
|
||
|
||
Begin
|
||
FBIOGCURMAX:=FpIoctl(fd,nr_FBIOGCURMAX,@param1)=0;
|
||
end;
|
||
|
||
Function FBIO_ADAPTER(fd:longint;var param1 : longint):boolean;
|
||
{IOR('F',100,sizeof(int) }
|
||
|
||
Begin
|
||
FBIO_ADAPTER:=FpIoctl(fd,nr_FBIO_ADAPTER,@param1)=0;
|
||
end;
|
||
|
||
Function FBIO_ADPTYPE(fd:longint;var param1 : longint):boolean;
|
||
{IOR('F',101,sizeof(int) }
|
||
|
||
Begin
|
||
FBIO_ADPTYPE:=FpIoctl(fd,nr_FBIO_ADPTYPE,@param1)=0;
|
||
end;
|
||
|
||
Function FBIO_ADPINFO(fd:longint;var param1 : video_adapter_info):boolean;
|
||
{IOR('F',102,sizeof(struct video_adapter_info) }
|
||
|
||
Begin
|
||
FBIO_ADPINFO:=FpIoctl(fd,nr_FBIO_ADPINFO,@param1)=0;
|
||
end;
|
||
|
||
Function FBIO_MODEINFO(fd:longint;var param1 : video_info):boolean;
|
||
{IOWR('F',103,sizeof(struct video_info) }
|
||
|
||
Begin
|
||
FBIO_MODEINFO:=FpIoctl(fd,nr_FBIO_MODEINFO,@param1)=0;
|
||
end;
|
||
|
||
Function FBIO_FINDMODE(fd:longint;var param1 : video_info):boolean;
|
||
{IOWR('F',104,sizeof(struct video_info) }
|
||
|
||
Begin
|
||
FBIO_FINDMODE:=FpIoctl(fd,nr_FBIO_FINDMODE,@param1)=0;
|
||
end;
|
||
|
||
Function FBIO_GETMODE(fd:longint;var param1 : longint):boolean;
|
||
{IOR('F',105,sizeof(int) }
|
||
|
||
Begin
|
||
FBIO_GETMODE:=FpIoctl(fd,nr_FBIO_GETMODE,@param1)=0;
|
||
end;
|
||
|
||
Function FBIO_SETMODE(fd:longint;var param1 : longint):boolean;
|
||
{IOW('F',106,sizeof(int) }
|
||
|
||
Begin
|
||
FBIO_SETMODE:=FpIoctl(fd,nr_FBIO_SETMODE,@param1)=0;
|
||
end;
|
||
|
||
Function FBIO_GETWINORG(fd:longint;var param1 : u_int):boolean;
|
||
{IOR('F',107,sizeof(u_int) }
|
||
|
||
Begin
|
||
FBIO_GETWINORG:=FpIoctl(fd,nr_FBIO_GETWINORG,@param1)=0;
|
||
end;
|
||
|
||
Function FBIO_SETWINORG(fd:longint;var param1 : u_int):boolean;
|
||
{IOW('F',108,sizeof(u_int) }
|
||
|
||
Begin
|
||
FBIO_SETWINORG:=FpIoctl(fd,nr_FBIO_SETWINORG,@param1)=0;
|
||
end;
|
||
|
||
Function FBIO_GETDISPSTART(fd:longint;var param1 : video_display_start_t):boolean;
|
||
{IOR('F',109,sizeof(video_display_start_t) }
|
||
|
||
Begin
|
||
FBIO_GETDISPSTART:=FpIoctl(fd,nr_FBIO_GETDISPSTART,@param1)=0;
|
||
end;
|
||
|
||
Function FBIO_SETDISPSTART(fd:longint;var param1 : video_display_start_t):boolean;
|
||
{IOW('F',110,sizeof(video_display_start_t) }
|
||
|
||
Begin
|
||
FBIO_SETDISPSTART:=FpIoctl(fd,nr_FBIO_SETDISPSTART,@param1)=0;
|
||
end;
|
||
|
||
Function FBIO_GETLINEWIDTH(fd:longint;var param1 : u_int):boolean;
|
||
{IOR('F',111,sizeof(u_int) }
|
||
|
||
Begin
|
||
FBIO_GETLINEWIDTH:=FpIoctl(fd,nr_FBIO_GETLINEWIDTH,@param1)=0;
|
||
end;
|
||
|
||
Function FBIO_SETLINEWIDTH(fd:longint;var param1 : u_int):boolean;
|
||
{IOW('F',112,sizeof(u_int) }
|
||
|
||
Begin
|
||
FBIO_SETLINEWIDTH:=FpIoctl(fd,nr_FBIO_SETLINEWIDTH,@param1)=0;
|
||
end;
|
||
|
||
Function FBIO_GETPALETTE(fd:longint;var param1 : video_color_palette_t):boolean;
|
||
{IOW('F',113,sizeof(video_color_palette_t) }
|
||
|
||
Begin
|
||
FBIO_GETPALETTE:=FpIoctl(fd,nr_FBIO_GETPALETTE,@param1)=0;
|
||
end;
|
||
|
||
Function FBIO_SETPALETTE(fd:longint;var param1 : video_color_palette_t):boolean;
|
||
{IOW('F',114,sizeof(video_color_palette_t) }
|
||
|
||
Begin
|
||
FBIO_SETPALETTE:=FpIoctl(fd,nr_FBIO_SETPALETTE,@param1)=0;
|
||
end;
|
||
|
||
|
||
{consio.h FpIoctl's}
|
||
|
||
Function KDGETMODE(fd:longint;var param1 : longint):boolean;
|
||
{IOR('K',9,sizeof(int) }
|
||
|
||
Begin
|
||
KDGETMODE:=FpIoctl(fd,nr_KDGETMODE,@param1)=0;
|
||
end;
|
||
|
||
Function KDSETMODE(fd:longint;param1 : longint):boolean;
|
||
{IO('K',10 /* int */));
|
||
}
|
||
|
||
Begin
|
||
KDSETMODE:=FpIoctl(fd,nr_KDSETMODE,pointer(param1))=0;
|
||
end;
|
||
|
||
Function KDSBORDER(fd:longint;param1 : longint):boolean;
|
||
{IO('K',13 /* int */));
|
||
}
|
||
|
||
Begin
|
||
KDSBORDER:=FpIoctl(fd,nr_KDSBORDER,pointer(param1))=0;
|
||
end;
|
||
|
||
Function KDRASTER(fd:longint;var param1 : scr_size_t):boolean;
|
||
{IOW('K',100,sizeof(scr_size_t) }
|
||
|
||
Begin
|
||
KDRASTER:=FpIoctl(fd,nr_KDRASTER,@param1)=0;
|
||
end;
|
||
|
||
Function GIO_SCRNMAP(fd:longint;var param1 : scrmap_t):boolean;
|
||
{IOR('k',2,sizeof(scrmap_t) }
|
||
|
||
Begin
|
||
GIO_SCRNMAP:=FpIoctl(fd,nr_GIO_SCRNMAP,@param1)=0;
|
||
end;
|
||
|
||
Function PIO_SCRNMAP(fd:longint;var param1 : scrmap_t):boolean;
|
||
{IOW('k',3,sizeof(scrmap_t) }
|
||
|
||
Begin
|
||
PIO_SCRNMAP:=FpIoctl(fd,nr_PIO_SCRNMAP,@param1)=0;
|
||
end;
|
||
|
||
Function GIO_ATTR(fd:longint;var param1 : longint):boolean;
|
||
{IOR('a',0,sizeof(int) }
|
||
|
||
Begin
|
||
GIO_ATTR:=FpIoctl(fd,nr_GIO_ATTR,@param1)=0;
|
||
end;
|
||
|
||
Function GIO_COLOR(fd:longint;var param1 : longint):boolean;
|
||
{IOR('c',0,sizeof(int) }
|
||
|
||
Begin
|
||
GIO_COLOR:=FpIoctl(fd,nr_GIO_COLOR,@param1)=0;
|
||
end;
|
||
|
||
Function CONS_CURRENT(fd:longint;var param1 : longint):boolean;
|
||
{IOR('c',1,sizeof(int) }
|
||
|
||
Begin
|
||
CONS_CURRENT:=FpIoctl(fd,nr_CONS_CURRENT,@param1)=0;
|
||
end;
|
||
|
||
Function CONS_GET(fd:longint;var param1 : longint):boolean;
|
||
{IOR('c',2,sizeof(int) }
|
||
|
||
Begin
|
||
CONS_GET:=FpIoctl(fd,nr_CONS_GET,@param1)=0;
|
||
end;
|
||
|
||
Function CONS_IO(fd:longint):boolean;
|
||
{IO('c',3));
|
||
}
|
||
|
||
Begin
|
||
CONS_IO:=FpIoctl(fd,nr_CONS_IO,nil)=0;
|
||
end;
|
||
|
||
Function CONS_BLANKTIME(fd:longint;var param1 : longint):boolean;
|
||
{IOW('c',4,sizeof(int) }
|
||
|
||
Begin
|
||
CONS_BLANKTIME:=FpIoctl(fd,nr_CONS_BLANKTIME,@param1)=0;
|
||
end;
|
||
|
||
Function CONS_SSAVER(fd:longint;var param1 : ssaver_t):boolean;
|
||
{IOW('c',5,sizeof(ssaver_t) }
|
||
|
||
Begin
|
||
CONS_SSAVER:=FpIoctl(fd,nr_CONS_SSAVER,@param1)=0;
|
||
end;
|
||
|
||
Function CONS_GSAVER(fd:longint;var param1 : ssaver_t):boolean;
|
||
{IOWR('c',6,sizeof(ssaver_t) }
|
||
|
||
Begin
|
||
CONS_GSAVER:=FpIoctl(fd,nr_CONS_GSAVER,@param1)=0;
|
||
end;
|
||
|
||
Function CONS_CURSORTYPE(fd:longint;var param1 : longint):boolean;
|
||
{IOW('c',7,sizeof(int) }
|
||
|
||
Begin
|
||
CONS_CURSORTYPE:=FpIoctl(fd,nr_CONS_CURSORTYPE,@param1)=0;
|
||
end;
|
||
|
||
Function CONS_BELLTYPE(fd:longint;var param1 : longint):boolean;
|
||
{IOW('c',8,sizeof(int) }
|
||
|
||
Begin
|
||
CONS_BELLTYPE:=FpIoctl(fd,nr_CONS_BELLTYPE,@param1)=0;
|
||
end;
|
||
|
||
Function CONS_HISTORY(fd:longint;var param1 : longint):boolean;
|
||
{IOW('c',9,sizeof(int) }
|
||
|
||
Begin
|
||
CONS_HISTORY:=FpIoctl(fd,nr_CONS_HISTORY,@param1)=0;
|
||
end;
|
||
|
||
Function CONS_MOUSECTL(fd:longint;var param1 : mouse_info_t):boolean;
|
||
{IOWR('c',10,sizeof(mouse_info_t) }
|
||
|
||
Begin
|
||
CONS_MOUSECTL:=FpIoctl(fd,nr_CONS_MOUSECTL,@param1)=0;
|
||
end;
|
||
|
||
Function CONS_IDLE(fd:longint;var param1 : longint):boolean;
|
||
{IOR('c',11,sizeof(int) }
|
||
|
||
Begin
|
||
CONS_IDLE:=FpIoctl(fd,nr_CONS_IDLE,@param1)=0;
|
||
end;
|
||
|
||
Function CONS_SAVERMODE(fd:longint;var param1 : longint):boolean;
|
||
{IOW('c',12,sizeof(int) }
|
||
|
||
Begin
|
||
CONS_SAVERMODE:=FpIoctl(fd,nr_CONS_SAVERMODE,@param1)=0;
|
||
end;
|
||
|
||
Function CONS_SAVERSTART(fd:longint;var param1 : longint):boolean;
|
||
{IOW('c',13,sizeof(int) }
|
||
|
||
Begin
|
||
CONS_SAVERSTART:=FpIoctl(fd,nr_CONS_SAVERSTART,@param1)=0;
|
||
end;
|
||
|
||
Function PIO_FONT8x8(fd:longint;var param1 : fnt8_t):boolean;
|
||
{IOW('c',64,sizeof(fnt8_t) }
|
||
|
||
Begin
|
||
PIO_FONT8x8:=FpIoctl(fd,nr_PIO_FONT8x8,@param1)=0;
|
||
end;
|
||
|
||
Function GIO_FONT8x8(fd:longint;var param1 : fnt8_t):boolean;
|
||
{IOR('c',65,sizeof(fnt8_t) }
|
||
|
||
Begin
|
||
GIO_FONT8x8:=FpIoctl(fd,nr_GIO_FONT8x8,@param1)=0;
|
||
end;
|
||
|
||
Function PIO_FONT8x14(fd:longint;var param1 : fnt14_t):boolean;
|
||
{IOW('c',66,sizeof(fnt14_t) }
|
||
|
||
Begin
|
||
PIO_FONT8x14:=FpIoctl(fd,nr_PIO_FONT8x14,@param1)=0;
|
||
end;
|
||
|
||
Function GIO_FONT8x14(fd:longint;var param1 : fnt14_t):boolean;
|
||
{IOR('c',67,sizeof(fnt14_t) }
|
||
|
||
Begin
|
||
GIO_FONT8x14:=FpIoctl(fd,nr_GIO_FONT8x14,@param1)=0;
|
||
end;
|
||
|
||
Function PIO_FONT8x16(fd:longint;var param1 : fnt16_t):boolean;
|
||
{IOW('c',68,sizeof(fnt16_t) }
|
||
|
||
Begin
|
||
PIO_FONT8x16:=FpIoctl(fd,nr_PIO_FONT8x16,@param1)=0;
|
||
end;
|
||
|
||
Function GIO_FONT8x16(fd:longint;var param1 : fnt16_t):boolean;
|
||
{IOR('c',69,sizeof(fnt16_t) }
|
||
|
||
Begin
|
||
GIO_FONT8x16:=FpIoctl(fd,nr_GIO_FONT8x16,@param1)=0;
|
||
end;
|
||
|
||
Function CONS_GETINFO(fd:longint;var param1 : vid_info_t):boolean;
|
||
{IOWR('c',73,sizeof(vid_info_t) }
|
||
|
||
Begin
|
||
CONS_GETINFO:=FpIoctl(fd,nr_CONS_GETINFO,@param1)=0;
|
||
end;
|
||
|
||
Function CONS_GETVERS(fd:longint;var param1 : longint):boolean;
|
||
{IOR('c',74,sizeof(int) }
|
||
|
||
Begin
|
||
CONS_GETVERS:=FpIoctl(fd,nr_CONS_GETVERS,@param1)=0;
|
||
end;
|
||
|
||
Function CONS_CURRENTADP(fd:longint;var param1 : longint):boolean;
|
||
{IOR('c',100,sizeof(int) }
|
||
|
||
Begin
|
||
CONS_CURRENTADP:=FpIoctl(fd,nr_CONS_CURRENTADP,@param1)=0;
|
||
end;
|
||
|
||
Function CONS_ADPINFO(fd:longint;var param1 : video_adapter_info_t):boolean;
|
||
{IOWR('c',101,sizeof(video_adapter_info_t) }
|
||
|
||
Begin
|
||
CONS_ADPINFO:=FpIoctl(fd,nr_CONS_ADPINFO,@param1)=0;
|
||
end;
|
||
|
||
Function CONS_MODEINFO(fd:longint;var param1 : video_info_t):boolean;
|
||
{IOWR('c',102,sizeof(video_info_t) }
|
||
|
||
Begin
|
||
CONS_MODEINFO:=FpIoctl(fd,nr_CONS_MODEINFO,@param1)=0;
|
||
end;
|
||
|
||
Function CONS_FINDMODE(fd:longint;var param1 : video_info_t):boolean;
|
||
{IOWR('c',103,sizeof(video_info_t) }
|
||
|
||
Begin
|
||
CONS_FINDMODE:=FpIoctl(fd,nr_CONS_FINDMODE,@param1)=0;
|
||
end;
|
||
|
||
Function CONS_SETWINORG(fd:longint;param1 : longint):boolean;
|
||
{IO('c',104 /* int */));
|
||
}
|
||
|
||
Begin
|
||
CONS_SETWINORG:=FpIoctl(fd,nr_CONS_SETWINORG,pointer(param1))=0;
|
||
end;
|
||
|
||
Function CONS_SETKBD(fd:longint;param1 : longint):boolean;
|
||
{IO('c',110 /* int */));
|
||
}
|
||
|
||
Begin
|
||
CONS_SETKBD:=FpIoctl(fd,nr_CONS_SETKBD,pointer(param1))=0;
|
||
end;
|
||
|
||
Function CONS_RELKBD(fd:longint):boolean;
|
||
{IO('c',111));
|
||
}
|
||
|
||
Begin
|
||
CONS_RELKBD:=FpIoctl(fd,nr_CONS_RELKBD,nil)=0;
|
||
end;
|
||
|
||
Function CONS_GETTERM(fd:longint;var param1 : term_info_t):boolean;
|
||
{IOWR('c',112,sizeof(term_info_t) }
|
||
|
||
Begin
|
||
CONS_GETTERM:=FpIoctl(fd,nr_CONS_GETTERM,@param1)=0;
|
||
end;
|
||
|
||
Function CONS_SETTERM(fd:longint;var param1 : term_info_t):boolean;
|
||
{IOW('c',113,sizeof(term_info_t) }
|
||
|
||
Begin
|
||
CONS_SETTERM:=FpIoctl(fd,nr_CONS_SETTERM,@param1)=0;
|
||
end;
|
||
|
||
Function ADJUST_CLOCK(fd:longint):boolean;
|
||
{IO('t',100));
|
||
}
|
||
|
||
Begin
|
||
ADJUST_CLOCK:=FpIoctl(fd,nr_ADJUST_CLOCK,nil)=0;
|
||
end;
|
||
|
||
Function VT_OPENQRY(fd:longint;var param1 : longint):boolean;
|
||
{IOR('v',1,sizeof(int) }
|
||
|
||
Begin
|
||
VT_OPENQRY:=FpIoctl(fd,nr_VT_OPENQRY,@param1)=0;
|
||
end;
|
||
|
||
Function VT_SETMODE(fd:longint;var param1 : vtmode_t):boolean;
|
||
{IOW('v',2,sizeof(vtmode_t) }
|
||
|
||
Begin
|
||
VT_SETMODE:=FpIoctl(fd,nr_VT_SETMODE,@param1)=0;
|
||
end;
|
||
|
||
Function VT_GETMODE(fd:longint;var param1 : vtmode_t):boolean;
|
||
{IOR('v',3,sizeof(vtmode_t) }
|
||
|
||
Begin
|
||
VT_GETMODE:=FpIoctl(fd,nr_VT_GETMODE,@param1)=0;
|
||
end;
|
||
|
||
Function VT_RELDISP(fd:longint;param1 : longint):boolean;
|
||
{IO('v',4 /* int */));
|
||
}
|
||
|
||
Begin
|
||
VT_RELDISP:=FpIoctl(fd,nr_VT_RELDISP,pointer(param1))=0;
|
||
end;
|
||
|
||
Function VT_ACTIVATE(fd:longint;param1 : longint):boolean;
|
||
{IO('v',5 /* int */));
|
||
}
|
||
|
||
Begin
|
||
VT_ACTIVATE:=FpIoctl(fd,nr_VT_ACTIVATE,pointer(param1))=0;
|
||
end;
|
||
|
||
Function VT_WAITACTIVE(fd:longint;param1 : longint):boolean;
|
||
{IO('v',6 /* int */));
|
||
}
|
||
|
||
Begin
|
||
VT_WAITACTIVE:=FpIoctl(fd,nr_VT_WAITACTIVE,pointer(param1))=0;
|
||
end;
|
||
|
||
Function VT_GETACTIVE(fd:longint;var param1 : longint):boolean;
|
||
{IOR('v',7,sizeof(int) }
|
||
|
||
Begin
|
||
VT_GETACTIVE:=FpIoctl(fd,nr_VT_GETACTIVE,@param1)=0;
|
||
end;
|
||
|
||
Function VT_GETINDEX(fd:longint;var param1 : longint):boolean;
|
||
{IOR('v',8,sizeof(int) }
|
||
|
||
Begin
|
||
VT_GETINDEX:=FpIoctl(fd,nr_VT_GETINDEX,@param1)=0;
|
||
end;
|
||
|
||
Function SW_B40x25(fd:longint):boolean;
|
||
{IO('S',M_B40x25));
|
||
}
|
||
|
||
Begin
|
||
SW_B40x25:=FpIoctl(fd,nr_SW_B40x25,nil)=0;
|
||
end;
|
||
|
||
Function SW_C40x25(fd:longint):boolean;
|
||
{IO('S',M_C40x25));
|
||
}
|
||
|
||
Begin
|
||
SW_C40x25:=FpIoctl(fd,nr_SW_C40x25,nil)=0;
|
||
end;
|
||
|
||
Function SW_B80x25(fd:longint):boolean;
|
||
{IO('S',M_B80x25));
|
||
}
|
||
|
||
Begin
|
||
SW_B80x25:=FpIoctl(fd,nr_SW_B80x25,nil)=0;
|
||
end;
|
||
|
||
Function SW_C80x25(fd:longint):boolean;
|
||
{IO('S',M_C80x25));
|
||
}
|
||
|
||
Begin
|
||
SW_C80x25:=FpIoctl(fd,nr_SW_C80x25,nil)=0;
|
||
end;
|
||
|
||
Function SW_BG320(fd:longint):boolean;
|
||
{IO('S',M_BG320));
|
||
}
|
||
|
||
Begin
|
||
SW_BG320:=FpIoctl(fd,nr_SW_BG320,nil)=0;
|
||
end;
|
||
|
||
Function SW_CG320(fd:longint):boolean;
|
||
{IO('S',M_CG320));
|
||
}
|
||
|
||
Begin
|
||
SW_CG320:=FpIoctl(fd,nr_SW_CG320,nil)=0;
|
||
end;
|
||
|
||
Function SW_BG640(fd:longint):boolean;
|
||
{IO('S',M_BG640));
|
||
}
|
||
|
||
Begin
|
||
SW_BG640:=FpIoctl(fd,nr_SW_BG640,nil)=0;
|
||
end;
|
||
|
||
Function SW_EGAMONO80x25(fd:longint):boolean;
|
||
{IO('S',M_EGAMONO80x25));
|
||
}
|
||
|
||
Begin
|
||
SW_EGAMONO80x25:=FpIoctl(fd,nr_SW_EGAMONO80x25,nil)=0;
|
||
end;
|
||
|
||
Function SW_CG320_D(fd:longint):boolean;
|
||
{IO('S',M_CG320_D));
|
||
}
|
||
|
||
Begin
|
||
SW_CG320_D:=FpIoctl(fd,nr_SW_CG320_D,nil)=0;
|
||
end;
|
||
|
||
Function SW_CG640_E(fd:longint):boolean;
|
||
{IO('S',M_CG640_E));
|
||
}
|
||
|
||
Begin
|
||
SW_CG640_E:=FpIoctl(fd,nr_SW_CG640_E,nil)=0;
|
||
end;
|
||
|
||
Function SW_EGAMONOAPA(fd:longint):boolean;
|
||
{IO('S',M_EGAMONOAPA));
|
||
}
|
||
|
||
Begin
|
||
SW_EGAMONOAPA:=FpIoctl(fd,nr_SW_EGAMONOAPA,nil)=0;
|
||
end;
|
||
|
||
Function SW_CG640x350(fd:longint):boolean;
|
||
{IO('S',M_CG640x350));
|
||
}
|
||
|
||
Begin
|
||
SW_CG640x350:=FpIoctl(fd,nr_SW_CG640x350,nil)=0;
|
||
end;
|
||
|
||
Function SW_ENH_MONOAPA2(fd:longint):boolean;
|
||
{IO('S',M_ENHMONOAPA2));
|
||
}
|
||
|
||
Begin
|
||
SW_ENH_MONOAPA2:=FpIoctl(fd,nr_SW_ENH_MONOAPA2,nil)=0;
|
||
end;
|
||
|
||
Function SW_ENH_CG640(fd:longint):boolean;
|
||
{IO('S',M_ENH_CG640));
|
||
}
|
||
|
||
Begin
|
||
SW_ENH_CG640:=FpIoctl(fd,nr_SW_ENH_CG640,nil)=0;
|
||
end;
|
||
|
||
Function SW_ENH_B40x25(fd:longint):boolean;
|
||
{IO('S',M_ENH_B40x25));
|
||
}
|
||
|
||
Begin
|
||
SW_ENH_B40x25:=FpIoctl(fd,nr_SW_ENH_B40x25,nil)=0;
|
||
end;
|
||
|
||
Function SW_ENH_C40x25(fd:longint):boolean;
|
||
{IO('S',M_ENH_C40x25));
|
||
}
|
||
|
||
Begin
|
||
SW_ENH_C40x25:=FpIoctl(fd,nr_SW_ENH_C40x25,nil)=0;
|
||
end;
|
||
|
||
Function SW_ENH_B80x25(fd:longint):boolean;
|
||
{IO('S',M_ENH_B80x25));
|
||
}
|
||
|
||
Begin
|
||
SW_ENH_B80x25:=FpIoctl(fd,nr_SW_ENH_B80x25,nil)=0;
|
||
end;
|
||
|
||
Function SW_ENH_C80x25(fd:longint):boolean;
|
||
{IO('S',M_ENH_C80x25));
|
||
}
|
||
|
||
Begin
|
||
SW_ENH_C80x25:=FpIoctl(fd,nr_SW_ENH_C80x25,nil)=0;
|
||
end;
|
||
|
||
Function SW_ENH_B80x43(fd:longint):boolean;
|
||
{IO('S',M_ENH_B80x43));
|
||
}
|
||
|
||
Begin
|
||
SW_ENH_B80x43:=FpIoctl(fd,nr_SW_ENH_B80x43,nil)=0;
|
||
end;
|
||
|
||
Function SW_ENH_C80x43(fd:longint):boolean;
|
||
{IO('S',M_ENH_C80x43));
|
||
}
|
||
|
||
Begin
|
||
SW_ENH_C80x43:=FpIoctl(fd,nr_SW_ENH_C80x43,nil)=0;
|
||
end;
|
||
|
||
Function SW_MCAMODE(fd:longint):boolean;
|
||
{IO('S',M_MCA_MODE));
|
||
}
|
||
|
||
Begin
|
||
SW_MCAMODE:=FpIoctl(fd,nr_SW_MCAMODE,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA_C40x25(fd:longint):boolean;
|
||
{IO('S',M_VGA_C40x25));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA_C40x25:=FpIoctl(fd,nr_SW_VGA_C40x25,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA_C80x25(fd:longint):boolean;
|
||
{IO('S',M_VGA_C80x25));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA_C80x25:=FpIoctl(fd,nr_SW_VGA_C80x25,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA_C80x30(fd:longint):boolean;
|
||
{IO('S',M_VGA_C80x30));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA_C80x30:=FpIoctl(fd,nr_SW_VGA_C80x30,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA_C80x50(fd:longint):boolean;
|
||
{IO('S',M_VGA_C80x50));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA_C80x50:=FpIoctl(fd,nr_SW_VGA_C80x50,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA_C80x60(fd:longint):boolean;
|
||
{IO('S',M_VGA_C80x60));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA_C80x60:=FpIoctl(fd,nr_SW_VGA_C80x60,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA_M80x25(fd:longint):boolean;
|
||
{IO('S',M_VGA_M80x25));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA_M80x25:=FpIoctl(fd,nr_SW_VGA_M80x25,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA_M80x30(fd:longint):boolean;
|
||
{IO('S',M_VGA_M80x30));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA_M80x30:=FpIoctl(fd,nr_SW_VGA_M80x30,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA_M80x50(fd:longint):boolean;
|
||
{IO('S',M_VGA_M80x50));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA_M80x50:=FpIoctl(fd,nr_SW_VGA_M80x50,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA_M80x60(fd:longint):boolean;
|
||
{IO('S',M_VGA_M80x60));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA_M80x60:=FpIoctl(fd,nr_SW_VGA_M80x60,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA11(fd:longint):boolean;
|
||
{IO('S',M_VGA11));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA11:=FpIoctl(fd,nr_SW_VGA11,nil)=0;
|
||
end;
|
||
|
||
Function SW_BG640x480(fd:longint):boolean;
|
||
{IO('S',M_VGA11));
|
||
}
|
||
|
||
Begin
|
||
SW_BG640x480:=FpIoctl(fd,nr_SW_BG640x480,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA12(fd:longint):boolean;
|
||
{IO('S',M_VGA12));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA12:=FpIoctl(fd,nr_SW_VGA12,nil)=0;
|
||
end;
|
||
|
||
Function SW_CG640x480(fd:longint):boolean;
|
||
{IO('S',M_VGA12));
|
||
}
|
||
|
||
Begin
|
||
SW_CG640x480:=FpIoctl(fd,nr_SW_CG640x480,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA13(fd:longint):boolean;
|
||
{IO('S',M_VGA13));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA13:=FpIoctl(fd,nr_SW_VGA13,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA_CG320(fd:longint):boolean;
|
||
{IO('S',M_VGA13));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA_CG320:=FpIoctl(fd,nr_SW_VGA_CG320,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA_CG640(fd:longint):boolean;
|
||
{IO('S',M_VGA_CG640));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA_CG640:=FpIoctl(fd,nr_SW_VGA_CG640,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA_MODEX(fd:longint):boolean;
|
||
{IO('S',M_VGA_MODEX));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA_MODEX:=FpIoctl(fd,nr_SW_VGA_MODEX,nil)=0;
|
||
end;
|
||
|
||
Function SW_PC98_80x25(fd:longint):boolean;
|
||
{IO('S',M_PC98_80x25));
|
||
}
|
||
|
||
Begin
|
||
SW_PC98_80x25:=FpIoctl(fd,nr_SW_PC98_80x25,nil)=0;
|
||
end;
|
||
|
||
Function SW_PC98_80x30(fd:longint):boolean;
|
||
{IO('S',M_PC98_80x30));
|
||
}
|
||
|
||
Begin
|
||
SW_PC98_80x30:=FpIoctl(fd,nr_SW_PC98_80x30,nil)=0;
|
||
end;
|
||
|
||
Function SW_PC98_EGC640x400(fd:longint):boolean;
|
||
{IO('S',M_PC98_EGC640x400));
|
||
}
|
||
|
||
Begin
|
||
SW_PC98_EGC640x400:=FpIoctl(fd,nr_SW_PC98_EGC640x400,nil)=0;
|
||
end;
|
||
|
||
Function SW_PC98_PEGC640x400(fd:longint):boolean;
|
||
{IO('S',M_PC98_PEGC640x400));
|
||
}
|
||
|
||
Begin
|
||
SW_PC98_PEGC640x400:=FpIoctl(fd,nr_SW_PC98_PEGC640x400,nil)=0;
|
||
end;
|
||
|
||
Function SW_PC98_PEGC640x480(fd:longint):boolean;
|
||
{IO('S',M_PC98_PEGC640x480));
|
||
}
|
||
|
||
Begin
|
||
SW_PC98_PEGC640x480:=FpIoctl(fd,nr_SW_PC98_PEGC640x480,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA_C90x25(fd:longint):boolean;
|
||
{IO('S',M_VGA_C90x25));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA_C90x25:=FpIoctl(fd,nr_SW_VGA_C90x25,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA_M90x25(fd:longint):boolean;
|
||
{IO('S',M_VGA_M90x25));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA_M90x25:=FpIoctl(fd,nr_SW_VGA_M90x25,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA_C90x30(fd:longint):boolean;
|
||
{IO('S',M_VGA_C90x30));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA_C90x30:=FpIoctl(fd,nr_SW_VGA_C90x30,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA_M90x30(fd:longint):boolean;
|
||
{IO('S',M_VGA_M90x30));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA_M90x30:=FpIoctl(fd,nr_SW_VGA_M90x30,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA_C90x43(fd:longint):boolean;
|
||
{IO('S',M_VGA_C90x43));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA_C90x43:=FpIoctl(fd,nr_SW_VGA_C90x43,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA_M90x43(fd:longint):boolean;
|
||
{IO('S',M_VGA_M90x43));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA_M90x43:=FpIoctl(fd,nr_SW_VGA_M90x43,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA_C90x50(fd:longint):boolean;
|
||
{IO('S',M_VGA_C90x50));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA_C90x50:=FpIoctl(fd,nr_SW_VGA_C90x50,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA_M90x50(fd:longint):boolean;
|
||
{IO('S',M_VGA_M90x50));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA_M90x50:=FpIoctl(fd,nr_SW_VGA_M90x50,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA_C90x60(fd:longint):boolean;
|
||
{IO('S',M_VGA_C90x60));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA_C90x60:=FpIoctl(fd,nr_SW_VGA_C90x60,nil)=0;
|
||
end;
|
||
|
||
Function SW_VGA_M90x60(fd:longint):boolean;
|
||
{IO('S',M_VGA_M90x60));
|
||
}
|
||
|
||
Begin
|
||
SW_VGA_M90x60:=FpIoctl(fd,nr_SW_VGA_M90x60,nil)=0;
|
||
end;
|
||
|
||
Function SW_TEXT_80x25(fd:longint):boolean;
|
||
{IO('S',M_TEXT_80x25));
|
||
}
|
||
|
||
Begin
|
||
SW_TEXT_80x25:=FpIoctl(fd,nr_SW_TEXT_80x25,nil)=0;
|
||
end;
|
||
|
||
Function SW_TEXT_80x30(fd:longint):boolean;
|
||
{IO('S',M_TEXT_80x30));
|
||
}
|
||
|
||
Begin
|
||
SW_TEXT_80x30:=FpIoctl(fd,nr_SW_TEXT_80x30,nil)=0;
|
||
end;
|
||
|
||
Function SW_TEXT_80x43(fd:longint):boolean;
|
||
{IO('S',M_TEXT_80x43));
|
||
}
|
||
|
||
Begin
|
||
SW_TEXT_80x43:=FpIoctl(fd,nr_SW_TEXT_80x43,nil)=0;
|
||
end;
|
||
|
||
Function SW_TEXT_80x50(fd:longint):boolean;
|
||
{IO('S',M_TEXT_80x50));
|
||
}
|
||
|
||
Begin
|
||
SW_TEXT_80x50:=FpIoctl(fd,nr_SW_TEXT_80x50,nil)=0;
|
||
end;
|
||
|
||
Function SW_TEXT_80x60(fd:longint):boolean;
|
||
{IO('S',M_TEXT_80x60));
|
||
}
|
||
|
||
Begin
|
||
SW_TEXT_80x60:=FpIoctl(fd,nr_SW_TEXT_80x60,nil)=0;
|
||
end;
|
||
|
||
Function SW_TEXT_132x25(fd:longint):boolean;
|
||
{IO('S',M_TEXT_132x25));
|
||
}
|
||
|
||
Begin
|
||
SW_TEXT_132x25:=FpIoctl(fd,nr_SW_TEXT_132x25,nil)=0;
|
||
end;
|
||
|
||
Function SW_TEXT_132x30(fd:longint):boolean;
|
||
{IO('S',M_TEXT_132x30));
|
||
}
|
||
|
||
Begin
|
||
SW_TEXT_132x30:=FpIoctl(fd,nr_SW_TEXT_132x30,nil)=0;
|
||
end;
|
||
|
||
Function SW_TEXT_132x43(fd:longint):boolean;
|
||
{IO('S',M_TEXT_132x43));
|
||
}
|
||
|
||
Begin
|
||
SW_TEXT_132x43:=FpIoctl(fd,nr_SW_TEXT_132x43,nil)=0;
|
||
end;
|
||
|
||
Function SW_TEXT_132x50(fd:longint):boolean;
|
||
{IO('S',M_TEXT_132x50));
|
||
}
|
||
|
||
Begin
|
||
SW_TEXT_132x50:=FpIoctl(fd,nr_SW_TEXT_132x50,nil)=0;
|
||
end;
|
||
|
||
Function SW_TEXT_132x60(fd:longint):boolean;
|
||
{IO('S',M_TEXT_132x60));
|
||
}
|
||
|
||
Begin
|
||
SW_TEXT_132x60:=FpIoctl(fd,nr_SW_TEXT_132x60,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_CG640x400(fd:longint):boolean;
|
||
{IO('V',M_VESA_CG640x400 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_CG640x400:=FpIoctl(fd,nr_SW_VESA_CG640x400,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_CG640x480(fd:longint):boolean;
|
||
{IO('V',M_VESA_CG640x480 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_CG640x480:=FpIoctl(fd,nr_SW_VESA_CG640x480,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_800x600(fd:longint):boolean;
|
||
{IO('V',M_VESA_800x600 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_800x600:=FpIoctl(fd,nr_SW_VESA_800x600,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_CG800x600(fd:longint):boolean;
|
||
{IO('V',M_VESA_CG800x600 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_CG800x600:=FpIoctl(fd,nr_SW_VESA_CG800x600,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_1024x768(fd:longint):boolean;
|
||
{IO('V',M_VESA_1024x768 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_1024x768:=FpIoctl(fd,nr_SW_VESA_1024x768,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_CG1024x768(fd:longint):boolean;
|
||
{IO('V',M_VESA_CG1024x768 - M_VESA_BAS));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_CG1024x768:=FpIoctl(fd,nr_SW_VESA_CG1024x768,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_1280x1024(fd:longint):boolean;
|
||
{IO('V',M_VESA_1280x1024 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_1280x1024:=FpIoctl(fd,nr_SW_VESA_1280x1024,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_CG1280x1024(fd:longint):boolean;
|
||
{IO('V',M_VESA_CG1280x1024 - M_VESA_BA));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_CG1280x1024:=FpIoctl(fd,nr_SW_VESA_CG1280x1024,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_C80x60(fd:longint):boolean;
|
||
{IO('V',M_VESA_C80x60 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_C80x60:=FpIoctl(fd,nr_SW_VESA_C80x60,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_C132x25(fd:longint):boolean;
|
||
{IO('V',M_VESA_C132x25 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_C132x25:=FpIoctl(fd,nr_SW_VESA_C132x25,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_C132x43(fd:longint):boolean;
|
||
{IO('V',M_VESA_C132x43 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_C132x43:=FpIoctl(fd,nr_SW_VESA_C132x43,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_C132x50(fd:longint):boolean;
|
||
{IO('V',M_VESA_C132x50 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_C132x50:=FpIoctl(fd,nr_SW_VESA_C132x50,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_C132x60(fd:longint):boolean;
|
||
{IO('V',M_VESA_C132x60 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_C132x60:=FpIoctl(fd,nr_SW_VESA_C132x60,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_32K_320(fd:longint):boolean;
|
||
{IO('V',M_VESA_32K_320 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_32K_320:=FpIoctl(fd,nr_SW_VESA_32K_320,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_64K_320(fd:longint):boolean;
|
||
{IO('V',M_VESA_64K_320 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_64K_320:=FpIoctl(fd,nr_SW_VESA_64K_320,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_FULL_320(fd:longint):boolean;
|
||
{IO('V',M_VESA_FULL_320 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_FULL_320:=FpIoctl(fd,nr_SW_VESA_FULL_320,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_32K_640(fd:longint):boolean;
|
||
{IO('V',M_VESA_32K_640 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_32K_640:=FpIoctl(fd,nr_SW_VESA_32K_640,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_64K_640(fd:longint):boolean;
|
||
{IO('V',M_VESA_64K_640 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_64K_640:=FpIoctl(fd,nr_SW_VESA_64K_640,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_FULL_640(fd:longint):boolean;
|
||
{IO('V',M_VESA_FULL_640 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_FULL_640:=FpIoctl(fd,nr_SW_VESA_FULL_640,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_32K_800(fd:longint):boolean;
|
||
{IO('V',M_VESA_32K_800 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_32K_800:=FpIoctl(fd,nr_SW_VESA_32K_800,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_64K_800(fd:longint):boolean;
|
||
{IO('V',M_VESA_64K_800 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_64K_800:=FpIoctl(fd,nr_SW_VESA_64K_800,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_FULL_800(fd:longint):boolean;
|
||
{IO('V',M_VESA_FULL_800 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_FULL_800:=FpIoctl(fd,nr_SW_VESA_FULL_800,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_32K_1024(fd:longint):boolean;
|
||
{IO('V',M_VESA_32K_1024 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_32K_1024:=FpIoctl(fd,nr_SW_VESA_32K_1024,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_64K_1024(fd:longint):boolean;
|
||
{IO('V',M_VESA_64K_1024 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_64K_1024:=FpIoctl(fd,nr_SW_VESA_64K_1024,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_FULL_1024(fd:longint):boolean;
|
||
{IO('V',M_VESA_FULL_1024 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_FULL_1024:=FpIoctl(fd,nr_SW_VESA_FULL_1024,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_32K_1280(fd:longint):boolean;
|
||
{IO('V',M_VESA_32K_1280 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_32K_1280:=FpIoctl(fd,nr_SW_VESA_32K_1280,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_64K_1280(fd:longint):boolean;
|
||
{IO('V',M_VESA_64K_1280 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_64K_1280:=FpIoctl(fd,nr_SW_VESA_64K_1280,nil)=0;
|
||
end;
|
||
|
||
Function SW_VESA_FULL_1280(fd:longint):boolean;
|
||
{IO('V',M_VESA_FULL_1280 - M_VESA_BASE));
|
||
}
|
||
|
||
Begin
|
||
SW_VESA_FULL_1280:=FpIoctl(fd,nr_SW_VESA_FULL_1280,nil)=0;
|
||
end;
|
||
|
||
{----------------------------- kbio.h FpIoctl's ---------------------------}
|
||
|
||
Function KDGKBMODE(fd:longint;var param1 : longint):boolean;
|
||
{IOR('K',6,sizeof(int) }
|
||
|
||
Begin
|
||
KDGKBMODE:=FpIoctl(fd,nr_KDGKBMODE,@param1)=0;
|
||
end;
|
||
|
||
Function KDSKBMODE(fd:longint;param1 : longint):boolean;
|
||
{IO('K',7 /* int */));
|
||
}
|
||
|
||
Begin
|
||
KDSKBMODE:=FpIoctl(fd,nr_KDSKBMODE,pointer(param1))=0;
|
||
end;
|
||
|
||
Function KDMKTONE(fd:longint;param1 : longint):boolean;
|
||
{IO('K',8 /* int */));
|
||
}
|
||
|
||
Begin
|
||
KDMKTONE:=FpIoctl(fd,nr_KDMKTONE,pointer(param1))=0;
|
||
end;
|
||
|
||
{$ifndef definconsole}
|
||
Function KDGETMODE(fd:longint;var param1 : longint):boolean;
|
||
{IOR('K',9,sizeof(int) }
|
||
|
||
Begin
|
||
KDGETMODE:=FpIoctl(fd,nr_KDGETMODE,@param1)=0;
|
||
end;
|
||
|
||
Function KDSETMODE(fd:longint;param1 : longint):boolean;
|
||
{IO('K',10 /* int */));
|
||
}
|
||
|
||
Begin
|
||
KDSETMODE:=FpIoctl(fd,nr_KDSETMODE,pointer(param1))=0;
|
||
end;
|
||
|
||
Function KDSBORDER(fd:longint;param1 : longint):boolean;
|
||
{IO('K',13 /* int */));
|
||
}
|
||
|
||
Begin
|
||
KDSBORDER:=FpIoctl(fd,nr_KDSBORDER,pointer(param1))=0;
|
||
end;
|
||
{$endif}
|
||
Function KDGKBSTATE(fd:longint;var param1 : longint):boolean;
|
||
{IOR('K',19,sizeof(int) }
|
||
|
||
Begin
|
||
KDGKBSTATE:=FpIoctl(fd,nr_KDGKBSTATE,@param1)=0;
|
||
end;
|
||
|
||
Function KDSKBSTATE(fd:longint;param1 : longint):boolean;
|
||
{IO('K',20 /* int */));
|
||
}
|
||
|
||
Begin
|
||
KDSKBSTATE:=FpIoctl(fd,nr_KDSKBSTATE,pointer(param1))=0;
|
||
end;
|
||
|
||
Function KDENABIO(fd:longint):boolean;
|
||
{IO('K',60));
|
||
}
|
||
|
||
Begin
|
||
KDENABIO:=FpIoctl(fd,nr_KDENABIO,nil)=0;
|
||
end;
|
||
|
||
Function KDDISABIO(fd:longint):boolean;
|
||
{IO('K',61));
|
||
}
|
||
|
||
Begin
|
||
KDDISABIO:=FpIoctl(fd,nr_KDDISABIO,nil)=0;
|
||
end;
|
||
|
||
Function KIOCSOUND(fd:longint;param1 : longint):boolean;
|
||
{IO('K',63 /* int */));
|
||
}
|
||
|
||
Begin
|
||
KIOCSOUND:=FpIoctl(fd,nr_KIOCSOUND,pointer(param1))=0;
|
||
end;
|
||
|
||
Function KDGKBTYPE(fd:longint;var param1 : longint):boolean;
|
||
{IOR('K',64,sizeof(int) }
|
||
|
||
Begin
|
||
KDGKBTYPE:=FpIoctl(fd,nr_KDGKBTYPE,@param1)=0;
|
||
end;
|
||
|
||
Function KDGETLED(fd:longint;var param1 : longint):boolean;
|
||
{IOR('K',65,sizeof(int) }
|
||
|
||
Begin
|
||
KDGETLED:=FpIoctl(fd,nr_KDGETLED,@param1)=0;
|
||
end;
|
||
|
||
Function KDSETLED(fd:longint;param1 : longint):boolean;
|
||
{IO('K',66 /* int */));
|
||
}
|
||
|
||
Begin
|
||
KDSETLED:=FpIoctl(fd,nr_KDSETLED,pointer(param1))=0;
|
||
end;
|
||
|
||
Function KDSETRAD(fd:longint;param1 : longint):boolean;
|
||
{IO('K',67 /* int */));
|
||
}
|
||
|
||
Begin
|
||
KDSETRAD:=FpIoctl(fd,nr_KDSETRAD,pointer(param1))=0;
|
||
end;
|
||
{$ifndef definconsole}
|
||
|
||
Function KDRASTER(fd:longint;var param1 : scr_size_t):boolean;
|
||
{IOW('K',100,sizeof(scr_size_t) }
|
||
|
||
Begin
|
||
KDRASTER:=FpIoctl(fd,nr_KDRASTER,@param1)=0;
|
||
end;
|
||
{$endif}
|
||
Function KDGKBINFO(fd:longint;var param1 : keyboard_info_t):boolean;
|
||
{IOR('K',101,sizeof(keyboard_info_t) }
|
||
|
||
Begin
|
||
KDGKBINFO:=FpIoctl(fd,nr_KDGKBINFO,@param1)=0;
|
||
end;
|
||
|
||
Function KDSETREPEAT(fd:longint;var param1 : keyboard_repeat_t):boolean;
|
||
{IOW('K',102,sizeof(keyboard_repeat_t) }
|
||
|
||
Begin
|
||
KDSETREPEAT:=FpIoctl(fd,nr_KDSETREPEAT,@param1)=0;
|
||
end;
|
||
|
||
Function KDGETREPEAT(fd:longint;var param1 : keyboard_repeat_t):boolean;
|
||
{IOR('K',103,sizeof(keyboard_repeat_t) }
|
||
|
||
Begin
|
||
KDGETREPEAT:=FpIoctl(fd,nr_KDGETREPEAT,@param1)=0;
|
||
end;
|
||
|
||
Function GETFKEY(fd:longint;var param1 : fkeyarg_t):boolean;
|
||
{IOWR('k',0,sizeof(fkeyarg_t) }
|
||
|
||
Begin
|
||
GETFKEY:=FpIoctl(fd,nr_GETFKEY,@param1)=0;
|
||
end;
|
||
|
||
Function SETFKEY(fd:longint;var param1 : fkeyarg_t):boolean;
|
||
{IOWR('k',1,sizeof(fkeyarg_t) }
|
||
|
||
Begin
|
||
SETFKEY:=FpIoctl(fd,nr_SETFKEY,@param1)=0;
|
||
end;
|
||
{$ifndef definconsole}
|
||
Function GIO_SCRNMAP(fd:longint;var param1 : scrmap_t):boolean;
|
||
{IOR('k',2,sizeof(scrmap_t) }
|
||
|
||
Begin
|
||
GIO_SCRNMAP:=FpIoctl(fd,nr_GIO_SCRNMAP,@param1)=0;
|
||
end;
|
||
|
||
Function PIO_SCRNMAP(fd:longint;var param1 : scrmap_t):boolean;
|
||
{IOW('k',3,sizeof(scrmap_t) }
|
||
|
||
Begin
|
||
PIO_SCRNMAP:=FpIoctl(fd,nr_PIO_SCRNMAP,@param1)=0;
|
||
end;
|
||
{$endif}
|
||
Function GIO_KEYMAP(fd:longint;var param1 : keymap_t):boolean;
|
||
{IOR('k',6,sizeof(keymap_t) }
|
||
|
||
Begin
|
||
GIO_KEYMAP:=FpIoctl(fd,nr_GIO_KEYMAP,@param1)=0;
|
||
end;
|
||
|
||
Function PIO_KEYMAP(fd:longint;var param1 : keymap_t):boolean;
|
||
{IOW('k',7,sizeof(keymap_t) }
|
||
|
||
Begin
|
||
PIO_KEYMAP:=FpIoctl(fd,nr_PIO_KEYMAP,@param1)=0;
|
||
end;
|
||
|
||
Function GIO_DEADKEYMAP(fd:longint;var param1 : accentmap_t):boolean;
|
||
{IOR('k',8,sizeof(accentmap_t) }
|
||
|
||
Begin
|
||
GIO_DEADKEYMAP:=FpIoctl(fd,nr_GIO_DEADKEYMAP,@param1)=0;
|
||
end;
|
||
|
||
Function PIO_DEADKEYMAP(fd:longint;var param1 : accentmap_t):boolean;
|
||
{IOW('k',9,sizeof(accentmap_t) }
|
||
|
||
Begin
|
||
PIO_DEADKEYMAP:=FpIoctl(fd,nr_PIO_DEADKEYMAP,@param1)=0;
|
||
end;
|
||
|
||
Function GIO_KEYMAPENT(fd:longint;var param1 : keyarg_t):boolean;
|
||
{IOWR('k',10,sizeof(keyarg_t) }
|
||
|
||
Begin
|
||
GIO_KEYMAPENT:=FpIoctl(fd,nr_GIO_KEYMAPENT,@param1)=0;
|
||
end;
|
||
|
||
Function PIO_KEYMAPENT(fd:longint;var param1 : keyarg_t):boolean;
|
||
{IOW('k',11,sizeof(keyarg_t) }
|
||
|
||
Begin
|
||
PIO_KEYMAPENT:=FpIoctl(fd,nr_PIO_KEYMAPENT,@param1)=0;
|
||
end;
|
||
|
||
|
||
|
||
{----------------------------- mouse.h FpIoctl's ---------------------------}
|
||
|
||
Function MOUSE_GETSTATUS(fd:longint;var param1 : mousestatus_t):boolean;
|
||
{IOR('M',0,sizeof(mousestatus_t)));
|
||
}
|
||
|
||
Begin
|
||
MOUSE_GETSTATUS:=FpIoctl(fd,nr_MOUSE_GETSTATUS,@param1)=0;
|
||
end;
|
||
|
||
Function MOUSE_GETHWINFO(fd:longint;var param1 : mousehw_t):boolean;
|
||
{IOR('M',1,sizeof(mousehw_t)));
|
||
}
|
||
|
||
Begin
|
||
MOUSE_GETHWINFO:=FpIoctl(fd,nr_MOUSE_GETHWINFO,@param1)=0;
|
||
end;
|
||
|
||
Function MOUSE_GETMODE(fd:longint;var param1 : mousemode_t):boolean;
|
||
{IOR('M',2,sizeof(mousemode_t)));
|
||
}
|
||
|
||
Begin
|
||
MOUSE_GETMODE:=FpIoctl(fd,nr_MOUSE_GETMODE,@param1)=0;
|
||
end;
|
||
|
||
Function MOUSE_SETMODE(fd:longint;var param1 : mousemode_t):boolean;
|
||
{IOW('M',3,sizeof(mousemode_t)));
|
||
}
|
||
|
||
Begin
|
||
MOUSE_SETMODE:=FpIoctl(fd,nr_MOUSE_SETMODE,@param1)=0;
|
||
end;
|
||
|
||
Function MOUSE_GETLEVEL(fd:longint;var param1 : longint):boolean;
|
||
{IOR('M',4,sizeof(int)));
|
||
}
|
||
|
||
Begin
|
||
MOUSE_GETLEVEL:=FpIoctl(fd,nr_MOUSE_GETLEVEL,@param1)=0;
|
||
end;
|
||
|
||
Function MOUSE_SETLEVEL(fd:longint;var param1 : longint):boolean;
|
||
{IOW('M',5,sizeof(int)));
|
||
}
|
||
|
||
Begin
|
||
MOUSE_SETLEVEL:=FpIoctl(fd,nr_MOUSE_SETLEVEL,@param1)=0;
|
||
end;
|
||
|
||
Function MOUSE_GETVARS(fd:longint;var param1 : mousevar_t):boolean;
|
||
{IOR('M',6,sizeof(mousevar_t)));
|
||
}
|
||
|
||
Begin
|
||
MOUSE_GETVARS:=FpIoctl(fd,nr_MOUSE_GETVARS,@param1)=0;
|
||
end;
|
||
|
||
Function MOUSE_SETVARS(fd:longint;var param1 : mousevar_t):boolean;
|
||
{IOW('M',7,sizeof(mousevar_t)));
|
||
}
|
||
|
||
Begin
|
||
MOUSE_SETVARS:=FpIoctl(fd,nr_MOUSE_SETVARS,@param1)=0;
|
||
end;
|
||
|
||
Function MOUSE_READSTATE(fd:longint;var param1 : mousedata_t):boolean;
|
||
{IOWR('M',8,sizeof(mousedata_t)));
|
||
}
|
||
|
||
Begin
|
||
MOUSE_READSTATE:=FpIoctl(fd,nr_MOUSE_READSTATE,@param1)=0;
|
||
end;
|
||
|
||
Function MOUSE_READDATA(fd:longint;var param1 : mousedata_t):boolean;
|
||
{IOWR('M',9,sizeof(mousedata_t)));
|
||
}
|
||
|
||
Begin
|
||
MOUSE_READDATA:=FpIoctl(fd,nr_MOUSE_READDATA,@param1)=0;
|
||
end;
|
||
|
||
Function MOUSE_SETRESOLUTION(fd:longint;var param1 : longint):boolean;
|
||
{IOW('M',10,sizeof(int)));
|
||
}
|
||
|
||
Begin
|
||
MOUSE_SETRESOLUTION:=FpIoctl(fd,nr_MOUSE_SETRESOLUTION,@param1)=0;
|
||
end;
|
||
|
||
Function MOUSE_SETSCALING(fd:longint;var param1 : longint):boolean;
|
||
{IOW('M',11,sizeof(int)));
|
||
}
|
||
|
||
Begin
|
||
MOUSE_SETSCALING:=FpIoctl(fd,nr_MOUSE_SETSCALING,@param1)=0;
|
||
end;
|
||
|
||
Function MOUSE_SETRATE(fd:longint;var param1 : longint):boolean;
|
||
{IOW('M',12,sizeof(int)));
|
||
}
|
||
|
||
Begin
|
||
MOUSE_SETRATE:=FpIoctl(fd,nr_MOUSE_SETRATE,@param1)=0;
|
||
end;
|
||
|
||
Function MOUSE_GETHWID(fd:longint;var param1 : longint):boolean;
|
||
{IOR('M',13,sizeof(int)));
|
||
}
|
||
|
||
Begin
|
||
MOUSE_GETHWID:=FpIoctl(fd,nr_MOUSE_GETHWID,@param1)=0;
|
||
end;
|
||
|
||
end.
|