|
◆ optionparser_add_c()
subroutine optionparser_class::optionparser_add_c |
( |
type(optionparser), intent(inout) |
this, |
|
|
character(len=*), intent(in) |
short_opt, |
|
|
character(len=*), intent(in) |
long_opt, |
|
|
character(len=*), target |
dest, |
|
|
character(len=*), optional |
default, |
|
|
character(len=*), optional |
help, |
|
|
logical, intent(in), optional |
isopt |
|
) |
| |
|
private |
Add a new option with a character type argument.
When parsing will be performed, if the requested option is encountered, its corresponding compulsory argument will be copied into the provided destination, truncating it if it is too long. An optional default value can be provided for the destination. Please use the generic optionparser_add method rather than this particular method.
- Parametri
-
[in,out] | this | optionparser object |
[in] | short_opt | the short option (may be empty) |
[in] | long_opt | the long option (may be empty) |
| dest | the destination of the option parse result |
| default | the default value to give to dest if option is not found |
| help | the help message that will be formatted and pretty-printed on screen |
[in] | isopt | if provided and .TRUE. the argument is considered optional |
Definizione alla linea 1118 del file optionparser_class.F90.
1118 status = max(option_found(this%options%array(j), optarg), & 1121 status = optionparser_err 1122 CALL l4f_log(l4f_error, & 1123 'in optionparser, option '''//trim(arg)// ''' requires an argument') 1127 IF (len_trim(arg) > 2) THEN 1130 IF (i < iargc()) THEN 1131 CALL getarg(i+1, optarg) 1132 IF (optarg(1:1) == '-') THEN 1141 status = max(option_found(this%options%array(j), optarg), & 1144 status = max(option_found(this%options%array(j)), & 1150 IF (j > this%options%arraysize) THEN 1151 status = optionparser_err 1152 CALL l4f_log(l4f_error, & 1153 'in optionparser, option '''//trim(arg)// ''' not valid')
|