|
◆ optionparser_add_iarray()
subroutine optionparser_add_iarray |
( |
type(optionparser), intent(inout) |
this, |
|
|
character(len=*), intent(in) |
short_opt, |
|
|
character(len=*), intent(in) |
long_opt, |
|
|
type(arrayof_integer), target |
dest, |
|
|
integer, dimension(:), optional |
default, |
|
|
character(len=*), optional |
help |
|
) |
| |
Add a new option with an integer type array argument.
When parsing will be performed, if the requested option is encountered, its corresponding compulsory argument will be copied into the provided destination. The argument must be provided in the form of comma-separated list of values and is stored in an object of type arrayof_integer (module array_utilities). 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 |
Definizione alla linea 1209 del file optionparser_class.F90.
1210 IF ( ASSOCIATED(this%usage_msg)) THEN 1211 help_line = line_split_new(cstr_to_fchar(this%usage_msg), ncols) 1212 DO j = 1, line_split_get_nlines(help_line) 1213 WRITE(*, '(A)')trim(line_split_get_line(help_line,j)) 1218 i = index(buf, '/', back=.true.) 1219 IF (buf(i+1:i+3) == 'lt-') i = i + 3 1220 WRITE(*, '(A)') 'Usage: '//trim(buf(i+1:))// ' [options] [arguments]' 1224 IF ( ASSOCIATED(this%description_msg)) THEN 1226 help_line = line_split_new(cstr_to_fchar(this%description_msg), ncols) 1227 DO j = 1, line_split_get_nlines(help_line) 1228 WRITE(*, '(A)')trim(line_split_get_line(help_line,j)) 1233 WRITE(*, '(/,A)') 'Options:' 1235 DO i = 1, this%options%arraysize 1236 CALL option_format_help(this%options%array(i), ncols) 1239 END SUBROUTINE optionparser_printhelptxt Distruttori per le 2 classi.
|