From f517a92096820052186f314821206aadd7b648b3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ond=C5=99ej=20=C4=8Cert=C3=ADk?= <ondrej@certik.us>
Date: Wed, 22 Jul 2020 12:05:02 -0600
Subject: Implement list_files()

---
 fpm/src/fpm.f90 | 56 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)

diff --git a/fpm/src/fpm.f90 b/fpm/src/fpm.f90
index cc5666b..fc201e7 100644
--- a/fpm/src/fpm.f90
+++ b/fpm/src/fpm.f90
@@ -7,6 +7,10 @@ integer, parameter :: OS_LINUX = 1
 integer, parameter :: OS_MACOS = 2
 integer, parameter :: OS_WINDOWS = 3
 
+type string_t
+    character(len=:), allocatable :: s
+end type
+
 contains
 
 integer function get_os_type() result(r)
@@ -53,6 +57,50 @@ else
 end if
 end function
 
+integer function number_of_rows(s) result(nrows)
+! determine number or rows
+integer,intent(in)::s
+integer :: ios
+character(len=100) :: r
+rewind(s)
+nrows = 0
+do
+    read(s, *, iostat=ios) r
+    if (ios /= 0) exit
+    nrows = nrows + 1
+end do
+rewind(s)
+end function
+
+
+subroutine list_files(dir, files)
+character(len=*), intent(in) :: dir
+type(string_t), allocatable, intent(out) :: files(:)
+character(len=100) :: filename
+integer :: stat, u, i
+select case (get_os_type())
+    case (OS_LINUX)
+        ! TODO: add `dir` into the `ls` command here:
+        call execute_command_line("ls " // dir // " > fpm_ls.out", exitstat=stat)
+    case (OS_MACOS)
+        print *, "macOS not supported yet"
+        error stop
+    case (OS_WINDOWS)
+        print *, "Windows not supported yet"
+        error stop
+end select
+if (stat /= 0) then
+    print *, "execute_command_line() failed"
+end if
+open(newunit=u, file="fpm_ls.out", status="old")
+allocate(files(number_of_rows(u)))
+do i = 1, size(files)
+    read(u, *) filename
+    files(i)%s = trim(filename)
+end do
+close(u)
+end subroutine
+
 subroutine print_help()
 print *, "Fortran Package Manager (fpm)"
 select case (get_os_type())
@@ -83,7 +131,15 @@ end function
 
 subroutine cmd_build()
 logical :: src
+type(string_t), allocatable :: files(:)
+integer :: i
 print *, "# Building project"
+call list_files("src", files)
+print *, "Files in src/"
+do i = 1, size(files)
+    print *, i, files(i)%s
+end do
+print *
 src = exists("src/fpm.f90")
 if (src) then
     call run("gfortran -c src/fpm.f90 -o fpm.o")
-- 
cgit v1.2.3