TABLE OF CONTENTS
::pwtk::nmlL2regexp
SYNOPSIS
proc ::pwtk::nmlL2regexp {nml_list} {
DESCRIPTION
Transform list-of-namelists into a regexp for parsing the input, i.e. {INPUTPP PLOT} is tranformed into (^&INPUTPP|^&PLOT)
If $nml_list eq {}, empty string is returned
SOURCE
foreach nml $nml_list { lappend reL &[string trimleft $nml &] } ifexist reL { return "(^[join $reL |^])" } else { return "" } }