handle_early_cli Subroutine

subroutine handle_early_cli()

設定読込を始める前に完結する CLI option を処理する。

Arguments

None

Called by

proc~~handle_early_cli~~CalledByGraph proc~handle_early_cli handle_early_cli program~main main program~main->proc~handle_early_cli

Source Code

  subroutine handle_early_cli()
    character(len=256) :: arg

    if (command_argument_count() < 1) return
    call get_command_argument(1, arg)
    select case (trim(arg))
    case ('--version', '-V')
      print '(a)', trim(beach_version)
      stop
    case ('--help', '-h')
      print '(a)', 'usage: beach [beach.toml]'
      print '(a)', '       beach --version'
      stop
    end select
  end subroutine handle_early_cli