Update of /cvsroot/env-switcher/default-manpath/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18637/src
Added Files:
.cvsignore Makefile.am default-manpath.tcl
Log Message:
First cut
--- NEW FILE: .cvsignore ---
Makefile
Makefile.in
--- NEW FILE: Makefile.am ---
# -*- makefile -*-
#
# Copyright (c) 2005 The Trustees of Indiana University.
# All rights reserved.
#
# This file is part of the modules-default-manpath-oscar software
# package. For license information, see the LICENSE file in the
# top-level directory of the modules-default-manpath-oscar source
# distribution.
#
# $Id: Makefile.am,v 1.1 2005/02/28 23:15:34 jsquyres Exp $
#
include $(top_srcdir)/dist/Makefile.options
EXTRA_DIST = default-manpath.tcl
--- NEW FILE: default-manpath.tcl ---
#%Module -*- tcl -*-
#
# This modulefile exists because of the way "man" gets its path.
# if $MANPATH is set, it ignored /etc/man.config, which is where all
# the default man paths are set. There's an undocumented feature of
# man in that if you have ":" at the beginning or end (or, more specifically,
# any path in $MANPATH is empty), it'll read the MANPATH entries from
# /etc/man.config. However, the modules commands "append-path" and
# "prepend-path" are too smart -- they won't let us append or prepend
# an empty path.
#
# So the solution we devised is to have a new modulefile that reads
# in the MANPATH entries from /etc/man.config and add them here
# with append-path. Then, if the user doesn't want them, they can
# just unload this module.
#
proc ModulesHelp { } {
puts stderr "\tThis module adds in the default MANPATH entries"
puts stderr "\tto the $MANPATH environment variable from /etc/man.config."
}
module-whatis "Add default entries to the MANPATH environment variable"
# Read in /etc/man.config, find all MANPATH entires
set manconfig [open "|egrep ^MANPATH /etc/man.config" "r"]
while { [eof $manconfig] == 0 } {
gets $manconfig line
set words [split $line]
# To be blunt, I didn't have the time or inclination to figure out the
# right TCL syntax to get the regexp right, above -- all I got was
# "starting the line with MANPATH", but there's still a few items
# in /etc/man.config that can start with MANPATH, but not *be* MANPATH
# (e.g., "MANPATH_MAP"). So just double check here that we got
# MANPATH, and not anything else.
if { [lindex $words 0] == "MANPATH" } {
append-path MANPATH [lindex $words 1]
}
}
close $manconfig
|
