# ACTIVESTATE TEAPOT-PKG BEGIN TM -*- tcl -*- # -- Tcl Module # @@ Meta Begin # Package vfs::cookfs::pkgconfig 1.3 # Meta as::author {Wojciech Kocjan} # Meta as::build::date 2014-02-10 # Meta as::origin http://sf.net/projects/cookit # Meta category Virtual filesystems # Meta description Configuration data for package vfs::cookfs # Meta platform tcl # Meta require {Tcl 8.4} # Meta subject {virtual filesystem} configuration # Meta summary vfs::cookfs configuration data # @@ Meta End # ACTIVESTATE TEAPOT-PKG BEGIN REQUIREMENTS package require Tcl 8.4 # ACTIVESTATE TEAPOT-PKG END REQUIREMENTS # ACTIVESTATE TEAPOT-PKG BEGIN DECLARE package provide vfs::cookfs::pkgconfig 1.3 # ACTIVESTATE TEAPOT-PKG END DECLARE # ACTIVESTATE TEAPOT-PKG END TM namespace eval cookfs {} namespace eval cookfs {} proc cookfs::pkgconfig {{command ""} {value ""} {newValue ""}} { variable pkgconfig variable pkgconfigInitialized if {![info exists pkgconfigInitialized]} { array set pkgconfig { package-version "1.3" c-pages "1" c-fsindex "1" c-readerchannel "1" feature-aside "@COOKFS_PKGCONFIG_FEATURE_ASIDE@" feature-bzip2 "0" feature-metadata "@COOKFS_PKGCONFIG_FEATURE_METADATA@" } set pkgconfigInitialized 1 } if {$command == "set"} { if {[info exists pkgconfig($value)]} { set pkgconfig($value) $newValue return $pkgconfig($value) } elseif {$value != ""} { set an [lsort [array names pkgconfig]] error "Unknown field \"$value\"; should be one of: [join [lrange $an 0 end-1] {, }] or [lindex $an end]." } } elseif {$newValue == ""} { switch -- $command { get { if {[info exists pkgconfig($value)]} { return $pkgconfig($value) } elseif {$value != ""} { set an [lsort [array names pkgconfig]] error "Unknown field \"$value\"; should be one of: [join [lrange $an 0 end-1] {, }] or [lindex $an end]." } } list { if {$value == ""} { return [lsort [array names pkgconfig]] } } } } error "Usage: ::cookfs::pkgconfig list|get paramName" } package provide vfs::cookfs::pkgconfig 1.3