|
◆ optionparser_add_iarray()
subroutine optionparser_class::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 |
|
) |
| |
|
private |
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 1190 del file optionparser_class.F90.
1191 END SUBROUTINE optionparser_printhelp
1197 SUBROUTINE optionparser_printhelptxt(this)
1198 TYPE(optionparser), INTENT(in) :: this
1200 INTEGER :: i, j, ncols
1201 CHARACTER(len=80) :: buf
1202 TYPE(line_split) :: help_line
1204 ncols = default_columns()
1207 IF ( ASSOCIATED(this%usage_msg)) THEN
1208 help_line = line_split_new(cstr_to_fchar(this%usage_msg), ncols)
1209 DO j = 1, line_split_get_nlines(help_line)
1210 WRITE(*, '(A)')trim(line_split_get_line(help_line,j))
1212 CALL delete(help_line)
1215 i = index(buf, '/', back=.true.)
1216 IF (buf(i+1:i+3) == 'lt-') i = i + 3
1217 WRITE(*, '(A)') 'Usage: '//trim(buf(i+1:))// ' [options] [arguments]'
1221 IF ( ASSOCIATED(this%description_msg)) THEN
1223 help_line = line_split_new(cstr_to_fchar(this%description_msg), ncols)
1224 DO j = 1, line_split_get_nlines(help_line)
|