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