From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- pkg/xtools/ranges/rgnext.x | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 pkg/xtools/ranges/rgnext.x (limited to 'pkg/xtools/ranges/rgnext.x') diff --git a/pkg/xtools/ranges/rgnext.x b/pkg/xtools/ranges/rgnext.x new file mode 100644 index 00000000..354ef813 --- /dev/null +++ b/pkg/xtools/ranges/rgnext.x @@ -0,0 +1,32 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include +include + +# RG_NEXT -- Return the next value in a set of ordered and merged ranges. +# Number is set to the next value in the set of ranges or is unchanged +# (and EOF is returned) if there are no more values. + +int procedure rg_next (rg, number) + +pointer rg # RANGES pointer +int number # Both input and output parameter + +int next_number, i + +begin + next_number = number + 1 + + do i = 1, RG_NRGS(rg) + if (next_number > RG_X2(rg, i)) { + next + } else if (next_number < RG_X1(rg, i)) { + number = RG_X1(rg, i) + return (number) + } else { + number = next_number + return (number) + } + + return (EOF) +end -- cgit