Previous: prsswd Up: ../plot79_p.html Next: prstcl
INTEGER FUNCTION PRSSWI (STATUS, STDHMS, HLPSTR, LENHLP, DEFSTR,
X LENDEF, WRDLST, PTRWRD, LENWRD, NWORDS, WRDNUM)
C$ (Parse - Switch)
C$ Parse a switch word list, leaving it in COMMON. The
C$ arguments are:
C$
C$ STATUS.........Parsing status value (and function value)
C$ returned; one of NOPABT, NOPAMB, NOPHLP,
C$ NOPIFL, NOPNMT, NOPNSW, NOPNUL, NOPUNK,
C$ OKAY, OVRFLO, or REPARS. If the return
C$ value is not OKAY, the input pointer is
C$ backed up to its value at entry, allowing a
C$ retry with another field type. The help
C$ return, NOPHLP, is only given if an
C$ alternative parse is in progress.
C$ Otherwise, this routine loops until the user
C$ completes the input field with something
C$ other than the help character.
C$ STDHMS......... .TRUE. - issue standard help message.
C$ .FALSE. - suppress standard help message.
C$ HLPSTR(*)......Packed Hollerith help string.
C$ LENHLP.........Length of HLPSTR(*).
C$ DEFSTR(*)......Packed Hollerith default value string.
C$ LENDEF.........Length of DEFSTR(*).
C$ WRDLST(*)......Packed Hollerith word list in format for
C$ PRSIK. The words must NOT contain the
C$ leading slash, and if they can be followed
C$ by a value, MUST 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$ switch match, or 0 if ambiguous or no match.
C$ (25-APR-84)