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
29
30
31
32
33
34
|
include <tbset.h>
define USRERR 1
# TABHDRTYP -- Return the type of a table header keyword
#
# B. Simon 12-Aug-87 First Code
# Phil Hodge 9-Mar-89 Change to itype in calling sequence of tbhfkr.
int procedure tabhdrtyp (tp, keyword)
pointer tp # i: Table descriptor
char keyword[ARB] # i: Header keyword
#--
int parnum, itype
pointer sp, keyval, errtxt
string nokeyfnd "Keyword not found (%s)"
begin
call smark (sp)
call salloc (keyval, SZ_PARREC, TY_CHAR)
call salloc (errtxt, SZ_LINE, TY_CHAR)
call tbhfkr (tp, keyword, itype, Memc[keyval], parnum)
if (parnum == 0) {
call sprintf (Memc[errtxt], SZ_LINE, nokeyfnd)
call pargstr (keyword)
call error (USRERR, Memc[errtxt])
}
call sfree (sp)
return (itype)
end
|
