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: |
ee1a499a2e24f3ec176762ee6ce131f5 |
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 | 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 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | 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 |
︙ | |||
175 176 177 178 179 180 181 | 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 | - - + + | } set work [split $line ","] unset -nocomplain pkgInfo set pkgInfo(package) [lindex $work 0] set pkgInfo(version) [lindex $work 1] |
︙ |