diff options
| -rw-r--r-- | fpm/app/main.f90 | 12 | ||||
| -rw-r--r-- | fpm/src/fpm.f90 | 18 |
2 files changed, 26 insertions, 4 deletions
diff --git a/fpm/app/main.f90 b/fpm/app/main.f90 index ad1a9e0..47d7cb1 100644 --- a/fpm/app/main.f90 +++ b/fpm/app/main.f90 @@ -1,5 +1,5 @@ program main -use fpm, only: print_help, cmd_build +use fpm, only: print_help, cmd_build, cmd_install, cmd_new, cmd_run, cmd_test implicit none character(100) :: cmdarg @@ -10,9 +10,15 @@ else if (command_argument_count() == 1) then select case(trim(cmdarg)) case("build") call cmd_build() + case("install") + call cmd_install() + case("new") + call cmd_new() + case("run") + call cmd_run() case default - print *, "Unknown command: ", cmdarg - error stop + print *, "Unknown command: " // trim(cmdarg) + call print_help() end select else print *, "Too many arguments" diff --git a/fpm/src/fpm.f90 b/fpm/src/fpm.f90 index bd1a70e..bfb31fc 100644 --- a/fpm/src/fpm.f90 +++ b/fpm/src/fpm.f90 @@ -1,7 +1,7 @@ module fpm implicit none private -public :: print_help, cmd_build +public :: print_help, cmd_build, cmd_install, cmd_new, cmd_run, cmd_test integer, parameter :: OS_LINUX = 1 integer, parameter :: OS_MACOS = 2 @@ -174,4 +174,20 @@ call package_name(pkg_name) call run("gfortran main.o " // linking // " -o " // pkg_name) end subroutine +subroutine cmd_install() + print *, "fpm error: 'fpm install' not implemented." +end subroutine + +subroutine cmd_new() + print *, "fpm error: 'fpm new' not implemented." +end subroutine + +subroutine cmd_run() + print *, "fpm error: 'fpm run' not implemented." +end subroutine + +subroutine cmd_test() + print *, "fpm error: 'fpm test' not implemented." +end subroutine + end module fpm |