XPUB
/
eliza2018
6
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

eliza in js following charles hayden's classic java implementation

Browse Source
master
Michael Murtaugh 6 years ago
commit d1d5eca12e
7 changed files with 693 additions and 0 deletions
Show Stats Download Patch File Download Diff File

1
doctor.js
View File

File diff suppressed because one or more lines are too long

360
doctor.txt
Unescape Escape View File

@ -0,0 +1,360 @@
initial: How do you do. Please tell me your problem.
final: Goodbye. Thank you for talking to me.
quit: bye
quit: goodbye
quit: quit
pre: dont don't
pre: cant can't
pre: wont won't
pre: recollect remember
pre: dreamt dreamed
pre: dreams dream
pre: maybe perhaps
pre: how what
pre: when what
pre: certainly yes
pre: machine computer
pre: computers computer
pre: were was
pre: you're you are
pre: i'm i am
pre: same alike
post: am are
post: your my
post: me you
post: myself yourself
post: yourself myself
post: i you
post: you I
post: my your
post: i'm you are
synon: belief feel think believe wish
synon: family mother mom father dad sister brother wife children child
synon: desire want need
synon: sad unhappy depressed sick
synon: happy elated glad better
synon: cannot can't
synon: everyone everybody nobody noone
synon: be am is are was
key: xnone
decomp: *
reasmb: I'm not sure I understand you fully.
reasmb: Please go on.
reasmb: What does that suggest to you ?
reasmb: Do you feel strongly about discussing such things ?
key: sorry
decomp: *
reasmb: Please don't apologise.
reasmb: Apologies are not necessary.
reasmb: I've told you that apologies are not required.
key: apologise
decomp: *
reasmb: goto sorry
key: remember 5
decomp: * i remember *
reasmb: Do you often think of (2) ?
reasmb: Does thinking of (2) bring anything else to mind ?
reasmb: What else do you recollect ?
reasmb: Why do you recollect (2) just now ?
reasmb: What in the present situation reminds you of (2) ?
reasmb: What is the connection between me and (2) ?
decomp: * do you remember *
reasmb: Did you think I would forget (2) ?
reasmb: Why do you think I should recall (2) now ?
reasmb: What about (2) ?
reasmb: goto what
reasmb: You mentioned (2) ?
key: if 3
decomp: * if *
reasmb: Do you think its likely that (2) ?
reasmb: Do you wish that (2) ?
reasmb: What do you know about (2) ?
reasmb: Really, if (2) ?
key: dreamed 4
decomp: * i dreamed *
reasmb: Really, (2) ?
reasmb: Have you ever fantasized (2) while you were awake ?
reasmb: Have you ever dreamed (2) before ?
reasmb: goto dream
key: dream 3
decomp: *
reasmb: What does that dream suggest to you ?
reasmb: Do you dream often ?
reasmb: What persons appear in your dreams ?
reasmb: Do you believe that dreams have something to do with your problems ?
key: perhaps
decomp: *
reasmb: You don't seem quite certain.
reasmb: Why the uncertain tone ?
reasmb: Can't you be more positive ?
reasmb: You aren't sure ?
reasmb: Don't you know ?
key: name 15
decomp: *
reasmb: I am not interested in names.
reasmb: I've told you before, I don't care about names -- please continue.
key: deutsch
decomp: *
reasmb: goto xforeign
reasmb: I told you before, I don't understand German.
key: francais
decomp: *
reasmb: goto xforeign
reasmb: I told you before, I don't understand French.
key: italiano
decomp: *
reasmb: goto xforeign
reasmb: I told you before, I don't understand Italian.
key: espanol
decomp: *
reasmb: goto xforeign
reasmb: I told you before, I don't understand Spanish.
key: xforeign
decomp: *
reasmb: I speak only English.
key: hello
decomp: *
reasmb: How do you do. Please state your problem.
reasmb: Hi. What seems to be your problem ?
key: computer 50
decomp: *
reasmb: Do computers worry you ?
reasmb: Why do you mention computers ?
reasmb: What do you think machines have to do with your problem ?
reasmb: Don't you think computers can help people ?
reasmb: What about machines worrys you ?
reasmb: What do you think about machines ?
key: am
decomp: * am i *
reasmb: Do you believe you are (2) ?
reasmb: Would you want to be (2) ?
reasmb: Do you wish I would tell you you are (2) ?
reasmb: What would it mean if you were (2) ?
reasmb: goto what
decomp: *
reasmb: Why do you say 'am' ?
reasmb: I don't understand that.
key: are
decomp: * are you *
reasmb: Why are you interested in whether I am (2) or not ?
reasmb: Would you prefer if I weren't (2) ?
reasmb: Perhaps I am (2) in your fantasies.
reasmb: Do you sometimes think I am (2) ?
reasmb: goto what
decomp: * are *
reasmb: Did you think they might not be (2) ?
reasmb: Would you like it if they were not (2) ?
reasmb: What if they were not (2) ?
reasmb: Possibly they are (2).
key: your
decomp: * your *
reasmb: Why are you concerned over my (2) ?
reasmb: What about your own (2) ?
reasmb: Are you worried about someone else's (2) ?
reasmb: Really, my (2) ?
key: was 2
decomp: * was i *
reasmb: What if you were (2) ?
reasmb: Do you think you were (2) ?
reasmb: Were you (2) ?
reasmb: What would it mean if you were (2) ?
reasmb: What does (2) suggest to you ?
reasmb: goto what
decomp: * i was *
reasmb: Were you really ?
reasmb: Why do you tell me you were (2) now ?
reasmb: Perhaps I already know you were (2).
decomp: * was you *
reasmb: Would you like to believe I was (2) ?
reasmb: What suggests that I was (2) ?
reasmb: What do you think ?
reasmb: Perhaps I was (2).
reasmb: What if I had been (2) ?
key: i
decomp: * i @desire *
reasmb: What would it mean to you if you got (3) ?
reasmb: Why do you want (3) ?
reasmb: Suppose you got (3) soon ?
reasmb: What if you never got (3) ?
reasmb: What would getting (3) mean to you ?
reasmb: What does wanting (3) have to do with this discussion ?
decomp: * i am* @sad *
reasmb: I am sorry to hear that you are (3).
reasmb: Do you think that coming here will help you not to be (3) ?
reasmb: I'm sure it's not pleasant to be (3).
reasmb: Can you explain what made you (3) ?
decomp: * i am* @happy *
reasmb: How have I helped you to be (3) ?
reasmb: Has your treatment made you (3) ?
reasmb: What makes you (3) just now ?
reasmb: Can you explan why you are suddenly (3) ?
decomp: * i was *
reasmb: goto was
decomp: * i @belief * i *
reasmb: Do you really think so ?
reasmb: But you are not sure you (3).
reasmb: Do you really doubt you (3) ?
decomp: * i* @belief *you *
reasmb: goto you
decomp: * i am *
reasmb: Is it because you are (2) that you came to me ?
reasmb: How long have you been (2) ?
reasmb: Do you believe it is normal to be (2) ?
reasmb: Do you enjoy being (2) ?
decomp: * i @cannot *
reasmb: How do you think that you can't (3) ?
reasmb: Have you tried ?
reasmb: Perhaps you could (3) now.
reasmb: Do you really want to be able to (3) ?
decomp: * i don't *
reasmb: Don't you really (2) ?
reasmb: Why don't you (2) ?
reasmb: Do you wish to be able to (2) ?
reasmb: Does that trouble you ?
decomp: * do i feel *
reasmb: Tell me more about such feelings.
reasmb: Do you often feel (2) ?
reasmb: Do you enjoy feeling (2) ?
reasmb: Of what does feeling (2) remind you ?
decomp: * i * you *
reasmb: Perhaps in your fantasies we (2) each other.
reasmb: Do you wish to (2) me ?
reasmb: You seem to need to (2) me.
reasmb: Do you (2) anyone else ?
decomp: *
reasmb: You say (1) ?
reasmb: Can you elaborate on that ?
reasmb: Do you say (1) for some special reason ?
reasmb: That's quite interesting.
key: you
decomp: * you remind me of *
reasmb: goto alike
decomp: * you are *
reasmb: What makes you think I am (2) ?
reasmb: Does it please you to believe I am (2) ?
reasmb: Do you sometimes wish you were (2) ?
reasmb: Perhaps you would like to be (2).
decomp: * you* me *
reasmb: Why do you think I (2) you ?
reasmb: You like to think I (2) you -- don't you ?
reasmb: What makes you think I (2) you ?
reasmb: Really, I (2) you ?
reasmb: Do you wish to believe I (2) you ?
reasmb: Suppose I did (2) you -- what would that mean ?
reasmb: Does someone else believe I (2) you ?
decomp: * you *
reasmb: We were discussing you -- not me.
reasmb: Oh, I (2) ?
reasmb: You're not really talking about me -- are you ?
reasmb: What are your feelings now ?
key: yes
decomp: *
reasmb: You seem to be quite positive.
reasmb: You are sure.
reasmb: I see.
reasmb: I understand.
key: no
decomp: *
reasmb: Are you saying no just to be negative?
reasmb: You are being a bit negative.
reasmb: Why not ?
reasmb: Why 'no' ?
key: my 2
decomp: $ * my *
reasmb: Lets discuss further why your (2).
reasmb: Earlier you said your (2).
reasmb: But your (2).
reasmb: Does that have anything to do with the fact that your (2) ?
decomp: * my* @family *
reasmb: Tell me more about your family.
reasmb: Who else in your family (4) ?
reasmb: Your (3) ?
reasmb: What else comes to mind when you think of your (3) ?
decomp: * my *
reasmb: Your (2) ?
reasmb: Why do you say your (2) ?
reasmb: Does that suggest anything else which belongs to you ?
reasmb: Is it important that your (2) ?
key: can
decomp: * can you *
reasmb: You believe I can (2) don't you ?
reasmb: goto what
reasmb: You want me to be able to (2).
reasmb: Perhaps you would like to be able to (2) yourself.
decomp: * can i *
reasmb: Whether or not you can (2) depends on you more than me.
reasmb: Do you want to be able to (2) ?
reasmb: Perhaps you don't want to (2).
reasmb: goto what
key: what
decomp: *
reasmb: Why do you ask ?
reasmb: Does that question interest you ?
reasmb: What is it you really wanted to know ?
reasmb: Are such questions much on your mind ?
reasmb: What answer would please you most ?
reasmb: What do you think ?
reasmb: What comes to mind when you ask that ?
reasmb: Have you asked such questions before ?
reasmb: Have you asked anyone else ?
key: because
decomp: *
reasmb: Is that the real reason ?
reasmb: Don't any other reasons come to mind ?
reasmb: Does that reason seem to explain anything else ?
reasmb: What other reasons might there be ?
key: why
decomp: * why don't you *
reasmb: Do you believe I don't (2) ?
reasmb: Perhaps I will (2) in good time.
reasmb: Should you (2) yourself ?
reasmb: You want me to (2) ?
reasmb: goto what
decomp: * why can't i *
reasmb: Do you think you should be able to (2) ?
reasmb: Do you want to be able to (2) ?
reasmb: Do you believe this will help you to (2) ?
reasmb: Have you any idea why you can't (2) ?
reasmb: goto what
decomp: *
reasmb: goto what
key: everyone 2
decomp: * @everyone *
reasmb: Realy, (2) ?
reasmb: Surely not (2).
reasmb: Can you think of anyone in particular ?
reasmb: Who, for example?
reasmb: Are you thinking of a very special person ?
reasmb: Who, may I ask ?
reasmb: Someone special perhaps ?
reasmb: You have a particular person in mind, don't you ?
reasmb: Who do you think you're talking about ?
key: everybody 2
decomp: *
reasmb: goto everyone
key: nobody 2
decomp: *
reasmb: goto everyone
key: noone 2
decomp: *
reasmb: goto everyone
key: always 1
decomp: *
reasmb: Can you think of a specific example ?
reasmb: When ?
reasmb: What incident are you thinking of ?
reasmb: Really, always ?
key: alike 10
decomp: *
reasmb: In what way ?
reasmb: What resemblence do you see ?
reasmb: What does that similarity suggest to you ?
reasmb: What other connections do you see ?
reasmb: What do you suppose that resemblence means ?
reasmb: What is the connection, do you suppose ?
reasmb: Could here really be some connection ?
reasmb: How ?
key: like 10
decomp: * @be *like *
reasmb: goto alike

