dump compile_commands.json at end of build

Author: perazz

src/fpm_backend.F90

@@ -28,7 +28,7 @@
 module fpm_backend
 
 use,intrinsic :: iso_fortran_env, only : stdin=>input_unit, stdout=>output_unit, stderr=>error_unit
-use fpm_error, only : fpm_stop
+use fpm_error, only : fpm_stop, error_t
 use fpm_filesystem, only: basename, dirname, join_path, exists, mkdir, run, getline
 use fpm_model, only: fpm_model_t
 use fpm_strings, only: string_t, operator(.in.)
@@ -65,6 +65,7 @@ subroutine build_package(targets,model,verbose)
     logical :: build_failed, skip_current
     type(string_t), allocatable :: build_dirs(:)
     type(string_t) :: temp
+    type(error_t), allocatable :: error
 
     type(build_progress_t) :: progress
     logical :: plain_output
@@ -157,6 +158,8 @@ subroutine build_package(targets,model,verbose)
     end do
 
     call progress%success()
+    call progress%dump_commands(error)
+    if (allocated(error)) call fpm_stop(1,'error writing compile_commands.json: '//trim(error%message))
 
 end subroutine build_package
 

src/fpm_backend_output.f90

@@ -11,7 +11,8 @@
 
 module fpm_backend_output
 use iso_fortran_env, only: stdout=>output_unit
-use fpm_filesystem, only: basename
+use fpm_error, only: error_t
+use fpm_filesystem, only: basename,join_path
 use fpm_targets, only: build_target_ptr
 use fpm_backend_console, only: console_t, LINE_RESET, COLOR_RED, COLOR_GREEN, COLOR_YELLOW, COLOR_RESET
 use fpm_compile_commands, only: compile_command_t, compile_command_table_t
@@ -43,6 +44,8 @@ module fpm_backend_output
     procedure :: completed_status => output_status_complete
     !> Output finished status for whole package
     procedure :: success => output_progress_success
+    !> Output 'compile_commands.json' to build/ folder
+    procedure :: dump_commands => output_write_compile_commands
 end type build_progress_t
 
 !> Constructor for build_progress_t
@@ -167,7 +170,7 @@ end subroutine output_status_complete
     !> Output finished status for whole package
     subroutine output_progress_success(progress)
         class(build_progress_t), intent(inout) :: progress
-
+        
         if (progress%plain_mode) then ! Plain output
 
             write(*,'(A)') '[100%] Project compiled successfully.'
@@ -177,7 +180,21 @@ subroutine output_progress_success(progress)
             write(*,'(A)') LINE_RESET//COLOR_GREEN//'[100%] Project compiled successfully.'//COLOR_RESET
 
         end if
-
+        
     end subroutine output_progress_success
+    
+    !> Write compile commands table
+    subroutine output_write_compile_commands(progress,error)
+        class(build_progress_t), intent(inout) :: progress
+        
+        character(:), allocatable :: path
+        type(error_t), allocatable :: error
+        
+        ! Write compile commands 
+        path = join_path('build','compile_commands.json')
+        
+        call progress%compile_commands%dump(file=path, error=error, json=.true.)        
+        
+    end subroutine output_write_compile_commands
 
 end module fpm_backend_output