Tricks of the Windows Game Programming Gurus (2nd Edition)

home *** CD-ROM | disk | FTP | other *** search

/ Tricks of the Windows Gam…ming Gurus (2nd Edition) / Disc2.iso / msdn_vcb / samples / vc98 / sdk / netds / rpc / doctor / doctorp.c < prev next >

Wrap

C/C++ Source or Header | 1996-06-11 | 18.6 KB | 580 lines

/**************************************************************************** Microsoft RPC Version 2.0 Copyright Microsoft Corp. 1992, 1993, 1994- 1996 Doctor Example FILE: Doctorp.c PURPOSE: Procedures that can be linked with the client side to form a standalone application, or linked with the server side to form a distributed RPC application DATA: Pattern - array of strings; input patterns and responses Substring - substrings within user input FUNCTIONS: Analyze(*pszInOut) - top level function Match(*string, *pattern) - compare input to patterns Respond(*string, *response) - replace substrings in response Synonyms(*ps1, *ps2) - replace synonyms in user input ****************************************************************************/ #include <stdlib.h> #include <stdio.h> #include <string.h> #include <ctype.h> #include "doctor.h" // header file generated by MIDL compiler #define TRUE 1 #define FALSE 0 char *Pattern[] = { "0COMPUTER 1", "0COMPUTERS 1", "=DO 11S WORRY YOU?", // string 11 = "computer" or "machine" "=WHY DO YOU MENTION 11S?", "=WHAT DO YOU THINK 11S HAVE TO DO WITH YOUR PROBLEM?", "=WHAT DO YOU THINK ABOUT 11S?", "0RPC0", "=WHY DO YOU MENTION RPC?", "=DO YOU MENTION RPC BECAUSE YOU ARE FEELING REMOTE RIGHT NOW?", "=WHAT FEELINGS DO YOU HAVE ABOUT RPC?", "0SORRY0", "=PLEASE DON'T APOLOGIZE.", "=APOLOGIES ARE NOT NECESSARY.", "=WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE?", "=I'VE TOLD YOU THAT APOLOGIES ARE NOT REQUIRED.", "=APOLOGIES ARE NOT NECESSARY, PLEASE GO ON", "0I AM SAD1", "=I AM SORRY TO HEAR YOU ARE 14.", // string 14 = "sad", "sick", etc. "=DO YOU THINK COMING HERE WILL HELP YOU NOT TO BE 14?", "=I'M SURE IT'S NOT PLEASANT TO BE 14.", "=CAN YOU EXPLAIN WHAT MADE YOU 14?", "0I AM HAPPY1", "=HOW HAVE I HELPED YOU TO BE 15?", // string 15 = "happy", etc. "=HAS YOUR TREATMENT MADE YOU 15?", "=WHAT MAKES YOU 15 JUST NOW?", "=CAN YOU EXPLAIN WHY YOU ARE SUDDENLY 15?", "0NAME0", "=I AM NOT INTERESTED IN NAMES.", "=I'VE TOLD YOU BEFORE I DON'T CARE ABOUT NAMES. PLEASE CONTINUE.", "0 FAMILY1", "=TELL ME MORE ABOUT YOUR 12.", // string 12 = "mother", "brother", etc. "=WHO ELSE IN YOUR FAMILY?", "=YOUR 12?", "=WHAT ELSE COMES TO MIND WHEN YOU THINK OF YOUR 12?", "0I REMEMBER 1", "=DO YOU OFTEN THINK OF 1?", "=WHAT IN THE PRESENT SITUATION REMINDS YOU OF 1?", "0SAME0", "0ALIKE0", "0IS 0LIKE0", "=IN WHAT WAY?", "=WHAT RESEMBLANCE DO YOU SEE?", "=WHAT DOES THAT SIMILARITY SUGGEST TO YOU?", "=WHAT OTHER CONNECTIONS DO YOU SEE?", "=WHAT DO YOU SUPPOSE THAT RESEMBLANCE MEANS?", "=WHAT IS THE CONNECTION, DO YOU SUPPOSE?", "=COULD THERE REALLY BE SOME CONNECTION?", "=HOW?", "0I REMEMBER 1", "=DO YOU OFTEN THINK OF 1?", "=DOES THINKING OF 1 BRING ANYTHING ELSE TO MIND?", "=WHAT ELSE DO YOU REMEMBER?", "=WHY DO YOU REMEMBER 1 JUST NOW?", "=WHAT IN THE PRESENT SITUATION REMINDS YOU OF 1?", "=WHAT IS THE CONNECTION BETWEEN ME AND 1?", "0DO YOU REMEMBER 1", "=DID YOU THINK I WOULD FORGET 1?", "=WHY DO YOU THINK I SHOULD RECALL 1 NOW?", "=WHAT ABOUT 1?", "=YOU MENTIONED 1?", "1 IS MY PROBLEM0", "=1 13 YOUR PROBLEM?", // string 13 = "is" or "are" "=ARE YOU SURE 13 1 YOUR PROBLEM?", "=PERHAPS 13 1 NOT YOUR REAL PROBLEM.", "=YOU THINK YOU HAVE PROBLEMS?", "=DO YOU OFTEN THINK ABOUT 1?", "0PROBLEM0", "=PLEASE CONTINUE, THIS MAY BE INTERESTING.", "=HAVE YOU ANY OTHER PROBLEMS YOU WISH TO DISCUSS?", "=PERHAPS YOU'D RATHER CHANGE THE SUBJECT.", "=YOU SEEM A BIT UNEASY.", "0I DREAMT 1", "0I DREAMED 1", "=REALLY 1?", "=HAVE YOU EVER FANTASIZED 1 WHILE YOU WERE AWAKE?", "=HAVE YOU DREAMT 1 BEFORE?", "=WHAT DOES THAT DREAM SUGGEST TO YOU?", "=DO YOU DREAM OFTEN?", "=WHAT PERSONS APPEAR IN YOUR DREAMS?", "=DON'T YOU BELIEVE THAT DREAM HAS SOMETHING TO DO WITH YOUR PROBLEM?", "=DO YOU EVER WISH YOU COULD FLEE FROM REALITY?", "0DREAM0", "=WHAT DOES THAT DREAM SUGGEST TO YOU?", "=DO YOU DREAM OFTEN?", "=WHAT PERSONS APPEAR IN YOUR DREAMS?", "=DON'T YOU BELIEVE THAT DREAM HAS SOMETHING TO DO WITH YOUR PROBLEM?", "=DO YOU EVER WISH YOU COULD FLEE FROM REALITY?", "0IF 1 HAD 2", "=DO YOU THINK IT'S LIKELY THAT 1 MIGHT HAVE 2?", "=DO YOU WISH THAT 1 HAD 2?", "=REALLY, IF 1 HAD 2?", "0IF 1", "=DO YOU THINK IT'S LIKELY THAT 1?", "=DO YOU WISH THAT 1?", "=WHAT DO YOU THINK ABOUT 1?", "=REALLY, IF 1?", "WAS I 1", "=WHAT IF YOU WERE 1?", "=DO YOU THINK YOU WERE 1?", "=WERE YOU 1?", "=WHAT WOULD IT MEAN IF YOU WERE 1?", "=WHAT DOES \"1\" SUGGEST TO YOU?", "=WHY DO YOU ASK?", "=DOES THAT QUESTION INTERST YOU?", "=WHAT IS IT YOU REALLY WANT TO KNOW?", "=ARE SUCH QUESTIONS MUCH ON YOUR MIND?", "=WHAT ANSWER WOULD PLEASE YOU MOST?", "=WHAT DO YOU THINK?", "=WHAT COMES TO YOUR MIND WHEN YOU ASK THAT?", "=HAVE YOU ASKED SUCH QUESTIONS BEFORE?", "=HAVE YOU ASKED ANYONE ELSE?", "0I WAS 1", "=WERE YOU REALLY?", "=WHY DO YOU TELL ME YOU WERE 1 NOW?", "=PERHAPS I ALREADY KNEW YOU WERE 1.", "WERE YOU 1", "=WOULD YOU LIKE TO BELIEVE THAT I WAS 1?", "=WHAT SUGGESTS THAT I WAS 1?", "=WHAT DO YOU THINK?", "=PERHAPS I WAS 1.", "=WHAT IF I HAD BEEN 1.", "0 MY 1", "MY 1", "=YOUR 1?", "=WHY DO YOU SAY YOUR 1?", "=DOES THAT SUGGEST ANYTHING ELSE WHICH BELONGS TO YOU?", "=IS IT IMPORTANT TO YOU THAT 1?", "0EVERYONE0", "0EVERYBODY0", "=REALLY, EVERYONE?", "=SURELY NOT EVERYONE.", "=CAN YOU THINK OF ANYONE IN PARTICULAR?", "=WHO, FOR EXAMPLE?", "=YOU ARE THINKING OF A VERY SPECIAL PERSON.", "=WHO, MAY I ASK?", "=SOMEONE SPECIAL, PERHAPS.", "=YOU HAVE A PARTICULAR PERSON IN MIND, DON'T YOU?", "=WHO DO YOU THINK YOU'RE TALKING ABOUT?", "=I SUSPECT YOU'RE EXAGGERATING A LITTLE.", "NO ONE0", "0 NO ONE0", "0NOBODY0", "=REALLY, NO ONE?", "=SURELY SOMEONE.", "=CAN YOU THINK OF ANYONE IN PARTICULAR?", "=WHO, FOR EXAMPLE?", "=YOU ARE THINKING OF A VERY SPECIAL PERSON.", "=WHO, MAY I ASK?", "=SOMEONE SPECIAL, PERHAPS.", "=YOU HAVE A PARTICULAR PERSON IN MIND, DON'T YOU?", "=WHO DO YOU THINK YOU'RE TALKING ABOUT?", "=I SUSPECT YOU'RE EXAGGERATING A LITTLE.", "0ALWAYS0", "=CAN YOU THINK OF A SPECIFIC EXAMPLE?", "=WHEN?", "=WHAT INCIDENT ARE YOU THINKING OF?", "=REALLY, ALWAYS?", "=WHAT IF THIS NEVER HAPPENED?", "0HOW 0", "0WHERE 0", "=WHY DO YOU ASK?", "=DOES THAT QUESTION INTERST YOU?", "=WHAT IS IT YOU REALLY WANT TO KNOW?", "=ARE SUCH QUESTIONS MUCH ON YOUR MIND?", "=WHAT ANWSER WOULD PLEASE YOU MOST?", "=WHAT DO YOU THINK?", "=WHAT COMES TO YOUR MIND WHEN YOU ASK THAT?", "=HAVE YOU ASKED SUCH QUESTIONS BEFORE?", "=HAVE YOU ASKED ANYONE ELSE?", /* "there is no" strings must precede "there is" strings */ "0THERE IS NO 1", "0THERE IS NOT 1", "=WHAT IF THERE WERE 1", "=DID YOU THINK THERE MIGHT BE 1", "=HOW 13 1 RELATED TO YOU?", /* these must follow "there is no" strings */ "0THERE IS 1", "=13 THERE REALLY 1?", "=HOW 13 1 RELATED TO YOU?", "0SEX 1", "=DO YOU REALLY WANT TO DISCUSS SEX?", "=DO YOU EVER DREAM ABOUT SEX?", "=WHY DO YOU MENTION SEX?", "=COULD SEX BE PART OF YOUR PROBLEM?", "0HECK1", // checks for strong language "0DARN1", "=ARE SUCH OBSCENITIES FREQUENTLY ON YOUR MIND?", "=YOU ARE BEING A BIT CHILDISH.", "=REALLY NOW", "=DEAR ME", "=I REALLY SHOULDN'T TOLERATE SUCH LANGUAGE.", "0MY FRIEND 1", "=WHAT ELSE CAN YOU TELL ME ABOUT YOUR FRIEND?", "=WHAT MIGHT YOUR FRIEND HAVE TO DO WITH THE PROBLEM?", "0", // last resort: match anything "=PLEASE GO ON.", "=I AM NOT SURE I UNDERSTAND YOU FULLY.", "=WHAT DOES THAT SUGGEST TO YOU?", "=DO YOU FEEL STRONGLY ABOUT DISCUSSING SUCH THINGS?", NULL // special end of list character }; int iLastIndex = 0; // don't send same response twice in a row // note: this requires 2 responses for each pattern char Substring[20][STRSIZE] = { "", "", "", "", "", "", "", "", "", "", "REMEMBER", /* 10 */ "COMPUTER", /* 11 */ "FAMILY", /* 12 */ "IS", /* 13 */ "", "", "", "", "", "" }; /* Compare user input to patterns */ int Match (char *str, char *pat) { char * pStr; // backup ptr to the user input string char * pPat; // backup ptr to the pattern char *pSubstr = NULL; // possible substrings within pattern int index = 0; // index to substring while (TRUE) { // exit routine from within this loop if (isdigit(*pat)) { // replaceable pattern number index = atoi(pat); // extract pattern number while (isdigit(*pat)) // skip number in pattern pat++; pSubstr = Substring[index]; // pointer to current substring if (*pat == '\0') { // if end of pattern, everything will match strcpy(pSubstr, str); // copy rest of input into substring return(TRUE); } else while (*pat != *str) { // match all to specific char in pattern *pSubstr++ = *str++; // fill substring if (*str == '\0') // stuff left to match, but no input return(FALSE); *pSubstr = '\0'; // can overwrite if there's more... } pStr = str; // keep track; it may still be * pPat = pat; // keep track; it may still be * } if (*str == *pat) { // matches the specific pattern str++; // skip to next character of input string pat++; // skip to next character of pattern if ((*str == '\0') && (*pat == '\0')) // both at end? return(TRUE); } else if (pSubstr != NULL) { // didn't match specific, so still * substring pat = pPat; // restore ptr to input pattern while (pStr < str) // catch up to current input character *pSubstr++ = *pStr++; while (*pat != *str) { // match to next possible match in pattern *pSubstr++ = *str++; // fill substring with more characters if (*str == '\0') // stuff left to match, but no input return(FALSE); } *pSubstr = '\0'; // can overwrite if there's more... pStr = str; // keep track; it may still be * pPat = pat; // keep track; it may still be * } else return(FALSE); // no match } // end while (TRUE) loop } // end function Match /* Add possible substrings to the response string */ void Respond(char *str, char *finalstr) { char copy[STRSIZE]; // copy of the substring to process token at a time char *token; char *word; int index; // index to substring (string converted to number) int len = 0; // index to output string for sprintf while (*str) { if (! isdigit(*str)) len += sprintf(finalstr + len, "%c", *str++); else { // check for pattern number index = atoi(str); // extract pattern number while (isdigit(*str)) // skip number in pattern str++; strcpy(copy, Substring[index]); // process substring token = strtok(copy, " "); // skip blanks while (token) { word = token; if (! strcmp(token,"I") || ! strcmp(token,"ME")) word = "YOU"; else if (! strcmp(token,"YOU")) word = "I"; else if (! strcmp(token,"MY")) word = "YOUR"; else if (! strcmp(token,"YOUR")) word = "MY"; else if (! strcmp(token,"MINE")) word = "YOURS"; else if (! strcmp(token,"YOURS")) word = "MINE"; else if (! strcmp(token,"MYSELF")) word = "YOURSELF"; else if (! strcmp(token,"YOURSELF")) word = "MYSELF"; else if (! strcmp(token,"I'M")) word = "YOU'RE"; else if (! strcmp(token,"YOU'RE")) word = "I'M"; else if (! strcmp(token,"AM")) word = "ARE"; else if (! strcmp(token,"WAS")) word = "WERE"; len += sprintf(finalstr + len, "%s", word); // get next token from Substring if ((token = strtok(NULL, " ")) != NULL) len += sprintf(finalstr + len, " "); } // end while token } // end else (if isdigit) } // end while str len += sprintf(finalstr + len, "\n"); } // end function Respond /* Replace synonyms in user input */ void Synonyms(char *input, char *output) { char *ps1 = input; char *ps2 = output; char *token; char *word; static char *synonym10[] = {"RECALL", "RECOLLECT", ""}; static char *synonym11[] = {"MACHINE", ""}; static char *synonym12[] = {"MOTHER", "MOMMY", "FATHER", "DADDY", "SISTER", "BROTHER", "AUNT", "UNCLE", ""}; static char *synonym13[] = {"ARE", "AM", ""}; static char *synonym14[] = {"SAD", "UNHAPPY", "DEPRESSED", "SICK", ""}; static char *synonym15[] = {"HAPPY", "ELATED", "GLAD", "BETTER", ""}; short StrMember(); // preprocessing...convert to uppercase and check for special chars while (*ps1) { *ps1 = toupper(*ps1); if (*ps1 == '.' || *ps1 == ',' || *ps1 == '!' || *ps1 == '?' || *ps1 == ';' || *ps1 == ':' || ! isprint(*ps1)) { *ps1 = '\0'; break; } ps1++; } // ok, it's preprocessed now...let's check for pattern matches ps1 = input; // back to the beginning... strcpy(ps2, ""); token = strtok(ps1, " "); // search for tokens deliminated by space while (token) { word = token; if (StrMember(token, synonym10)) { word = "REMEMBER"; // use this synonym for pattern-matching } else if (StrMember(token, synonym11)) { strcpy(Substring[11], token); // 11 is hardcoded into response word = "COMPUTER"; } else if (StrMember(token, synonym12)) { strcpy(Substring[12], token); // 12 word = "FAMILY"; } else if (StrMember(token, synonym13)) { strcpy(Substring[13], token); // 13 word = "IS"; } else if (StrMember(token, synonym14)) { strcpy(Substring[14], token); // 14 word = "SAD"; } else if (StrMember(token, synonym15)) { strcpy(Substring[15], token); // 15 word = "HAPPY"; } strcat(ps2, word); // append the token to the output string strcat(ps2, " "); // restore space token = strtok(NULL, " "); // search for the next token } // end while token } // end function Synonyms short StrMember(char *str, char **list) { while (strcmp(*list, "")) { // not end of the list if (!strcmp(str, *list)) return 1; else list++; } return 0; } /* Top-level routine */ void Analyze(unsigned char *str) { int i = 0; // index to entry within Pattern int j; // index to first possible response string int index; // index of the actual response string used int count = 0; // count of all possible response strings (must be > 2) char *response; char synstr[STRSIZE]; Synonyms(str, synstr); while (Pattern[i] != NULL) { // check against all patterns if (Pattern[i][0] != '=') { // if a patient pattern if (Match(synstr, Pattern[i]) == TRUE) { // skip past patient input to doctor responses while (Pattern[i] && Pattern[i][0] != '=') i++; // count the number of possible responses, and // point index to beginning of doctor responses if (Pattern[i] && Pattern[i][0] == '=') { count = 1; j = i++; } // count all possible doctor responses while (Pattern[i] && Pattern[i][0] == '=') { count++; i++; } // pick a different doctor response from last time do { index = j + (rand() % count); } while (index == iLastIndex); // process the doctor respose, and // keep track of the response used last response = &Pattern[index][1]; iLastIndex = index; Respond(response, str); return; } // end if match } // end if patient pattern i++; // next pattern } // end while pattern } // end function Analyze /* Shutdown the server by calling RPC API functions */ void Shutdown(void) { RPC_STATUS status; printf("Calling RpcMgmtStopServerListening\n"); status = RpcMgmtStopServerListening(NULL); printf("RpcMgmtStopServerListening returned: 0x%x\n", status); if (status) { exit(status); } printf("Calling RpcServerUnregisterIf\n"); status = RpcServerUnregisterIf(NULL, NULL, FALSE); printf("RpcServerUnregisterIf returned 0x%x\n", status); if (status) { exit(status); } } /* end file doctorp.c */