1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
<html lang="en">
<head>
<script language="javascript" type="text/javascript" src="/usr/share/javascript/jquery/jquery.js"></script>
<script src="/js/pengines.js"></script>
<script type="text/x-prolog">
main :-
read_names.
read_names :-
pengine_input('Please enter a name, stop with "stop"', X),
pengine_debug('Got ~p', [X]),
( X == stop
-> !
; pengine_output(X),
read_names
).
</script>
<script>
var pengine = new Pengine({
oncreate: handleCreate,
onprompt: handlePrompt,
onoutput: handleOutput
});
function handleCreate() {
pengine.ask('main');
}
function handlePrompt() {
pengine.respond(prompt(this.data));
}
function handleOutput() {
$('#out').append("<div>"+this.data+"</div>");
}
</script>
</head>
<body>
<p>Please open the browser's console to see the debug messages</p>
<div id="out"></div>
</body>
</html>
|
