forked from KolibriOS/kolibrios
273 lines
7.8 KiB
PHP
273 lines
7.8 KiB
PHP
{-$codepage cp866}
|
||
|
||
type
|
||
TKosPoint = packed record
|
||
X: Longint;
|
||
Y: Longint;
|
||
end;
|
||
|
||
TKosRect = packed record
|
||
case Integer of
|
||
0: (Left, Top, Width, Height: Longint);
|
||
1: (TopLeft, HeightWidth: TKosPoint);
|
||
end;
|
||
|
||
{ User interface }
|
||
procedure kos_definewindow(x, y, w, h: Word; style: DWord = $23FFFFFF; header: DWord = $008899FF; clframe: DWord = $008899FF);
|
||
procedure kos_movewindow(x, y, w, h: DWord);
|
||
function kos_getkey(): DWord;
|
||
function kos_getevent(wait: Boolean = True): DWord;
|
||
function kos_waitevent(timeout: DWord): DWord;
|
||
function kos_getbutton(): DWord;
|
||
function kos_getmousepos(): TKosPoint;
|
||
function kos_getmousewinpos(): TKosPoint;
|
||
function kos_getmousebuttons(): DWord;
|
||
procedure kos_maskevents(mask: DWord);
|
||
procedure kos_setkeyboardmode(mode: DWord);
|
||
function kos_getkeyboardmode(): DWord;
|
||
procedure kos_setcaption(caption: PChar);
|
||
|
||
{ Graphics }
|
||
function kos_screensize(): TKosPoint;
|
||
procedure kos_begindraw();
|
||
procedure kos_enddraw();
|
||
procedure kos_putpixel(x, y: Word; color: DWord = $000000);
|
||
procedure kos_drawtext(x, y: Word; text: String; flags: DWord = $000000; bgcolor: DWord = $00FFFFFF);
|
||
procedure kos_drawrect(x, y, w, h: Word; color: DWord = $000000);
|
||
procedure kos_drawline(x1, y1, x2, y2: Word; color: DWord = $000000);
|
||
procedure kos_drawimage(x, y, w, h, depth: DWord; image: Pointer; palette: Pointer = nil; xoffset: DWord = 0);
|
||
procedure kos_drawimage24(x, y, w, h: DWord; image: Pointer);
|
||
|
||
{ Work with system }
|
||
|
||
{ Work with system - System services }
|
||
function kos_killthread(tid: TThreadID): Boolean;
|
||
procedure kos_setactivewindow(slot: TThreadSlot);
|
||
function kos_getthreadslot(tid: TThreadID): TThreadSlot;
|
||
|
||
{ Work with system - Set system parameters }
|
||
procedure kos_enablepci();
|
||
|
||
{ Work with system - Get system parameters }
|
||
function kos_timecounter(): DWord;
|
||
|
||
{ Work with system - Internal system services }
|
||
procedure kos_switchthread();
|
||
function kos_initheap(): DWord;
|
||
function kos_alloc(size: DWord): Pointer;
|
||
function kos_free(ptr: Pointer): Boolean;
|
||
function kos_loaddriver(name: PChar): THandle;
|
||
|
||
{ Processes and threads }
|
||
type
|
||
PKosThreadInfo = ^TKosThreadInfo;
|
||
TKosThreadInfo = packed record
|
||
Speed: DWord;
|
||
WindowID: Word;
|
||
ThreadSlot: Word;
|
||
Reserved1: Word;
|
||
AppName: array[0..10] of Char;
|
||
Reserved2: Byte;
|
||
ProcessBase: Pointer;
|
||
MemoryUsage: DWord;
|
||
ThreadID: TThreadID;
|
||
WindowRect: TKosRect;
|
||
Reserved3: DWord;
|
||
ClientRect: TKosRect;
|
||
Reserved4: array[1..1046] of Byte;
|
||
end;
|
||
|
||
{<EFBFBD>ãä¥à IPC}
|
||
PKosIPC = ^TKosIPC;
|
||
TKosIPC = packed record
|
||
Lock: LongBool;
|
||
Size: DWord;
|
||
{á®®¡é¥¨¥ #1...}
|
||
{á®®¡é¥¨¥ #2...}
|
||
{...}
|
||
end;
|
||
|
||
{‘®®¡é¥¨¥ IPC}
|
||
PKosMessage = ^TKosMessage;
|
||
TKosMessage = packed record
|
||
SenderID: TThreadID;
|
||
Size: DWord;
|
||
{⥫® á®®¡é¥¨ï...}
|
||
end;
|
||
|
||
function kos_threadinfo(info: PKosThreadInfo; slot: TThreadSlot = -1): DWord;
|
||
function kos_newthread(entry, stack: Pointer): TThreadID;
|
||
procedure kos_initipc(ipc: PKosIPC; size: DWord);
|
||
function kos_sendmsg(tid: TThreadID; msg: Pointer; size: DWord): DWord;
|
||
function kos_resizemem(size: DWord): Boolean;
|
||
|
||
{ File system }
|
||
{ File system - Work with the current folder }
|
||
|
||
procedure kos_setdir(path: PChar);
|
||
function kos_getdir(path: PChar; size: DWord): DWord;
|
||
|
||
{ File system - Work with file system with long names support }
|
||
|
||
const
|
||
kfReadOnly = $01;
|
||
kfHidden = $02;
|
||
kfSystem = $04;
|
||
kfLabel = $08;
|
||
kfFolder = $10;
|
||
kfNotArchive = $20;
|
||
|
||
type
|
||
PKosFile = ^TKosFile;
|
||
TKosFile = packed record
|
||
SubFunc: DWord;
|
||
Position, PositionReserved: DWord;
|
||
Size: DWord;
|
||
Data: Pointer;
|
||
Name: array[0..0] of Char; {...ASCIIZ}
|
||
end;
|
||
|
||
PKosBDFE = ^TKosBDFE;
|
||
TKosBDFE = packed record
|
||
Attributes: DWord;
|
||
NameType: Byte; {bit0 - 0:ascii, 1:unicode}
|
||
Reserved: array[0..2] of Byte;
|
||
CTime: DWord; {ss,mm,hh,00}
|
||
CDate: DWord; {dd,mm,yyyy}
|
||
ATime: DWord;
|
||
ADate: DWord;
|
||
MTime: DWord;
|
||
MDate: DWord;
|
||
Size: QWord;
|
||
Name: array[0..519] of Char;
|
||
end;
|
||
|
||
function kos_readfile(kosfile: PKosFile; var readed: Longint): DWord;
|
||
function kos_rewritefile(kosfile: PKosFile; var writed: Longint): DWord;
|
||
function kos_writefile(kosfile: PKosFile; var writed: Longint): DWord;
|
||
function kos_fileinfo(kosfile: PKosFile): DWord;
|
||
|
||
{ Sound }
|
||
|
||
function kos_speaker(notes: Pointer): Boolean;
|
||
|
||
{ Work with hardware }
|
||
function kos_readport(index: DWord): DWord;
|
||
procedure kos_writeport(index, value: DWord);
|
||
function kos_reserveport(port: DWord): Boolean;
|
||
|
||
{ Work with hardware - Low-level access to PCI}
|
||
function kos_lastpcibus(): Byte;
|
||
function kos_readpcib(bus, dev, func, reg: Byte): Byte;
|
||
function kos_readpciw(bus, dev, func, reg: Byte): Word;
|
||
function kos_readpcid(bus, dev, func, reg: Byte): DWord;
|
||
|
||
{ Other }
|
||
procedure kos_delay(ms: DWord); {1/100 s}
|
||
|
||
{ my }
|
||
type
|
||
TKosSign = array[0..7] of Byte;
|
||
PKosHeader = ^TKosHeader;
|
||
TKosHeader = packed record
|
||
sign : TKOSSign;
|
||
version: DWord;
|
||
start : DWord;
|
||
size : DWord;
|
||
memory : DWord;
|
||
stack : DWord;
|
||
args : PChar;
|
||
path : PChar;
|
||
end;
|
||
|
||
|
||
type
|
||
PKonsole = ^TKonsole;
|
||
TKonsole = object
|
||
private
|
||
FCaption: String;
|
||
FLines: array of ShortString;
|
||
FCursor: TKosPoint;
|
||
FMaxLines: Word;
|
||
FThreadID: TThreadID;
|
||
FThreadSlot: TThreadSlot;
|
||
FIPCBuffer: PKosIPC;
|
||
FIPCBufferSize: DWord;
|
||
FTerminate: Boolean;
|
||
FOpened: Boolean;
|
||
FOnAir : Boolean;
|
||
FKeyPressed: Word;
|
||
function ReceiveMessage(var Message: ShortString): Boolean;
|
||
procedure ProcessMessage(Message: ShortString);
|
||
procedure ProcessKeyboard(Key: Word);
|
||
function GetRect(): TKosRect;
|
||
function GetKeyPressed(): Word;
|
||
procedure Paint(BottomRow: Boolean = False);
|
||
procedure Flush();
|
||
public
|
||
constructor Init(ACaption: String = '');
|
||
destructor Done();
|
||
procedure Write(Message: ShortString);
|
||
property KeyPressed: Word read GetKeyPressed;
|
||
property Opened: Boolean read FOpened;
|
||
property ThreadID: TThreadID read FThreadID; {JustForFun, must be hidden, do not use}
|
||
property ThreadSlot: TThreadSlot read FThreadSlot; {JustForFun, must be hidden, do not use}
|
||
end;
|
||
|
||
(*<EFBFBD> §à ¡®âª â¥à¬¨ « ¢ à ¬ª å RTL ¯à¥ªà é¥ . ’¥à¬¨ « ¡ã¤¥â ¢ë¤¥«¥ ¨§ ª®¤
|
||
ª®á®«ì®£® ¯à¨«®¦¥¨ï ¨ ¤®«¦¥ ¡ëâì ॠ«¨§®¢ ª ª ®â¤¥«ìë© á¥à¢¨á á
|
||
¤¨ ¬¨ç¥áª¨¬ ¯®¤ª«î票¥¬, «¨¡® ª ª ®â¤¥«ìë© ¬®¤ã«ì FreePascal á® áâ â¨ç¥áª¨¬
|
||
¨«¨ ¤¨ ¬¨ç¥áª¨¬ ¯®¤ª«î票¥¬ â¥à¬¨ «ì®£® äãªæ¨® « .
|
||
|
||
PTermKursor = ^TTermKursor;
|
||
TTermKursor = object
|
||
private
|
||
FVisible: Boolean;
|
||
procedure SetVisbile(Value: Boolean);
|
||
public
|
||
constructor Init;
|
||
procedure Repaint;
|
||
property Visible: Boolean read FVisible write SetVisbile;
|
||
end;
|
||
|
||
PTermKIO = ^TTermKIO;
|
||
TTermKIO = object
|
||
private
|
||
FBuffer: Pointer;
|
||
FBufferScreen: Pointer;
|
||
FBufferSize : Longword;
|
||
FBufferWidth: Longword;
|
||
FBufferLines: Longword;
|
||
FIPCBuffer: PKosIPC;
|
||
FIPCBufferSize: Longword;
|
||
FCursor: TTermKursor;
|
||
FCaption: String;
|
||
FThreadID: TThreadID;
|
||
FThreadSlot: TThreadSlot;
|
||
FTerminate: Boolean;
|
||
FOpened: Boolean;
|
||
FWindowBounds: TKosRect;
|
||
FWindowStyle : Longword;
|
||
FClientBounds: TKosRect;
|
||
FMaxWidth : Longword;
|
||
FFirstLine: Longword;
|
||
FDefaultChar: Word;
|
||
FPalette: array[0..15] of Longword;
|
||
procedure MainLoop;
|
||
procedure ReallocBuffer(Size: Longword);
|
||
procedure ResizeBuffer(NewWidth, NewLines: Longword);
|
||
procedure FillDefaultChar(var X; Count: Longword);
|
||
function GetLine(Index: Longint): Pointer;
|
||
function PrevLine(Line: Pointer): Pointer;
|
||
{function ReceiveMessage(var Message: ShortString): Boolean;
|
||
procedure ProcessMessage(Message: ShortString);}
|
||
procedure ProcessKeyboard(Key: Word);
|
||
procedure DoPaint(const Bounds: TKosRect);
|
||
procedure DoResize;
|
||
public
|
||
constructor Init(ACaption: String = '');
|
||
destructor Done;
|
||
procedure Write(Message: ShortString);
|
||
property Cursor: TTermKursor read FCursor;
|
||
end;*)
|