aboutsummaryrefslogtreecommitdiff
path: root/player
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2021-04-19 10:57:55 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2021-04-19 10:57:55 -0400
commitda7eca3be90ac97534145a3c141bcb8a45a6fdeb (patch)
tree98c86ec2475670baab17ac8724dd10eaff7027a0 /player
parenta60a9d10ce94acc0c5bfed2a20c8bed4e91be725 (diff)
downloadlevitating-da7eca3be90ac97534145a3c141bcb8a45a6fdeb.tar.gz
levitating-da7eca3be90ac97534145a3c141bcb8a45a6fdeb.zip
Properly set the result logical to true when json instructions are properly received.
Diffstat (limited to 'player')
-rw-r--r--player/instructions.f902
-rw-r--r--player/player.F905
2 files changed, 3 insertions, 4 deletions
diff --git a/player/instructions.f90 b/player/instructions.f90
index f110dae..a1aaa9d 100644
--- a/player/instructions.f90
+++ b/player/instructions.f90
@@ -366,6 +366,8 @@ contains
task_count = get_task_count(j)
+ Print *, "Task count: ", task_count
+
! Remember to zero-index your json!
do i = 1, task_count
diff --git a/player/player.F90 b/player/player.F90
index 49803c5..308be3b 100644
--- a/player/player.F90
+++ b/player/player.F90
@@ -72,14 +72,11 @@ implicit none
instr_json_available = request_json(url, j_instructions)
if(instr_json_available) then
- Print *, "instructions available"
-
! Task loop
call perform_tasks(j_instructions, job_id)
call destroy_instructions(j_instructions)
end if
-
else
#ifdef GNU
@@ -219,7 +216,7 @@ contains
status_code = request_to_temporary_file(url, filename)
if(status_code == STATUS_SUCCESS) then
j = parse_instructions(filename)
- call delete_file(filename)
+ request_json = .true.
else
request_json = .false.
end if