diff options
Diffstat (limited to 'player/main.F90')
-rw-r--r-- | player/main.F90 | 109 |
1 files changed, 0 insertions, 109 deletions
diff --git a/player/main.F90 b/player/main.F90 deleted file mode 100644 index 127a8f7..0000000 --- a/player/main.F90 +++ /dev/null @@ -1,109 +0,0 @@ -program player -use config -implicit none - - character(len=1024)::option - - integer::slen - integer::i - - identity = " " - - 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) - - else if(trim(option) == "-i") then - i = i + 1 - call get_command_argument(i, identity) - - 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 - - ! Assign this computer an identity if not explicitly specified - if(len_trim(identity) == 0) then -#ifdef GNU - call hostnm(identity) -#else - Print *, "Could not determine host identity" - stop -#endif - end if - - ! Change directory to the working directory now - call chdir(working_directory) - - do while(.true.) - - - - end do - -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" - Print *, " -i <identity> This players identity" - - end subroutine usage - -end program player
\ No newline at end of file |