ELIZA Chatbot Implementation From C to D Lang
ron77
ronen.blumberg7 at gmail.com
Thu Mar 2 07:28:46 UTC 2023
On Friday, 17 February 2023 at 17:03:34 UTC, ron77 wrote:
> Hello, I succeeded in converting an ELIZA code from C to D, and
> here are the results. although I'm sure there are better ways
> to code it or to convert it...
>
> ```d
> /* eliza.c
> * ys
> * original code by Weizenbaum, 1966
> * this rendition based on Charles Hayden's Java implementation
> from http://chayden.net/eliza/Eliza.html
> *
> * Note: There are certainly far more optimal and elegant ways
> to code this... we kept this
> * structure to be faithful to the original. -scaz
> */
>
> //#include <ctype.h>
> import std.stdio;
> import std.string;
> import core.stdc.string;
> import core.stdc.ctype;
> //import std.stdlib
> // #include <cs50.h>
> //#include <windows.h>
>
> const NUMKEYWORDS =37;
> const MAXLINELEN = 120;
> const NUMSWAPS = 14;
>
>
> const char*[] keywords= [
> "CAN YOU","CAN I","YOU ARE","YOURE","I DONT","I FEEL",
> "WHY DONT YOU","WHY CANT I","ARE YOU","I CANT","I AM","IM ",
> "YOU ","I WANT","WHAT","HOW","WHO","WHERE",
> "WHEN","WHY",
> "NAME","CAUSE","SORRY","DREAM","HELLO","HI ","MAYBE",
> " NO","YOUR","ALWAYS","THINK","ALIKE","YES","FRIEND",
> "COMPUTER","CAR","NOKEYFOUND"];
>
> const char*[2][NUMSWAPS] SWAPS = [
> ["ARE","AM"],
> ["WERE", "WAS"],
> ["YOU","I"],
> ["YOUR", "MY"],
> ["IVE", "YOU'VE"],
> ["IM", "YOU'RE"],
> ["YOU", "ME"],
> ["ME", "YOU"],
> ["AM","ARE"],
> ["WAS", "WERE"],
> ["I","YOU"],
> ["MY", "YOUR"],
> ["YOUVE", "I'VE"],
> ["YOURE", "I'M"]
> ];
>
> int[NUMKEYWORDS] ResponsesPerKeyword= [
> 3,2,4,4,4,3,
> 3,2,3,3,4,4,
> 3,5,9,9,9,9,
> 9,9,
> 2,4,4,4,1,1,5,
> 5,2,4,3,7,3,6,
> 7,5,6];
>
> const char *[9][NUMKEYWORDS] responses= [
> [ "DON'T YOU BELIEVE THAT I CAN*",
> "PERHAPS YOU WOULD LIKE TO BE ABLE TO*",
> "YOU WANT ME TO BE ABLE TO*"],
> [ "PERHAPS YOU DON'T WANT TO*",
> "DO YOU WANT TO BE ABLE TO*"],
> [ "WHAT MAKES YOU THINK I AM*",
> "DOES IT PLEASE YOU TO BELIEVE I AM*",
> "PERHAPS YOU WOULD LIKE TO BE*",
> "DO YOU SOMETIMES WISH YOU WERE*"],
> [ "WHAT MAKES YOU THINK I AM*",
> "DOES IT PLEASE YOU TO BELIEVE I AM*",
> "PERHAPS YOU WOULD LIKE TO BE*",
> "DO YOU SOMETIMES WISH YOU WERE*"],
> [ "DON'T YOU REALLY*",
> "WHY DON'T YOU*",
> "DO YOU WISH TO BE ABLE TO*",
> "DOES THAT TROUBLE YOU?"],
> [ "TELL ME MORE ABOUT SUCH FEELINGS.",
> "DO YOU OFTEN FEEL*",
> "DO YOU ENJOY FEELING*"],
> [ "DO YOU REALLY BELIEVE I DON'T*",
> "PERHAPS IN GOOD TIME I WILL*",
> "DO YOU WANT ME TO*"],
> [ "DO YOU THINK YOU SHOULD BE ABLE TO*",
> "WHY CAN'T YOU*"],
> [ "WHY ARE YOU INTERESTED IN WHETHER OR NOT I AM*",
> "WOULD YOU PREFER IF I WERE NOT*",
> "PERHAPS IN YOUR FANTASIES I AM*"],
> [ "HOW DO YOU KNOW YOU CAN'T*",
> "HAVE YOU TRIED?",
> "PERHAPS YOU CAN NOW*"],
> [ "DID YOU COME TO ME BECAUSE YOU ARE*",
> "HOW LONG HAVE YOU BEEN*",
> "DO YOU BELIEVE IT IS NORMAL TO BE*",
> "DO YOU ENJOY BEING*"],
> [ "DID YOU COME TO ME BECAUSE YOU ARE*",
> "HOW LONG HAVE YOU BEEN*",
> "DO YOU BELIEVE IT IS NORMAL TO BE*",
> "DO YOU ENJOY BEING*"],
> [ "WE WERE DISCUSSING YOU-- NOT ME.",
> "OH, I*",
> "YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU?"],
> [ "WHAT WOULD IT MEAN TO YOU IF YOU GOT*",
> "WHY DO YOU WANT*",
> "SUPPOSE YOU SOON GOT*",
> "WHAT IF YOU NEVER GOT*",
> "I SOMETIMES ALSO WANT*"],
> [ "WHY DO YOU ASK?",
> "DOES THAT QUESTION INTEREST YOU?",
> "WHAT ANSWER WOULD PLEASE YOU THE MOST?",
> "WHAT DO YOU THINK?",
> "ARE SUCH QUESTIONS ON YOUR MIND OFTEN?",
> "WHAT IS IT THAT YOU REALLY WANT TO KNOW?",
> "HAVE YOU ASKED ANYONE ELSE?",
> "HAVE YOU ASKED SUCH QUESTIONS BEFORE?",
> "WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?"],
> [ "WHY DO YOU ASK?",
> "DOES THAT QUESTION INTEREST YOU?",
> "WHAT ANSWER WOULD PLEASE YOU THE MOST?",
> "WHAT DO YOU THINK?",
> "ARE SUCH QUESTIONS ON YOUR MIND OFTEN?",
> "WHAT IS IT THAT YOU REALLY WANT TO KNOW?",
> "HAVE YOU ASKED ANYONE ELSE?",
> "HAVE YOU ASKED SUCH QUESTIONS BEFORE?",
> "WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?"],
> [ "WHY DO YOU ASK?",
> "DOES THAT QUESTION INTEREST YOU?",
> "WHAT ANSWER WOULD PLEASE YOU THE MOST?",
> "WHAT DO YOU THINK?",
> "ARE SUCH QUESTIONS ON YOUR MIND OFTEN?",
> "WHAT IS IT THAT YOU REALLY WANT TO KNOW?",
> "HAVE YOU ASKED ANYONE ELSE?",
> "HAVE YOU ASKED SUCH QUESTIONS BEFORE?",
> "WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?"],
> [ "WHY DO YOU ASK?",
> "DOES THAT QUESTION INTEREST YOU?",
> "WHAT ANSWER WOULD PLEASE YOU THE MOST?",
> "WHAT DO YOU THINK?",
> "ARE SUCH QUESTIONS ON YOUR MIND OFTEN?",
> "WHAT IS IT THAT YOU REALLY WANT TO KNOW?",
> "HAVE YOU ASKED ANYONE ELSE?",
> "HAVE YOU ASKED SUCH QUESTIONS BEFORE?",
> "WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?"],
> [ "WHY DO YOU ASK?",
> "DOES THAT QUESTION INTEREST YOU?",
> "WHAT ANSWER WOULD PLEASE YOU THE MOST?",
> "WHAT DO YOU THINK?",
> "ARE SUCH QUESTIONS ON YOUR MIND OFTEN?",
> "WHAT IS IT THAT YOU REALLY WANT TO KNOW?",
> "HAVE YOU ASKED ANYONE ELSE?",
> "HAVE YOU ASKED SUCH QUESTIONS BEFORE?",
> "WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?"],
> [ "WHY DO YOU ASK?",
> "DOES THAT QUESTION INTEREST YOU?",
> "WHAT ANSWER WOULD PLEASE YOU THE MOST?",
> "WHAT DO YOU THINK?",
> "ARE SUCH QUESTIONS ON YOUR MIND OFTEN?",
> "WHAT IS IT THAT YOU REALLY WANT TO KNOW?",
> "HAVE YOU ASKED ANYONE ELSE?",
> "HAVE YOU ASKED SUCH QUESTIONS BEFORE?",
> "WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?"],
> [ "NAMES DON'T INTEREST ME.",
> "I DON'T CARE ABOUT NAMES-- PLEASE GO ON."],
> [ "IS THAT THE REAL REASON?",
> "DON'T ANY OTHER REASONS COME TO MIND?",
> "DOES THAT REASON EXPLAIN ANY THING ELSE?",
> "WHAT OTHER REASONS MIGHT THERE BE?"],
> [ "PLEASE DON'T APOLOGIZE.",
> "APOLOGIES ARE NOT NECESSARY.",
> "WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE?",
> "DON'T BE SO DEFENSIVE!"],
> [ "WHAT DOES THAT DREAM SUGGEST TO YOU?",
> "DO YOU DREAM OFTEN?",
> "WHAT PERSONS APPEAR IN YOUR DREAMS?",
> "ARE YOU DISTURBED BY YOUR DREAMS?"],
> [ "HOW DO YOU DO--PLEASE STATE YOUR PROBLEM."],
> [ "HOW DO YOU DO--PLEASE STATE YOUR PROBLEM."],
> [ "YOU DON'T SEEM QUITE CERTAIN.",
> "WHY THE UNCERTAIN TONE?",
> "CAN'T YOU BE MORE POSITIVE?",
> "YOU AREN'T SURE?",
> "DON'T YOU KNOW?"],
> [ "ARE YOU SAYING NO JUST TO BE NEGATIVE?",
> "YOU ARE BEING A BIT NEGATIVE.",
> "WHY NOT?",
> "ARE YOU SURE?",
> "WHY NO?"],
> [ "WHY ARE YOU CONCERNED ABOUT MY*",
> "WHAT ABOUT YOUR OWN*"],
> [ "CAN YOU THINK OF A SPECIFIC EXAMPLE?",
> "WHEN?",
> "WHAT ARE YOU THINKING OF?",
> "REALLY, ALWAYS?"],
> [ "DO YOU REALLY THINK SO?",
> "BUT YOU ARE NOT SURE YOU*",
> "DO YOU DOUBT YOU*"],
> [ "IN WHAT WAY?",
> "WHAT RESEMBLANCE DO YOU SEE?",
> "WHAT DOES THE SIMILARITY SUGGEST TO YOU?",
> "WHAT OTHER CONNECTIONS DO YOU SEE?",
> "COULD THERE REALLY BE SOME CONNECTION?",
> "HOW?"],
> [ "YOU SEEM QUITE POSITIVE.",
> "ARE YOU SURE?",
> "I SEE.",
> "I UNDERSTAND."],
> [ "WHY DO YOU BRING UP THE TOPIC OF FRIENDS?",
> "DO YOUR FRIENDS WORRY YOU?",
> "DO YOUR FRIENDS PICK ON YOU?",
> "ARE YOU SURE YOU HAVE ANY FRIENDS?",
> "DO YOU IMPOSE ON YOUR FRIENDS?",
> "PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU?"],
> [ "DO COMPUTERS WORRY YOU?",
> "ARE YOU TALKING ABOUT ME IN PARTICULAR?",
> "ARE YOU FRIGHTENED BY MACHINES?",
> "WHY DO YOU MENTION COMPUTERS?",
> "WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM?",
> "DON'T YOU THINK COMPUTERS CAN HELP PEOPLE?",
> "WHAT IS IT ABOUT MACHINES THAT WORRIES YOU?"],
> [ "OH, DO YOU LIKE CARS?",
> "MY FAVORITE CAR IS A LAMBORGINI COUNTACH. WHAT IS YOUR
> FAVORITE CAR?",
> "MY FAVORITE CAR COMPANY IS FERRARI. WHAT IS YOURS?",
> "DO YOU LIKE PORSCHES?",
> "DO YOU LIKE PORSCHE TURBO CARRERAS?"],
> [ "SAY, DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?",
> "WHAT DOES THAT SUGGEST TO YOU?",
> "I SEE.",
> "I'M NOT SURE I UNDERSTAND YOU FULLY.",
> "COME, COME ELUCIDATE YOUR THOUGHTS.",
> "CAN YOU ELABORATE ON THAT?",
> "THAT IS QUITE INTERESTING."]
>
>
> ];
>
> void print_center(const char *msg) {
> int numspaces=cast(int)(MAXLINELEN-strlen(msg))/2;
>
> for(int i=0;i<numspaces;i++)
> printf(" ");
> printf("%s\n", msg);
> return;
> }
>
> void print_title () {
> writef("\n\n");
> print_center("*** ELIZA ***");
> print_center("Original code by Weizenbaum, 1966");
> print_center("To stop Eliza, type 'bye'");
> writef("\n\n");
> writef("HI! I'M ELIZA. WHAT'S YOUR PROBLEM?\n");
> }
>
> void readline(char[] instr) {
> char c;
> int slen=0;
>
> c=cast(char)getchar();
> while (c != '\n')
> {
> // removes punctuation and sets to uppercase
> if(isalpha(c) || isspace(c))
> instr[slen++]=cast(char)toupper(c);
> if(slen>MAXLINELEN-1)
> {
> printf("Exceeded Max Line Length\n");
>
> }
> c=cast(char)getchar();
> }
> instr[slen]='\0';
> }
>
> void main(string[] argv)
> {
> int k,baseLength;
> int[NUMKEYWORDS] whichReply;
> char[MAXLINELEN] lastinput;
> char[MAXLINELEN] reply;
> char* baseResponse, token;
> const char[2] separator=" ";
> char[MAXLINELEN] inputstr;
>
>
> // use the first reply for each keyword match the first time
> you see that keyword
> for (int x=0;x< NUMKEYWORDS; x++) {
> whichReply[x] = 0;
> }
>
> // print a nice centered title screen
> print_title();
>
> lastinput[0]='\0';
>
> while (1) {
>
> readline(inputstr);
>
> //WriteToFile(inputstr, username);
>
> // check for termination
> if (strcmp((inputstr).ptr,"BYE")==0)
> break;
>
> // check for repeated entries
> if (strcmp((lastinput).ptr,(inputstr).ptr)==0)
> {
> printf("PLEASE DON'T REPEAT YOURSELF!\n");
> continue;
> }
> strncpy((lastinput).ptr,(inputstr).ptr,strlen((inputstr).ptr)+1);
>
> // see if any of the keywords is contained in the input
> // if not, we use the last element of keywords as our default
> responses
> char *location;
> strcpy((reply).ptr,"");
> for(k=0;k<NUMKEYWORDS-1;k++)
> {
> location=strstr((inputstr).ptr, keywords[k]);
> if(location != null)
> break;
> }
>
> // Build Eliza's response
> // start with Eliza's canned response, based on the keyword
> match
> baseResponse = cast(char*)responses[k][whichReply[k]];
> baseLength = cast(int)strlen(baseResponse);
>
> if(baseResponse[baseLength-1] != '*')
> {
> // if we have a baseResponse without an asterix, just use it
> as-is
> strcat((reply).ptr, baseResponse);
> }
> else
> {
> // if we do have an asterix, fill in the remaining with the
> user input
> // use all but the last character of the base response
> strncat((reply).ptr, baseResponse, baseLength-1);
>
> // now add in the rest of the user's input, starting at
> <location>
> // but skip over the keyword itself
> location+=strlen(keywords[k]);
> // take them one word at a time, so that we can substitute
> pronouns
> token = strtok(location, (separator).ptr);
> while(token != null)
> {
> for(int s=0;s<NUMSWAPS;s++)
> {
> if(strcmp(SWAPS[s][0], token) == 0)
> {
> token = cast(char*)SWAPS[s][1];
> break;
> }
> }
> strcat((reply).ptr,(" ").ptr);
> strcat((reply).ptr, token);
> token=strtok(null, (separator).ptr);
> }
> strcat((reply).ptr, "?");
> }
>
> writeln(reply[0 .. strlen(reply.ptr)]~"\n");
>
> // next time, use the next appropriate reply for that keyword
> whichReply[k]++;
> if ( whichReply[k] >= ResponsesPerKeyword[k])
> whichReply[k] = 0;
>
> }
>
> printf( "GOODBYE! THANKS FOR VISITING WITH ME...\n");
>
> }
> ```
hello i've modified the ELIZA chatbot code so now it has TTS and
saves conversations to "log.txt" file
here is the code
```d
/* eliza.c
* ys
* original code by Weizenbaum, 1966
* this rendition based on Charles Hayden's Java
implementation from http://chayden.net/eliza/Eliza.html
*
* Note: There are certainly far more optimal and elegant
ways to code this... we kept this
* structure to be faithful to the original. -scaz
*/
//#include <ctype.h>
import std.stdio;
import std.string;
import core.stdc.string;
import core.stdc.ctype;
import core.stdc.stdlib;
import std.file;
//import std.stdlib
// #include <cs50.h>
//#include <windows.h>
import std.process;
const NUMKEYWORDS = 37;
const MAXLINELEN = 512;
const NUMSWAPS = 14;
const char*[] keywords = [
"CAN YOU", "CAN I", "YOU ARE", "YOURE", "I DONT", "I
FEEL", "WHY DONT YOU",
"WHY CANT I", "ARE YOU", "I CANT", "I AM", "IM ", "YOU ",
"I WANT",
"WHAT", "HOW", "WHO", "WHERE", "WHEN", "WHY", "NAME",
"CAUSE", "SORRY",
"DREAM", "HELLO", "HI ", "MAYBE", " NO", "YOUR",
"ALWAYS", "THINK",
"ALIKE", "YES", "FRIEND", "COMPUTER", "CAR", "NOKEYFOUND"
];
const char*[2][NUMSWAPS] SWAPS = [
["ARE", "AM"], ["WERE", "WAS"], ["YOU", "I"], ["YOUR",
"MY"], [
"IVE", "YOU'VE"
], ["IM", "YOU'RE"], ["YOU", "ME"], ["ME", "YOU"], ["AM",
"ARE"],
["WAS", "WERE"], ["I", "YOU"], ["MY", "YOUR"], ["YOUVE",
"I'VE"],
["YOURE", "I'M"]
];
int[NUMKEYWORDS] ResponsesPerKeyword = [
3, 2, 4, 4, 4, 3, 3, 2, 3, 3, 4, 4, 3, 5, 9, 9, 9, 9, 9,
9, 2, 4, 4, 4,
1, 1, 5, 5, 2, 4, 3, 7, 3, 6, 7, 5, 6
];
const char*[9][NUMKEYWORDS] responses = [
[
"DON'T YOU BELIEVE THAT I CAN*",
"PERHAPS YOU WOULD LIKE TO BE ABLE TO*", "YOU WANT ME
TO BE ABLE TO*"
], ["PERHAPS YOU DON'T WANT TO*", "DO YOU WANT TO BE ABLE
TO*"],
[
"WHAT MAKES YOU THINK I AM*", "DOES IT PLEASE YOU TO
BELIEVE I AM*",
"PERHAPS YOU WOULD LIKE TO BE*", "DO YOU SOMETIMES
WISH YOU WERE*"
],
[
"WHAT MAKES YOU THINK I AM*", "DOES IT PLEASE YOU TO
BELIEVE I AM*",
"PERHAPS YOU WOULD LIKE TO BE*", "DO YOU SOMETIMES
WISH YOU WERE*"
],
[
"DON'T YOU REALLY*", "WHY DON'T YOU*", "DO YOU WISH
TO BE ABLE TO*",
"DOES THAT TROUBLE YOU?"
],
[
"TELL ME MORE ABOUT SUCH FEELINGS.", "DO YOU OFTEN
FEEL*",
"DO YOU ENJOY FEELING*"
],
[
"DO YOU REALLY BELIEVE I DON'T*", "PERHAPS IN GOOD
TIME I WILL*",
"DO YOU WANT ME TO*"
], ["DO YOU THINK YOU SHOULD BE ABLE TO*", "WHY CAN'T
YOU*"],
[
"WHY ARE YOU INTERESTED IN WHETHER OR NOT I AM*",
"WOULD YOU PREFER IF I WERE NOT*", "PERHAPS IN YOUR
FANTASIES I AM*"
], ["HOW DO YOU KNOW YOU CAN'T*", "HAVE YOU TRIED?",
"PERHAPS YOU CAN NOW*"],
[
"DID YOU COME TO ME BECAUSE YOU ARE*", "HOW LONG HAVE
YOU BEEN*",
"DO YOU BELIEVE IT IS NORMAL TO BE*", "DO YOU ENJOY
BEING*"
],
[
"DID YOU COME TO ME BECAUSE YOU ARE*", "HOW LONG HAVE
YOU BEEN*",
"DO YOU BELIEVE IT IS NORMAL TO BE*", "DO YOU ENJOY
BEING*"
],
[
"WE WERE DISCUSSING YOU-- NOT ME.", "OH, I*",
"YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU?"
],
[
"WHAT WOULD IT MEAN TO YOU IF YOU GOT*", "WHY DO YOU
WANT*",
"SUPPOSE YOU SOON GOT*", "WHAT IF YOU NEVER GOT*",
"I SOMETIMES ALSO WANT*"
],
[
"WHY DO YOU ASK?", "DOES THAT QUESTION INTEREST YOU?",
"WHAT ANSWER WOULD PLEASE YOU THE MOST?", "WHAT DO
YOU THINK?",
"ARE SUCH QUESTIONS ON YOUR MIND OFTEN?",
"WHAT IS IT THAT YOU REALLY WANT TO KNOW?", "HAVE YOU
ASKED ANYONE ELSE?",
"HAVE YOU ASKED SUCH QUESTIONS BEFORE?",
"WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?"
],
[
"WHY DO YOU ASK?", "DOES THAT QUESTION INTEREST YOU?",
"WHAT ANSWER WOULD PLEASE YOU THE MOST?", "WHAT DO
YOU THINK?",
"ARE SUCH QUESTIONS ON YOUR MIND OFTEN?",
"WHAT IS IT THAT YOU REALLY WANT TO KNOW?", "HAVE YOU
ASKED ANYONE ELSE?",
"HAVE YOU ASKED SUCH QUESTIONS BEFORE?",
"WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?"
],
[
"WHY DO YOU ASK?", "DOES THAT QUESTION INTEREST YOU?",
"WHAT ANSWER WOULD PLEASE YOU THE MOST?", "WHAT DO
YOU THINK?",
"ARE SUCH QUESTIONS ON YOUR MIND OFTEN?",
"WHAT IS IT THAT YOU REALLY WANT TO KNOW?", "HAVE YOU
ASKED ANYONE ELSE?",
"HAVE YOU ASKED SUCH QUESTIONS BEFORE?",
"WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?"
],
[
"WHY DO YOU ASK?", "DOES THAT QUESTION INTEREST YOU?",
"WHAT ANSWER WOULD PLEASE YOU THE MOST?", "WHAT DO
YOU THINK?",
"ARE SUCH QUESTIONS ON YOUR MIND OFTEN?",
"WHAT IS IT THAT YOU REALLY WANT TO KNOW?", "HAVE YOU
ASKED ANYONE ELSE?",
"HAVE YOU ASKED SUCH QUESTIONS BEFORE?",
"WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?"
],
[
"WHY DO YOU ASK?", "DOES THAT QUESTION INTEREST YOU?",
"WHAT ANSWER WOULD PLEASE YOU THE MOST?", "WHAT DO
YOU THINK?",
"ARE SUCH QUESTIONS ON YOUR MIND OFTEN?",
"WHAT IS IT THAT YOU REALLY WANT TO KNOW?", "HAVE YOU
ASKED ANYONE ELSE?",
"HAVE YOU ASKED SUCH QUESTIONS BEFORE?",
"WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?"
],
[
"WHY DO YOU ASK?", "DOES THAT QUESTION INTEREST YOU?",
"WHAT ANSWER WOULD PLEASE YOU THE MOST?", "WHAT DO
YOU THINK?",
"ARE SUCH QUESTIONS ON YOUR MIND OFTEN?",
"WHAT IS IT THAT YOU REALLY WANT TO KNOW?", "HAVE YOU
ASKED ANYONE ELSE?",
"HAVE YOU ASKED SUCH QUESTIONS BEFORE?",
"WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?"
], ["NAMES DON'T INTEREST ME.", "I DON'T CARE ABOUT
NAMES-- PLEASE GO ON."],
[
"IS THAT THE REAL REASON?", "DON'T ANY OTHER REASONS
COME TO MIND?",
"DOES THAT REASON EXPLAIN ANY THING ELSE?",
"WHAT OTHER REASONS MIGHT THERE BE?"
],
[
"PLEASE DON'T APOLOGIZE.", "APOLOGIES ARE NOT
NECESSARY.",
"WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE?",
"DON'T BE SO DEFENSIVE!"
],
[
"WHAT DOES THAT DREAM SUGGEST TO YOU?", "DO YOU DREAM
OFTEN?",
"WHAT PERSONS APPEAR IN YOUR DREAMS?", "ARE YOU
DISTURBED BY YOUR DREAMS?"
], ["HOW DO YOU DO--PLEASE STATE YOUR PROBLEM."],
["HOW DO YOU DO--PLEASE STATE YOUR PROBLEM."],
[
"YOU DON'T SEEM QUITE CERTAIN.", "WHY THE UNCERTAIN
TONE?",
"CAN'T YOU BE MORE POSITIVE?", "YOU AREN'T SURE?",
"DON'T YOU KNOW?"
],
[
"ARE YOU SAYING NO JUST TO BE NEGATIVE?", "YOU ARE
BEING A BIT NEGATIVE.",
"WHY NOT?", "ARE YOU SURE?", "WHY NO?"
], ["WHY ARE YOU CONCERNED ABOUT MY*", "WHAT ABOUT YOUR
OWN*"],
[
"CAN YOU THINK OF A SPECIFIC EXAMPLE?", "WHEN?",
"WHAT ARE YOU THINKING OF?", "REALLY, ALWAYS?"
],
[
"DO YOU REALLY THINK SO?", "BUT YOU ARE NOT SURE
YOU*",
"DO YOU DOUBT YOU*"
],
[
"IN WHAT WAY?", "WHAT RESEMBLANCE DO YOU SEE?",
"WHAT DOES THE SIMILARITY SUGGEST TO YOU?",
"WHAT OTHER CONNECTIONS DO YOU SEE?",
"COULD THERE REALLY BE SOME CONNECTION?", "HOW?"
], ["YOU SEEM QUITE POSITIVE.", "ARE YOU SURE?", "I SEE.",
"I UNDERSTAND."],
[
"WHY DO YOU BRING UP THE TOPIC OF FRIENDS?", "DO YOUR
FRIENDS WORRY YOU?",
"DO YOUR FRIENDS PICK ON YOU?", "ARE YOU SURE YOU
HAVE ANY FRIENDS?",
"DO YOU IMPOSE ON YOUR FRIENDS?",
"PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU?"
],
[
"DO COMPUTERS WORRY YOU?",
"ARE YOU TALKING ABOUT ME IN PARTICULAR?",
"ARE YOU FRIGHTENED BY MACHINES?", "WHY DO YOU
MENTION COMPUTERS?",
"WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR
PROBLEM?",
"DON'T YOU THINK COMPUTERS CAN HELP PEOPLE?",
"WHAT IS IT ABOUT MACHINES THAT WORRIES YOU?"
],
[
"OH, DO YOU LIKE CARS?",
"MY FAVORITE CAR IS A LAMBORGINI COUNTACH. WHAT IS
YOUR FAVORITE CAR?",
"MY FAVORITE CAR COMPANY IS FERRARI. WHAT IS YOURS?",
"DO YOU LIKE PORSCHES?", "DO YOU LIKE PORSCHE TURBO
CARRERAS?"
],
[
"SAY, DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?",
"WHAT DOES THAT SUGGEST TO YOU?", "I SEE.",
"I'M NOT SURE I UNDERSTAND YOU FULLY.",
"COME, COME ELUCIDATE YOUR THOUGHTS.", "CAN YOU
ELABORATE ON THAT?",
"THAT IS QUITE INTERESTING."
]
];
void print_center(const char* msg)
{
int numspaces = cast(int)(MAXLINELEN - strlen(msg)) / 2;
for (int i = 0; i < numspaces; i++)
printf(" ");
printf("%s\n", msg);
return;
}
void print_title()
{
writef("\n\n");
print_center("*** ELIZA ***");
print_center("Original code by Weizenbaum, 1966");
print_center("To stop Eliza, type 'bye'");
writef("\n\n");
writef("HI! I'M ELIZA. WHAT'S YOUR PROBLEM?\n");
}
void readline(char[] instr)
{
char c;
int slen = 0;
c = cast(char) getchar();
while (c != '\n')
{
// removes punctuation and sets to uppercase
if (isalpha(c) || isspace(c))
instr[slen++] = cast(char) toupper(c);
if (slen > MAXLINELEN - 1)
{
printf("Exceeded Max Line Length\n");
exit(0);
}
c = cast(char) getchar();
}
instr[slen] = '\0';
}
void speak(char[] txt)
{
//char[] txt2 = cast(char[])"-t ";
//strcat(txt2, txt);
auto tts = spawnProcess(["voice.exe", txt]);
wait(tts);
}
void WriteToFile(char* line, char* name)
{
FILE* pFile;
pFile = fopen("log.txt", "a");
if (pFile == null)
{
perror("Error opening file.");
}
else
{
fprintf(pFile, "%s %s\n", name, line);
}
fclose(pFile);
}
void main(string[] argv)
{
int k, baseLength;
int[NUMKEYWORDS] whichReply;
char[MAXLINELEN] lastinput;
char[MAXLINELEN] reply;
char* baseResponse, token;
const char[2] separator = " ";
char[MAXLINELEN] inputstr;
char[] username = cast(char[]) "You: ";
char[] botname = cast(char[]) "ELIZA: ";
// use the first reply for each keyword match the first
time you see that keyword
for (int x = 0; x < NUMKEYWORDS; x++)
{
whichReply[x] = 0;
}
// print a nice centered title screen
print_title();
lastinput[0] = '\0';
while (1)
{
readline(inputstr);
//writeToFile(cast(string)(inputstr));
//writeToFile(inputstr);
WriteToFile(cast(char*)inputstr, cast(char*)username);
// check for termination
if (strcmp((inputstr).ptr, "BYE") == 0)
break;
// check for repeated entries
if (strcmp((lastinput).ptr, (inputstr).ptr) == 0)
{
printf("PLEASE DON'T REPEAT YOURSELF!\n");
continue;
}
strncpy((lastinput).ptr, (inputstr).ptr,
strlen((inputstr).ptr) + 1);
// see if any of the keywords is contained in the
input
// if not, we use the last element of keywords as our
default responses
char* location;
strcpy((reply).ptr, "");
for (k = 0; k < NUMKEYWORDS - 1; k++)
{
location = strstr((inputstr).ptr, keywords[k]);
if (location != null)
break;
}
// Build Eliza's response
// start with Eliza's canned response, based on the
keyword match
baseResponse = cast(char*)
responses[k][whichReply[k]];
baseLength = cast(int) strlen(baseResponse);
if (baseResponse[baseLength - 1] != '*')
{
// if we have a baseResponse without an asterix,
just use it as-is
strcat((reply).ptr, baseResponse);
}
else
{
// if we do have an asterix, fill in the
remaining with the user input
// use all but the last character of the base
response
strncat((reply).ptr, baseResponse, baseLength -
1);
// now add in the rest of the user's input,
starting at <location>
// but skip over the keyword itself
location += strlen(keywords[k]);
// take them one word at a time, so that we can
substitute pronouns
token = strtok(location, (separator).ptr);
while (token != null)
{
for (int s = 0; s < NUMSWAPS; s++)
{
if (strcmp(SWAPS[s][0], token) == 0)
{
token = cast(char*) SWAPS[s][1];
break;
}
}
strcat((reply).ptr, (" ").ptr);
strcat((reply).ptr, token);
token = strtok(null, (separator).ptr);
}
strcat((reply).ptr, "?");
}
writeln(reply[0 .. strlen(reply.ptr)] ~ "\n");
speak(reply);
WriteToFile( cast(char*)reply, cast(char*)botname);
// next time, use the next appropriate reply for that
keyword
whichReply[k]++;
if (whichReply[k] >= ResponsesPerKeyword[k])
whichReply[k] = 0;
}
printf("GOODBYE! THANKS FOR VISITING WITH ME...\n");
}
```
to get "voices.exe" a windows CLI TTS engine follow this link:
https://www.elifulkerson.com/projects/commandline-text-to-speech.php
More information about the Digitalmars-d-learn
mailing list