/usr/local/CPAN/X11-Motif/X11/Lib.pm

• package X11::Lib
  • beta_version
  • alias_trimmed_pattern
  • export_pattern
  • export_symbol
  • import
  • use_standard_aliases
• package X
  • True
  • False
  • cvt_to_Boolean
• package X::Drawable
• package X::Window
• package X::Pixmap
• package X::Event::_XY
• package X::Event::MotionEvent
• package X::Event::ButtonEvent
• package X::Event::ButtonPressedEvent
• package X::Event::KeyEvent
• package X::Event::CrossingEvent
• package X::Event::_Expose
• package X::Event::ExposeEvent
• package X::Event::GraphicsExposeEvent
• package X::Event::NoExposeEvent
• package X::Event::ColormapEvent
• package X::Event::FocusChangeEvent
• package X::Event::KeymapEvent
• package X::Event::PropertyEvent
• package X::Event::ResizeRequestEvent
• package X::Event::CirculateEvent
• package X::Event::ConfigureEvent
• package X::Event::CreateEvent
• package X::Event::DestroyEvent
• package X::Event::GravityEvent
• package X::Event::MapEvent
• package X::Event::ReparentEvent
• package X::Event::UnmapEvent
• package X::Event::CirculateRequestEvent
• package X::Event::ConfigureRequestEvent
• package X::Event::MapRequestEvent
• package X::Event::ClientMessageEvent
• package X::Event::MappingEvent
• package X::Event::SelectionClearEvent
• package X::Event::SelectionEvent
• package X::Event::SelectionRequestEvent
• package X::Event::VisibilityEvent
• EOF

package X11::Lib;

# Copyright 1997 by Ken Fox

use DynaLoader;

use strict;
use vars qw($VERSION @ISA);

BEGIN {
    $VERSION = 1.0;
    @ISA = qw(DynaLoader);

    use X11::LibCons;

    bootstrap X11::Lib;
}

sub beta_version { 2 };

sub alias_trimmed_pattern {
    my($pkg, $stab, $pattern) = @_;

    my $key;
    my $val;

    while (($key, $val) = each(%{$stab})) {
	local(*entry) = $val;
	if (defined &entry) {
	    if ($key =~ s/$pattern//) {
		no strict 'refs';
		*{$pkg.'::'.$key} = \&entry;
	    }
	}
    }
}

sub export_pattern {
    my($stab, $pattern) = @_;

    my $pkg = caller(1);
    my $key;
    my $val;

    while (($key, $val) = each(%{$stab})) {
	local(*entry) = $val;
	if (defined &entry) {
	    if ($key =~ /$pattern/) {
		no strict 'refs';
		*{$pkg.'::'.$key} = \&entry;
	    }
	}
    }
}

sub export_symbol {
    my($stab, $symbol) = @_;

    my $pkg = caller(1);
    my $val = $stab->{$symbol};

    if (defined $val) {
	local(*entry) = $val;
	if (defined &entry) {
	    no strict 'refs';
	    *{$pkg.'::'.$symbol} = \&entry;
	    return 1;
	}
    }
}

sub import {
    my $module = shift;
    my %done;

    foreach my $sym (@_) {
	next if ($done{$sym});

	if ($sym eq ':X') {
	    export_pattern(\%X::, '^X');
	}
	elsif ($sym eq ':private') {
	    export_symbol(\%X11::Lib::, 'export_pattern');
	    export_symbol(\%X11::Lib::, 'export_symbol');
	    export_symbol(\%X11::Lib::, 'alias_trimmed_pattern');
	}
	else {
	    export_symbol(\%X::, $sym);
	}

	$done{$sym} = 1;
    }
}

my $finished_standard_aliases = 0;

sub use_standard_aliases {
    if (!$finished_standard_aliases) {
	$finished_standard_aliases = 1;

	# What should be done about the Xrm functions?  These seem
	# kind of odd when aliased to X::rm.

	alias_trimmed_pattern("X", \%X::, '^X');
    }
}

package X;

sub True () { 1 };
sub False () { 0 };

sub cvt_to_Boolean ($) {
    return ($_[0] == 1 || $_[0] =~ /^-?true$/i) ? 1 : 0;
}

package X::Drawable;

# Windows and Pixmaps are both Drawables so any function
# taking a Drawable can take one of these.  (Perl checks
# the argument type while C does not.)

package X::Window;
    use vars qw(@ISA);
    @ISA = qw(X::Drawable);

package X::Pixmap;
    use vars qw(@ISA);
    @ISA = qw(X::Drawable);

# Additional pure-virtual events are inserted into the event
# hierarchy to avoid duplicate definitions of all the member
# access functions.  Not sure why MIT didn't do this to begin
# with.

package X::Event::_XY;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::MotionEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event::_XY);

package X::Event::ButtonEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event::_XY);

package X::Event::ButtonPressedEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event::ButtonEvent);

package X::Event::KeyEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event::_XY);

package X::Event::CrossingEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event::_XY);

package X::Event::_Expose;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::ExposeEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event::_Expose);

package X::Event::GraphicsExposeEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event::_Expose);

package X::Event::NoExposeEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::ColormapEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::FocusChangeEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::KeymapEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::PropertyEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::ResizeRequestEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::CirculateEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::ConfigureEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::CreateEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::DestroyEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::GravityEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::MapEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::ReparentEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::UnmapEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::CirculateRequestEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::ConfigureRequestEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::MapRequestEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::ClientMessageEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::MappingEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::SelectionClearEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::SelectionEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::SelectionRequestEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event);

package X::Event::VisibilityEvent;
    use vars qw(@ISA);
    @ISA = qw(X::Event);


X11::Lib::use_standard_aliases();

1;