blob: ba3c93429d5e0e4336706cb0b51fbc6e19ca00bd (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
include "autoid.h"
define AIDGET "|best|"
# AID_GETR -- Get AID parameters by name.
real procedure aid_getr (aid, param)
pointer aid #I AID object
char param[ARB] #I Parameter name
char temp[10]
int strdic()
begin
switch (strdic (param, temp, 10, AIDGET)) {
case 1:
return (AID_BEST(aid))
}
end
|
