user:library_directory('.'). user:runtime_entry(start) :- user:go.
Calls:
Name: go/0
go :- prolog_flag(argv,ArgV), ( ArgV = [PidFile,ResultFile] -> test(PidFile,ResultFile) ; otherwise -> write(user_error,'Usage: ptest PidFile ResultFile')).
Name: write/2
Name: otherwise
Name: ->/2
Name: test/2
Name: =/2
Name: ->/3
Name: prolog_flag/2
Called:
Name: :/2
loop :- loop.
Name: RECURSIVE_CALL/0
test(PidFile,ResultFile) :- get_user_signal_ref(Ref), tell(PidFile),write(Ref),nl,flush_output,told, user_interruptable_call_det(loop, _), tell(ResultFile),write(ok),nl,flush_output,told.
Name: told
Name: flush_output
Name: nl
Name: write/1
Name: tell/1
Name: user_interruptable_call_det/2
Name: get_user_signal_ref/1