У програмі Julia, яка працює під Linux, мені потрібно запустити спеціальну дію, коли змінено вікно консолі. Так як у Julia, чи можу я перехопити системний сигнал SIGWINCH (зміна розміру вікна) і приєднати до нього функцію, яка виконує необхідну дію?
В Ada досить просто заявити про це:
protected Signalhandler is
procedure Handlewindowresizing;
pragma Attach_Handler (Handlewindowresizing, SIGWINCH);
end Signalhandler;
ТЕНТАТИВНЕ РІШЕННЯ НА ОСНОВІ ІДЕЇ ШЕМЕРУ: Я намагаюся використовувати С-бібліотеку, яка проводить моніторинг переривань SIGWINCH.
myLibrary.h
void Winresize (void Sig_Handler());
myLibrary.c
#include "myLibrary.h"
#include <stdio.h>
#include <stdlib.h>
#include <signal.h>
void Winresize(void sig_handler (void)) {
signal(SIGWINCH, sig_handler);
}
Компіляція та підготовка бібліотеки
gcc -c -Wall -fPIC myLibrary.c
gcc -shared -fPIC -o myLibrary.so myLibrary.o
Програма в Джулії, яка використовує С-бібліотеку:
function getc1()
ret = ccall(:jl_tty_set_mode, Int32, (Ptr{Cvoid},Int32), stdin.handle, true)
ret == 0 || error("unable to switch to raw mode")
c = read(stdin, UInt8)
ccall(:jl_tty_set_mode, Int32, (Ptr{Cvoid},Int32), stdin.handle, false)
c
end
function traitement() println(displaysize(stdout)); end
Mon_traitement_c = @cfunction(traitement, Cvoid, ())
ccall((:Winresize, "/home/Emile/programmation/Julia/myLibrary.so"), Cvoid, (Ptr{Cvoid},), Mon_traitement_c)
while true
println(getc1())
end
Програма Julia запускається належним чином, але коли розмір вікна терміналу видається, помилка сегментації (ядро скинуто) видається, і програма заявляється, що вийшов із кодом: 139.
Тож питання полягає в тому, звідки береться ця помилка сегментації? З моделі компіляції? Юлія не має права контролювати виконання коду в частині пам'яті, де С керує моніторингом сигналу?
Видалення операції println у Sig_handler придушує помилку сегментації:
curr_size = displaysize(stdout)
new_size = curr_size
function traitement() global new_size ; new_size = displaysize(stdout); return end
Mon_traitement_c = @cfunction(traitement, Cvoid, ())
ccall((:Winresize, "/home/Emile/programmation/Julia/myLibrary.so"), Cvoid, (Ptr{Cvoid},), Mon_traitement_c)
while true
global curr_size, new_size
if new_size != curr_size
curr_size = new_size
println(curr_size)
end
sleep(0.1)
end