Parent Directory | Revision Log | Patch
revision 1.10 by spiralvoice, Fri Sep 2 22:39:59 2005 UTC | revision 1.11 by spiralvoice, Thu Sep 8 12:44:53 2005 UTC | |
---|---|---|
# | Line 125 int glibc_version(void) | Line 125 int glibc_version(void) |
125 | raise_constant(*(value *)caml_named_value("not supported")); | raise_constant(*(value *)caml_named_value("not supported")); |
126 | #endif | #endif |
127 | } | } |
128 | ||
129 | #ifdef HAVE_SYS_UTSNAME_H | |
130 | #include <sys/utsname.h> | |
131 | void os_uname(char buf[]) { | |
132 | struct utsname uts; | |
133 | uname(&uts); | |
134 | sprintf(buf, "%s %s %s %s %s\0", | |
135 | uts.sysname, uts.nodename, uts.release, uts.version, uts.machine); | |
136 | } | |
137 | #else | |
138 | void os_uname(char buf[]) { | |
139 | // Do nothing to buf | |
140 | } | |
141 | #endif |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |