| Wily :: mensaje Wily :: El mensaje es una extensión de Perl para manejar los mensajes wily. |
Descargar ahora |
Wily :: mensaje Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Sam Holden
- Sitio web del editor:
- http://search.cpan.org/~sholden/Wily-0.02/lib/Wily.pm
Wily :: mensaje Etiquetas
Wily :: mensaje Descripción
Wily :: El mensaje es una extensión de Perl para manejar mensajes wily. Wily :: Mensaje es una extensión de Perl para manejar mensajes wily.synopsis Use Wily :: Mensaje; Use Wily :: Conectar; # abre un archivo en Wily y sale cuando la ventana se destruye mi $ Win_ID; MY $ WS = WILLY :: Conectar :: Conectar (); MY $ WM = WILLY :: MENSAJE-> Nuevo (Wily :: Mensaje :: WMNEW, 0, 0, 0, 1, '/ tmp / file_to_edit'); $ WS-> SYSWRITE ($ WM-> APLATEN ()); My $ BUFFER = ''; Hasta (Wily :: Mensaje :: Complete_Message ($ BUFFER)) {$ WS-> SysRead ($ búfer, 1024, longitud ($ búfer)); } $ buffer = $ wm-> from_string ($ buffer); Si ($ WM -> {TYPE} == WILLY :: MENSAJE :: WRERROR) {DIE "ERROR WMNEW: $ WM -> {S} N"; } Elsif ($ WM -> {TYPE} == WILLY :: MENSAJE :: WRNEW) {$ win_id = $ wm -> {window_id}; $ WM = WILLY :: MENSAJE-> Nuevo (Wily :: Mensaje :: Wmattach, $ Win_ID, 0, 0, Wily :: Mensaje :: Wedestroy); $ WS-> SYSWRITE ($ WM-> APLATEN ()); Hasta (Wily :: Mensaje :: Complete_Message ($ BUFFER)) {$ WS-> SysRead ($ búfer, 1024, longitud ($ búfer)); } $ buffer = $ wm-> from_string ($ buffer); Si ($ WM -> {TYPE} == WILLY :: MENSAJE :: WRERROR) {DIE "ERROR WMATTACH: $ WM -> {S} N" ;; } Elsif ($ WM -> {Type} == Wily :: Mensaje :: Wrattach) {} else {Die "espera un Wrattach, pero no obtuvo uno"; }} else {die "esperaba un whnew, pero no obtuvo uno"; } Mientras (1) {hasta (Wily :: Mensaje :: Complete_Message ($ BUFFER)) {$ WS-> SysRead ($ búfer, 1024, longitud ($ buffer)); } $ buffer = $ wm-> from_string ($ buffer); Si ($ WM -> {Type} == Wily :: Mensaje :: Wedestroy y $ WM -> {window_id} == $ win_id) {Último; }} Una envoltura de objetos simple alrededor de los mensajes wily con una función de ayuda para ayudar a extraer mensajes de la conexión Wily. Requisitos: · Perl
Wily :: mensaje Software relacionado