lib/Gtk2/CV.pm

package Gtk2::CV;

use common::sense;
use Gtk2;
use Glib;

use IO::AIO;

BEGIN {
   use XSLoader;

   our $VERSION = '2.0';

   XSLoader::load "Gtk2::CV", $VERSION;
}

magic_buffer ""; # preload magic tables

our $MPV = $ENV{CV_MPV} || $ENV{CV_MPLAYER} || "mpv";

our $FAST_TMP = -w "/run/shm" ? "/run/shm"
              : -w "/dev/shm" ? "/dev/shm"
              :                 "/tmp";

our $THREAD_MAX = 1;
if (open my $fh, "<", "/proc/cpuinfo") {
   local $/;
   $THREAD_MAX = scalar (() = <$fh> =~ /^processor/mg) || 1
}
set_thread_max $THREAD_MAX;

my $aio_source;

IO::AIO::min_parallel 32;
IO::AIO::max_poll_reqs 2;

# we use a low priority watcher to give GUI interactions as high a priority
# as possible.
sub enable_aio {
   $aio_source ||=
      add_watch Glib::IO IO::AIO::poll_fileno,
         in => sub {
            IO::AIO::poll_cb;
            1
         },
         undef,
         &Glib::G_PRIORITY_LOW;
}

sub disable_aio {
   remove Glib::Source $aio_source if $aio_source;
   undef $aio_source;
}

sub flush_aio {
   enable_aio;
   IO::AIO::flush;
}

enable_aio;

sub find_rcfile($) {
   my $path;

   for (@INC) {
      $path = "$_/Gtk2/CV/$_[0]";
      return $path if -r $path;
   }

   die "FATAL: can't find required file $_[0]\n";
}

sub require_image($) {
   new_from_file Gtk2::Gdk::Pixbuf find_rcfile "images/$_[0]";
}

sub dealpha_compose($) {
   return $_[0] unless $_[0]->get_has_alpha;

   Gtk2::CV::dealpha_expose $_[0]->composite_color_simple (
      $_[0]->get_width, $_[0]->get_height,
      'nearest', 255, 16, 0xffc0c0c0, 0xff606060,
   )
}

# TODO: make preferences
sub dealpha($) {
   &dealpha_compose
}

sub load_jpeg($;$$$) {
   my ($path, $thumbnail, $iw, $ih) = @_;

   open my $fh, "<:raw", $path
      or die "$path: $!\n";
   IO::AIO::mmap my $data, -s $fh, IO::AIO::PROT_READ, IO::AIO::MAP_SHARED, $fh
      or die "$path: $!\n";
   decode_jpeg $data, $thumbnail, $iw, $ih
}

sub load_jxl($;$$$) {
   my ($path, $thumbnail, $iw, $ih) = @_;

   open my $fh, "<:raw", $path
      or die "$path: $!\n";
   IO::AIO::mmap my $data, -s $fh, IO::AIO::PROT_READ, IO::AIO::MAP_SHARED, $fh
      or die "$path: $!\n";
   decode_jxl $data, $thumbnail, $iw, $ih
}

sub load_webp($;$$$) {
   my ($path, $thumbnail, $iw, $ih) = @_;

   open my $fh, "<:raw", $path
      or die "$path: $!\n";
   IO::AIO::mmap my $data, -s $fh, IO::AIO::PROT_READ, IO::AIO::MAP_SHARED, $fh
      or die "$path: $!\n";
   decode_webp $data, $thumbnail, $iw, $ih
}

sub load_avif($;$$$) {
   my ($path, $thumbnail, $iw, $ih) = @_;

   open my $fh, "<:raw", $path
      or die "$path: $!\n";
   IO::AIO::mmap my $data, -s $fh, IO::AIO::PROT_READ, IO::AIO::MAP_SHARED, $fh
      or die "$path: $!\n";
   decode_avif $data, $thumbnail, $iw, $ih
}

1;

