From 12028b93c50d35b79fd73860eb6d011b00a6d11c Mon Sep 17 00:00:00 2001 From: Ben Elliston Date: Fri, 30 Nov 2018 12:07:55 +1100 Subject: [PATCH] * lib/framework.exp (isremote): New. * doc/dejagnu.texi (isremote procedure): Document it. * NEWS: Mention isremote. --- ChangeLog | 6 ++++++ NEWS | 4 ++++ doc/dejagnu.texi | 18 ++++++++++++++++-- lib/framework.exp | 6 ++++++ 4 files changed, 32 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 305182c..6abea6a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2018-11-30 Ben Elliston + + * lib/framework.exp (isremote): New. + * doc/dejagnu.texi (isremote procedure): Document it. + * NEWS: Mention isremote. + 2018-11-30 Ben Elliston * texinfo.tex: Update to latest upstream version. diff --git a/NEWS b/NEWS index c0433bb..cb8f01a 100644 --- a/NEWS +++ b/NEWS @@ -2,6 +2,10 @@ Changes since 1.6.2: +1. The internal proc 'is_remote' has been renamed to 'isremote' for + consistency with the other similar procs (eg, istarget). Testsuites + should use this proc. The 'is_remote' proc is deprecated. + Changes since 1.6.1: 1. runtest will abort if $DEJAGNU is defined but the file is not diff --git a/doc/dejagnu.texi b/doc/dejagnu.texi index c3a1006..8674f04 100644 --- a/doc/dejagnu.texi +++ b/doc/dejagnu.texi @@ -2237,6 +2237,7 @@ DejaGnu provides these Tcl procedures. * open_logs Procedure: open_logs procedure * close_logs Procedure: close_logs procedure * isbuild Procedure: isbuild procedure +* isremote Procedure: isremote procedure * is_remote Procedure: is_remote procedure * is3way Procedure: is3way procedure * ishost Procedure: ishost procedure @@ -2282,7 +2283,7 @@ Close the output logs. @t{@b{close_logs}} @end quotation -@node isbuild procedure, is_remote procedure, close_logs procedure, Core Internal Procedures +@node isbuild procedure, isremote procedure, close_logs procedure, Core Internal Procedures @subsubsection isbuild Procedure Tests for a particular build host environment. If the currently @@ -2302,7 +2303,18 @@ empty pattern, this procedure returns the build system triplet. @item @code{pattern} @end table -@node is_remote procedure, is3way procedure, isbuild procedure, Core Internal Procedures +@node isremote procedure, is_remote procedure, isbuild procedure, Core Internal Procedures +@subsubsection isremote Procedure + +Is @i{board} remote? Return a non-zero value, if so. + +@quotation +@t{@b{isremote} @{@i{ board }@}} +@end quotation + +This procedure is to be used instead of @code{is_remote}. + +@node is_remote procedure, is3way procedure, isremote procedure, Core Internal Procedures @subsubsection is_remote Procedure Is @i{board} remote? Return a non-zero value, if so. @@ -2311,6 +2323,8 @@ Is @i{board} remote? Return a non-zero value, if so. @t{@b{is_remote} @{@i{ board }@}} @end quotation +Note that this procedure is now depreciated. Use @code{isremote} instead. + @node is3way procedure, ishost procedure, is_remote procedure, Core Internal Procedures @subsubsection is3way Procedure diff --git a/lib/framework.exp b/lib/framework.exp index ef1baa5..f2d5f90 100644 --- a/lib/framework.exp +++ b/lib/framework.exp @@ -117,6 +117,12 @@ proc isbuild { { pattern "" } } { # Is $board remote? Return a non-zero value if so. # +proc isremote { board } { + return [is_remote board] +} + +# Legacy library proc for isremote. +# proc is_remote { board } { global host_board global target_list