191
eliza.js
Unescape Escape View File

@ -0,0 +1,191 @@
function chatbot (rules, textarea, display, debug) {
function process_rules (rules) {
function looping_iterator (l) {
var next = function () {
var ret = l[next.i];
if (++next.i >= l.length) { next.i = 0 };
return ret;
};
next.length = l.length;
next.i = 0;
next.items = l;
return next;
}
// index pre + post and tokenize results
function _index (name) {
var new_value = {};
rules[name].forEach(function (x) {
var words = tokenize(x),
word = words.shift();
new_value[word] = words;
})
rules[name] = new_value;
}
_index("pre");
_index("post");
// index synonmys by first word
var new_synon = {};
rules.synon.forEach(function (x) {
var words = tokenize(x);
new_synon[words[0]] = words;
})
rules.synon = new_synon;
// index keywords by name
rules.keywords_by_token = {};
rules.keywords.forEach(function (x) {
// console.log("token", x.token);
rules.keywords_by_token[x.token] = x;
// wrap the rules
x.rules.forEach(function (r) {
// ensure list
if (!Array.isArray(r.reasmb)) { r.reasmb = [r.reasmb]; }
// wrap the reasmb list in a looping iterator that perserves its state
r.reasmb = looping_iterator(r.reasmb);
});
});
// console.log("keywords_by_token", rules.keywords_by_token)
}
// function trim (text) { return text.replace(/\s+$/, "").replace(/\s+/, ""); }
function trimword (text) {
return text
.replace(/[^a-zA-Zéèàöùç]+$/, "")
.replace(/^[^a-zA-Zéèàöùç]+/, "");
}
function tokenize (text) {
return (trimword(text).split(/\s+/).map(trimword));
}
function sub (tokens, subst) {
for (var i=0, l=tokens.length; i<l; i++) {
var sub = subst[tokens[i].toLowerCase()];
if (sub) {
if (Array.isArray(sub)) {
Array.prototype.splice.apply(tokens, [i, 1].concat(sub));
i += (sub.length - 1);
} else {
tokens[i] = sub;
}
}
}
return tokens;
}
function select_keywords (tokens) {
var ret = [];
for (var i=0, l=tokens.length; i<l; i++) {
var w = tokens[i].toLowerCase(),
rule = rules.keywords_by_token[w];
if (rule) { ret.push(rule); }
}
if (rules.keywords_by_token.xnone && rules.keywords_by_token.xnone.weight != 0) {
// append xnone rule pre-sort
ret.push(rules.keywords_by_token.xnone);
}
ret.sort(function (a, b) { return b.weight - a.weight });
if (rules.keywords_by_token.xnone && rules.keywords_by_token.xnone.weight == 0) {
// append xnone rule post-sort (ensuring it's last)
ret.push(rules.keywords_by_token.xnone);
}
return ret;
}
function compile_pattern (pattern) {
// compile a decomposition pattern
// * i @cannot * ==> i(cannot|cant|...)(.+)
// * i* @belief *you * ==> (belief|feel|think|believe|wish)
// * i @belief i *
var ret = pattern
.replace(/ *\* */g, "*") // compact spaces around stars
.replace(/\*/g, "(.*?)")
.replace(/@(\w+)/, function (match, word) {
var syn = rules.synon[word.toLowerCase()];
if (syn) {
return "("+syn.join("|")+")";
} else {
console.log("Missing @synonym", word);
return match;
}
});
return "^"+ret+"$";
}
function match_decomp (pattern, tokens) {
var ppat = compile_pattern(pattern);
// console.log("compile_pattern.in", pattern);
// console.log("compile_pattern.out", ppat);
var ppat = new RegExp(ppat, "i");
return ppat.exec(tokens.join(" "));
}
function do_post (txt) {
var tokens = tokenize(txt);
tokens = sub(tokens, rules.post);
return tokens.join(" ");
}
function do_reasmb (reasmb, match, tokens) {
if (Array.isArray(match)) {
return reasmb.replace(/\((\d+)\)/, function (m, n) {
// console.log("replace", m, n);
var ret = match[parseInt(n)];
return do_post(ret); // apply POST substitutions here to matching input
});
} else {
return reasmb;
}
}
function apply_keywords (keywords, tokens) {
for (var i=0, l=keywords.length; i<l; i++) {
var keyword = keywords[i];
while (true) {
console.log("trying keyword", keyword.token);
for (var ri=0, rl = keyword.rules.length; ri<rl; ri++) {
var rule = keyword.rules[ri];
console.log("trying rule", rule.decomp, "("+(ri+1)+"/"+rl+")");
var match = match_decomp(rule.decomp, tokens);
if (match) {
var ra = rule.reasmb();
if (ra.indexOf("goto ") == 0) {
var goto_name = ra.substr(5);
console.log("goto", goto_name);
keyword = rules.keywords_by_token[goto_name]
} else {
console.log("match", match, ra);
return do_reasmb(ra, match, tokens);
}
}
}
}
}
}
function log (msg, kls) {
var d = document.createElement("div");
d.setAttribute("class", kls);
d.innerHTML = msg;
display.appendChild(d);
}
function say (msg) {
log(msg, "bot");
}
function process (text) {
if (debug) { console.log("input", text); }
var tokens = tokenize(text);
if (debug) { console.log("tokens", tokens); }
tokens = sub(tokens, rules.pre);
if (debug) { console.log("pre", tokens); }
var keywords = select_keywords(tokens);
if (debug) { console.log("keywords", keywords.map(function (x) { return x.token })); }
var output = apply_keywords(keywords, tokens);
if (debug) { console.log("output", output); }
say(output);
}
process_rules(rules);
textarea.addEventListener("keypress", function (event) {
if (event.keyCode == 13) {
var text = textarea.value;
log(text, "user");
process(text);
textarea.value = "";
textarea.focus();
}
});
say(rules.initial);
}

