From mboxrd@z Thu Jan  1 00:00:00 1970
From: Jimmy Guo <guo@cup.hp.com>
To: Fernando Nasser <fnasser@cygnus.com>
Cc: gdb-patches@sourceware.cygnus.com
Subject: Re: [RFA] dejagnu runtest.exp *dir_to_run
Date: Mon, 14 Aug 2000 11:02:00 -0000
Message-id: <Pine.LNX.4.10.10008141101140.23765-100000@hpcll168.cup.hp.com>
References: <Pine.LNX.4.10.10008071056180.5575-100000@hpcll168.cup.hp.com>
X-SW-Source: 2000-08/msg00249.html

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