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 ""
    }
}