60
eliza_script_to_json.py
Unescape Escape View File

@ -0,0 +1,60 @@
"""
key: remember 5
decomp: * i remember *
reasmb: Do you often think of (2) ?
reasmb: Does thinking of (2) bring anything else to mind ?
reasmb: What else do you recollect ?
reasmb: Why do you remember (2) just now ?
reasmb: What in the present situation reminds you of (2) ?
reasmb: What is the connection between me and (2) ?
reasmb: What else does (2) remind you of ?
"""
import sys
output = {}
output['pre'] = pre = []
output['post'] = post = []
output['synon'] = synon = []
output['quit'] = quit = []
output['keywords'] = keys = []
for line in sys.stdin:
line = line.strip()
if line.startswith("#") or not line:
continue
cmd, rest = line.split(" ", 1)
cmd = cmd.strip()
rest = rest.strip()
if cmd == "initial:":
output['initial'] = rest
elif cmd == "final:":
output['final'] = rest
elif cmd == "pre:":
pre.append(rest)
elif cmd == "post:":
post.append(rest)
elif cmd == "synon:":
synon.append(rest)
elif cmd == "key:":
try:
token, weight = rest.split()
except ValueError:
token = rest.strip()
weight = 0
print ("key", token, int(weight), file=sys.stderr)
keys.append({"token": token.strip(), "weight": int(weight), "rules": []})
elif line.startswith("decomp:"):
_, pattern = line.split(" ", 1)
print ("decomp", pattern, file=sys.stderr)
keys[-1]['rules'].append({"decomp": pattern.strip(), "reasmb": []})
elif line.startswith("reasmb:"):
_, pattern = line.split(" ", 1)
print ("reasmb", pattern, file=sys.stderr)
keys[-1]['rules'][-1]['reasmb'].append(pattern.strip())
# out = {}
# keywords = out['keywords'] = {}
# for obj in keys:
# keyname = obj.get("token")
# del obj['token']
# keywords[keyname] = obj
import json
print (json.dumps(output, indent=2))

