[PATCH] dejagnu lib/framework.exp PRMS pattern

[Jimmy Guo <guo at cup dot hp dot com>]

This patch is to relax the pattern for a PRMS id to allow a more general
form of bug ID as part of setup_xfail call.

Today, only an all-digit form of bug ID is accepted.  For HP testing, we
want to capture HP bug tracking IDs in the form of alphanumerics.
This patch can be viewed as HP-specific.  If so I'm also happy with
keeping this chance HP local -- just something on the table for the
maintainer to evaluate its general usefulness ... if it doesn't hurt,
I'd like to see it in the repository though, which would make it easier
to share tests between HP and non-HP developers (without need to chop
things off setup_xfail calls).

- Jimmy

Tue Aug  1 11:09:39	Jimmy Guo	<guo@cup.hp.com>

	* lib/framework.exp (setup_xfail): Relax PRMS string pattern
	to allow a more general bug ID specification (without '-').

Index: lib/framework.exp
/usr/local/bin/diff -c -L lib/framework.exp lib/framework.exp@@/main/cygnus/5 lib/framework.exp
*** lib/framework.exp
--- lib/framework.exp	Tue Aug  1 11:09:03 2000
***************
*** 417,424 ****
  # Setup a flag to control whether a failure is expected or not
  #
  # Multiple target triplet patterns can be specified for targets
! # for which the test fails.  A decimal number can be specified,
! # which is the PRMS number.
  #
  proc setup_xfail { args } {
      global xfail_flag
--- 417,424 ----
  # Setup a flag to control whether a failure is expected or not
  #
  # Multiple target triplet patterns can be specified for targets
! # for which the test fails.  A bug report ID can be specified,
! # which is a string without '-'.
  #
  proc setup_xfail { args } {
      global xfail_flag
***************
*** 428,435 ****
      set argc [ llength $args ]
      for { set i 0 } { $i < $argc } { incr i } {
  	set sub_arg [ lindex $args $i ]
! 	# is a prms number. we assume this is a number with no characters
! 	if [regexp "^\[0-9\]+$" $sub_arg] { 
  	    set xfail_prms $sub_arg
  	    continue
  	}
--- 428,435 ----
      set argc [ llength $args ]
      for { set i 0 } { $i < $argc } { incr i } {
  	set sub_arg [ lindex $args $i ]
! 	# is a prms number. we assume this is a string with no '-' characters
! 	if [regexp "^\[^\-\]+$" $sub_arg] { 
  	    set xfail_prms $sub_arg
  	    continue
  	}