Revision:	1.56
Committed:	Tue Sep 16 08:43:27 2025 UTC (12 months, 4 weeks ago) by root
Branch:	MAIN
Changes since 1.55:	+7 -0 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	package Gtk2::CV;
2
3	root	1.39	use common::sense;
4	root	1.20	use Gtk2;
5			use Glib;
6	root	1.1
7	root	1.20	use IO::AIO;
8	root	1.3
9	root	1.20	BEGIN {
10			use XSLoader;
11	root	1.1
12	root	1.54	our $VERSION = '2.0';
13	root	1.13
14	root	1.20	XSLoader::load "Gtk2::CV", $VERSION;
15			}
16	root	1.14
17	root	1.48	magic_buffer ""; # preload magic tables
18
19	root	1.51	our $MPV = $ENV{CV_MPV} \|\| $ENV{CV_MPLAYER} \|\| "mpv";
20	root	1.44
21	root	1.43	our $FAST_TMP = -w "/run/shm" ? "/run/shm"
22			: -w "/dev/shm" ? "/dev/shm"
23			: "/tmp";
24
25	root	1.56	our $THREAD_MAX = 1;
26			if (open my $fh, "<", "/proc/cpuinfo") {
27			local $/;
28			$THREAD_MAX = scalar (() = <$fh> =~ /^processor/mg) \|\| 1
29			}
30			set_thread_max $THREAD_MAX;
31
32	root	1.17	my $aio_source;
33
34	root	1.30	IO::AIO::min_parallel 32;
35	root	1.35	IO::AIO::max_poll_reqs 2;
36	root	1.30
37	root	1.28	# we use a low priority watcher to give GUI interactions as high a priority
38	root	1.19	# as possible.
39	root	1.17	sub enable_aio {
40			$aio_source \|\|=
41			add_watch Glib::IO IO::AIO::poll_fileno,
42	root	1.28	in => sub {
43	root	1.42	IO::AIO::poll_cb;
44	root	1.28	1
45			},
46			undef,
47			&Glib::G_PRIORITY_LOW;
48	root	1.17	}
49
50			sub disable_aio {
51	root	1.18	remove Glib::Source $aio_source if $aio_source;
52	root	1.17	undef $aio_source;
53			}
54
55	root	1.32	sub flush_aio {
56			enable_aio;
57			IO::AIO::flush;
58			}
59
60	root	1.17	enable_aio;
61	root	1.2
62	root	1.9	sub find_rcfile($) {
63	root	1.2	my $path;
64
65			for (@INC) {
66	root	1.4	$path = "$_/Gtk2/CV/$_[0]";
67			return $path if -r $path;
68	root	1.2	}
69
70	root	1.4	die "FATAL: can't find required file $_[0]\n";
71			}
72
73	root	1.9	sub require_image($) {
74	root	1.4	new_from_file Gtk2::Gdk::Pixbuf find_rcfile "images/$_[0]";
75	root	1.2	}
76
77	root	1.20	sub dealpha_compose($) {
78			return $_[0] unless $_[0]->get_has_alpha;
79
80			Gtk2::CV::dealpha_expose $_[0]->composite_color_simple (
81			$_[0]->get_width, $_[0]->get_height,
82	root	1.22	'nearest', 255, 16, 0xffc0c0c0, 0xff606060,
83	root	1.20	)
84			}
85
86			# TODO: make preferences
87			sub dealpha($) {
88			&dealpha_compose
89			}
90
91	root	1.55	sub load_jpeg($;$$$) {
92	root	1.46	my ($path, $thumbnail, $iw, $ih) = @_;
93
94			open my $fh, "<:raw", $path
95			or die "$path: $!\n";
96			IO::AIO::mmap my $data, -s $fh, IO::AIO::PROT_READ, IO::AIO::MAP_SHARED, $fh
97			or die "$path: $!\n";
98	root	1.55	decode_jpeg $data, $thumbnail, $iw, $ih
99	root	1.46	}
100
101	root	1.52	sub load_jxl($;$$$) {
102			my ($path, $thumbnail, $iw, $ih) = @_;
103
104			open my $fh, "<:raw", $path
105			or die "$path: $!\n";
106			IO::AIO::mmap my $data, -s $fh, IO::AIO::PROT_READ, IO::AIO::MAP_SHARED, $fh
107			or die "$path: $!\n";
108			decode_jxl $data, $thumbnail, $iw, $ih
109			}
110
111	root	1.55	sub load_webp($;$$$) {
112			my ($path, $thumbnail, $iw, $ih) = @_;
113
114			open my $fh, "<:raw", $path
115			or die "$path: $!\n";
116			IO::AIO::mmap my $data, -s $fh, IO::AIO::PROT_READ, IO::AIO::MAP_SHARED, $fh
117			or die "$path: $!\n";
118			decode_webp $data, $thumbnail, $iw, $ih
119			}
120
121			sub load_avif($;$$$) {
122	root	1.47	my ($path, $thumbnail, $iw, $ih) = @_;
123
124			open my $fh, "<:raw", $path
125			or die "$path: $!\n";
126			IO::AIO::mmap my $data, -s $fh, IO::AIO::PROT_READ, IO::AIO::MAP_SHARED, $fh
127			or die "$path: $!\n";
128	root	1.55	decode_avif $data, $thumbnail, $iw, $ih
129	root	1.47	}
130
131	root	1.1	1;
132