M_CLI2(3f) is a Fortran module that will crack the command line when given a prototype string that looks very much like an invocation of the program. calls are then made for each parameter name to set the variables appropriately in the program.
This short program defines a command that can be called using conventional Unix-style syntax for short and long parameters:
./show -x 10 -y -20 -p 10,20,30 --title "plot of stuff" -L
./show -lL
./show --title="my new title"
./show -T "my new title"
program show
use M_CLI2, only : set_args, get_args, sget, igets, set_mode
implicit none
real :: x,y,z
logical :: l, lbig
integer,allocatable :: p(:)
character(len=:),allocatable :: title
namelist /args/x,y,z,l,lbig,p,title ! just for printing
call set_mode('strict')
!
! Define command and default values and parse supplied command line options
call set_args('-x 1 -y 2.0 -z 3.5e0 -p 11,-22,33 --title:T "my title" -l F -L F')
!
! multiple scalar non-allocatable values can be done in one call if desired
call get_args('x',x,'y',y,'z',z,'l',l,'L',lbig)
! you can use convenience functions for allocatable arrays and strings.
! The functions are particularly useful in expressions and as arguments on
! procedure calls
title=sget('title') ! string
p=igets('p') ! integer array
!
! All ready to go, print it as a namelist so everything is labeled
write(*,args)
end program show
running with no options shows the defaults
&ARGS
X= 1.00000000 ,
Y= 2.00000000 ,
Z= 3.50000000 ,
L=F,
LBIG=F,
P=11 ,-22 ,33 ,
TITLE="my title",
/
An arbitrary number of strings such as filenames may be passed in on the end of commands; you can query whether an option was supplied; and get_args(3f)-related routines can be used for refining options such as requiring lists of a specified size.
These parameters are defined automatically
--help
--usage
--version
You must supply text for the optional “–help” and “–version” keywords, as described under SET_ARGS(3f).
Compile the M_CLI2 module and build all the example programs.
git clone https://github.com/urbanjost/M_CLI2.git
cd M_CLI2/src
# change Makefile if not using one of the listed compilers
# for gfortran
make clean
make gfortran
# for ifort
make clean
make ifort
# for nvfortran
make clean
make nvfortran
# display other options (test, run, doxygen, ford, ...)
make help
To install you then generally copy the .mod file and .a file to an appropriate directory. Unfortunately, the specifics vary but in general if you have a directory $HOME/.local/lib and copy those files there then you can generally enter something like
gfortran -L$HOME/.local/lib -lM_CLI2 myprogram.f90 -o myprogram
There are different methods for adding the directory to your default load path, but frequently you can append the directory you have placed the files in into the colon-separated list of directories in the $LD_LIBRARY_PATH or $LIBRARY_PATH environment variable, and then the -L option will not be required (or it’s equivalent in your programming environment).
export LD_LIBRARY_PATH=$HOME/.local/lib:$LD_LIBRARY_PATH
NOTE: If you use multiple Fortran compilers you may need to create a different directory for each compiler. I would recommend it, such as $HOME/.local/lib/gfortran/.
If you desire a shared library as well, for gfortran you may enter
make clean gfortran gfortran_install
and everything needed by gfortran will be placed in libgfortran/ that you may add to an appropriate area, such as $HOME/.local/lib/gfortran/.
make clean ifort ifort_install # same for ifort
does the same for the ifort compiler and places the output in libifort/.
NOTE: The build instructions above are specific to a ULS (Unix-Like System) and may differ, especially for those wishing to generate shared libraries (which varies significantly depending on the programming environment). For some builds it is simpler to make a Makefile for each compiler, which might be required for a more comprehensive build unless you are very familiar with gmake(1).
If you always use one compiler it is relatively simple, otherwise make sure you know what your system requires and change the Makefile as appropriate.
Alternatively, fpm(1) users may download the github repository and build it with fpm ( as described at Fortran Package Manager )
git clone https://github.com/urbanjost/M_CLI2.git
cd M_CLI2
fpm test # build and test the module
fpm install # install the module (in the default location)
or just list it as a dependency in your fpm.toml project file.
[dependencies]
M_CLI2 = { git = "https://github.com/urbanjost/M_CLI2.git" }
Alternatively, meson(1) users may download the github repository and build it with meson ( as described at Meson Build System )
git clone https://github.com/urbanjost/M_CLI2.git
cd M_CLI2
meson setup _build
meson test -C _build # build and test the module
# install the module (in the <DIR> location)
# --destdir is only on newer versions of meson
meson install -C _build --destdir <DIR>
# older method if --destdir is not available
env DESTDIR=<DIR> meson install -C _build
or just list it as a subproject dependency in your meson.build project file.
M_CLI2_dep = subproject('M_CLI2').get_variable('M_CLI2_dep')
This is how the interface works –
Pass in a string to set_args(3f) that looks almost like the command you would use to execute the program except with all keywords and default values specified.
you add calls to the get_args(3f) procedure or one of its variants. The alternative convenience procedures (rget(3f),sget(3f),iget(3f) …) allow you to use a simple function-based interface model. There are special routines for when you want to use fixed length. CHARACTER variables or fixed-size arrays instead of the allocatable variables best used with get_args(3f)).
Now when you call the program all the values in the prototype should be updated using values from the command line and queried and ready to use in your program.
These demo programs provide templates for the most common usage:
Response files are supported as described in the documentation for set_args. They are a system-independent way to create short abbreviations for long complex commands. This option is generally not needed by programs with just a few options, but can be particularly useful for programs with dozens of options where various values are frequently reused.
commit 598e44164eee383b8a0775aa75b7d1bb100481c3
was tested on 2020-11-22 with
+ GNU Fortran (GCC) 8.3.1 20191121 (Red Hat 8.3.1-5)
+ ifort (IFORT) 19.1.3.304 20200925
+ nvfortran 20.7-0 LLVM 64-bit target on x86-64 Linux
commit 8fe841d8c0c1867f88847e24009a76a98484b31a
was tested on 2021-09-29 with
+ GNU Fortran (Ubuntu 10.3.0-1ubuntu1~20.04) 10.3.0
+ ifort (IFORT) 2021.3.0 20210609
+ nvfortran 21.5-0 LLVM 64-bit target on x86-64 Linux -tp nehalem
commit 732bcadf95e753ccdf025cec2c08d776ea2534c2
was tested on 2023-02-10 with
+ ifort (IFORT) 2021.8.0 20221119
+ GNU Fortran (Ubuntu 11.1.0-1ubuntu1~20.04) 11.1.0