diff options
| -rw-r--r-- | share/txr/stdlib/getopts.tl | 51 |
1 files changed, 25 insertions, 26 deletions
diff --git a/share/txr/stdlib/getopts.tl b/share/txr/stdlib/getopts.tl index e4cad875..a556493d 100644 --- a/share/txr/stdlib/getopts.tl +++ b/share/txr/stdlib/getopts.tl @@ -281,10 +281,10 @@ (have-arg-p (some sorted (usl arg-p))) (have-bool (some sorted (op eq @1.type :bool))) (texts (list (if have-short - "Short options can be invoked with long syntax: \ - \ for example, --a can be used when -a exists.\ - \ Short no-argument options can be clumped into\ - \ one argument as exemplified by -xyz. ") + "Short options can be invoked with long syntax: \ \ + for example, --a can be used when -a exists.\ \ + Short no-argument options can be clumped into\ \ + one argument as exemplified by -xyz.") (if have-bool (if have-arg-p "Options that take no argument are Boolean:" @@ -293,32 +293,31 @@ "All options are Boolean:"))) (if have-bool "they are true when present, false when absent.") - (if have-bool - (if have-arg-p - " The --no- prefix can explicitly specify \ - \ Boolean options as false: if a Boolean option\ - \ X exists,\ - \ --no-X specifies it as false. This is useful\ - \ for making false those options which default\ - \ to true." - " The --no- prefix can explicitly specify \ - \ options as false: if an X option exists,\ - \ --no-X specifies it as false. This is useful\ - \ for making false those options which default\ - \ to true.")) + (if (and have-bool have-arg-p) + "The --no- prefix can explicitly specify \ \ + Boolean options as false: if a Boolean option\ \ + X exists,\ \ + --no-X specifies it as false. This is useful\ \ + for making false those options which default\ \ + to true. " + "The --no- prefix can explicitly specify \ \ + options as false: if an X option exists,\ \ + --no-X specifies it as false. This is useful\ \ + for making false those options which default\ \ + to true. ") (if (not have-long) "Note the double dash on --no.") (if (and have-short have-long) - "The --no- prefix can be applied to a short\ - \ or long option name.") + "The --no- prefix can be applied to a short\ \ + or long option name.") (if have-arg-p - "The argument to a long option can be given in one\ - \ argument as --option=arg or as a separate\ - \ argument using --option arg.") - "The special argument -- can be used where an option\ - \ may appear. It means \"end of options\": the\ - \ arguments which follow are not treated as options\ - \ even if they look like options."))) + "The argument to a long option can be given in one\ \ + argument as --option=arg or as a separate\ \ + argument using --option arg.") + "The special argument -- can be used where an option\ \ + may appear. It means \"end of options\": the\ \ + arguments which follow are not treated as options\ \ + even if they look like options."))) (mapdo (do put-line ` @1`) (sys:wdwrap `@{(flatten texts)}` 77))) (put-line) |