blob: b44bf4da9460a155427caf7b54f89178a32c4d46 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <plset.h>
# PLR_EQUAL -- Compare two range lists for equality.
bool procedure plr_equals (r1, r2)
short r1[3,ARB] #I range list 1
short r2[3,ARB] #I range list 2
int i
int len1, len2
begin
len1 = RL_LEN(r1)
len2 = RL_LEN(r2)
if (len1 != len2)
return (false)
do i = RL_FIRST, len1
if (r1[1,i] != r2[1,i] || r1[2,i] != r2[2,i] || r1[3,i] != r2[3,i])
return (false)
return (true)
end
|
