Mercurial > octave-nkf
diff liboctave/oct-syscalls.cc @ 4294:755f6509bb01
[project @ 2003-01-11 04:01:53 by jwe]
author | jwe |
---|---|
date | Sat, 11 Jan 2003 04:02:04 +0000 |
parents | 86e4baa81410 |
children | 02fcb550f20c |
line wrap: on
line diff
--- a/liboctave/oct-syscalls.cc Mon Jan 06 18:18:14 2003 +0000 +++ b/liboctave/oct-syscalls.cc Sat Jan 11 04:02:04 2003 +0000 @@ -321,6 +321,35 @@ return status; } +int +octave_syscalls::kill (pid_t pid, int sig) +{ + std::string msg; + return kill (pid, sig, msg); +} + +int +octave_syscalls::kill (pid_t pid, int sig, std::string& msg) +{ + msg = std::string (); + + int status = -1; + +#if defined (HAVE_KILL) + status = ::kill (pid, sig); + + if (status < 0) + { + using namespace std; + msg = ::strerror (errno); + } +#else + msg = NOT_SUPPORTED ("kill"); +#endif + + return status; +} + /* ;;; Local Variables: *** ;;; mode: C++ ***