Wily::Message 0.02

Wily::Message is a Perl extension to handle Wily Messages. SYNOPSIS use Wily::Message; use Wily::Connect; # opens a file in wily and exits when the window is destroyed my $win_id; my $ws = Wily::Connect::connect(); my $wm = Wily::Message->new(Wily::Message::WMnew, 0, 0, 0, 1, /tmp/file_to_edit); $ws->syswrite($wm->flatten()); my $buffer = ; until (Wily::Message::complete_message($buffer)) { $ws->sysread($buffer, 1024, length($buffer)); } $buffer = $wm->from_string($buffer); if ($wm->{type} == Wily::Message::WRerror) { die "Error WMnew: $wm->{s}n"; } elsif ($wm->{type} == Wily::Message::WRnew) { $win_id = $wm->{window_id}; $wm = Wily::Message->new(Wily::Message::WMattach, $win_id, 0, 0, Wily::Message::WEdestroy); $ws->syswrite($wm->flatten()); until (Wily::Message::complete_message($buffer)) { $ws->sysread($buffer, 1024, length($buffer)); } $buffer = $wm->from_string($buffer); if ($wm->{type} == Wily::Message::WRerror) { die "Error WMattach: $wm->{s}n"; } elsif ($wm->{type} == Wily::Message::WRattach) { } else { die "Expected a WRattach, but didnt get one"; } } else { die "Expected a WRnew, but didnt get one"; } while (1) { until (Wily::Message::complete_message($buffer)) { $ws->sysread($buffer, 1024, length($buffer)); } $buffer = $wm->from_string($buffer); if ($wm->{type} == Wily::Message::WEdestroy and $wm->{window_id} == $win_id) { last; } } A simple object wrapper around Wily messages with a helper function to assist in extracting messages from the wily connection..

Requirements:	No special requirements
Release Date:	September 21, 2012
Platforms:	Linux
Keyword:	Buffer,  Id,  Libraries,  Perl,  Programming,  Type,  Wily,  Wily Messages,  Wilymessage,  Win
Users rating:	0/10