1#!/usr/bin/env tclsh
2# $Id: xo-whichPkg,v 1.2 2006/02/18 22:17:32 neumann Exp $
3package require XOTcl; namespace import -force xotcl::*
4
5@ @File {
6    description {
7      A small sample script to show which package is loaded from where
8      when a target package is loaded. <@p>
9      Usage: "xo-whichPkg -pkg PACKAGENAME"
10    }
11    authors {
12      Fredj Dridi dridi@nestroy.wi-inf.uni-essen.de
13    }
14    date "[::xotcl::rcs date {$Date: 2006/02/18 22:17:32 $}]"
15}
16
17array set opts {
18  -pkg xotcl::comm::httpd
19}
20array set opts $argv
21
22package require xotcl::package
23package verbose 1
24puts stderr [package require $opts(-pkg)]
25