@@ -40,7 +40,8 @@ module fpm_targets
4040
4141public  FPM_TARGET_UNKNOWN, FPM_TARGET_EXECUTABLE, &
4242       FPM_TARGET_ARCHIVE, FPM_TARGET_OBJECT, &
43-        FPM_TARGET_C_OBJECT, FPM_TARGET_CPP_OBJECT
43+        FPM_TARGET_C_OBJECT, FPM_TARGET_CPP_OBJECT, &
44+        FPM_TARGET_NAME
4445public  build_target_t, build_target_ptr
4546public  targets_from_sources, resolve_module_dependencies
4647public  add_target, add_dependency
@@ -137,6 +138,22 @@ module fpm_targets
137138
138139contains 
139140
141+ ! > Target type name
142+ pure  function  FPM_TARGET_NAME (type ) result(msg)
143+    integer , intent (in ) ::  type
144+    character (:), allocatable  ::  msg
145+ 
146+    select case  (type)
147+       case  (FPM_TARGET_ARCHIVE);    msg =  ' Archive' 
148+       case  (FPM_TARGET_CPP_OBJECT); msg =  ' C++ object' 
149+       case  (FPM_TARGET_C_OBJECT);   msg =  ' C Object' 
150+       case  (FPM_TARGET_EXECUTABLE); msg =  ' Executable' 
151+       case  (FPM_TARGET_OBJECT);     msg =  ' Object' 
152+       case default ;                 msg =  ' Unknown' 
153+    end select 
154+ 
155+ end  function  FPM_TARGET_NAME 
156+ 
140157! > High-level wrapper to generate build target information
141158subroutine  targets_from_sources (targets ,model ,prune ,error )
142159
0 commit comments