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
28
|
include "ecidentify.h"
# EC_DELETE -- Delete a feature.
procedure ec_delete (ec, feature)
pointer ec # ID pointer
int feature # Feature to be deleted
int i
begin
if (feature == 0)
return
do i = feature + 1, EC_NFEATURES(ec) {
APN(ec,i-1) = APN(ec,i)
LINE(ec,i-1) = LINE(ec,i)
ORDER(ec,i-1) = ORDER(ec,i)
PIX(ec,i-1) = PIX(ec,i)
FIT(ec,i-1) = FIT(ec,i)
USER(ec,i-1) = USER(ec,i)
FWIDTH(ec,i-1) = FWIDTH(ec,i)
FTYPE(ec,i-1) = FTYPE(ec,i)
}
EC_NFEATURES(ec) = EC_NFEATURES(ec) - 1
EC_NEWFEATURES(ec) = YES
end
|
