cd /tmp
wget http://www.deb-multimedia.org/pool/main/liba/libass-dmo/libass9_0.13.7-dmo1_amd64.deb
wget http://www.deb-multimedia.org/pool/main/liba/libass-dmo/libass-dev_0.13.7-dmo1_amd64.deb
dpkg -i *.deb
rm *.deb
apt-get install libgnutls28-dev
wget http://ffmpeg.org/releases/ffmpeg-3.4.tar.bz2
tar -xjvf ffmpeg-3.4.tar.bz2
rm ffmpeg-3.4.tar.bz2
cd ffmpeg-3.4
./configure --enable-gpl --disable-debug --disable-doc --enable-gnutls --enable-nonfree --disable-libfontconfig --disable-filter='ass,drawtext,coreimage,coreimagesrc' --disable-avdevice --enable-static --disable-shared --enable-libass --enable-opengl
make
make install
cd ..
rm -rf ffmpeg-3.4
wget https://github.com/mpv-player/mpv/archive/v0.27.0.tar.gz
tar -xzvf v0.27.0.tar.gz
rm v0.27.0.tar.gz
cd mpv-0.27.0
./bootstrap.py
./waf configure --disable-pulse
./waf
./waf install
cd ..
rm -rf mpv-0.27.0

@TCH:
youtube link

unit gpio_sysfs;

{$mode objfpc}{$H+}

interface

function open_gpio(pin: string): boolean;
function close_gpio(pin: string): boolean;
function set_gpio_dir(pin: string; d_out: boolean): boolean;
function set_gpio_val(pin: string; state: boolean): boolean;
function get_gpio_val(pin: string; out state: boolean): boolean;

implementation

uses linehnd, sysutils;

const sysfs = '/sys/class/gpio/';

function open_gpio(pin: string): boolean;
var
	tc: integer;
	gpio: string;
begin
	if (not put_line(sysfs + 'export', pin)) then
	begin
		result := false;
		exit;
	end;

	gpio := sysfs + 'gpio' + pin + '/';
	tc := 0;
	repeat
		sleep(10);
		inc(tc);
		result := directoryexists(gpio);
	until (result) or (tc = 100);
end;

function close_gpio(pin: string): boolean;
begin
	if (not put_line(sysfs + 'unexport', pin)) then
	begin
		result := false;
		exit;
	end;
end;

function set_gpio_dir(pin: string; d_out: boolean): boolean;
var
	gpio: string;
	dir: string;
begin
	gpio := sysfs + 'gpio' + pin + '/';
	result := directoryexists(gpio);
	if (not result) then
	begin
		exit;
	end;

	if (d_out) then dir := 'out' else dir := 'in';
	result := put_line(gpio + 'direction', dir);
end;

function set_gpio_val(pin: string; state: boolean): boolean;
var
	gpio: string;
	val: string;
begin
	gpio := sysfs + 'gpio' + pin + '/';
	result := directoryexists(gpio);
	if (not result) then
	begin
		exit;
	end;

	if (state) then val := '1' else val := '0';
	result := put_line(gpio + 'value', val);
end;

function get_gpio_val(pin: string; out state: boolean): boolean;
var
	gpio: string;
	val: string;
begin
	gpio := sysfs + 'gpio' + pin + '/';
	result := directoryexists(gpio);
	if (not result) then
	begin
		exit;
	end;

	result := get_line(gpio + 'value', val);
	state := val <> '0';
end;

end.

unit linehnd;

{$mode objfpc}{$H+}

interface

function put_line(filename: string; line: string): boolean;
function get_line(filename: string; out line: string): boolean;

implementation

function put_line(filename: string; line: string): boolean;
var tf: textfile;
begin
	result := false;
	assignfile(tf, filename);
	try
		rewrite(tf);
	except
		exit;
	end;
	writeln(tf, line);
	closefile(tf);
	result := true;
end;

function get_line(filename: string; out line: string): boolean;
var tf: textfile;
begin
	result := false;
	assignfile(tf, filename);
	try
		reset(tf);
	except
		exit;
	end;
	readln(tf, line);
	closefile(tf);
	result := true;
end;

end.

@saxus:
Opera a csillió reklámjával?

@TCH:
/etc/hosts.deny vagy %systemdrive%\windows\system32\drivers\etc\HOSTS winfos alatt és máris baszhatták a reklámjaikat.

@M4u5:
Ezek szerint az Operába is telepítettek reklámokat?

@M4u5:
Tegnap sikerült egy hülyeséget elcsípnem a Dolphinben:

@M4u5:
Vagy csak a winfos grafikai hibáiról szabad beszélni?