emacs: lisp/play/doctor.el comparison

comparison lisp/play/doctor.el @ 47367:d8c0258cdf14

2002-09-10 Deepak Goel <deego@glue.umd.edu> * play/doctor.el (doc//): Rename from `//'. Update callers. (doc$): Rename from `$'. Update callers.

author	John Paul Wallington <jpw@pobox.com>
date	Tue, 10 Sep 2002 05:48:44 +0000
parents	8a11a2109567
children	73e46b26325e

comparison

equal deleted inserted replaced

-:32c66a092ce6
+:d8c0258cdf14
 ;; for a discussion of why and how this file was censored, and the
 ;; political implications of the issue.
 ;;; Code:
-(defun // (x) x)
+(defun doc// (x) x)
-(defmacro $ (what)
+(defmacro doc$ (what)
 "quoted arg form of doctor-$"
 (list 'doctor-$ (list 'quote what)))
 (defun doctor-$ (what)
 "Return the car of a list, rotating the list each time"
 (use-local-map doctor-mode-map)
 (setq major-mode 'doctor-mode)
 (setq mode-name "Doctor")
 (turn-on-auto-fill)
 (doctor-type '(i am the psychotherapist \.
-		 ($ please) ($ describe) your ($ problems) \.
+		 (doc$ please) (doc$ describe) your (doc$ problems) \.
 		 each time you are finished talking, type \R\E\T twice \.))
 (insert "\n"))
 (defun make-doctor-variables ()
 (make-local-variable 'typos)
 	  (something you remember about)
 	  (your feelings toward)
 	  (some experiences you have had with)
 	  (how you feel about)))
 (make-local-variable 'fears)
-(setq fears '( (($ whysay) you are ($ afraidof) (// feared) \?)
+(setq fears '( ((doc$ whysay) you are (doc$ afraidof) (doc// feared) \?)
-		 (you seem terrified by (// feared) \.)
+		 (you seem terrified by (doc// feared) \.)
-		 (when did you first feel ($ afraidof) (// feared) \?) ))
+		 (when did you first feel (doc$ afraidof) (doc// feared) \?) ))
 (make-local-variable 'sure)
 (setq sure '((sure)(positive)(certain)(absolutely sure)))
 (make-local-variable 'afraidof)
 (setq afraidof '( (afraid of) (frightened by) (scared of) ))
 (make-local-variable 'areyou)
 (make-local-variable 'arerelated)
 (setq arerelated '((have something to do with)(are related to)
 		     (could have caused)(could be the reason for) (are caused by)
 		     (are because of)))
 (make-local-variable 'moods)
-(setq moods '( (($ areyou)(// found) often \?)
+(setq moods '( ((doc$ areyou)(doc// found) often \?)
-		 (what causes you to be (// found) \?)
+		 (what causes you to be (doc// found) \?)
-		 (($ whysay) you are (// found) \?) ))
+		 ((doc$ whysay) you are (doc// found) \?) ))
 (make-local-variable 'maybe)
 (setq maybe
 	'((maybe)
 	  (perhaps)
 	  (possibly)))
 (make-local-variable 'hello)
 (setq hello
 	'((how do you do \?) (hello \.) (howdy!) (hello \.) (hi \.) (hi there \.)))
 (make-local-variable 'drnk)
 (setq drnk
-	'((do you drink a lot of (// found) \?)
+	'((do you drink a lot of (doc// found) \?)
 	  (do you get drunk often \?)
-	  (($ describe) your drinking habits \.) ))
+	  ((doc$ describe) your drinking habits \.) ))
 (make-local-variable 'drugs)
-(setq drugs '( (do you use (// found) often \?)(($ areyou)
+(setq drugs '( (do you use (doc// found) often \?)((doc$ areyou)
-						 addicted to (// found) \?)(do you realize that drugs can
+						 addicted to (doc// found) \?)(do you realize that drugs can
-						 be very harmful \?)(($ maybe) you should try to quit using (// found)
+						 be very harmful \?)((doc$ maybe) you should try to quit using (doc// found)
 						 \.)))
 (make-local-variable 'whywant)
-(setq whywant '( (($ whysay) (// subj) might ($ want) (// obj) \?)
+(setq whywant '( ((doc$ whysay) (doc// subj) might (doc$ want) (doc// obj) \?)
 		   (how does it feel to want \?)
-		   (why should (// subj) get (// obj) \?)
+		   (why should (doc// subj) get (doc// obj) \?)
-		   (when did (// subj) first ($ want) (// obj) \?)
+		   (when did (doc// subj) first (doc$ want) (doc// obj) \?)
-		   (($ areyou) obsessed with (// obj) \?)
+		   ((doc$ areyou) obsessed with (doc// obj) \?)
-		   (why should i give (// obj) to (// subj) \?)
+		   (why should i give (doc// obj) to (doc// subj) \?)
-		   (have you ever gotten (// obj) \?) ))
+		   (have you ever gotten (doc// obj) \?) ))
 (make-local-variable 'canyou)
 (setq canyou '((of course i can \.)
 		 (why should i \?)
 		 (what makes you think i would even want to \?)
 		 (i am the doctor\, i can do anything i damn please \.)
 (make-local-variable 'want)
 (setq want '( (want) (desire) (wish) (want) (hope) ))
 (make-local-variable 'shortlst)
 (setq shortlst
 	'((can you elaborate on that \?)
-	  (($ please) continue \.)
+	  ((doc$ please) continue \.)
 	  (go on\, don\'t be afraid \.)
 	  (i need a little more detail please \.)
-	  (you\'re being a bit brief\, ($ please) go into detail \.)
+	  (you\'re being a bit brief\, (doc$ please) go into detail \.)
 	  (can you be more explicit \?)
 	  (and \?)
-	  (($ please) go into more detail \?)
+	  ((doc$ please) go into more detail \?)
 	  (you aren\'t being very talkative today\!)
 	  (is that all there is to it \?)
 	  (why must you respond so briefly \?)))
 (make-local-variable 'famlst)
 (setq famlst
-	'((tell me ($ something) about (// owner) family \.)
+	'((tell me (doc$ something) about (doc// owner) family \.)
-	  (you seem to dwell on (// owner) family \.)
+	  (you seem to dwell on (doc// owner) family \.)
-	  (($ areyou) hung up on (// owner) family \?)))
+	  ((doc$ areyou) hung up on (doc// owner) family \?)))
 (make-local-variable 'huhlst)
 (setq huhlst
-	'((($ whysay)(// sent) \?)
+	'(((doc$ whysay)(doc// sent) \?)
-	  (is it because of ($ things) that you say (// sent) \?) ))
+	  (is it because of (doc$ things) that you say (doc// sent) \?) ))
 (make-local-variable 'longhuhlst)
 (setq longhuhlst
-	'((($ whysay) that \?)
+	'(((doc$ whysay) that \?)
 	  (i don\'t understand \.)
-	  (($ thlst))
+	  ((doc$ thlst))
-	  (($ areyou) ($ afraidof) that \?)))
+	  ((doc$ areyou) (doc$ afraidof) that \?)))
 (make-local-variable 'feelings-about)
 (setq feelings-about
 	'((feelings about)
 	  (apprehensions toward)
 	  (thoughts on)
 	  (did you ever regret)
 	  (are you sorry)
 	  (are you satisfied with the fact that)))
 (make-local-variable 'machlst)
 (setq machlst
-	'((you have your mind on (// found) \, it seems \.)
+	'((you have your mind on (doc// found) \, it seems \.)
-	  (you think too much about  (// found) \.)
+	  (you think too much about  (doc// found) \.)
-	  (you should try taking your mind off of (// found)\.)
+	  (you should try taking your mind off of (doc// found)\.)
 	  (are you a computer hacker \?)))
 (make-local-variable 'qlist)
 (setq qlist
 	'((what do you think \?)
 	  (i\'ll ask the questions\, if you don\'t mind!)
 	  (i could ask the same thing myself \.)
-	  (($ please) allow me to do the questioning \.)
+	  ((doc$ please) allow me to do the questioning \.)
 	  (i have asked myself that question many times \.)
-	  (($ please) try to answer that question yourself \.)))
+	  ((doc$ please) try to answer that question yourself \.)))
 (make-local-variable 'foullst)
 (setq foullst
-	'((($ please) watch your tongue!)
+	'(((doc$ please) watch your tongue!)
-	  (($ please) avoid such unwholesome thoughts \.)
+	  ((doc$ please) avoid such unwholesome thoughts \.)
-	  (($ please) get your mind out of the gutter \.)
+	  ((doc$ please) get your mind out of the gutter \.)
 	  (such lewdness is not appreciated \.)))
 (make-local-variable 'deathlst)
 (setq deathlst
 	'((this is not a healthy way of thinking \.)
-	  (($ bother) you\, too\, may die someday \?)
+	  ((doc$ bother) you\, too\, may die someday \?)
 	  (i am worried by your obsession with this topic!)
 	  (did you watch a lot of crime and violence on television as a child \?))
 	)
 (make-local-variable 'sexlst)
 (setq sexlst
-	'((($ areyou) ($ afraidof) sex \?)
+	'(((doc$ areyou) (doc$ afraidof) sex \?)
-	  (($ describe)($ something) about your sexual history \.)
+	  ((doc$ describe)(doc$ something) about your sexual history \.)
-	  (($ please)($ describe) your sex life \.\.\.)
+	  ((doc$ please)(doc$ describe) your sex life \.\.\.)
-	  (($ describe) your ($ feelings-about) your sexual partner \.)
+	  ((doc$ describe) your (doc$ feelings-about) your sexual partner \.)
-	  (($ describe) your most ($ random-adjective) sexual experience \.)
+	  ((doc$ describe) your most (doc$ random-adjective) sexual experience \.)
-	  (($ areyou) satisfied with (// lover) \.\.\. \?)))
+	  ((doc$ areyou) satisfied with (doc// lover) \.\.\. \?)))
 (make-local-variable 'neglst)
 (setq neglst
 	'((why not \?)
-	  (($ bother) i ask that \?)
+	  ((doc$ bother) i ask that \?)
 	  (why not \?)
 	  (why not \?)
 	  (how come \?)
-	  (($ bother) i ask that \?)))
+	  ((doc$ bother) i ask that \?)))
 (make-local-variable 'beclst)
 (setq beclst '(
-		 (is it because (// sent) that you came to me \?)
+		 (is it because (doc// sent) that you came to me \?)
-		 (($ bother)(// sent) \?)
+		 ((doc$ bother)(doc// sent) \?)
-		 (when did you first know that (// sent) \?)
+		 (when did you first know that (doc// sent) \?)
-		 (is the fact that (// sent) the real reason \?)
+		 (is the fact that (doc// sent) the real reason \?)
-		 (does the fact that (// sent) explain anything else \?)
+		 (does the fact that (doc// sent) explain anything else \?)
-		 (($ areyou)($ sure)(// sent) \? ) ))
+		 ((doc$ areyou)(doc$ sure)(doc// sent) \? ) ))
 (make-local-variable 'shortbeclst)
 (setq shortbeclst '(
-		      (($ bother) i ask you that \?)
+		      ((doc$ bother) i ask you that \?)
 		      (that\'s not much of an answer!)
-		      (($ inter) why won\'t you talk about it \?)
+		      ((doc$ inter) why won\'t you talk about it \?)
 		      (speak up!)
-		      (($ areyou) ($ afraidof) talking about it \?)
+		      ((doc$ areyou) (doc$ afraidof) talking about it \?)
-		      (don\'t be ($ afraidof) elaborating \.)
+		      (don\'t be (doc$ afraidof) elaborating \.)
-		      (($ please) go into more detail \.)))
+		      ((doc$ please) go into more detail \.)))
 (make-local-variable 'thlst)
 (setq thlst '(
-		(($ maybe)($ things)($ arerelated) this \.)
+		((doc$ maybe)(doc$ things)(doc$ arerelated) this \.)
-		(is it because of ($ things) that you are going through all this \?)
+		(is it because of (doc$ things) that you are going through all this \?)
-		(how do you reconcile ($ things) \? )
+		(how do you reconcile (doc$ things) \? )
-		(($ maybe) this ($ isrelated)($ things) \?) ))
+		((doc$ maybe) this (doc$ isrelated)(doc$ things) \?) ))
 (make-local-variable 'remlst)
-(setq remlst '( (earlier you said ($ history) \?)
+(setq remlst '( (earlier you said (doc$ history) \?)
-		  (you mentioned that ($ history) \?)
+		  (you mentioned that (doc$ history) \?)
-		  (($ whysay)($ history) \? ) ))
+		  ((doc$ whysay)(doc$ history) \? ) ))
 (make-local-variable 'toklst)
 (setq toklst
 	'((is this how you relax \?)
 	  (how long have you been smoking	grass \?)
-	  (($ areyou) ($ afraidof) of being drawn to using harder stuff \?)))
+	  ((doc$ areyou) (doc$ afraidof) of being drawn to using harder stuff \?)))
 (make-local-variable 'states)
 (setq states
-	'((do you get (// found) often \?)
+	'((do you get (doc// found) often \?)
-	  (do you enjoy being (// found) \?)
+	  (do you enjoy being (doc// found) \?)
-	  (what makes you (// found) \?)
+	  (what makes you (doc// found) \?)
-	  (how often ($ areyou)(// found) \?)
+	  (how often (doc$ areyou)(doc// found) \?)
-	  (when were you last (// found) \?)))
+	  (when were you last (doc// found) \?)))
 (make-local-variable 'replist)
 (setq replist
 	'((i . (you))
 	  (my . (your))
 	  (me . (you))
 	  (wouldn\'t . (would not))
 	  (won\'t . (will not))
 	  (hasn\'t . (has not))))
 (make-local-variable 'stallmanlst)
 (setq stallmanlst '(
-		      (($ describe) your ($ feelings-about) him \.)
+		      ((doc$ describe) your (doc$ feelings-about) him \.)
-		      (($ areyou) a friend of Stallman \?)
+		      ((doc$ areyou) a friend of Stallman \?)
-		      (($ bother) Stallman is ($ random-adjective) \?)
+		      ((doc$ bother) Stallman is (doc$ random-adjective) \?)
-		      (($ ibelieve) you are ($ afraidof) him \.)))
+		      ((doc$ ibelieve) you are (doc$ afraidof) him \.)))
 (make-local-variable 'schoollst)
 (setq schoollst '(
-		    (($ describe) your (// found) \.)
+		    ((doc$ describe) your (doc// found) \.)
-		    (($ bother) your grades could ($ improve) \?)
+		    ((doc$ bother) your grades could (doc$ improve) \?)
-		    (($ areyou) ($ afraidof) (// found) \?)
+		    ((doc$ areyou) (doc$ afraidof) (doc// found) \?)
-		    (($ maybe) this ($ isrelated) to your attitude \.)
+		    ((doc$ maybe) this (doc$ isrelated) to your attitude \.)
-		    (($ areyou) absent often \?)
+		    ((doc$ areyou) absent often \?)
-		    (($ maybe) you should study ($ something) \.)))
+		    ((doc$ maybe) you should study (doc$ something) \.)))
 (make-local-variable 'improve)
 (setq improve '((improve) (be better) (be improved) (be higher)))
 (make-local-variable 'elizalst)
 (setq elizalst '(
-		   (($ areyou) ($ sure) \?)
+		   ((doc$ areyou) (doc$ sure) \?)
-		   (($ ibelieve) you have ($ problems) with (// found) \.)
+		   ((doc$ ibelieve) you have (doc$ problems) with (doc// found) \.)
-		   (($ whysay) (// sent) \?)))
+		   ((doc$ whysay) (doc// sent) \?)))
 (make-local-variable 'sportslst)
 (setq sportslst '(
-		    (tell me ($ something) about (// found) \.)
+		    (tell me (doc$ something) about (doc// found) \.)
-		    (($ describe) ($ relation) (// found) \.)
+		    ((doc$ describe) (doc$ relation) (doc// found) \.)
-		    (do you find (// found) ($ random-adjective) \?)))
+		    (do you find (doc// found) (doc$ random-adjective) \?)))
 (make-local-variable 'mathlst)
 (setq mathlst '(
-		  (($ describe) ($ something) about math \.)
+		  ((doc$ describe) (doc$ something) about math \.)
-		  (($ maybe) your ($ problems) ($ arerelated) (// found) \.)
+		  ((doc$ maybe) your (doc$ problems) (doc$ arerelated) (doc// found) \.)
-		  (i don\'t know much (// found) \, but ($ continue)
+		  (i don\'t know much (doc// found) \, but (doc$ continue)
 		     anyway \.)))
 (make-local-variable 'zippylst)
 (setq zippylst '(
-		   (($ areyou) Zippy \?)
+		   ((doc$ areyou) Zippy \?)
-		   (($ ibelieve) you have some serious ($ problems) \.)
+		   ((doc$ ibelieve) you have some serious (doc$ problems) \.)
-		   (($ bother) you are a pinhead \?)))
+		   ((doc$ bother) you are a pinhead \?)))
 (make-local-variable 'chatlst)
 (setq chatlst '(
-		  (($ maybe) we could chat \.)
+		  ((doc$ maybe) we could chat \.)
-		  (($ please) ($ describe) ($ something) about chat mode \.)
+		  ((doc$ please) (doc$ describe) (doc$ something) about chat mode \.)
-		  (($ bother) our discussion is so ($ random-adjective) \?)))
+		  ((doc$ bother) our discussion is so (doc$ random-adjective) \?)))
 (make-local-variable 'abuselst)
 (setq abuselst '(
-		   (($ please) try to be less abusive \.)
+		   ((doc$ please) try to be less abusive \.)
-		   (($ describe) why you call me (// found) \.)
+		   ((doc$ describe) why you call me (doc// found) \.)
 		   (i\'ve had enough of you!)))
 (make-local-variable 'abusewords)
 (setq abusewords '(boring bozo clown clumsy cretin dumb dummy
 			    fool foolish gnerd gnurd idiot jerk
 			    lose loser louse lousy luse luser
 ;; Main processing function for sentences that have been read.
 (defun doctor-doc (sent)
 (cond
 ((equal sent '(foo))
-(doctor-type '(bar! ($ please)($ continue) \.)))
+(doctor-type '(bar! (doc$ please)(doc$ continue) \.)))
 ((member sent howareyoulst)
-(doctor-type '(i\'m ok \.  ($ describe) yourself \.)))
+(doctor-type '(i\'m ok \.  (doc$ describe) yourself \.)))
 ((or (member sent '((good bye) (see you later) (i quit) (so long)
 		       (go away) (get lost)))
 	(memq (car sent)
 	      '(bye halt break quit done exit goodbye
 		    bye\, stop pause goodbye\, stop pause)))
-(doctor-type ($ bye)))
+(doctor-type (doc$ bye)))
 ((and (eq (car sent) 'you)
 	 (memq (cadr sent) abusewords))
 (setq found (cadr sent))
-(doctor-type ($ abuselst)))
+(doctor-type (doc$ abuselst)))
 ((eq (car sent) 'whatmeans)
 (doctor-def (cadr sent)))
 ((equal sent '(parse))
 (doctor-type (list  'subj '= subj ",  "
 			'verb '= verb "\n"
 			", "
 			'most 'recent 'possessive
 			'is owner "\n"
 			'sentence 'used 'was
 			"..."
-			'(// bak))))
+			'(doc// bak))))
 ((memq (car sent) '(do has have how when where who why))
-(doctor-type ($ qlist)))
+(doctor-type (doc$ qlist)))
 ;;   ((eq (car sent) 'forget)
 ;;    (set (cadr sent) nil)
-;;    (doctor-type '(($ isee)($ please)
+;;    (doctor-type '((doc$ isee)(doc$ please)
-;;     ($ continue)\.)))
+;;     (doc$ continue)\.)))
 (t
 (if (doctor-defq sent) (doctor-define sent found))
 (if (> (length sent) 12)(setq sent (doctor-shorten sent)))
 (setq sent (doctor-correct-spelling (doctor-replace sent replist)))
 (cond ((and (not (memq 'me sent))(not (memq 'i sent))
 	   (if (memq 'am sent)
 	       (setq sent (doctor-replace sent '((me . (i))))))
 	   (setq sent (doctor-fixup sent))
 	   (if (and (eq (car sent) 'do) (eq (cadr sent) 'not))
 	       (cond ((zerop (random 3))
-		      (doctor-type '(are you ($ afraidof) that \?)))
+		      (doctor-type '(are you (doc$ afraidof) that \?)))
 		     ((zerop (random 2))
 		      (doctor-type '(don\'t tell me what to do \. i am the
 					    psychiatrist here!))
 		      (doctor-rthing))
 		     (t
-		      (doctor-type '(($ whysay) that i shouldn\'t
+		      (doctor-type '((doc$ whysay) that i shouldn\'t
 				     (cddr sent)
 				     \?))))
 	     (doctor-go (doctor-wherego sent))))))))
 ;; Things done to process sentences once read.
 	     (cdr (or (assq x rlist)   ; either find a replacement
 		      (list x x)))))   ; or fake an identity mapping
 	  sent)))
 (defun doctor-wherego (sent)
-(cond ((null sent)($ whereoutp))
+(cond ((null sent)(doc$ whereoutp))
 	((null (doctor-meaning (car sent)))
 	 (doctor-wherego (cond ((zerop (random 2))
 				(reverse (cdr sent)))
 			       (t (cdr sent)))))
 	(t
 (defun doctor-go (destination)
 "Call a `doctor-*' function."
 (funcall (intern (concat "doctor-" (doctor-make-string destination)))))
 (defun doctor-desire1 ()
-(doctor-go ($ whereoutp)))
+(doctor-go (doc$ whereoutp)))
 (defun doctor-huh ()
-(cond ((< (length sent) 9) (doctor-type ($ huhlst)))
+(cond ((< (length sent) 9) (doctor-type (doc$ huhlst)))
-	(t (doctor-type ($ longhuhlst)))))
+	(t (doctor-type (doc$ longhuhlst)))))
-(defun doctor-rthing () (doctor-type ($ thlst)))
+(defun doctor-rthing () (doctor-type (doc$ thlst)))
 (defun doctor-remem () (cond ((null history)(doctor-huh))
-			     ((doctor-type ($ remlst)))))
+			     ((doctor-type (doc$ remlst)))))
 (defun doctor-howdy ()
 (cond ((not howdyflag)
-	 (doctor-type '(($ hello) what brings you to see me \?))
+	 (doctor-type '((doc$ hello) what brings you to see me \?))
 	 (setq howdyflag t))
 	(t
-	 (doctor-type '(($ ibelieve) we\'ve introduced ourselves already \.))
+	 (doctor-type '((doc$ ibelieve) we\'ve introduced ourselves already \.))
-	 (doctor-type '(($ please) ($ describe) ($ things) \.)))))
+	 (doctor-type '((doc$ please) (doc$ describe) (doc$ things) \.)))))
 (defun doctor-when ()
 (cond ((< (length (memq found sent)) 3)(doctor-short))
 	(t
 	 (setq sent (cdr (memq found sent)))
 	 (setq sent (doctor-fixup sent))
-	 (doctor-type '(($ whatwhen)(// sent) \?)))))
+	 (doctor-type '((doc$ whatwhen)(doc// sent) \?)))))
 (defun doctor-conj ()
 (cond ((< (length (memq found sent)) 4)(doctor-short))
 	(t
 	 (setq sent (cdr (memq found sent)))
 	 (setq sent (doctor-fixup sent))
 	 (cond ((eq (car sent) 'of)
-		(doctor-type '(are you ($ sure) that is the real reason \?))
+		(doctor-type '(are you (doc$ sure) that is the real reason \?))
 		(setq things (cons (cdr sent) things)))
 	       (t
 		(doctor-remember sent)
-		(doctor-type ($ beclst)))))))
+		(doctor-type (doc$ beclst)))))))
 (defun doctor-short ()
 (cond ((= (car repetitive-shortness) (1- lincount))
 	 (rplacd repetitive-shortness
 		 (1+ (cdr repetitive-shortness))))
 	(t
 	 (rplacd repetitive-shortness 1)))
 (rplaca repetitive-shortness lincount)
 (cond ((> (cdr repetitive-shortness) 6)
 	 (cond ((not **mad**)
-		(doctor-type '(($ areyou)
+		(doctor-type '((doc$ areyou)
 			       just trying to see what kind of things
 			       i have in my vocabulary \? please try to
 			       carry on a reasonable conversation!))
 		(setq **mad** t))
 	       (t
 		(doctor-type '(i give up \. you need a lesson in creative
 				 writing \.\.\.))
 		)))
 	(t
 	 (cond ((equal sent (doctor-assm '(yes)))
-		(doctor-type '(($ isee) ($ inter) ($ whysay) this is so \?)))
+		(doctor-type '((doc$ isee) (doc$ inter) (doc$ whysay) this is so \?)))
 	       ((equal sent (doctor-assm '(because)))
-		(doctor-type ($ shortbeclst)))
+		(doctor-type (doc$ shortbeclst)))
 	       ((equal sent (doctor-assm '(no)))
-		(doctor-type ($ neglst)))
+		(doctor-type (doc$ neglst)))
-	       (t (doctor-type ($ shortlst)))))))
+	       (t (doctor-type (doc$ shortlst)))))))
-(defun doctor-alcohol () (doctor-type ($ drnk)))
+(defun doctor-alcohol () (doctor-type (doc$ drnk)))
 (defun doctor-desire ()
 (let ((foo (memq found sent)))
 (cond ((< (length foo) 2)
 	   (doctor-go (doctor-build (doctor-meaning found) 1)))
 	  ((memq (cadr foo) '(a an))
 	   (rplacd foo (append '(to have) (cdr foo)))
 	   (doctor-svo sent found 1 nil)
 	   (doctor-remember (list subj 'would 'like obj))
-	   (doctor-type ($ whywant)))
+	   (doctor-type (doc$ whywant)))
 	  ((not (eq (cadr foo) 'to))
 	   (doctor-go (doctor-build (doctor-meaning found) 1)))
 	  (t
 	   (doctor-svo sent found 1 nil)
 	   (doctor-remember (list subj 'would 'like obj))
-	   (doctor-type ($ whywant))))))
+	   (doctor-type (doc$ whywant))))))
 (defun doctor-drug ()
-(doctor-type ($ drugs))
+(doctor-type (doc$ drugs))
 (doctor-remember (list 'you 'used found)))
 (defun doctor-toke ()
-(doctor-type ($ toklst)))
+(doctor-type (doc$ toklst)))
 (defun doctor-state ()
-(doctor-type ($ states))(doctor-remember (list 'you 'were found)))
+(doctor-type (doc$ states))(doctor-remember (list 'you 'were found)))
 (defun doctor-mood ()
-(doctor-type ($ moods))(doctor-remember (list 'you 'felt found)))
+(doctor-type (doc$ moods))(doctor-remember (list 'you 'felt found)))
 (defun doctor-fear ()
 (setq feared (doctor-setprep sent found))
-(doctor-type ($ fears))
+(doctor-type (doc$ fears))
 (doctor-remember (list 'you 'were 'afraid 'of feared)))
 (defun doctor-hate ()
 (doctor-svo sent found 1 t)
 (cond ((memq 'not sent) (doctor-forget) (doctor-huh))
 	((equal subj 'you)
-	 (doctor-type '(why do you (// verb)(// obj) \?)))
+	 (doctor-type '(why do you (doc// verb)(doc// obj) \?)))
-	(t (doctor-type '(($ whysay)(list subj verb obj))))))
+	(t (doctor-type '((doc$ whysay)(list subj verb obj))))))
 (defun doctor-symptoms ()
-(doctor-type '(($ maybe) you should consult a doctor of medicine\,
+(doctor-type '((doc$ maybe) you should consult a doctor of medicine\,
 		 i am a psychiatrist \.)))
 (defun doctor-hates ()
 (doctor-svo sent found 1 t)
 (doctor-hates1))
 (defun doctor-hates1 ()
-(doctor-type '(($ whysay)(list subj verb obj) \?)))
+(doctor-type '((doc$ whysay)(list subj verb obj) \?)))
 (defun doctor-loves ()
 (doctor-svo sent found 1 t)
 (doctor-qloves))
 (defun doctor-qloves ()
-(doctor-type '(($ bother)(list subj verb obj) \?)))
+(doctor-type '((doc$ bother)(list subj verb obj) \?)))
 (defun doctor-love ()
 (doctor-svo sent found 1 t)
 (cond ((memq 'not sent) (doctor-forget) (doctor-huh))
 	((memq 'to sent) (doctor-hates1))
 		(setq lover obj)
 		(cond ((equal lover '(this person you love))
 		       (setq lover '(your partner))
 		       (doctor-forget)
 		       (doctor-type '(with whom are you in love \?)))
-		      ((doctor-type '(($ please)
+		      ((doctor-type '((doc$ please)
-				      ($ describe)
+				      (doc$ describe)
-				      ($ relation)
+				      (doc$ relation)
-				      (// lover)
+				      (doc// lover)
 				      \.)))))
 	       ((equal subj 'i)
 		(doctor-txtype '(we were discussing you!)))
 	       (t (doctor-forget)
 		  (setq obj 'someone)
 		  (setq verb (doctor-build verb 's))
 		  (doctor-qloves))))))
 (defun doctor-mach ()
 (setq found (doctor-plural found))
-(doctor-type ($ machlst)))
+(doctor-type (doc$ machlst)))
 (defun doctor-sexnoun () (doctor-sexverb))
 (defun doctor-sexverb ()
 (if (or (memq 'me sent)(memq 'myself sent)(memq 'i sent))
 (doctor-foul)
-(doctor-type ($ sexlst))))
+(doctor-type (doc$ sexlst))))
 (defun doctor-death ()
-(cond (suicide-flag (doctor-type ($ deathlst)))
+(cond (suicide-flag (doctor-type (doc$ deathlst)))
 	((or (equal found 'suicide)
 (and (or (equal found 'kill)
 (equal found 'killing))
 (memq 'yourself sent)))
 	 (setq suicide-flag t)
 			   want to contact the Samaritans via
 			   E-mail: jo@samaritans.org or, at your option,
 			   anonymous E-mail: samaritans@anon.twwells.com\ \.
 or find a Befrienders crisis center at
 			   http://www.befrienders.org/\ \.
-			   ($ please) ($ continue) \.)))
+			   (doc$ please) (doc$ continue) \.)))
-	(t (doctor-type ($ deathlst)))))
+	(t (doctor-type (doc$ deathlst)))))
 (defun doctor-foul ()
-(doctor-type ($ foullst)))
+(doctor-type (doc$ foullst)))
 (defun doctor-family ()
 (doctor-possess sent found)
-(doctor-type ($ famlst)))
+(doctor-type (doc$ famlst)))
 ;; I did not add this -- rms.
 ;; But he might have removed it.  I put it back.  --roland
 (defun doctor-rms ()
-(cond (rms-flag (doctor-type ($ stallmanlst)))
+(cond (rms-flag (doctor-type (doc$ stallmanlst)))
 	(t (setq rms-flag t) (doctor-type '(do you know Stallman \?)))))
-(defun doctor-school nil (doctor-type ($ schoollst)))
+(defun doctor-school nil (doctor-type (doc$ schoollst)))
 (defun doctor-eliza ()
-(cond (eliza-flag (doctor-type ($ elizalst)))
+(cond (eliza-flag (doctor-type (doc$ elizalst)))
 	(t (setq eliza-flag t)
-	   (doctor-type '((// found) \? hah !
+	   (doctor-type '((doc// found) \? hah !
-			  ($ please) ($ continue) \.)))))
+			  (doc$ please) (doc$ continue) \.)))))
-(defun doctor-sports ()  (doctor-type ($ sportslst)))
+(defun doctor-sports ()  (doctor-type (doc$ sportslst)))
-(defun doctor-math () (doctor-type ($ mathlst)))
+(defun doctor-math () (doctor-type (doc$ mathlst)))
 (defun doctor-zippy ()
-(cond (zippy-flag (doctor-type ($ zippylst)))
+(cond (zippy-flag (doctor-type (doc$ zippylst)))
 	(t (setq zippy-flag t)
 	   (doctor-type '(yow! are we interactive yet \?)))))
-(defun doctor-chat () (doctor-type ($ chatlst)))
+(defun doctor-chat () (doctor-type (doc$ chatlst)))
 (provide 'doctor)
 ;;; doctor.el ends here

Mercurial > emacs

comparison lisp/play/doctor.el @ 47367:d8c0258cdf14