#!/usr/bin/env expect proc collect_modules {arg} { global modules foreach path [glob $arg] { set name [file tail $path] file link -s $name $path append modules " $name " } }