yab | yet another Basic for HAIKU

Full Version: finding a process id
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
Sometimes it is necessary to kioll a running process. This is not easy if the process id has not been saved. The following program finds the process id from the shell. I call the program:

pid

Code:
#!yab
program$=peek$("argument")
program$=trim$(program$)
if program$="" then
    print "usage:  pid  programname"
    exit
endif
a$=system$("ps "+program$)
dim w$(1)
num=token(a$,w$())
if arraysize(w$(),1)< 7 then
    print program$+" not found"
    exit
endif
print w$(7)

This can be used in a shell script:

Code:
#!sh
pid Terminal>Terminal.pid
pid=`cat Terminal.pid`
kill $pid
Free Web Hosting