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. |
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 |
|
|
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 |
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] |