Mercurial > octave-nkf
diff liboctave/oct-uname.cc @ 5547:8b0b36c2dc0c
[project @ 2005-11-29 17:41:33 by jwe]
author | jwe |
---|---|
date | Tue, 29 Nov 2005 17:41:33 +0000 |
parents | |
children | 93c65f2a5668 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/liboctave/oct-uname.cc Tue Nov 29 17:41:33 2005 +0000 @@ -0,0 +1,64 @@ +/* + +Copyright (C) 2005 John W. Eaton + +This file is part of Octave. + +Octave is free software; you can redistribute it and/or modify it +under the terms of the GNU General Public License as published by the +Free Software Foundation; either version 2, or (at your option) any +later version. + +Octave is distributed in the hope that it will be useful, but WITHOUT +ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +for more details. + +You should have received a copy of the GNU General Public License +along with Octave; see the file COPYING. If not, write to the Free +Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA +02110-1301, USA. + +*/ + +#ifdef HAVE_CONFIG_H +#include <config.h> +#endif + +#include <cerrno> + +#ifdef HAVE_SYS_UTSNAME_H +#include <sys/utsname.h> +#endif + +#include "oct-uname.h" + +void +octave_uname::init (void) +{ +#if defined (HAVE_UNAME) && defined (HAVE_SYS_UTSNAME_H) + struct utsname unm; + + err = ::uname (&unm); + + if (err < 0) + { + using namespace std; + msg = ::strerror (errno); + } + else + { + utsname_sysname = unm.sysname; + utsname_nodename = unm.nodename; + utsname_release = unm.release; + utsname_version = unm.version; + utsname_machine = unm.machine; + } +#endif +} + +/* +;;; Local Variables: *** +;;; mode: C++ *** +;;; End: *** +*/