64
instructions.txt
Unescape Escape View File

@ -0,0 +1,64 @@
How Eliza Works
All the behavior of Eliza is controlled by a script file.
The standard script is attached to the end of this explanation.
Eliza starts by reading the script file. Because of Java security, it
must be on the same server as the class files. Eliza then reads a line at
a time from the user, processes it, and formulates a reply.
Processing consists of the following steps.
First the sentence broken down into words, separated by spaces. All further
processing takes place on these words as a whole, not on the individual
characters in them.
Second, a set of pre-substitutions takes place.
Third, Eliza takes all the words in the sentence and makes a list of all
keywords it finds. It sorts this keyword list in descending weight. It
process these keywords until it produces an output.
Fourth, for the given keyword, a list of decomposition patterns is searched.
The first one that matches is selected. If no match is found, the next keyword
is selected instead.
Fifth, for the matching decomposition pattern, a reassembly pattern is
selected. There may be several reassembly patterns, but only one is used
for a given sentence. If a subsequent sentence selects the same decomposition
pattern, the next reassembly pattern in sequence is used, until they have all
been used, at which point Eliza starts over with the first reassembly pattern.
Sixth, a set of post-substitutions takes place.
Finally, the resulting sentence is displayed as output.
The script is used to construct the pre and post substitution lists, the
keyword lists, and the decomposition and reassembly patterns.
In addition, there is a synonym matching facility, which is explained below.
Every line of script is prefaced by a tag that tells what list it is
part of. Here is an explanation of the tags.
initial: Eliza says this when it starts.
final: Eliza says this when it quits.
quit: If the input is this, then Eliza quits. Any number permitted.
pre: Part of the pre-substitution list. If the first word appears in
the sentence, it is replaced by the rest of the words.
post: Part of the post-subsititution list. If the first word appears
in the sentence, it is replaced by the rest of the words.
key: A keyword. Keywords with greater weight are selected in
preference to ones with lesser weight.
If no weight is given, it is assumed to be 1.
decomp: A decomposition pattern. The character * stands for any
sequence of words.
reasmb: A reassembly pattern. A set of words matched by * in
the decomposition pattern can be used as part of the reassembly.
For instance, (2) inserts the words matched by the second *
in the decomposition pattern.
synon: A list of synonyms. In a decomposition rule, for instance, @be
matches any of the words "be am is are was" because of the line:
"synon: be am is are was". The match @be also counts as a *
in numbering the matches for use by reassembly rules.
Other Special Rules
If a $ appears first in a decomposition rule, then the output is formed as
normal, but is saved and Eliza goes on to the next keyword. If no keywords
match, and there are saved sentences, one of them is picked at random and
used as the output, then it is discarded.
If there are no saved sentences, and no keywords match, then it uses the
keyword "xnone".

13
jsonp.py
Unescape Escape View File

@ -0,0 +1,13 @@
from __future__ import print_function
import json, sys, argparse
ap = argparse.ArgumentParser("wrap JSON in either a variable declaration (hardcode) or a callback (JSONP).")
ap.add_argument("--variable", default="weft", help="define a variable")
ap.add_argument("--callback", help="use a named callback (JSONP) -- overrides --variable")
args = ap.parse_args()
d = json.load(sys.stdin)
if args.callback:
print ("{0}({1});".format(args.callback, json.dumps(d)))
else:
print ("{0} = {1};".format(args.variable, json.dumps(d)))

4
makefile
Unescape Escape View File

@ -0,0 +1,4 @@
%.json: %.txt
python3 eliza_script_to_json.py < $< > $@
%.js: %.json
python3 jsonp.py --callback "eliza" < $< > $@
Write Preview
Loading…
Cancel
Save