libsim Versione 7.2.1

◆ optionparser_add_i()

subroutine optionparser_add_i ( type(optionparser), intent(inout)  this,
character(len=*), intent(in)  short_opt,
character(len=*), intent(in)  long_opt,
integer, target  dest,
integer, optional  default,
character(len=*), optional  help 
)
private

Add a new option with an integer type argument.

When parsing will be performed, if the requested option is encountered, its corresponding compulsory argument will be copied into the provided destination. 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]thisoptionparser object
[in]short_optthe short option (may be empty)
[in]long_optthe long option (may be empty)
destthe destination of the option parse result
defaultthe default value to give to dest if option is not found
helpthe help message that will be formatted and pretty-printed on screen

Definizione alla linea 1139 del file optionparser_class.F90.

1140 CASE(0)
1141 status = max(option_found(this%options%array(j)), &
1142 status)
1143 END SELECT
1144 EXIT find_shortopt
1145 ENDIF
1146 ENDDO find_shortopt
1147 IF (j > this%options%arraysize) THEN
1148 status = optionparser_err
1149 CALL l4f_log(l4f_error, &
1150 'in optionparser, option '''//trim(arg)//''' not valid')
1151 ENDIF
1152 ELSE ! unrecognized = end of options
1153 EXIT
1154 ENDIF
1155 i = i + 1
1156ENDDO
1157
1158nextarg = i
1159SELECT CASE(status)
1160CASE(optionparser_err, optionparser_help)
1161 CALL optionparser_printhelp(this)
1162END SELECT
1163
1164END SUBROUTINE optionparser_parse
1165
1166

Generated with Doxygen.