X11::Protocol::Ext::BIG_REQUESTS - Perl module for the X11 protocol Big Requests extension

X11-Protocol documentation Contained in the X11-Protocol distribution.

Index

Code Index:

NAME

Top

X11::Protocol::Ext::BIG_REQUESTS - Perl module for the X11 protocol Big Requests extension

SYNOPSIS

Top

  use X11::Protocol;
  $x = X11::Protocol->new($ENV{'DISPLAY'});
  $x->init_extension('BIG_REQUESTS') or die;

DESCRIPTION

Top

This module is used by the X11::Protocol module to participate in the 'Big Requests' extension to the X protocol. Once initialized, it transparently allows requests of more than 262140 (65535 * 4) bytes. The new maximum request length is avaliable as $x->maximum_request_length.

AUTHOR

Top

Stephen McCamant <SMCCAM@cpan.org>.

SEE ALSO

Top

perl(1), X11::Protocol, Big Requests Extension (X Consortium Standard).

X11-Protocol documentation Contained in the X11-Protocol distribution. 
#!/usr/bin/perl

package X11::Protocol::Ext::BIG_REQUESTS; # The `Big Requests Extension'

# Copyright (C) 1997 Stephen McCamant. All rights reserved. This program
# is free software; you can redistribute and/or modify it under the same
# terms as Perl itself.

# The actual mechanism for packing large requests is in X11::Protocol --
# it just checks whether $x->{'ext'}{'BIG_REQUESTS'} is defined.
# The only thing this module does is issue the BigReqEnable request.

use X11::Protocol qw(pad padding padded make_num_hash);
use Carp;

use strict;
use vars '$VERSION';

$VERSION = 0.01;

sub new {
    my($pkg, $x, $request_num, $event_num, $error_num) = @_;
    my($self) = {};

    # Constants

    # Events

    # Requests
    $x->{'ext_request'}{$request_num} = 
      [
       ["BigReqEnable", sub {
	    my($self) = shift;
	    return "";
	}, sub {
	    my($self) = shift;
	    my($data) = @_;
	    my($max_len) = unpack("xxxxxxxxIxxxxxxxxxxxxxxxxxxxx", $data);
	    return ($max_len);
	}]
      ];
    my($i);
    for $i (0 .. $#{$x->{'ext_request'}{$request_num}}) {
	$x->{'ext_request_num'}{$x->{'ext_request'}{$request_num}[$i][0]} =
	  [$request_num, $i];
    }
    $x->{'maximum_request_length'} = $x->req('BigReqEnable');
    return bless $self, $pkg;
}

1;
__END__