Previous: prslen Up: ../plot79_p.html Next: prsmsg

PRSLUK

       INTEGER FUNCTION  PRSLUK (STATUS, LENBEG, WRDLST, PTRWRD, LENWRD,
      X     NWORDS, WRDNUM)
 C$    (Parse Internal - Lookup)
 C$    Lookup a keyword or  switch in a word  list, leaving it  in
 C$    COMMON.  If recognition is requested, the remainder of  any
 C$    matching word is added to  the input and the line  retyped.
 C$    The arguments are:
 C$
 C$    STATUS.........Parsing status  value (and  function  value)
 C$                   returned; one  of  NOPAMB,  NOPNMT,  NOPUNK,
 C$                   OKAY.
 C$    LENBEG.........Index of character preceding word in  packed
 C$                   string in STRVAL(*).
 C$    WRDLST(*)......Packed  Hollerith word  list in  format  for
 C$                   PRSIK.  For  field  type SWITCH,  the  words
 C$                   must NOT contain the  leading slash, and  if
 C$                   they  can  be  followed  by  a  value,  MUST
 C$                   contain the trailing colon.
 C$    PTRWRD(*)......Pointers  to  words in WRDLST(*), created by
 C$                   PRSCK.
 C$    LENWRD(*)......Lengths  of  words in  WRDLST(*), created by
 C$                   PRSCK.
 C$    NWORDS.........Number of words  in WRDLST(*).
 C$    WRDNUM.........Integer word number  returned on  successful
 C$                   keyword or switch match,  or 0 if  ambiguous
 C$                   or no match.
 C$    (25-APR-84)