blob: 4b11d57079a139fa74b2781793a4ba8ea17decb1 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "qpoe.h"
# QP_ACCESSF -- Test whether the named field (header parameter) exists.
# Globally aliased parameters are recursively expanded and must resolve to
# a normal parameter reference.
int procedure qp_accessf (qp, param)
pointer qp #I QPOE descriptor
char param[ARB] #I parameter name
pointer qp_gpsym()
errchk qp_bind, qp_gpsym
begin
if (QP_ACTIVE(qp) == NO)
call qp_bind (qp)
if (qp_gpsym (qp, param) != NULL)
return (YES)
else
return (NO)
end
|