blob: 4301b722e80a4c2ce7d75a5bd43d25cf4c575a70 (
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
|
include "ecidentify.h"
# EC_PREVIOUS -- Return the previous feature.
int procedure ec_previous (ec, feature)
pointer ec # ID pointer
int feature # Starting feature (input), previous feature (returned)
int i
begin
for (i=feature-1; i>0; i=i-1)
if (APN(ec,i) == EC_AP(ec))
break
if (i > 0)
feature = i
else
i = EOF
return (i)
end
|
