blob: cd7ed03fa12ec7eefb5686e2611de864e23313f1 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <syserr.h>
include "idb.h"
# IMGETB -- Get an image header parameter of type boolean. False is returned
# if the parameter cannot be found or if the value is not true.
bool procedure imgetb (im, key)
pointer im # image descriptor
char key[ARB] # parameter to be returned
pointer rp
pointer idb_findrecord()
begin
if (idb_findrecord (im, key, rp) == 0)
call syserrs (SYS_IDBKEYNF, key)
else
return (Memc[rp+IDB_ENDVALUE-1] == 'T')
end
|
