/** Example bi-directional JavaScript - DLP communication
**/


:-object formjs.

	main :-
		new(listener(script, queue), _).

:-end_object formjs.


:-object listener : [jsilib].

	listener(Node, Queue) :-
		text_area(BrowserStream),
		set_output(BrowserStream),
		format('running ...~n'),
		run(Node, Queue).

	run(Node, Queue) :-
		repeat,
			get_queue(Node, Queue, Term),
			format('~q~n', [Term]),
		Term = stop,
		!.

:-end_object listener.


/**
**/