aboutsummaryrefslogtreecommitdiff
path: root/lib/dg.exp
diff options
context:
space:
mode:
authorBen Elliston <bje@gnu.org>2006-04-13 00:54:11 +0000
committerBen Elliston <bje@gnu.org>2006-04-13 00:54:11 +0000
commit974f31928753a191275425a979b303a9acab0489 (patch)
tree9edd58fc254d0f962c3448fe70b0a92b558a6020 /lib/dg.exp
parentd29a2499fad390ec9b7c8a9f09aa783d45212fe9 (diff)
* lib/debugger.exp, lib/dejagnu.exp, lib/dg.exp,
lib/framework.exp, lib/libgloss.exp, lib/remote.exp, lib/rlogin.exp, lib/target.exp, lib/telnet.exp: Formatting.
Diffstat (limited to 'lib/dg.exp')
-rw-r--r--lib/dg.exp17
1 files changed, 5 insertions, 12 deletions
diff --git a/lib/dg.exp b/lib/dg.exp
index 922561d..df68549 100644
--- a/lib/dg.exp
+++ b/lib/dg.exp
@@ -258,7 +258,7 @@ proc dg-process-target { selector } {
# The line number is always the first element.
# Note that each of these are varargs procs (they have an `args' argument).
# Tests for optional arguments are coded with ">=" to simplify adding new ones.
-
+#
proc dg-prms-id { args } {
global prms_id ;# this is a testing framework variable
@@ -270,7 +270,6 @@ proc dg-prms-id { args } {
set prms_id [lindex $args 1]
}
-#
# Set tool options
#
# Different options can be used for different targets by having multiple
@@ -278,7 +277,6 @@ proc dg-prms-id { args } {
# processed in order, put the default value first. Subsequent occurrences
# will override previous ones.
#
-
proc dg-options { args } {
upvar dg-extra-tool-flags extra-tool-flags
@@ -299,7 +297,6 @@ proc dg-options { args } {
}
}
-#
# Record what to do (compile/run/etc.)
#
# Multiple instances are supported (since we don't support target and xfail
@@ -500,8 +497,7 @@ proc dg-excess-errors { args } {
}
}
-#
-# Indicate expected program output
+# Indicate expected program output.
#
# We support multiple occurrences, but we do not implicitly insert newlines
# between them.
@@ -556,13 +552,12 @@ proc dg-final { args } {
append final-code "[lindex $args 1]\n"
}
-#
# Set up our environment
#
# There currently isn't much to do, but always calling it allows us to add
# enhancements without having to update our callers.
# It must be run before calling `dg-test'.
-
+#
proc dg-init { } {
}
@@ -591,7 +586,7 @@ proc dg-runtest { testcases flags default-extra-flags } {
# Syntax: dg-trim-dirname dir_name file_name
# We need to go through this contorsion in order to properly support
# directory-names which might have embedded regexp special characters.
-
+#
proc dg-trim-dirname { dir_name file_name } {
set special_character "\[\?\+\-\.\(\)\$\|\]"
regsub -all $special_character $dir_name "\\\\&" dir_name
@@ -902,9 +897,7 @@ proc dg-test { args } {
}
}
-#
-# Do any necessary cleanups
-#
+# Do any necessary cleanups.
# This is called at the end to undo anything dg-init did (that needs undoing).
#
proc dg-finish { } {