@@ -40,7 +40,8 @@ module fpm_targets
40
40
41
41
public FPM_TARGET_UNKNOWN, FPM_TARGET_EXECUTABLE, &
42
42
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
44
45
public build_target_t, build_target_ptr
45
46
public targets_from_sources, resolve_module_dependencies
46
47
public add_target, add_dependency
@@ -137,6 +138,22 @@ module fpm_targets
137
138
138
139
contains
139
140
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
+
140
157
! > High-level wrapper to generate build target information
141
158
subroutine targets_from_sources (targets ,model ,prune ,error )
142
159
0 commit comments