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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <syserr.h>
# CLGWRD -- Get a keyword parameter from the CL, and match it against
# a dictionary of legal keywords. Any unambiguous abbreviation is
# accepted. The full keyword string is returned in keyword, and the
# word index of the keyword in the dictionary is returned as the function
# value.
int procedure clgwrd (param, keyword, maxchar, dictionary)
char param[ARB] # CL parameter string
char keyword[ARB] # String matched in dictionary
int maxchar # Maximum size of str
char dictionary[ARB] # Dictionary string
pointer sp, abbrev
int kwindex, strdic()
begin
call smark (sp)
call salloc (abbrev, SZ_FNAME, TY_CHAR)
call clgstr (param, Memc[abbrev], maxchar)
kwindex = strdic (Memc[abbrev], keyword, maxchar, dictionary)
if (kwindex <= 0)
call syserrs (SYS_CLGWRD, Memc[abbrev])
call sfree (sp)
return (kwindex)
end
|
