Lines Matching defs:arg
109 val (opt, arg) = breakeq subs
144 long (map #desc options, arg, rest)
186 | get (arg::rest, opts, nonOpts) = let
187 val arg' = SS.full arg
189 | addOpt (NonOpt, rest) = get(rest, opts, arg::nonOpts)
191 if (SS.isPrefix "--" arg')
192 then addOpt(longOpt (SS.triml 2 arg', rest))
193 else if (SS.isPrefix "-" arg') then
194 if SS.size arg' = 1 then
197 addOpt(shortOpt (SS.sub(arg', 1), SS.triml 2 arg', rest))
199 of RequireOrder => (List.rev opts, List.revAppend(nonOpts, arg::rest))
200 | Permute => get(rest, opts, arg::nonOpts)
201 | ReturnInOrder f => get(rest, f arg :: opts, nonOpts)