paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 10:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

amunits: syscall-ified console and diskfont

Browse Source 
git-svn-id: trunk@28603 -
This commit is contained in:
Károly Balogh 2014-09-05 22:21:45 +00:00
parent 85700afd0d
commit 6cd5b41d8f
2 changed files with 9 additions and 125 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
packages/amunits/src/coreunits/console.pas
View File

@ -127,40 +127,9 @@ const
VAR ConsoleDevice : pDevice;
FUNCTION CDInputHandler(events : pInputEvent; consoleDev : pLibrary) : pInputEvent;
FUNCTION RawKeyConvert(events : pInputEvent; buffer : pCHAR; length : LONGINT; keyMap : pKeyMap) : LONGINT;
FUNCTION CDInputHandler(events : pInputEvent location 'a0'; consoleDev : pLibrary location 'a1') : pInputEvent; syscall ConsoleDevice 042;
FUNCTION RawKeyConvert(events : pInputEvent location 'a0'; buffer : pCHAR location 'a1'; length : LONGINT location 'd1'; keyMap : pKeyMap location 'a2') : LONGINT; syscall ConsoleDevice 048;
IMPLEMENTATION
FUNCTION CDInputHandler(events : pInputEvent; consoleDev : pLibrary) : pInputEvent;
BEGIN
ASM
MOVE.L A6,-(A7)
MOVEA.L events,A0
MOVEA.L consoleDev,A1
MOVEA.L ConsoleDevice,A6
JSR -042(A6)
MOVEA.L (A7)+,A6
MOVE.L D0,@RESULT
END;
END;
FUNCTION RawKeyConvert(events : pInputEvent; buffer : pCHAR; length : LONGINT; keyMap : pKeyMap) : LONGINT;
BEGIN
ASM
MOVE.L A6,-(A7)
MOVEA.L events,A0
MOVEA.L buffer,A1
MOVE.L length,D1
MOVEA.L keyMap,A2
MOVEA.L ConsoleDevice,A6
JSR -048(A6)
MOVEA.L (A7)+,A6
MOVE.L D0,@RESULT
END;
END;
END. (* UNIT CONSOLE *)

99
packages/amunits/src/coreunits/diskfont.pas
View File

@ -143,13 +143,13 @@ const
VAR DiskfontBase : pLibrary;
FUNCTION AvailFonts(buffer : pCHAR; bufBytes : LONGINT; flags : LONGINT) : LONGINT;
PROCEDURE DisposeFontContents(fontContentsHeader : pFontContentsHeader);
FUNCTION NewFontContents(fontsLock : BPTR; fontName : pCHAR) : pFontContentsHeader;
FUNCTION NewScaledDiskFont(sourceFont : pTextFont; destTextAttr : pTextAttr) : pDiskFontHeader;
FUNCTION OpenDiskFont(textAttr : pTextAttr) : pTextFont;
FUNCTION GetDiskFontCtrl(tagid : LONGINT) : LONGINT;
PROCEDURE SetDiskFontCtrlA(taglist : pTagItem);
FUNCTION AvailFonts(buffer : pCHAR location 'a0'; bufBytes : LONGINT location 'd0'; flags : LONGINT location 'd1') : LONGINT; syscall DiskfontBase 036;
PROCEDURE DisposeFontContents(fontContentsHeader : pFontContentsHeader location 'a1'); syscall DiskfontBase 048;
FUNCTION NewFontContents(fontsLock : BPTR location 'a0'; fontName : pCHAR location 'a1') : pFontContentsHeader; syscall DiskfontBase 042;
FUNCTION NewScaledDiskFont(sourceFont : pTextFont location 'a0'; destTextAttr : pTextAttr location 'a1') : pDiskFontHeader; syscall DiskfontBase 054;
FUNCTION OpenDiskFont(textAttr : pTextAttr location 'a0') : pTextFont; syscall DiskfontBase 030;
FUNCTION GetDiskFontCtrl(tagid : LONGINT location 'd0') : LONGINT; syscall DiskfontBase 060;
PROCEDURE SetDiskFontCtrlA(taglist : pTagItem location 'a0'); syscall DiskfontBase 066;
{Here we read how to compile this unit}
{You can remove this include and use a define instead}
@ -172,91 +172,6 @@ uses
amsgbox;
{$endif dont_use_openlib}
FUNCTION AvailFonts(buffer : pCHAR; bufBytes : LONGINT; flags : LONGINT) : LONGINT;
BEGIN
ASM
MOVE.L A6,-(A7)
MOVEA.L buffer,A0
MOVE.L bufBytes,D0
MOVE.L flags,D1
MOVEA.L DiskfontBase,A6
JSR -036(A6)
MOVEA.L (A7)+,A6
MOVE.L D0,@RESULT
END;
END;
PROCEDURE DisposeFontContents(fontContentsHeader : pFontContentsHeader);
BEGIN
ASM
MOVE.L A6,-(A7)
MOVEA.L fontContentsHeader,A1
MOVEA.L DiskfontBase,A6
JSR -048(A6)
MOVEA.L (A7)+,A6
END;
END;
FUNCTION NewFontContents(fontsLock : BPTR; fontName : pCHAR) : pFontContentsHeader;
BEGIN
ASM
MOVE.L A6,-(A7)
MOVEA.L fontsLock,A0
MOVEA.L fontName,A1
MOVEA.L DiskfontBase,A6
JSR -042(A6)
MOVEA.L (A7)+,A6
MOVE.L D0,@RESULT
END;
END;
FUNCTION NewScaledDiskFont(sourceFont : pTextFont; destTextAttr : pTextAttr) : pDiskFontHeader;
BEGIN
ASM
MOVE.L A6,-(A7)
MOVEA.L sourceFont,A0
MOVEA.L destTextAttr,A1
MOVEA.L DiskfontBase,A6
JSR -054(A6)
MOVEA.L (A7)+,A6
MOVE.L D0,@RESULT
END;
END;
FUNCTION OpenDiskFont(textAttr : pTextAttr) : pTextFont;
BEGIN
ASM
MOVE.L A6,-(A7)
MOVEA.L textAttr,A0
MOVEA.L DiskfontBase,A6
JSR -030(A6)
MOVEA.L (A7)+,A6
MOVE.L D0,@RESULT
END;
END;
FUNCTION GetDiskFontCtrl(tagid : LONGINT) : LONGINT;
BEGIN
ASM
MOVE.L A6,-(A7)
MOVE.L tagid,D0
MOVEA.L DiskfontBase,A6
JSR -060(A6)
MOVEA.L (A7)+,A6
MOVE.L D0,@RESULT
END;
END;
PROCEDURE SetDiskFontCtrlA(taglist : pTagItem);
BEGIN
ASM
MOVE.L A6,-(A7)
MOVEA.L taglist,A0
MOVEA.L DiskfontBase,A6
JSR -066(A6)
MOVEA.L (A7)+,A6
END;
END;
const
{ Change VERSION and LIBVERSION to proper values }