From 5ca487daa2182f9ff6aa40b1a05dc3db6d0fc84f Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Wed, 24 Mar 2021 16:41:09 -0400
Subject: Added concept of player identity.  Started on the instructions
 processing loop.

---
 player/main.f90 | 87 ---------------------------------------------------------
 1 file changed, 87 deletions(-)
 delete mode 100644 player/main.f90

(limited to 'player/main.f90')

diff --git a/player/main.f90 b/player/main.f90
deleted file mode 100644
index cdf646e..0000000
--- a/player/main.f90
+++ /dev/null
@@ -1,87 +0,0 @@
-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