#!/bin/sh
# Module template builder; just pass it a list of names

# Process every commandline parameter
while [ "${1}" != "" ]
do
	# Strip trailing /'s
	while [ "${1: -1}" == "/" ]
	do
		set 1 ${1:0:$[${#1} - 1]}
	done
	
	# Create the directory if needed
	[ -d ${1} ] || mkdir ${1}

	# Create the module.tcl file
	cat > ${1}/module.tcl <<EOF
# ${1}/module.tcl
# XXX: insert module description here

debug_log "${1}/module" "Sourcing module"

# Declare dependencies
# XXX: fill this in
set ${1}.dep.prvd) {${1}} ;# What this module provides
set ${1}.dep.reqd) {} ;# Required modules
set ${1}.dep.conf) {} ;# Conflicting modules

# Create all procs and variables for this module
proc ${1}_load {} {
	global ov

	if [lcontains \$ov(mod.loaded) ${1}] {
		debug_log "${1}/module" "Module already loaded"
		return
	}
	debug_log "${1}/module" "Loading module"

# ----- Define procs ----------------------------------------------------------
	# XXX: define procs

# ----- Define variables ------------------------------------------------------
	# XXX: use define to set variables

# ----- Define interface ------------------------------------------------------
	# XXX: (optional) create the user interface
}

# Unload everything
proc ${1}_unload {} {
	global ov

	if ![lcontains \$ov(mod.loaded) ${1}] {
		debug_log "${1}/module" "Module already unloaded"
		return
	}
	debug_log "${1}/module" "Unloading module"

# ----- Undefine interface ----------------------------------------------------
	# XXX: (optional) remove the user interface

# ----- Undefine variables ----------------------------------------------------
	# XXX: use undefine and dyn_undefine to unset all internal variables

# ----- Undefine procs --------------------------------------------------------
	# XXX: reset every internal proc to {} {}
}
EOF
	shift
done

# vim:syntax=tcl: