Implement info_srcfile_short()

Author: certik

fpm/src/fpm_model.f90

@@ -207,7 +207,7 @@ recursive function info_build_target(t) result(s)
     s = s // 'output_file="' // t%output_file // '"'
     !    type(srcfile_t), allocatable :: source
     if (allocated(t%source)) then
-        s = s // ", source=" // info_srcfile(t%source)
+        s = s // ", source=" // info_srcfile_short(t%source)
     else
         s = s // ", source=()"
     end if
@@ -355,6 +355,16 @@ function info_srcfile(source) result(s)
     s = s // ")"
 end function
 
+function info_srcfile_short(source) result(s)
+    ! Prints a shortened version of srcfile_t
+    type(srcfile_t), intent(in) :: source
+    character(:), allocatable :: s
+    integer :: i
+    s = "srcfile_t("
+    s = s // 'file_name="' // source%file_name // '"'
+    s = s // ", ...)"
+end function
+
 function info_model(model) result(s)
     type(fpm_model_t), intent(in) :: model
     character(:), allocatable :: s