Wily::Message Wily::Message is a Perl extension to handle Wily Messages.
Download

Wily::Message Ranking & Summary

Wily::Message Tags

Perl module messages Perl extension Wily Wily Messages

Wily::Message Description

Wily::Message is a Perl extension to handle Wily Messages. 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 didn't get one"; } } else { die "Expected a WRnew, but didn't 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: · Perl

Wily::Message Related Software