freepascal.ru

Ввиду запроса рут доступа при работе динамика и отъемлемости (по определению) существующего модуля ядра сделал простой неотъемлемый патч для ядра.
Он успешно работает в пользовательском пространстве, но можно обсуждать номера вызовов, наличие/отсутствие блокировок (я их не делал) и прочее.
То есть можно применять так как есть, а можно подумать над усовершенствованием его и (если понравится) включении в ядро.

kerneltblpatch.txt :

Код: Выделить всё

1000    common  spkon   sys_spkon
1001    common spkoff   sys_spkoff
1002    common  spkplay sys_spkplay


kernelrwpatch.txt :

Код: Выделить всё


#include <linux/io.h>

SYSCALL_DEFINE0(spkon)
{
outb_p(inb_p(0x61) | 3, 0x61);
return 0;
}
SYSCALL_DEFINE0(spkoff)
{
outb(inb_p(0x61) & 0xFC, 0x61);
return 0;
}
SYSCALL_DEFINE1(spkplay, unsigned short int, w)
{
outb_p(0xB6, 0x43);
outb_p(w & 0xff, 0x42);
outb((w >> 8) & 0xff, 0x42);
return 0;
}



spkpatch.sh :

Код: Выделить всё

#!/bin/bash

cat kernelrwpatch.txt >> fs/read_write.c
cat kerneltblpatch.txt >> tools/perf/arch/x86/entry/syscalls/syscall_64.tbl
cat kerneltblpatch.txt >> arch/x86/entry/syscalls/syscall_64.tbl


http://soft.self-made-free.ru/kernelpatchspk.tar.xz

Плеер для такого патча:

Код: Выделить всё

program gorg64_spkplay_syscalls;

{$MODE OBJFPC}
{$RANGECHECKS ON}
{$LONGSTRINGS ON}
{$SMARTLINK ON}
{$ASMMODE INTEL}
//{$CODEPAGE UTF8}

{
    Program for playing melodys on PC-Speaker.
    For GNU/Linux 64 bit version. Root priveleges needed.
    Version: 2.
    Written on FreePascal (https://freepascal.org/).
    Copyright (C) 2021  Artyomov Alexander
    http://self-made-free.ru/ (Ex http://aralni.narod.ru/)
    aralni@mail.ru

    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU Affero General Public License as
    published by the Free Software Foundation, either version 3 of the
    License, or (at your option) any later version.

    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.  See the
    GNU Affero General Public License for more details.

    You should have received a copy of the GNU Affero General Public License
    along with this program.  If not, see <https://www.gnu.org/licenses/>.
}

uses sysutils,unix,baseunix,linux;

type
      TTW = packed record
       tone, duration : Word;
      end;
      TAoW = array of Word;
      TAoTW = array of TTW;
      TSpkFile = class(TObject)
       a : TAoTW;
       fFileName : utf8string;
      public
      function LoadFromFile(fn : utf8string) : boolean;
      end;

procedure spkon; assembler;
asm
mov rax, 1000
syscall
end;
procedure spkoff; assembler;
asm
mov rax, 1001
syscall
end;
procedure spk(w : Qword);  assembler;
asm
mov rax, 1002
mov rdi, w
syscall
end;

function TSpkFile.LoadFromFile(fn : utf8string) : boolean;
var
  fp : File of TTW;
  fs : Int64;
begin
Assign(fp, fn);
FileMode := 0;
{$I-}
ReSet(fp);
{$I+} if IOResult <> 0 then Exit(true);
{$I-}
fs := FileSize(fp);
{$I+} if IOResult <> 0 then Exit(true);
SetLength(a, fs);
{$I-}
BlockRead(fp, a[0], fs);
{$I+} if IOResult <> 0 then Exit(true);
{$I-}
Close(fp);
{$I+} if IOResult <> 0 then Exit(true);
fFileName := fn;
Exit(false);
end;

const
   lockfilename = '/tmp/speaker.lock';

var
    f, ff : Int64;
    oa,na : PSigActionRec;
    lockfile : File of Byte;

Procedure DoSig(sig : cint);cdecl;
begin
   writeln('Receiving signal: ',sig);
   spkoff;
   DeleteFile(lockfilename);
   halt(0);
end;

begin
WriteLn('GALAXY ORGANIZER SPEAKER PLAYER Version 3');
WriteLn('Artyomov Alexander 2022  License: GNU AGPLv3 and above');
WriteLn('Use: gorg64_spkplay_syscalls or gorg64_spkplay_syscalls somemusic.speaker somemusic2.speaker ...');

if FileExists(lockfilename) then begin WriteLn('Already running. Or just locked by (in that case delete it): ' + lockfilename); exit; end;
Assign(lockfile, lockfilename);
ReWrite(lockfile);
Close(lockfile);

   new(na);
   new(oa);
   na^.sa_Handler:=SigActionHandler(@DoSig);
   fillchar(na^.Sa_Mask,sizeof(na^.sa_mask),#0);
   na^.Sa_Flags:=0;
   na^.Sa_Restorer:=Nil;
   if fpSigAction(SigTerm,na,oa)<>0 then
     begin
     writeln('Error: ',fpgeterrno,'.');
     DeleteFile(lockfilename);
     halt(1);
     end;
   if fpSigAction(SigHup,na,oa)<>0 then
     begin
     writeln('Error: ',fpgeterrno,'.');
     DeleteFile(lockfilename);
     halt(1);
     end;
   if fpSigAction(SigInt,na,oa)<>0 then
     begin
     writeln('Error: ',fpgeterrno,'.');
     DeleteFile(lockfilename);
     halt(1);
     end;
   if fpSigAction(SigQuit,na,oa)<>0 then
     begin
     writeln('Error: ',fpgeterrno,'.');
     DeleteFile(lockfilename);
     halt(1);
     end;
   if fpSigAction(SigTStp,na,oa)<>0 then
     begin
     writeln('Error: ',fpgeterrno,'.');
     DeleteFile(lockfilename);
     halt(1);
     end;

//fpSystem('renice -n -19 -p ' + inttostr(fpgetpid));

if ParamCount = 0 then begin
spkon; spk(1000); sleep(2000); spk(300); sleep(2000); spkoff;
DeleteFile(lockfilename);
Halt;
end;

for ff := 1 to ParamCount do
with TSpkFile.Create do begin
if LoadFromFile(ParamStr(ff)) then begin
WriteLn('Err');  spkon; spk(1000); sleep(1000); spk(300); sleep(1000); spkoff;
DeleteFile(lockfilename); Halt(2);
end;
WriteLn(WideChar($1F) + '♪ ♫  Playing file: ' + fFileName);
spkon;
for f := 0 to High(a) do begin
if a[f].duration < 1 then continue;
if a[f].tone < 1 then begin
  spkoff;
  sleep(a[f].duration);
  spkon;
end else begin
  spk(a[f].tone);
  sleep(a[f].duration);
end;
end;
spkoff;
Free;
end;

DeleteFile(lockfilename);

end.