Wily :: Mensagem Wily :: Mensagem é uma extensão Perl para lidar com mensagens wily.
Baixe Agora

Wily :: Mensagem Classificação e resumo

Wily :: Mensagem Tag

Módulo Perl. mensagens Extensão perl. Astuto Mensagens Wily.

Wily :: Mensagem Descrição

Wily :: Mensagem é uma extensão Perl para lidar com mensagens wily. Wily :: Mensagem é uma extensão Perl para lidar com mensagens wily.synopsis Use Wily :: Mensagem; Use Wily :: Connect; # abre um arquivo em Wily e sai quando a janela é destruída meu $ win_id; Meu $ WS = Wily :: Connect :: Connect (); Meu $ Wm = Wily :: Message-> Novo (Wily :: Message :: WMNew, 0, 0, 0, 1, '/ TMP / file_to_edit'); $ ws-> syswrite ($ wm-> achatar ()); meu buffer de $ = ''; até (Wily :: Message :: Complete_Message ($ buffer)) {$ ws-> sysread (buffer $, 1024, comprimento (buffer)); } $ buffer = $ wm-> from_string (buffer $); if ($ wm -> {type} == Wily :: Mensagem :: Erro Wmnew: $ Wm -> {s} n "; } ELSIF ($ WM -> {Type} == Wily :: Message :: wrnew) {$ win_id = $ wm -> {wowing_id}; $ Wm = Wily :: Message-> Novo (Wily :: Message :: Wmattach, $ Win_ID, 0, 0, Wily :: Mensagem :: Wedestroy); $ ws-> syswrite ($ wm-> achatar ()); até (Wily :: Message :: Complete_Message ($ buffer)) {$ ws-> sysread (buffer $, 1024, comprimento (buffer)); } $ buffer = $ wm-> from_string (buffer $); if ($ WM -> {Type} == Wily :: Mensagem :: Error Wmattach: $ wm -> {s} n "; } ELSIF ($ WM -> {Type} == Wily :: Mensagem :: Wrattach) {} else {morrer "esperava um wrattach, mas não conseguiu um"; }} else {morrer "esperava um wrnew, mas não conseguiu um"; } Enquanto (1) {até (Wily :: Message :: Complete_Message ($ buffer)) {$ ws-> sysread (buffer $, 1024, comprimento (buffer)); } $ buffer = $ wm-> from_string (buffer $); if ($ WM -> {Type} == Wily :: Message :: Wedestroy e $ Wm -> {wowing_id} == $ win_id) {done; }} Um wrapper de objeto simples em torno de mensagens wily com uma função auxiliar para ajudar na extração de mensagens da conexão wily. Requisitos: · Perl.

Wily :: Mensagem Software Relacionado