paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 06:47:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Implemented "Sound" and "NoSound". Please notice that these normally only

Browse Source 
work on Linux textmode console, as the sound is created using special
  Linux terminal IOCTLs.
This commit is contained in:
sg 2000-06-06 08:22:41 +00:00
parent f292b8a6e3
commit ab65042172
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/linux/crt.pp
View File

@ -1470,21 +1470,21 @@ Begin
End;
const
KIOCSOUND = $4B2F; // start sound generation (0 for off)
Procedure Sound(Hz: Word);
{
Does nothing under linux
}
begin
if not OutputRedir then
ioctl(TextRec(Output).Handle, KIOCSOUND, Pointer(1193180 div Hz));
end;
Procedure NoSound;
{
Does nothing under linux
}
begin
if not OutputRedir then
ioctl(TextRec(Output).Handle, KIOCSOUND, nil);
end;
@ -1662,7 +1662,12 @@ Begin
End.
{
$Log$
Revision 1.27 2000-06-05 08:35:28 jonas
Revision 1.28 2000-06-06 08:22:41 sg
* Implemented "Sound" and "NoSound". Please notice that these normally only
work on Linux textmode console, as the sound is created using special
Linux terminal IOCTLs.
Revision 1.27 2000/06/05 08:35:28 jonas
* in readkey, check if keypresses are waiting using sysKeyPressed instead
of simply checking if there are keys left in the ttyRecvChar buffer
* CrtRead supports the backspace key when reading from a TTY.