help.F90

Go to the documentation of this file.

!! Copyright (C) 2007 Xavier Andrade
!!
!! This program is free software; you can redistribute it and/or modify
!! it under the terms of the GNU General Public License as published by
!! the Free Software Foundation; either version 2, or (at your option)
!! any later version.
!!
!! This program is distributed in the hope that it will be useful,
!! but WITHOUT ANY WARRANTY; without even the implied warranty of
!! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
!! GNU General Public License for more details.
!!
!! You should have received a copy of the GNU General Public License
!! along with this program; if not, write to the Free Software
!! Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
!! 02110-1301, USA.
!!
 
#include "global.h"
 
program oct_help
  use command_line_oct_m
  use global_oct_m
  use iso_c_binding
  use string_oct_m
  use varinfo_oct_m
  use iso_fortran_env, only: output_unit, error_unit
 
  implicit none
 
  integer :: ierr
  character(len=32) :: mode
  character(len=100) :: varname
  character(kind=c_char) :: cmode(33), cvarname(101)
 
  integer, parameter :: help_stdout = output_unit, help_stderr = error_unit
 
  call init_octopus_globals(serial_dummy_comm)
 
  call getopt_init(ierr)
  if (ierr /= 0) then
    write(stderr, '(a)') "Your Fortran compiler doesn't support command-line arguments;"
    write(stderr, '(a)') "the oct-help command is not available."
    stop 1
  end if
 
  cmode    = c_null_char
  cvarname = c_null_char
  call getopt_help(cmode, cvarname)
  call string_c_to_f(cmode, mode)
  call string_c_to_f(cvarname, varname)
  call getopt_end()
 
  select case (mode)
  case ("print")
    call varinfo_print(help_stdout, trim(varname), ierr)
    if (ierr /= 0) then
      write(help_stderr, '(a)') "Error: Variable "//trim(varname)//" not found."
    end if
 
  case ("search")
    call varinfo_search(help_stdout, trim(varname), ierr)
 
  case ("list")
    call varinfo_search(help_stdout, "", ierr)
 
  case default
    write(help_stderr, '(a)') "Error: Unknown mode '"//trim(mode)//"'."
    stop 1
  end select
 
  call global_end()
 
end program oct_help
 
!! Local Variables:
!! mode: f90
!! coding: utf-8
!! End: