demo_set_mode – M_CLI2
Author: John S. Urban
Description: command line parsing

# demo_set_mode Program

- 16 statements
- Source File

### Uses

- - M_CLI2

### Contents

### Variables

all

### Source Code

demo_set_mode

## Variables

Type | Attributes |  | Name |  | Initial |
--- | --- | --- | --- | --- | --- | ---
character(len=*), | parameter | :: | all | = | '(*(g0))' |

## Source Code

         program demo_set_mode
         use M_CLI2,  only : set_args, lget, set_mode
         implicit none
         character(len=*),parameter :: all='(*(g0))'
            !
            ! enable use of response files
            call set_mode('response_file')
            !
            ! Any dash in a keyword is treated as an underscore
            call set_mode('underdash')
            !
            ! The case of long keywords are ignored.
            ! Values and short names remain case-sensitive
            call set_mode('ignorecase')
            !
            ! short single-character boolean keys may be bundled
            ! but it is required that a single dash is used for
            ! short keys and a double dash for long keywords.
            call set_mode('strict')
            !
            call set_args(' --switch_X:X F --switch-Y:Y F --ox:O F -t F -x F -o F')
            !
            print all,'--switch_X or -X ... ',lget('switch_X')
            print all,'--switch_Y or -Y ... ',lget('switch_Y')
            print all,'--ox or -O       ... ',lget('ox')
            print all,'-o               ... ',lget('o')
            print all,'-x               ... ',lget('x')
            print all,'-t               ... ',lget('t')
         end program demo_set_mode