Overview
| Comment: | Updated to normalize CPU/OS |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | ee1a499a2e24f3ec176762ee6ce131f542f548e6 |
| User & Date: | rkeene on 2014-09-14 04:36:17 |
| Other Links: | manifest | tags |
Context
|
2014-09-16
| ||
| 18:21 | Removed blank line check-in: 17bbfdc417 user: rkeene tags: trunk | |
|
2014-09-14
| ||
| 04:36 | Updated to normalize CPU/OS check-in: ee1a499a2e user: rkeene tags: trunk | |
|
2014-09-13
| ||
| 05:15 | Updated to commit package change as a single transaction check-in: 86819aa4e1 user: rkeene tags: trunk | |
Changes
Modified appfsd.tcl from [c65cce6320] to [fc1c954390].
79
80
81
82
83
84
85
86
87
88
89
90
91
92
...
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
|
return true
}
proc _db {args} {
return [uplevel 1 [list ::appfs::db {*}$args]]
}
proc init {} {
if {[info exists ::appfs::init_called]} {
return
}
set ::appfs::init_called 1
................................................................................
}
set work [split $line ","]
unset -nocomplain pkgInfo
set pkgInfo(package) [lindex $work 0]
set pkgInfo(version) [lindex $work 1]
set pkgInfo(os) [lindex $work 2]
set pkgInfo(cpuArch) [lindex $work 3]
set pkgInfo(hash) [string tolower [lindex $work 4]]
set pkgInfo(hash_type) "sha1"
set pkgInfo(isLatest) [expr {!![lindex $work 5]}]
if {![_isHash $pkgInfo(hash)]} {
continue
}
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
|
|
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
...
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
|
return true
}
proc _db {args} {
return [uplevel 1 [list ::appfs::db {*}$args]]
}
proc _normalizeOS {os} {
set os [string tolower [string trim $os]]
switch -- $os {
"linux" - "freebsd" - "openbsd" - "netbsd" {
return $os
}
"sunos" {
return "solaris"
}
}
return -code error "Unable to normalize OS: $os"
}
proc _normalizeCPU {cpu} {
set cpu [string tolower [string trim $cpu]]
switch -glob -- $cpu {
"i?86" {
return "ix86"
}
"x86_64" {
return $cpu
}
}
return -code error "Unable to normalize CPU: $cpu"
}
proc init {} {
if {[info exists ::appfs::init_called]} {
return
}
set ::appfs::init_called 1
................................................................................
}
set work [split $line ","]
unset -nocomplain pkgInfo
set pkgInfo(package) [lindex $work 0]
set pkgInfo(version) [lindex $work 1]
set pkgInfo(os) [_normalizeOS [lindex $work 2]]
set pkgInfo(cpuArch) [_normalizeCPU [lindex $work 3]]
set pkgInfo(hash) [string tolower [lindex $work 4]]
set pkgInfo(hash_type) "sha1"
set pkgInfo(isLatest) [expr {!![lindex $work 5]}]
if {![_isHash $pkgInfo(hash)]} {
continue
}
|