From 60d5b77fd8863e3007173ea518164ab1ebd87db2 Mon Sep 17 00:00:00 2001 From: sof Date: Fri, 15 Jan 1999 10:27:24 +0000 Subject: [PATCH 1/1] [project @ 1999-01-15 10:27:24 by sof] Recognise "-- !!!" (as well as "--!!!") as the start of an interesting comment. The latter isn't liked by a Haskell98 tokeniser, hence the change. --- glafp-utils/runstdtest/runstdtest.prl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/glafp-utils/runstdtest/runstdtest.prl b/glafp-utils/runstdtest/runstdtest.prl index 1ca1d5b..d6907a8 100644 --- a/glafp-utils/runstdtest/runstdtest.prl +++ b/glafp-utils/runstdtest/runstdtest.prl @@ -12,7 +12,7 @@ # [default: anything on the cmd line this script doesn't recognise ] # the first opt not starting w/ "-" is taken to be an input # file and (if it exists) is grepped for "what's going on here" -# comments (^--!!!). +# comments (^-- !!!). # * a file to feed to stdin ( -i ) [default: /dev/null ] # * a "time" command to use (-t ). # @@ -139,12 +139,12 @@ exit 1 if $Status; # tidy up the pgm args: # (1) look for the "first input file" -# and grep it for "interesting" comments (--!!! ) +# and grep it for "interesting" comments (-- !!! ) # (2) quote any args w/ whitespace in them. $grep_done = 0; foreach $a ( @PgmArgs ) { if (! $grep_done && $a !~ /^-/ && -f $a) { - print `egrep "^--!!!" $a`; + print `egrep "^--[ ]?!!!" $a`; $grep_done = 1; } if ($a =~ /\s/ || $a =~ /'/) { -- 1.7.10.4