Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Code: Alles auswählen
Procedure term(signum.l)
PrintN("Got signal " + signum)
EndProcedure
Structure sigaction
*sa_handler
*sa_sigaction
sa_mask.l
sa_flags.l
*sa_restorer
EndStructure
Define action.sigaction
action\sa_handler = @term()
OpenConsole()
sigaction_(2, action, #Null)
Repeat
Print("What do you want? ")
Until Input() = "exit"
CloseConsole()Code: Alles auswählen
1) SIGHUP 2) SIGINT 3) SIGQUIT 4) SIGILL 5) SIGTRAP
6) SIGABRT 7) SIGBUS 8) SIGFPE 9) SIGKILL 10) SIGUSR1
11) SIGSEGV 12) SIGUSR2 13) SIGPIPE 14) SIGALRM 15) SIGTERM
16) SIGSTKFLT 17) SIGCHLD 18) SIGCONT 19) SIGSTOP 20) SIGTSTP
21) SIGTTIN 22) SIGTTOU 23) SIGURG 24) SIGXCPU 25) SIGXFSZ
26) SIGVTALRM 27) SIGPROF 28) SIGWINCH 29) SIGIO 30) SIGPWR
31) SIGSYS 34) SIGRTMIN 35) SIGRTMIN+1 36) SIGRTMIN+2 37) SIGRTMIN+3
38) SIGRTMIN+4 39) SIGRTMIN+5 40) SIGRTMIN+6 41) SIGRTMIN+7 42) SIGRTMIN+8
43) SIGRTMIN+9 44) SIGRTMIN+10 45) SIGRTMIN+11 46) SIGRTMIN+12 47) SIGRTMIN+13
48) SIGRTMIN+14 49) SIGRTMIN+15 50) SIGRTMAX-14 51) SIGRTMAX-13 52) SIGRTMAX-12
53) SIGRTMAX-11 54) SIGRTMAX-10 55) SIGRTMAX-9 56) SIGRTMAX-8 57) SIGRTMAX-7
58) SIGRTMAX-6 59) SIGRTMAX-5 60) SIGRTMAX-4 61) SIGRTMAX-3 62) SIGRTMAX-2
63) SIGRTMAX-1 64) SIGRTMAX Code: Alles auswählen
Procedure term(signum.l)
PrintN("Got signal " + signum)
EndProcedure
Structure sigaction
*sa_handler
*sa_sigaction
sa_mask.l
sa_flags.l
*sa_restorer
EndStructure
Define action.sigaction
action\sa_handler = @term()
OpenConsole()
sigaction_(2, action, #Null)
Repeat
Print("What do you want? ")
Until Input() = "exit"
CloseConsole()Code: Alles auswählen
;-TOP
CompilerIf #PB_Compiler_OS = #PB_OS_Windows
Import ""
signal(a, callback)
EndImport
CompilerEndIf
Structure sigaction
*sa_handler
*sa_sigaction
sa_mask.l
sa_flags.l
*sa_restorer
EndStructure
; ----
Procedure term(signum.i)
PrintN("Got signal " + signum)
CompilerIf #PB_Compiler_OS = #PB_OS_Windows
signal(2, @term())
CompilerEndIf
EndProcedure
OpenConsole()
CompilerIf #PB_Compiler_OS = #PB_OS_Windows
signal(2, @term())
CompilerElse
Define action.sigaction
action\sa_handler = @term()
sigaction_(2, action, #Null)
CompilerEndIf
Repeat
Print("What do you want? ")
Until Input() = "exit"
CloseConsole()