/[dejagnu]/dejagnu/lib/dg.exp
ViewVC logotype

Diff of /dejagnu/lib/dg.exp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by bje, Thu Aug 7 03:42:43 2003 UTC revision 1.6 by bje, Sat Aug 16 13:08:57 2003 UTC
# Line 5  Line 5 
5  # it under the terms of the GNU General Public License as published by  # it under the terms of the GNU General Public License as published by
6  # the Free Software Foundation; either version 2 of the License, or  # the Free Software Foundation; either version 2 of the License, or
7  # (at your option) any later version.  # (at your option) any later version.
8  #  #
9  # This program is distributed in the hope that it will be useful,  # This program is distributed in the hope that it will be useful,
10  # but WITHOUT ANY WARRANTY; without even the implied warranty of  # but WITHOUT ANY WARRANTY; without even the implied warranty of
11  # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the  # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12  # GNU General Public License for more details.  # GNU General Public License for more details.
13  #  #
14  # You should have received a copy of the GNU General Public License  # You should have received a copy of the GNU General Public License
15  # along with this program; if not, write to the Free Software  # along with this program; if not, write to the Free Software
16  # Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  # Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
# Line 156  Line 156 
156  # The default do-what keyword.  # The default do-what keyword.
157  set dg-do-what-default compile  set dg-do-what-default compile
158    
159  # When dg-interpreter-batch-mode is 1, no execution test or excess error  # When dg-interpreter-batch-mode is 1, no execution test or excess error
160  # tests are performed.  # tests are performed.
161  set dg-interpreter-batch-mode 0  set dg-interpreter-batch-mode 0
162    
# Line 591  proc dg-runtest { testcases flags defaul Line 591  proc dg-runtest { testcases flags defaul
591  # Syntax: dg-trim-dirname dir_name file_name  # Syntax: dg-trim-dirname dir_name file_name
592  # We need to go through this contorsion in order to properly support  # We need to go through this contorsion in order to properly support
593  # directory-names which might have embedded regexp special characters.  # directory-names which might have embedded regexp special characters.
594        
595  proc dg-trim-dirname { dir_name file_name } {  proc dg-trim-dirname { dir_name file_name } {
596      set special_character "\[\?\+\-\.\(\)\$\|\]"      set special_character "\[\?\+\-\.\(\)\$\|\]"
597      regsub -all $special_character $dir_name "\\\\&" dir_name      regsub -all $special_character $dir_name "\\\\&" dir_name
# Line 658  proc dg-test { args } { Line 658  proc dg-test { args } {
658      if { "$tool_flags" != "" } {      if { "$tool_flags" != "" } {
659          set name "$name $tool_flags"          set name "$name $tool_flags"
660      }      }
661        
662      # Process any embedded dg options in the testcase.      # Process any embedded dg options in the testcase.
663        
664      # Use "" for the second element of dg-do-what so we can tell if it's been      # Use "" for the second element of dg-do-what so we can tell if it's been
665      # explicitly set to "S".      # explicitly set to "S".
666      set dg-do-what [list ${dg-do-what-default} "" P]      set dg-do-what [list ${dg-do-what-default} "" P]

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26