1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
-
+
|
/*
* tclUnixInit.c --
*
* Contains the Unix-specific interpreter initialization functions.
*
* Copyright (c) 1995-1997 Sun Microsystems, Inc.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: tclUnixInit.c,v 1.1.2.2 1998/09/24 23:59:45 stanton Exp $
* RCS: @(#) $Id: tclUnixInit.c,v 1.1.2.3 1998/09/30 23:01:16 stanton Exp $
*/
#include "tclInt.h"
#include "tclPort.h"
#include <locale.h>
#if defined(__FreeBSD__)
# include <floatingpoint.h>
|
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
|
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
|
-
+
|
* the way version information is returned by uname. On most
* systems the full version number is available in name.release.
* However, under AIX the major version number is in
* name.version and the minor version number is in name.release.
*/
if ((strchr(name.release, '.') != NULL)
|| !isdigit(name.version[0])) { /* INTL: digit */
|| !isdigit(UCHAR(name.version[0]))) { /* INTL: digit */
Tcl_SetVar2(interp, "tcl_platform", "osVersion", name.release,
TCL_GLOBAL_ONLY);
} else {
Tcl_SetVar2(interp, "tcl_platform", "osVersion", name.version,
TCL_GLOBAL_ONLY);
Tcl_SetVar2(interp, "tcl_platform", "osVersion", ".",
TCL_GLOBAL_ONLY|TCL_APPEND_VALUE);
|