Re: [RFA] dejagnu runtest.exp *dir_to_run

[Jimmy Guo <guo@cup.hp.com>]

I've committed this patch.

- Jimmy

>2000-08-07	Jimmy Guo	<guo@cup.hp.com>
>
>	Re-apply this change which needn't be backed out:
>
>	* runtest.exp: Handle multiple directories in TCL variables
>	dir_to_run and cmdline_dir_to_run.
>
>
>Index: runtest.exp
>===================================================================
>RCS file: /cvs/src/src/dejagnu/runtest.exp,v
>retrieving revision 1.4
>diff -c -r1.4 runtest.exp
>*** runtest.exp	2000/08/05 06:34:02	1.4
>--- runtest.exp	2000/08/07 17:53:42
>***************
>*** 1730,1736 ****
>  		    # value (for example in MULTIPASS) and the test
>  		    # directory matches that directory.
>  		    if {[info exists dir_to_run] && $dir_to_run != ""} {
>! 			if ![string match "*${dir_to_run}*" $dir] {
>  			    continue
>  			}
>  		    }
>--- 1730,1745 ----
>  		    # value (for example in MULTIPASS) and the test
>  		    # directory matches that directory.
>  		    if {[info exists dir_to_run] && $dir_to_run != ""} {
>! 			# JYG: dir_to_run might be a space delimited list
>! 			# of directories.  Look for match on each item.
>! 			set found 0
>! 			foreach directory $dir_to_run {
>! 			    if [string match "*${directory}*" $dir] {
>! 				set found 1
>! 				break
>! 			    }
>! 			}
>! 			if {!$found} {
>  			    continue
>  			}
>  		    }
>***************
>*** 1740,1746 ****
>  		    # directory matches that directory
>  		    if {[info exists cmdline_dir_to_run] \
>  			    && $cmdline_dir_to_run != ""} {
>! 			if ![string match "*${cmdline_dir_to_run}*" $dir] {
>  			    continue
>  			}
>  		    }
>--- 1749,1764 ----
>  		    # directory matches that directory
>  		    if {[info exists cmdline_dir_to_run] \
>  			    && $cmdline_dir_to_run != ""} {
>! 			# JYG: cmdline_dir_to_run might be a space delimited
>! 			# list of directories.  Look for match on each item.
>! 			set found 0
>! 			foreach directory $cmdline_dir_to_run {
>! 			    if [string match "*${directory}*" $dir] {
>! 				set found 1
>! 				break
>! 			    }
>! 			}
>! 			if {!$found} {
>  			    continue
>  			}
>  		    }
>
>