From fb11ffeb2d98f239b20e618c65b8534b677957e9 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Wed, 24 Mar 2021 14:58:32 -0400
Subject: Initial import

---
 player/main.f90 | 87 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 87 insertions(+)
 create mode 100644 player/main.f90

(limited to 'player/main.f90')

diff --git a/player/main.f90 b/player/main.f90
new file mode 100644
index 0000000..cdf646e
--- /dev/null
+++ b/player/main.f90
@@ -0,0 +1,87 @@
+program player
+use config
+implicit none
+
+    character(len=1024)::option
+
+    integer::slen
+    integer::i
+    
+    i = 1
+    do while(i <= command_argument_count())
+        call get_command_argument(i, option)
+    
+        if(option(1:1) /= "-") then
+            captain = option
+    
+        else if(trim(option) == "-h") then
+            call usage()
+            stop
+        
+        else if(trim(option) == "-w") then
+            i = i + 1
+            call get_command_argument(i, length=slen)
+            allocate(character(len=slen) :: working_directory)
+            call get_command_argument(i, working_directory)
+            
+        else if(trim(option) == "-l") then
+            i = i + 1
+            call get_command_argument(i, length=slen)
+            allocate(character(len=slen) :: logfile)
+            call get_command_argument(i, logfile)
+            
+        end if
+        
+        i = i + 1
+    end do
+    
+    ! Assign working directory from command if not specified
+    if(.not. associated(working_directory)) then
+        call get_command_argument(0, length=slen)
+        allocate(character(len=slen) :: working_directory)
+        call get_command_argument(i, working_directory)
+        i = index(working_directory, "/", back=.true.)
+        if(i == 0) then
+            i = index(working_directory, "/", back=.true.)
+        endif
+        if(i == 0) then
+            Print *, "Could not determine working_directory"
+            stop
+        else
+            working_directory(i:slen) = ' '
+        end if
+    end if
+    
+    ! Assign a temporary directory and file for a log file
+    ! NOTE: will fail on Windows
+    if(.not. associated(logfile)) then
+        allocate(character(len=256) :: logfile)
+        logfile = "/tmp/levitating.log"
+    end if
+        
+    ! Change directory to the working directory now
+    call chdir(working_directory)
+        
+    
+contains
+
+    subroutine usage()
+    implicit none
+    
+        character(len=256)::pname
+        
+        call get_command_argument(0, pname)
+    
+        Print *, "Usage: "//trim(pname)//" <options> <captain>"
+        Print *, " "
+        Print *, "captain is the build control server"
+        Print *, " "
+        
+        Print *, "Options:"
+        Print *, "    -h          Display this help"
+        Print *, "    -w <dir>    Use dir as the working directory"
+        Print *, "    -l <log>    Use log as the logfile"
+        
+    end subroutine usage
+    
+end program player
\ No newline at end of file
-- 
cgit v1.2.3