Unnamed Fossil Project

Check-in [608f45478a]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:::OSVER bugfix
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:608f45478a75a0deb1539d5a7194cc05598e6353
User & Date: pooryorick 2012-02-28 01:06:07
Context
2012-02-29
13:04
remove old tmk check-in: 8d1dd1f7de user: pooryorick tags: trunk
2012-02-28
01:06
::OSVER bugfix check-in: 608f45478a user: pooryorick tags: trunk
2012-02-27
18:25
add new tmk check-in: 90e2bc34dc user: pooryorick tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to support/tmk/config/arch/sysinfo.tmk.

1
2
3
4
5
6
7

8
9
10
11
12
13
14
15
16
17
18
19
#! /bin/env tclsh

# default - will be refined later 
set ::NRCPUS  1
set ::CPUFREQ "<unknown>"

set ::CPU     $::tcl_platform(machine)


# the OS class is determined by Tcl
set ::OS      $::tcl_platform(os)
switch -glob -- $::OS {
    *CYGWIN* {
	::tmk::os_cygwin
    }
    *Windows* {
	set ::OS $STR_WINDOWS
    }
}
set ::OSCLASS $::tcl_platform(platform)







>












1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#! /bin/env tclsh

# default - will be refined later 
set ::NRCPUS  1
set ::CPUFREQ "<unknown>"

set ::CPU     $::tcl_platform(machine)
set ::OSVER   $::tcl_platform(osVersion)

# the OS class is determined by Tcl
set ::OS      $::tcl_platform(os)
switch -glob -- $::OS {
    *CYGWIN* {
	::tmk::os_cygwin
    }
    *Windows* {
	set ::OS $STR_WINDOWS
    }
}
set ::OSCLASS $::tcl_platform(platform)