flap_test_save_bash_completion.f90 Source File

!< Test `save_bash_completion` method.
program flap_save_bash_completion
!< Test `save_bash_completion` method.

use flap, only : command_line_interface
use penf

implicit none
type(command_line_interface) :: cli                                             !< Command Line Interface (CLI).
character(37)                :: bash_file='flap_test_save_bash_completion.bash' !< Bash script file name.

call cli%init(progname='flap_test_save_bash_completion')
call cli%add(switch_ab='-b',  required=.false., act='store', def='no', choices='yes,no')
call cli%add_group(group='compile', description='compile sources')
call cli%add_group(group='clean',   description='clean compiled objects')
call cli%add(group='compile', switch='--compiler',  switch_ab='-c',  required=.false., act='store',      def='gnu'                 )
call cli%add(group='compile', switch='--flags',     switch_ab='-f',  required=.false., act='store',      def='-O2'                 )
call cli%add(group='clean',   switch='--clean',     switch_ab='-c',  required=.false., act='store_true', def='.false.'             )
call cli%add(group='clean',   switch='--clean-all', switch_ab='-ca', required=.false., act='store_true', def='.false.'             )
call cli%add(group='compile', positional=.true., position=1,         required=.false.,                   def='1.0'                 )
call cli%add(group='compile', switch='--integer',   switch_ab='-i',  required=.false., act='store',      def='1',   choices='1,3,5')
call cli%add(group='compile', switch='--real',                       required=.false., act='store',      def='1.0', choices='1.,2.')
call cli%parse
call cli%save_bash_completion(bash_file=trim(bash_file))
endprogram flap_save_bash_completion