# ACTIVESTATE TEAPOT-PKG BEGIN TM -*- tcl -*-
# -- Tcl Module

# @@ Meta Begin
# Package vfs::cookfs::pkgconfig 1.1
# Meta as::author      {Wojciech Kocjan}
# Meta as::build::date 2011-04-18
# 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.1

# ACTIVESTATE TEAPOT-PKG END DECLARE
# ACTIVESTATE TEAPOT-PKG END TM
namespace eval cookfs {}
namespace eval cookfs {}

proc cookfs::pkgconfig {{command ""} {value ""}} {
    variable pkgconfig
    variable pkgconfigInitialized

    if {![info exists pkgconfigInitialized]} {
	array set pkgconfig {
	    package-version	"1.1"

	    c-pages		"1"
	    c-fsindex		"1"
	    c-readerchannel	"1"

	    feature-bzip2 "0"
	}
	set pkgconfigInitialized 1
    }

    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.1