Lines Matching defs:arg
112 val (opt, arg) = breakeq subs
147 long (map #desc options, arg, rest)
189 | get (arg::rest, opts, nonOpts) = let
190 val arg' = SS.full arg
192 | addOpt (NonOpt, rest) = get(rest, opts, arg::nonOpts)
194 if (SS.isPrefix "--" arg')
195 then addOpt(longOpt (SS.triml 2 arg', rest))
196 else if (SS.isPrefix "-" arg') then
197 if SS.size arg' = 1 then
200 addOpt(shortOpt (SS.sub(arg', 1), SS.triml 2 arg', rest))
202 of RequireOrder => (List.rev opts, List.revAppend(nonOpts, arg::rest))
203 | Permute => get(rest, opts, arg::nonOpts)
204 | ReturnInOrder f => get(rest, f arg :: opts, nonOpts)