class
        MY_DAEMON
 
inherit
        POSIX_SIGNAL_HANDLER
 
        POSIX_CONSTANTS
                export
                        {NONE} all
                end
 
        POSIX_DAEMON
 
        ARGUMENTS
 
feature {NONE} -- Initialization
 
   make
           -- Create.
       do
               -- only if the -d argument is given, launch daemonized
               -- this is useful as debugging with the daemonized program does not work
           if argument_count = 1 and then argument (1).is_equal("-d") then
               detach
           else
               execute
           end
       end
 
feature -- Status
 
        is_exit: BOOLEAN
            -- Should we exit?
 
feature {NONE} -- Implementation
 
        execute is
                        -- Execute as daemon.
                local
                        l_signal_handler: POSIX_SIGNAL
                do
                            -- setup the signal handler for the TERM signal and call signalled.
                        create l_signal_handler.make (SIGTERM)
                        l_signal_handler.set_handler (Current)
                        l_signal_handler.apply
 
                            -- an infinite loop
                        from
                        until
                            is_exit
                        loop
                            -- do something useful
                        end
                end
 
feature {NONE} -- Callbacks
 
        signalled (signal_value: INTEGER) is
                        -- We received a signal.
                do
                        if signal_value = SIGTERM then
                            is_exit := True
                        end
                end