project BLF > class TDaemonUtility > method KillDaemonProcessesInternal


Parameters


icProcessesinputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
method TDaemonUtility.KillDaemonProcesses


program code (program1/tdaemonutility.p)

<M-36 run GetHostName  (output vcKillHostname (ocHostName)) in TDaemonUtility>

if opsys = "UNIX"
then do viPCount = 1 to num-entries(icProcesses):
    if num-entries (entry(viPCount,icProcesses),":") = 2
    then assign vcProcessHostname = entry (1,entry(viPCount,icProcesses),":")
                vcProcessID       = entry (2,entry(viPCount,icProcesses),":").
    else vcProcessID = entry(viPCount,icProcesses).
    if vcKillHostname = vcProcessHostname
    or vcKillHostname = ""
    then os-command value ("kill -9 ":U + entry(viPCount,icProcesses)).
end.
else do:
    <M-1 run Main  () in Win32Lib>
    do viPCount = 1 to num-entries(icProcesses):
        if num-entries (entry(viPCount,icProcesses),":") = 2
        then assign vcProcessHostname = entry (1,entry(viPCount,icProcesses),":")
                    vcProcessID       = entry (2,entry(viPCount,icProcesses),":").
        else vcProcessID = entry(viPCount,icProcesses).
        if vcKillHostname = vcProcessHostname
        or vcKillHostname = ""
        then do:
            <M-2 run EndProcess
               (input  integer(entry(viPCount,icProcesses)) (iiProcessId), 
                output viFcReturnSuper (oiReturnStatus)) in Win32Lib>
        end.
    end.
    run gipr_deleteprocedure in vhFcComponent.
    delete procedure vhFcComponent.
end.