add placeholder commands and not-implemented notes

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