File: opcodes.pl

package info (click to toggle)
libx11-protocol-other-perl 31-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, forky, sid, trixie
  • size: 1,760 kB
  • sloc: perl: 17,593; ansic: 666; sh: 285; lisp: 143; makefile: 42
file content (26 lines) | stat: -rwxr-xr-x 469 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
#!/usr/bin/perl -w
use strict;
use X11::Protocol;
$ENV{DISPLAY}=":0";

# uncomment this to run the ### lines
use Smart::Comments;

my $X = X11::Protocol->new;
my $depth = $X->root_depth;

my ($major_opcode, $first_event, $first_error) = $X->QueryExtension('RENDER');
### $major_opcode
### $first_event
### $first_error

{
  local $^W = 0;
  if (! $X->init_extension('RENDER')) {
    print "RENDER extension not available on the server\n";
    exit 1;
  }
}