annotate lisp/play/doctor.el @ 79300:c6f95246238f

Johan Bockg? <bojohan at gnu.org> (x_draw_stretch_glyph_string): Don't set s->stippled_p here, since it has already been set by x_set_glyph_string_gc from x_draw_glyph_string. http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg01571.html
author Glenn Morris <rgm@gnu.org>
date Thu, 01 Nov 2007 03:45:16 +0000
parents 527f752989fc
children 54006a859bcc f55f9811f5d7
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
38412
253f761ad37b Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents: 32659
diff changeset
1 ;;; doctor.el --- psychological help for frustrated users
662
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 621
diff changeset
2
74509
f7702c5f335d Update copyright years.
Glenn Morris <rgm@gnu.org>
parents: 68346
diff changeset
3 ;; Copyright (C) 1985, 1987, 1994, 1996, 2000, 2001, 2002, 2003, 2004,
75347
e3694f1cb928 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 74509
diff changeset
4 ;; 2005, 2006, 2007 Free Software Foundation, Inc.
845
213978acbc1e entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 807
diff changeset
5
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
6 ;; Maintainer: FSF
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
7 ;; Keywords: games
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
8
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
78227
527f752989fc Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 76953
diff changeset
13 ;; the Free Software Foundation; either version 3, or (at your option)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 ;; any later version.
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19 ;; GNU General Public License for more details.
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13956
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64085
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63240
diff changeset
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63240
diff changeset
24 ;; Boston, MA 02110-1301, USA.
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25
2307
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 845
diff changeset
26 ;;; Commentary:
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 845
diff changeset
27
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 845
diff changeset
28 ;; The single entry point `doctor', simulates a Rogerian analyst using
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 845
diff changeset
29 ;; phrase-production techniques similar to the classic ELIZA demonstration
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 845
diff changeset
30 ;; of pseudo-AI.
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 845
diff changeset
31
18456
201152eafd1d Undo previous censorship changes.
Richard M. Stallman <rms@gnu.org>
parents: 18389
diff changeset
32 ;; This file was for a while censored by the Communications Decency Act.
14540
bcab69b22ec0 (doctor-mode): State that file has been censored.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
33 ;; Some of its features were removed. The law was promoted as a ban
bcab69b22ec0 (doctor-mode): State that file has been censored.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
34 ;; on pornography, but it bans far more than that. The doctor program
14542
73e281e7b1aa Fix comment typo.
Richard M. Stallman <rms@gnu.org>
parents: 14540
diff changeset
35 ;; did not contain pornography, but part of it was prohibited
14540
bcab69b22ec0 (doctor-mode): State that file has been censored.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
36 ;; nonetheless.
bcab69b22ec0 (doctor-mode): State that file has been censored.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
37
18456
201152eafd1d Undo previous censorship changes.
Richard M. Stallman <rms@gnu.org>
parents: 18389
diff changeset
38 ;; The Supreme Court overturned the Communications Decency Act, but
201152eafd1d Undo previous censorship changes.
Richard M. Stallman <rms@gnu.org>
parents: 18389
diff changeset
39 ;; Congress is sure to look for some other way to try to end free speech.
14540
bcab69b22ec0 (doctor-mode): State that file has been censored.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
40 ;; For information on US government censorship of the Internet, and
18456
201152eafd1d Undo previous censorship changes.
Richard M. Stallman <rms@gnu.org>
parents: 18389
diff changeset
41 ;; what you can do to protect freedom of the press, see the web
14540
bcab69b22ec0 (doctor-mode): State that file has been censored.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
42 ;; site http://www.vtw.org/
16854
b9074a68d6be Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 16007
diff changeset
43 ;; See also the file etc/CENSORSHIP in the Emacs distribution
b9074a68d6be Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 16007
diff changeset
44 ;; for a discussion of why and how this file was censored, and the
b9074a68d6be Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 16007
diff changeset
45 ;; political implications of the issue.
14540
bcab69b22ec0 (doctor-mode): State that file has been censored.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
46
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
47 ;;; Code:
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48
68248
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
49 (defvar **mad**) (defvar *debug*) (defvar *print-space*)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
50 (defvar *print-upcase*) (defvar abuselst) (defvar abusewords)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
51 (defvar account) (defvar afraidof) (defvar arerelated)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
52 (defvar areyou) (defvar bak) (defvar beclst)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
53 (defvar bother) (defvar bye) (defvar canyou)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
54 (defvar chatlst) (defvar continue) (defvar deathlst)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
55 (defvar describe) (defvar drnk) (defvar drugs)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
56 (defvar eliza-flag) (defvar elizalst) (defvar famlst)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
57 (defvar feared) (defvar fears) (defvar feelings-about)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
58 (defvar foullst) (defvar found) (defvar hello)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
59 (defvar history) (defvar howareyoulst) (defvar howdyflag)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
60 (defvar huhlst) (defvar ibelieve) (defvar improve)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
61 (defvar inter) (defvar isee) (defvar isrelated)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
62 (defvar lincount) (defvar longhuhlst) (defvar lover)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
63 (defvar machlst) (defvar mathlst) (defvar maybe)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
64 (defvar moods) (defvar neglst) (defvar obj)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
65 (defvar object) (defvar owner) (defvar please)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
66 (defvar problems) (defvar qlist) (defvar random-adjective)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
67 (defvar relation) (defvar remlst) (defvar repetitive-shortness)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
68 (defvar replist) (defvar rms-flag) (defvar schoollst)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
69 (defvar sent) (defvar sexlst) (defvar shortbeclst)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
70 (defvar shortlst) (defvar something) (defvar sportslst)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
71 (defvar stallmanlst) (defvar states) (defvar subj)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
72 (defvar suicide-flag) (defvar sure) (defvar things)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
73 (defvar thlst) (defvar toklst) (defvar typos)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
74 (defvar verb) (defvar want) (defvar whatwhen)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
75 (defvar whereoutp) (defvar whysay) (defvar whywant)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
76 (defvar zippy-flag) (defvar zippylst)
64715
46d503c20412 (doctor-type-symbol): "?\ " -> "?\s".
Juanma Barranquero <lekktu@gmail.com>
parents: 64701
diff changeset
77
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
78 (defun doc// (x) x)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
79
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
80 (defmacro doc$ (what)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
81 "quoted arg form of doctor-$"
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
82 (list 'doctor-$ (list 'quote what)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
83
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
84 (defun doctor-$ (what)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
85 "Return the car of a list, rotating the list each time"
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
86 (let* ((vv (symbol-value what))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
87 (first (car vv))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
88 (ww (append (cdr vv) (list first))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
89 (set what ww)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
90 first))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
91
68346
79697c70111b (doctor-mode-map): Rename from `doc-mode-map'.
Juri Linkov <juri@jurta.org>
parents: 68248
diff changeset
92 (defvar doctor-mode-map
68248
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
93 (let ((map (make-sparse-keymap)))
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
94 (define-key map "\n" 'doctor-read-print)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
95 (define-key map "\r" 'doctor-ret-or-read)
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
96 map))
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
97
63240
c1ed13b98cf0 (doctor-mode-map): Remove defvar.
Lute Kamstra <lute@gnu.org>
parents: 62249
diff changeset
98 (define-derived-mode doctor-mode text-mode "Doctor"
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
99 "Major mode for running the Doctor (Eliza) program.
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
100 Like Text mode with Auto Fill mode
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
101 except that RET when point is after a newline, or LFD at any time,
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
102 reads the sentence before point, and prints the Doctor's answer."
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
103 (make-doctor-variables)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
104 (turn-on-auto-fill)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
105 (doctor-type '(i am the psychotherapist \.
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
106 (doc$ please) (doc$ describe) your (doc$ problems) \.
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
107 each time you are finished talking, type \R\E\T twice \.))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
108 (insert "\n"))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
109
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
110 (defun make-doctor-variables ()
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
111 (make-local-variable 'typos)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
112 (setq typos
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
113 (mapcar (function (lambda (x)
47322
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
114 (put (car x) 'doctor-correction (cadr x))
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
115 (put (cadr x) 'doctor-expansion (car (cddr x)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
116 (car x)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
117 '((theyll they\'ll (they will))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
118 (theyre they\'re (they are))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
119 (hes he\'s (he is))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
120 (he7s he\'s (he is))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
121 (im i\'m (you are))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
122 (i7m i\'m (you are))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
123 (isa is\ a (is a))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
124 (thier their (their))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
125 (dont don\'t (do not))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
126 (don7t don\'t (do not))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
127 (you7re you\'re (i am))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
128 (you7ve you\'ve (i have))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
129 (you7ll you\'ll (i will)))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
130 (make-local-variable 'found)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
131 (setq found nil)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
132 (make-local-variable 'owner)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
133 (setq owner nil)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
134 (make-local-variable 'history)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
135 (setq history nil)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
136 (make-local-variable '*debug*)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
137 (setq *debug* nil)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
138 (make-local-variable 'inter)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
139 (setq inter
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
140 '((well\,)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
141 (hmmm \.\.\.\ so\,)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
142 (so)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
143 (\.\.\.and)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
144 (then)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
145 (make-local-variable 'continue)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
146 (setq continue
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
147 '((continue)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
148 (proceed)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
149 (go on)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
150 (keep going) ))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
151 (make-local-variable 'relation)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
152 (setq relation
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
153 '((your relationship with)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
154 (something you remember about)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
155 (your feelings toward)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
156 (some experiences you have had with)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
157 (how you feel about)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
158 (make-local-variable 'fears)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
159 (setq fears '( ((doc$ whysay) you are (doc$ afraidof) (doc// feared) \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
160 (you seem terrified by (doc// feared) \.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
161 (when did you first feel (doc$ afraidof) (doc// feared) \?) ))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
162 (make-local-variable 'sure)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
163 (setq sure '((sure)(positive)(certain)(absolutely sure)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
164 (make-local-variable 'afraidof)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
165 (setq afraidof '( (afraid of) (frightened by) (scared of) ))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
166 (make-local-variable 'areyou)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
167 (setq areyou '( (are you)(have you been)(have you been) ))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
168 (make-local-variable 'isrelated)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
169 (setq isrelated '( (has something to do with)(is related to)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
170 (could be the reason for) (is caused by)(is because of)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
171 (make-local-variable 'arerelated)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
172 (setq arerelated '((have something to do with)(are related to)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
173 (could have caused)(could be the reason for) (are caused by)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
174 (are because of)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
175 (make-local-variable 'moods)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
176 (setq moods '( ((doc$ areyou)(doc// found) often \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
177 (what causes you to be (doc// found) \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
178 ((doc$ whysay) you are (doc// found) \?) ))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
179 (make-local-variable 'maybe)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
180 (setq maybe
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
181 '((maybe)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
182 (perhaps)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
183 (possibly)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
184 (make-local-variable 'whatwhen)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
185 (setq whatwhen
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
186 '((what happened when)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
187 (what would happen if)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
188 (make-local-variable 'hello)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
189 (setq hello
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
190 '((how do you do \?) (hello \.) (howdy!) (hello \.) (hi \.) (hi there \.)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
191 (make-local-variable 'drnk)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
192 (setq drnk
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
193 '((do you drink a lot of (doc// found) \?)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
194 (do you get drunk often \?)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47588
diff changeset
195 ((doc$ describe) your drinking habits \.) ))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
196 (make-local-variable 'drugs)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
197 (setq drugs '( (do you use (doc// found) often \?)((doc$ areyou)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
198 addicted to (doc// found) \?)(do you realize that drugs can
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
199 be very harmful \?)((doc$ maybe) you should try to quit using (doc// found)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
200 \.)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
201 (make-local-variable 'whywant)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
202 (setq whywant '( ((doc$ whysay) (doc// subj) might (doc$ want) (doc// obj) \?)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
203 (how does it feel to want \?)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
204 (why should (doc// subj) get (doc// obj) \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
205 (when did (doc// subj) first (doc$ want) (doc// obj) \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
206 ((doc$ areyou) obsessed with (doc// obj) \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
207 (why should i give (doc// obj) to (doc// subj) \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
208 (have you ever gotten (doc// obj) \?) ))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
209 (make-local-variable 'canyou)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
210 (setq canyou '((of course i can \.)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
211 (why should i \?)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
212 (what makes you think i would even want to \?)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
213 (i am the doctor\, i can do anything i damn please \.)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
214 (not really\, it\'s not up to me \.)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
215 (depends\, how important is it \?)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
216 (i could\, but i don\'t think it would be a wise thing to do \.)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
217 (can you \?)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
218 (maybe i can\, maybe i can\'t \.\.\.)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
219 (i don\'t think i should do that \.)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
220 (make-local-variable 'want)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
221 (setq want '( (want) (desire) (wish) (want) (hope) ))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
222 (make-local-variable 'shortlst)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
223 (setq shortlst
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
224 '((can you elaborate on that \?)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
225 ((doc$ please) continue \.)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
226 (go on\, don\'t be afraid \.)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
227 (i need a little more detail please \.)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
228 (you\'re being a bit brief\, (doc$ please) go into detail \.)
40218
31cee69dfd2c (make-doctor-variables): Remove a '($ please)'.
Gerd Moellmann <gerd@gnu.org>
parents: 38412
diff changeset
229 (can you be more explicit \?)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
230 (and \?)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
231 ((doc$ please) go into more detail \?)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
232 (you aren\'t being very talkative today\!)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
233 (is that all there is to it \?)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
234 (why must you respond so briefly \?)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
235
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
236 (make-local-variable 'famlst)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
237 (setq famlst
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
238 '((tell me (doc$ something) about (doc// owner) family \.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
239 (you seem to dwell on (doc// owner) family \.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
240 ((doc$ areyou) hung up on (doc// owner) family \?)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
241 (make-local-variable 'huhlst)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
242 (setq huhlst
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
243 '(((doc$ whysay)(doc// sent) \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
244 (is it because of (doc$ things) that you say (doc// sent) \?) ))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
245 (make-local-variable 'longhuhlst)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
246 (setq longhuhlst
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
247 '(((doc$ whysay) that \?)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
248 (i don\'t understand \.)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
249 ((doc$ thlst))
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
250 ((doc$ areyou) (doc$ afraidof) that \?)))
5282
1d3c5ef6e8a1 (make-doctor-variables): Fix some local var names.
Richard M. Stallman <rms@gnu.org>
parents: 4249
diff changeset
251 (make-local-variable 'feelings-about)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
252 (setq feelings-about
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
253 '((feelings about)
13956
71284f0d43ac (make-doctor-variables, doctor-othermodifierp,
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
254 (apprehensions toward)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
255 (thoughts on)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
256 (emotions toward)))
5282
1d3c5ef6e8a1 (make-doctor-variables): Fix some local var names.
Richard M. Stallman <rms@gnu.org>
parents: 4249
diff changeset
257 (make-local-variable 'random-adjective)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
258 (setq random-adjective
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
259 '((vivid)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
260 (emotionally stimulating)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
261 (exciting)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
262 (boring)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
263 (interesting)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
264 (recent)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
265 (random) ;How can we omit this?
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
266 (unusual)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
267 (shocking)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
268 (embarrassing)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
269 (make-local-variable 'whysay)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
270 (setq whysay
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
271 '((why do you say)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
272 (what makes you believe)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
273 (are you sure that)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
274 (do you really think)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
275 (what makes you think) ))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
276 (make-local-variable 'isee)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
277 (setq isee
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
278 '((i see \.\.\.)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
279 (yes\,)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
280 (i understand \.)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
281 (oh \.) ))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
282 (make-local-variable 'please)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47588
diff changeset
283 (setq please
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
284 '((please\,)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
285 (i would appreciate it if you would)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
286 (perhaps you could)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
287 (please\,)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
288 (would you please)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
289 (why don\'t you)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
290 (could you)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
291 (make-local-variable 'bye)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
292 (setq bye
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
293 '((my secretary will send you a bill \.)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
294 (bye bye \.)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
295 (see ya \.)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
296 (ok\, talk to you some other time \.)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
297 (talk to you later \.)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
298 (ok\, have fun \.)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
299 (ciao \.)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
300 (make-local-variable 'something)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
301 (setq something
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
302 '((something)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
303 (more)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
304 (how you feel)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
305 (make-local-variable 'things)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47588
diff changeset
306 (setq things
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
307 '(;(your interests in computers) ;; let's make this less computer oriented
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
308 ;(the machines you use)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
309 (your plans)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
310 ;(your use of computers)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
311 (your life)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
312 ;(other machines you use)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
313 (the people you hang around with)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
314 ;(computers you like)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
315 (problems at school)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
316 (any hobbies you have)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
317 ;(other computers you use)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
318 (your sex life)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
319 (hangups you have)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
320 (your inhibitions)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
321 (some problems in your childhood)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
322 ;(knowledge of computers)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
323 (some problems at home)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
324 (make-local-variable 'describe)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
325 (setq describe
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
326 '((describe)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
327 (tell me about)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
328 (talk about)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
329 (discuss)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
330 (tell me more about)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
331 (elaborate on)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
332 (make-local-variable 'ibelieve)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47588
diff changeset
333 (setq ibelieve
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
334 '((i believe) (i think) (i have a feeling) (it seems to me that)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
335 (it looks like)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
336 (make-local-variable 'problems)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
337 (setq problems '( (problems)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
338 (inhibitions)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
339 (hangups)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
340 (difficulties)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
341 (anxieties)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
342 (frustrations) ))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
343 (make-local-variable 'bother)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
344 (setq bother
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
345 '((does it bother you that)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
346 (are you annoyed that)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
347 (did you ever regret)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
348 (are you sorry)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
349 (are you satisfied with the fact that)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
350 (make-local-variable 'machlst)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47588
diff changeset
351 (setq machlst
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
352 '((you have your mind on (doc// found) \, it seems \.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
353 (you think too much about (doc// found) \.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
354 (you should try taking your mind off of (doc// found)\.)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
355 (are you a computer hacker \?)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
356 (make-local-variable 'qlist)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
357 (setq qlist
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
358 '((what do you think \?)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
359 (i\'ll ask the questions\, if you don\'t mind!)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
360 (i could ask the same thing myself \.)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
361 ((doc$ please) allow me to do the questioning \.)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
362 (i have asked myself that question many times \.)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
363 ((doc$ please) try to answer that question yourself \.)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
364 (make-local-variable 'foullst)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
365 (setq foullst
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
366 '(((doc$ please) watch your tongue!)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
367 ((doc$ please) avoid such unwholesome thoughts \.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
368 ((doc$ please) get your mind out of the gutter \.)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
369 (such lewdness is not appreciated \.)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
370 (make-local-variable 'deathlst)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
371 (setq deathlst
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
372 '((this is not a healthy way of thinking \.)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
373 ((doc$ bother) you\, too\, may die someday \?)
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 2307
diff changeset
374 (i am worried by your obsession with this topic!)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
375 (did you watch a lot of crime and violence on television as a child \?))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
376 )
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
377 (make-local-variable 'sexlst)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47588
diff changeset
378 (setq sexlst
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
379 '(((doc$ areyou) (doc$ afraidof) sex \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
380 ((doc$ describe)(doc$ something) about your sexual history \.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
381 ((doc$ please)(doc$ describe) your sex life \.\.\.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
382 ((doc$ describe) your (doc$ feelings-about) your sexual partner \.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
383 ((doc$ describe) your most (doc$ random-adjective) sexual experience \.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
384 ((doc$ areyou) satisfied with (doc// lover) \.\.\. \?)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
385 (make-local-variable 'neglst)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
386 (setq neglst
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
387 '((why not \?)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
388 ((doc$ bother) i ask that \?)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
389 (why not \?)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
390 (why not \?)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
391 (how come \?)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
392 ((doc$ bother) i ask that \?)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
393 (make-local-variable 'beclst)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
394 (setq beclst '(
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
395 (is it because (doc// sent) that you came to me \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
396 ((doc$ bother)(doc// sent) \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
397 (when did you first know that (doc// sent) \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
398 (is the fact that (doc// sent) the real reason \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
399 (does the fact that (doc// sent) explain anything else \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
400 ((doc$ areyou)(doc$ sure)(doc// sent) \? ) ))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
401 (make-local-variable 'shortbeclst)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
402 (setq shortbeclst '(
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
403 ((doc$ bother) i ask you that \?)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
404 (that\'s not much of an answer!)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
405 ((doc$ inter) why won\'t you talk about it \?)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
406 (speak up!)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
407 ((doc$ areyou) (doc$ afraidof) talking about it \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
408 (don\'t be (doc$ afraidof) elaborating \.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
409 ((doc$ please) go into more detail \.)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
410 (make-local-variable 'thlst)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
411 (setq thlst '(
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
412 ((doc$ maybe)(doc$ things)(doc$ arerelated) this \.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
413 (is it because of (doc$ things) that you are going through all this \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
414 (how do you reconcile (doc$ things) \? )
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
415 ((doc$ maybe) this (doc$ isrelated)(doc$ things) \?) ))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
416 (make-local-variable 'remlst)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
417 (setq remlst '( (earlier you said (doc$ history) \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
418 (you mentioned that (doc$ history) \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
419 ((doc$ whysay)(doc$ history) \? ) ))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
420 (make-local-variable 'toklst)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
421 (setq toklst
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
422 '((is this how you relax \?)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
423 (how long have you been smoking grass \?)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
424 ((doc$ areyou) (doc$ afraidof) of being drawn to using harder stuff \?)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
425 (make-local-variable 'states)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
426 (setq states
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
427 '((do you get (doc// found) often \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
428 (do you enjoy being (doc// found) \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
429 (what makes you (doc// found) \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
430 (how often (doc$ areyou)(doc// found) \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
431 (when were you last (doc// found) \?)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
432 (make-local-variable 'replist)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47588
diff changeset
433 (setq replist
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
434 '((i . (you))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
435 (my . (your))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
436 (me . (you))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
437 (you . (me))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
438 (your . (my))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
439 (mine . (yours))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
440 (yours . (mine))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
441 (our . (your))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
442 (ours . (yours))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
443 (we . (you))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
444 (dunno . (do not know))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
445 ;; (yes . ())
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
446 (no\, . ())
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
447 (yes\, . ())
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
448 (ya . (i))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
449 (aint . (am not))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
450 (wanna . (want to))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
451 (gimme . (give me))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
452 (gotta . (have to))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
453 (gonna . (going to))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
454 (never . (not ever))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
455 (doesn\'t . (does not))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
456 (don\'t . (do not))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
457 (aren\'t . (are not))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
458 (isn\'t . (is not))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
459 (won\'t . (will not))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
460 (can\'t . (cannot))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
461 (haven\'t . (have not))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
462 (i\'m . (you are))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
463 (ourselves . (yourselves))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
464 (myself . (yourself))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
465 (yourself . (myself))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
466 (you\'re . (i am))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
467 (you\'ve . (i have))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
468 (i\'ve . (you have))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
469 (i\'ll . (you will))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
470 (you\'ll . (i shall))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
471 (i\'d . (you would))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
472 (you\'d . (i would))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
473 (here . (there))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
474 (please . ())
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
475 (eh\, . ())
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
476 (eh . ())
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
477 (oh\, . ())
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
478 (oh . ())
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
479 (shouldn\'t . (should not))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
480 (wouldn\'t . (would not))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
481 (won\'t . (will not))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
482 (hasn\'t . (has not))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
483 (make-local-variable 'stallmanlst)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
484 (setq stallmanlst '(
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
485 ((doc$ describe) your (doc$ feelings-about) him \.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
486 ((doc$ areyou) a friend of Stallman \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
487 ((doc$ bother) Stallman is (doc$ random-adjective) \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
488 ((doc$ ibelieve) you are (doc$ afraidof) him \.)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
489 (make-local-variable 'schoollst)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
490 (setq schoollst '(
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
491 ((doc$ describe) your (doc// found) \.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
492 ((doc$ bother) your grades could (doc$ improve) \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
493 ((doc$ areyou) (doc$ afraidof) (doc// found) \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
494 ((doc$ maybe) this (doc$ isrelated) to your attitude \.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
495 ((doc$ areyou) absent often \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
496 ((doc$ maybe) you should study (doc$ something) \.)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
497 (make-local-variable 'improve)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
498 (setq improve '((improve) (be better) (be improved) (be higher)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
499 (make-local-variable 'elizalst)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
500 (setq elizalst '(
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
501 ((doc$ areyou) (doc$ sure) \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
502 ((doc$ ibelieve) you have (doc$ problems) with (doc// found) \.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
503 ((doc$ whysay) (doc// sent) \?)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
504 (make-local-variable 'sportslst)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
505 (setq sportslst '(
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
506 (tell me (doc$ something) about (doc// found) \.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
507 ((doc$ describe) (doc$ relation) (doc// found) \.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
508 (do you find (doc// found) (doc$ random-adjective) \?)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
509 (make-local-variable 'mathlst)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
510 (setq mathlst '(
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
511 ((doc$ describe) (doc$ something) about math \.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
512 ((doc$ maybe) your (doc$ problems) (doc$ arerelated) (doc// found) \.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
513 (i don\'t know much (doc// found) \, but (doc$ continue)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
514 anyway \.)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
515 (make-local-variable 'zippylst)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
516 (setq zippylst '(
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
517 ((doc$ areyou) Zippy \?)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
518 ((doc$ ibelieve) you have some serious (doc$ problems) \.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
519 ((doc$ bother) you are a pinhead \?)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
520 (make-local-variable 'chatlst)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
521 (setq chatlst '(
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
522 ((doc$ maybe) we could chat \.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
523 ((doc$ please) (doc$ describe) (doc$ something) about chat mode \.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
524 ((doc$ bother) our discussion is so (doc$ random-adjective) \?)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
525 (make-local-variable 'abuselst)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
526 (setq abuselst '(
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
527 ((doc$ please) try to be less abusive \.)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
528 ((doc$ describe) why you call me (doc// found) \.)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
529 (i\'ve had enough of you!)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
530 (make-local-variable 'abusewords)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
531 (setq abusewords '(boring bozo clown clumsy cretin dumb dummy
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
532 fool foolish gnerd gnurd idiot jerk
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
533 lose loser louse lousy luse luser
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
534 moron nerd nurd oaf oafish reek
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
535 stink stupid tool toolish twit))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
536 (make-local-variable 'howareyoulst)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
537 (setq howareyoulst '((how are you) (hows it going) (hows it going eh)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
538 (how\'s it going) (how\'s it going eh) (how goes it)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
539 (whats up) (whats new) (what\'s up) (what\'s new)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
540 (howre you) (how\'re you) (how\'s everything)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
541 (how is everything) (how do you do)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
542 (how\'s it hanging) (que pasa)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
543 (how are you doing) (what do you say)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
544 (make-local-variable 'whereoutp)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
545 (setq whereoutp '( huh remem rthing ) )
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
546 (make-local-variable 'subj)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
547 (setq subj nil)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
548 (make-local-variable 'verb)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
549 (setq verb nil)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
550 (make-local-variable 'obj)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
551 (setq obj nil)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
552 (make-local-variable 'feared)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
553 (setq feared nil)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
554 (make-local-variable 'repetitive-shortness)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
555 (setq repetitive-shortness '(0 . 0))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
556 (make-local-variable '**mad**)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
557 (setq **mad** nil)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
558 (make-local-variable 'rms-flag)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
559 (setq rms-flag nil)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
560 (make-local-variable 'eliza-flag)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
561 (setq eliza-flag nil)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
562 (make-local-variable 'zippy-flag)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
563 (setq zippy-flag nil)
18389
f5f7ca6c4a96 (doctor-death): Give real advice to truly suicidal.
Richard M. Stallman <rms@gnu.org>
parents: 18383
diff changeset
564 (make-local-variable 'suicide-flag)
f5f7ca6c4a96 (doctor-death): Give real advice to truly suicidal.
Richard M. Stallman <rms@gnu.org>
parents: 18383
diff changeset
565 (setq suicide-flag nil)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
566 (make-local-variable 'lover)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
567 (setq lover '(your partner))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
568 (make-local-variable 'bak)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
569 (setq bak nil)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
570 (make-local-variable 'lincount)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
571 (setq lincount 0)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
572 (make-local-variable '*print-upcase*)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
573 (setq *print-upcase* nil)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
574 (make-local-variable '*print-space*)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
575 (setq *print-space* nil)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
576 (make-local-variable 'howdyflag)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
577 (setq howdyflag nil)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
578 (make-local-variable 'object)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
579 (setq object nil))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
580
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
581 ;; Define equivalence classes of words that get treated alike.
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
582
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
583 (defun doctor-meaning (x) (get x 'doctor-meaning))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
584
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
585 (defmacro doctor-put-meaning (symb val)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
586 "Store the base meaning of a word on the property list."
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
587 (list 'put (list 'quote symb) ''doctor-meaning val))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
588
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
589 (doctor-put-meaning howdy 'howdy)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
590 (doctor-put-meaning hi 'howdy)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
591 (doctor-put-meaning greetings 'howdy)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
592 (doctor-put-meaning hello 'howdy)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
593 (doctor-put-meaning tops20 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
594 (doctor-put-meaning tops-20 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
595 (doctor-put-meaning tops 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
596 (doctor-put-meaning pdp11 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
597 (doctor-put-meaning computer 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
598 (doctor-put-meaning unix 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
599 (doctor-put-meaning machine 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
600 (doctor-put-meaning computers 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
601 (doctor-put-meaning machines 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
602 (doctor-put-meaning pdp11s 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
603 (doctor-put-meaning foo 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
604 (doctor-put-meaning foobar 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
605 (doctor-put-meaning multics 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
606 (doctor-put-meaning macsyma 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
607 (doctor-put-meaning teletype 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
608 (doctor-put-meaning la36 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
609 (doctor-put-meaning vt52 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
610 (doctor-put-meaning zork 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
611 (doctor-put-meaning trek 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
612 (doctor-put-meaning startrek 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
613 (doctor-put-meaning advent 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
614 (doctor-put-meaning pdp 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
615 (doctor-put-meaning dec 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
616 (doctor-put-meaning commodore 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
617 (doctor-put-meaning vic 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
618 (doctor-put-meaning bbs 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
619 (doctor-put-meaning modem 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
620 (doctor-put-meaning baud 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
621 (doctor-put-meaning macintosh 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
622 (doctor-put-meaning vax 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
623 (doctor-put-meaning vms 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
624 (doctor-put-meaning ibm 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
625 (doctor-put-meaning pc 'mach)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
626 (doctor-put-meaning bitching 'foul)
18456
201152eafd1d Undo previous censorship changes.
Richard M. Stallman <rms@gnu.org>
parents: 18389
diff changeset
627 (doctor-put-meaning shit 'foul)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
628 (doctor-put-meaning bastard 'foul)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
629 (doctor-put-meaning damn 'foul)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
630 (doctor-put-meaning damned 'foul)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
631 (doctor-put-meaning hell 'foul)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
632 (doctor-put-meaning suck 'foul)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
633 (doctor-put-meaning sucking 'foul)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
634 (doctor-put-meaning sux 'foul)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
635 (doctor-put-meaning ass 'foul)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
636 (doctor-put-meaning whore 'foul)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
637 (doctor-put-meaning bitch 'foul)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
638 (doctor-put-meaning asshole 'foul)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
639 (doctor-put-meaning shrink 'foul)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
640 (doctor-put-meaning pot 'toke)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
641 (doctor-put-meaning grass 'toke)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
642 (doctor-put-meaning weed 'toke)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
643 (doctor-put-meaning marijuana 'toke)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
644 (doctor-put-meaning acapulco 'toke)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
645 (doctor-put-meaning columbian 'toke)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
646 (doctor-put-meaning tokin 'toke)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
647 (doctor-put-meaning joint 'toke)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
648 (doctor-put-meaning toke 'toke)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
649 (doctor-put-meaning toking 'toke)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
650 (doctor-put-meaning tokin\' 'toke)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
651 (doctor-put-meaning toked 'toke)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
652 (doctor-put-meaning roach 'toke)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
653 (doctor-put-meaning pills 'drug)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
654 (doctor-put-meaning dope 'drug)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
655 (doctor-put-meaning acid 'drug)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
656 (doctor-put-meaning lsd 'drug)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
657 (doctor-put-meaning speed 'drug)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
658 (doctor-put-meaning heroin 'drug)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
659 (doctor-put-meaning hash 'drug)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
660 (doctor-put-meaning cocaine 'drug)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
661 (doctor-put-meaning uppers 'drug)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
662 (doctor-put-meaning downers 'drug)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
663 (doctor-put-meaning loves 'loves)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
664 (doctor-put-meaning love 'love)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
665 (doctor-put-meaning loved 'love)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
666 (doctor-put-meaning hates 'hates)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
667 (doctor-put-meaning dislikes 'hates)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
668 (doctor-put-meaning hate 'hate)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
669 (doctor-put-meaning hated 'hate)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
670 (doctor-put-meaning dislike 'hate)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
671 (doctor-put-meaning stoned 'state)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
672 (doctor-put-meaning drunk 'state)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
673 (doctor-put-meaning drunken 'state)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
674 (doctor-put-meaning high 'state)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
675 (doctor-put-meaning horny 'state)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
676 (doctor-put-meaning blasted 'state)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
677 (doctor-put-meaning happy 'state)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
678 (doctor-put-meaning paranoid 'state)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
679 (doctor-put-meaning wish 'desire)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
680 (doctor-put-meaning wishes 'desire)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
681 (doctor-put-meaning want 'desire)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
682 (doctor-put-meaning desire 'desire)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
683 (doctor-put-meaning like 'desire)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
684 (doctor-put-meaning hope 'desire)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
685 (doctor-put-meaning hopes 'desire)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
686 (doctor-put-meaning desires 'desire)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
687 (doctor-put-meaning wants 'desire)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
688 (doctor-put-meaning desires 'desire)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
689 (doctor-put-meaning likes 'desire)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
690 (doctor-put-meaning needs 'desire)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
691 (doctor-put-meaning need 'desire)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
692 (doctor-put-meaning frustrated 'mood)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
693 (doctor-put-meaning depressed 'mood)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
694 (doctor-put-meaning annoyed 'mood)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
695 (doctor-put-meaning upset 'mood)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
696 (doctor-put-meaning unhappy 'mood)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
697 (doctor-put-meaning excited 'mood)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
698 (doctor-put-meaning worried 'mood)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
699 (doctor-put-meaning lonely 'mood)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
700 (doctor-put-meaning angry 'mood)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
701 (doctor-put-meaning mad 'mood)
18456
201152eafd1d Undo previous censorship changes.
Richard M. Stallman <rms@gnu.org>
parents: 18389
diff changeset
702 (doctor-put-meaning pissed 'mood)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
703 (doctor-put-meaning jealous 'mood)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
704 (doctor-put-meaning afraid 'fear)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
705 (doctor-put-meaning terrified 'fear)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
706 (doctor-put-meaning fear 'fear)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
707 (doctor-put-meaning scared 'fear)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
708 (doctor-put-meaning frightened 'fear)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
709 (doctor-put-meaning virginity 'sexnoun)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
710 (doctor-put-meaning virgins 'sexnoun)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
711 (doctor-put-meaning virgin 'sexnoun)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
712 (doctor-put-meaning cock 'sexnoun)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
713 (doctor-put-meaning cocks 'sexnoun)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
714 (doctor-put-meaning dick 'sexnoun)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
715 (doctor-put-meaning dicks 'sexnoun)
18456
201152eafd1d Undo previous censorship changes.
Richard M. Stallman <rms@gnu.org>
parents: 18389
diff changeset
716 (doctor-put-meaning cunt 'sexnoun)
201152eafd1d Undo previous censorship changes.
Richard M. Stallman <rms@gnu.org>
parents: 18389
diff changeset
717 (doctor-put-meaning cunts 'sexnoun)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
718 (doctor-put-meaning prostitute 'sexnoun)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
719 (doctor-put-meaning condom 'sexnoun)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
720 (doctor-put-meaning sex 'sexnoun)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
721 (doctor-put-meaning rapes 'sexnoun)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
722 (doctor-put-meaning wife 'family)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
723 (doctor-put-meaning family 'family)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
724 (doctor-put-meaning brothers 'family)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
725 (doctor-put-meaning sisters 'family)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
726 (doctor-put-meaning parent 'family)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
727 (doctor-put-meaning parents 'family)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
728 (doctor-put-meaning brother 'family)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
729 (doctor-put-meaning sister 'family)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
730 (doctor-put-meaning father 'family)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
731 (doctor-put-meaning mother 'family)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
732 (doctor-put-meaning husband 'family)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
733 (doctor-put-meaning siblings 'family)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
734 (doctor-put-meaning grandmother 'family)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
735 (doctor-put-meaning grandfather 'family)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
736 (doctor-put-meaning maternal 'family)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
737 (doctor-put-meaning paternal 'family)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
738 (doctor-put-meaning stab 'death)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
739 (doctor-put-meaning murder 'death)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
740 (doctor-put-meaning murders 'death)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
741 (doctor-put-meaning suicide 'death)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
742 (doctor-put-meaning suicides 'death)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
743 (doctor-put-meaning kill 'death)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
744 (doctor-put-meaning kills 'death)
18389
f5f7ca6c4a96 (doctor-death): Give real advice to truly suicidal.
Richard M. Stallman <rms@gnu.org>
parents: 18383
diff changeset
745 (doctor-put-meaning killing 'death)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
746 (doctor-put-meaning die 'death)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
747 (doctor-put-meaning dies 'death)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
748 (doctor-put-meaning died 'death)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
749 (doctor-put-meaning dead 'death)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
750 (doctor-put-meaning death 'death)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
751 (doctor-put-meaning deaths 'death)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
752 (doctor-put-meaning pain 'symptoms)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
753 (doctor-put-meaning ache 'symptoms)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
754 (doctor-put-meaning fever 'symptoms)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
755 (doctor-put-meaning sore 'symptoms)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
756 (doctor-put-meaning aching 'symptoms)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
757 (doctor-put-meaning stomachache 'symptoms)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
758 (doctor-put-meaning headache 'symptoms)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
759 (doctor-put-meaning hurts 'symptoms)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
760 (doctor-put-meaning disease 'symptoms)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
761 (doctor-put-meaning virus 'symptoms)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
762 (doctor-put-meaning vomit 'symptoms)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
763 (doctor-put-meaning vomiting 'symptoms)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
764 (doctor-put-meaning barf 'symptoms)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
765 (doctor-put-meaning toothache 'symptoms)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
766 (doctor-put-meaning hurt 'symptoms)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
767 (doctor-put-meaning rum 'alcohol)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
768 (doctor-put-meaning gin 'alcohol)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
769 (doctor-put-meaning vodka 'alcohol)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
770 (doctor-put-meaning alcohol 'alcohol)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
771 (doctor-put-meaning bourbon 'alcohol)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
772 (doctor-put-meaning beer 'alcohol)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
773 (doctor-put-meaning wine 'alcohol)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
774 (doctor-put-meaning whiskey 'alcohol)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
775 (doctor-put-meaning scotch 'alcohol)
18456
201152eafd1d Undo previous censorship changes.
Richard M. Stallman <rms@gnu.org>
parents: 18389
diff changeset
776 (doctor-put-meaning fuck 'sexverb)
201152eafd1d Undo previous censorship changes.
Richard M. Stallman <rms@gnu.org>
parents: 18389
diff changeset
777 (doctor-put-meaning fucked 'sexverb)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
778 (doctor-put-meaning screw 'sexverb)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
779 (doctor-put-meaning screwing 'sexverb)
18456
201152eafd1d Undo previous censorship changes.
Richard M. Stallman <rms@gnu.org>
parents: 18389
diff changeset
780 (doctor-put-meaning fucking 'sexverb)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
781 (doctor-put-meaning rape 'sexverb)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
782 (doctor-put-meaning raped 'sexverb)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
783 (doctor-put-meaning kiss 'sexverb)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
784 (doctor-put-meaning kissing 'sexverb)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
785 (doctor-put-meaning kisses 'sexverb)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
786 (doctor-put-meaning screws 'sexverb)
18456
201152eafd1d Undo previous censorship changes.
Richard M. Stallman <rms@gnu.org>
parents: 18389
diff changeset
787 (doctor-put-meaning fucks 'sexverb)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
788 (doctor-put-meaning because 'conj)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
789 (doctor-put-meaning but 'conj)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
790 (doctor-put-meaning however 'conj)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
791 (doctor-put-meaning besides 'conj)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
792 (doctor-put-meaning anyway 'conj)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
793 (doctor-put-meaning that 'conj)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
794 (doctor-put-meaning except 'conj)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
795 (doctor-put-meaning why 'conj)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
796 (doctor-put-meaning how 'conj)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
797 (doctor-put-meaning until 'when)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
798 (doctor-put-meaning when 'when)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
799 (doctor-put-meaning whenever 'when)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
800 (doctor-put-meaning while 'when)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
801 (doctor-put-meaning since 'when)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
802 (doctor-put-meaning rms 'rms)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
803 (doctor-put-meaning stallman 'rms)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
804 (doctor-put-meaning school 'school)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
805 (doctor-put-meaning schools 'school)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
806 (doctor-put-meaning skool 'school)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
807 (doctor-put-meaning grade 'school)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
808 (doctor-put-meaning grades 'school)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
809 (doctor-put-meaning teacher 'school)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
810 (doctor-put-meaning teachers 'school)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
811 (doctor-put-meaning classes 'school)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
812 (doctor-put-meaning professor 'school)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
813 (doctor-put-meaning prof 'school)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
814 (doctor-put-meaning profs 'school)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
815 (doctor-put-meaning professors 'school)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
816 (doctor-put-meaning mit 'school)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
817 (doctor-put-meaning emacs 'eliza)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
818 (doctor-put-meaning eliza 'eliza)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
819 (doctor-put-meaning liza 'eliza)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
820 (doctor-put-meaning elisa 'eliza)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
821 (doctor-put-meaning weizenbaum 'eliza)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
822 (doctor-put-meaning doktor 'eliza)
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 2307
diff changeset
823 (doctor-put-meaning athletics 'sports)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
824 (doctor-put-meaning baseball 'sports)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
825 (doctor-put-meaning basketball 'sports)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
826 (doctor-put-meaning football 'sports)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
827 (doctor-put-meaning frisbee 'sports)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
828 (doctor-put-meaning gym 'sports)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
829 (doctor-put-meaning gymnastics 'sports)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
830 (doctor-put-meaning hockey 'sports)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
831 (doctor-put-meaning lacrosse 'sports)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
832 (doctor-put-meaning soccer 'sports)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
833 (doctor-put-meaning softball 'sports)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
834 (doctor-put-meaning sports 'sports)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
835 (doctor-put-meaning swimming 'sports)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
836 (doctor-put-meaning swim 'sports)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
837 (doctor-put-meaning tennis 'sports)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
838 (doctor-put-meaning volleyball 'sports)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
839 (doctor-put-meaning math 'math)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
840 (doctor-put-meaning mathematics 'math)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
841 (doctor-put-meaning mathematical 'math)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
842 (doctor-put-meaning theorem 'math)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
843 (doctor-put-meaning axiom 'math)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
844 (doctor-put-meaning lemma 'math)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
845 (doctor-put-meaning algebra 'math)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
846 (doctor-put-meaning algebraic 'math)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
847 (doctor-put-meaning trig 'math)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
848 (doctor-put-meaning trigonometry 'math)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
849 (doctor-put-meaning trigonometric 'math)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
850 (doctor-put-meaning geometry 'math)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
851 (doctor-put-meaning geometric 'math)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
852 (doctor-put-meaning calculus 'math)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
853 (doctor-put-meaning arithmetic 'math)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
854 (doctor-put-meaning zippy 'zippy)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
855 (doctor-put-meaning zippy 'zippy)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
856 (doctor-put-meaning pinhead 'zippy)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
857 (doctor-put-meaning chat 'chat)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
858
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
859 ;;;###autoload
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
860 (defun doctor ()
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
861 "Switch to *doctor* buffer and start giving psychotherapy."
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
862 (interactive)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
863 (switch-to-buffer "*doctor*")
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
864 (doctor-mode))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
865
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
866 (defun doctor-ret-or-read (arg)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
867 "Insert a newline if preceding character is not a newline.
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
868 Otherwise call the Doctor to parse preceding sentence."
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
869 (interactive "*p")
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
870 (if (= (preceding-char) ?\n)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
871 (doctor-read-print)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
872 (newline arg)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
873
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
874 (defun doctor-read-print nil
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
875 "top level loop"
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
876 (interactive)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
877 (let ((sent (doctor-readin)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
878 (insert "\n")
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
879 (setq lincount (1+ lincount))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
880 (doctor-doc sent)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
881 (insert "\n")
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
882 (setq bak sent)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
883
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
884 (defun doctor-readin nil
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
885 "Read a sentence. Return it as a list of words."
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
886 (let (sentence)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
887 (backward-sentence 1)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
888 (while (not (eobp))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
889 (setq sentence (append sentence (list (doctor-read-token)))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
890 sentence))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
891
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
892 (defun doctor-read-token ()
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
893 "read one word from buffer"
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
894 (prog1 (intern (downcase (buffer-substring (point)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
895 (progn
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
896 (forward-word 1)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
897 (point)))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
898 (re-search-forward "\\Sw*")))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
899
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
900 ;; Main processing function for sentences that have been read.
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
901
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
902 (defun doctor-doc (sent)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
903 (cond
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
904 ((equal sent '(foo))
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
905 (doctor-type '(bar! (doc$ please)(doc$ continue) \.)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
906 ((member sent howareyoulst)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
907 (doctor-type '(i\'m ok \. (doc$ describe) yourself \.)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
908 ((or (member sent '((good bye) (see you later) (i quit) (so long)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
909 (go away) (get lost)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
910 (memq (car sent)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47588
diff changeset
911 '(bye halt break quit done exit goodbye
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
912 bye\, stop pause goodbye\, stop pause)))
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
913 (doctor-type (doc$ bye)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
914 ((and (eq (car sent) 'you)
47322
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
915 (memq (cadr sent) abusewords))
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
916 (setq found (cadr sent))
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
917 (doctor-type (doc$ abuselst)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
918 ((eq (car sent) 'whatmeans)
47322
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
919 (doctor-def (cadr sent)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
920 ((equal sent '(parse))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
921 (doctor-type (list 'subj '= subj ", "
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
922 'verb '= verb "\n"
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
923 'object 'phrase '= obj ","
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
924 'noun 'form '= object "\n"
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
925 'current 'keyword 'is found
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
926 ", "
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
927 'most 'recent 'possessive
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
928 'is owner "\n"
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
929 'sentence 'used 'was
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
930 "..."
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
931 '(doc// bak))))
47588
73e46b26325e (doctor-doc): Add 2 question words.
Richard M. Stallman <rms@gnu.org>
parents: 47367
diff changeset
932 ((memq (car sent) '(are is do has have how when where who why))
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
933 (doctor-type (doc$ qlist)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
934 ;; ((eq (car sent) 'forget)
47322
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
935 ;; (set (cadr sent) nil)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
936 ;; (doctor-type '((doc$ isee)(doc$ please)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
937 ;; (doc$ continue)\.)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
938 (t
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
939 (if (doctor-defq sent) (doctor-define sent found))
47314
0b575bd912a4 (doctor-doc): Recognize question words and use qlist.
Richard M. Stallman <rms@gnu.org>
parents: 40218
diff changeset
940 (if (> (length sent) 12)(setq sent (doctor-shorten sent)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
941 (setq sent (doctor-correct-spelling (doctor-replace sent replist)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
942 (cond ((and (not (memq 'me sent))(not (memq 'i sent))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
943 (memq 'am sent))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
944 (setq sent (doctor-replace sent '((am . (are)))))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
945 (cond ((equal (car sent) 'yow) (doctor-zippy))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
946 ((< (length sent) 2)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
947 (cond ((eq (doctor-meaning (car sent)) 'howdy)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
948 (doctor-howdy))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
949 (t (doctor-short))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
950 (t
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
951 (if (memq 'am sent)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
952 (setq sent (doctor-replace sent '((me . (i))))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
953 (setq sent (doctor-fixup sent))
47322
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
954 (if (and (eq (car sent) 'do) (eq (cadr sent) 'not))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
955 (cond ((zerop (random 3))
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
956 (doctor-type '(are you (doc$ afraidof) that \?)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
957 ((zerop (random 2))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
958 (doctor-type '(don\'t tell me what to do \. i am the
66342
a4fe475f3c8b (doctor-doc): Don't say "psychiatrist".
Richard M. Stallman <rms@gnu.org>
parents: 64715
diff changeset
959 doctor here!))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
960 (doctor-rthing))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
961 (t
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
962 (doctor-type '((doc$ whysay) that i shouldn\'t
47322
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
963 (cddr sent)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
964 \?))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
965 (doctor-go (doctor-wherego sent))))))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
966
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
967 ;; Things done to process sentences once read.
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
968
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
969 (defun doctor-correct-spelling (sent)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
970 "Correct the spelling and expand each word in sentence."
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
971 (if sent
30887
c4366892a814 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 20978
diff changeset
972 (apply 'append (mapcar (lambda (word)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
973 (if (memq word typos)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
974 (get (get word 'doctor-correction) 'doctor-expansion)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
975 (list word)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
976 sent))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
977
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
978 (defun doctor-shorten (sent)
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 2307
diff changeset
979 "Make a sentence manageably short using a few hacks."
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
980 (let (foo
47314
0b575bd912a4 (doctor-doc): Recognize question words and use qlist.
Richard M. Stallman <rms@gnu.org>
parents: 40218
diff changeset
981 (retval sent)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
982 (temp '(because but however besides anyway until
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
983 while that except why how)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
984 (while temp
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
985 (setq foo (memq (car temp) sent))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
986 (if (and foo
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
987 (> (length foo) 3))
47314
0b575bd912a4 (doctor-doc): Recognize question words and use qlist.
Richard M. Stallman <rms@gnu.org>
parents: 40218
diff changeset
988 (setq retval (doctor-fixup foo)
0b575bd912a4 (doctor-doc): Recognize question words and use qlist.
Richard M. Stallman <rms@gnu.org>
parents: 40218
diff changeset
989 temp nil)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
990 (setq temp (cdr temp))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
991 retval))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
992
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
993 (defun doctor-define (sent found)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
994 (doctor-svo sent found 1 nil)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
995 (and
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
996 (doctor-nounp subj)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
997 (not (doctor-pronounp subj))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
998 subj
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
999 (doctor-meaning object)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1000 (put subj 'doctor-meaning (doctor-meaning object))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1001 t))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1002
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1003 (defun doctor-defq (sent)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1004 "Set global var FOUND to first keyword found in sentence SENT."
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1005 (setq found nil)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1006 (let ((temp '(means applies mean refers refer related
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1007 similar defined associated linked like same)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1008 (while temp
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1009 (if (memq (car temp) sent)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1010 (setq found (car temp)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1011 temp nil)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1012 (setq temp (cdr temp)))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1013 found)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1014
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1015 (defun doctor-def (x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1016 (progn
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47588
diff changeset
1017 (doctor-type (list 'the 'word x 'means (doctor-meaning x) 'to 'me))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1018 nil))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1019
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1020 (defun doctor-forget ()
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1021 "Delete the last element of the history list."
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1022 (setq history (reverse (cdr (reverse history)))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1023
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1024 (defun doctor-query (x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1025 "Prompt for a line of input from the minibuffer until a noun or verb is seen.
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1026 Put dialogue in buffer."
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1027 (let (a
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1028 (prompt (concat (doctor-make-string x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1029 " what \? "))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1030 retval)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1031 (while (not retval)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1032 (while (not a)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1033 (insert ?\n
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1034 prompt
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1035 (read-string prompt)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1036 ?\n)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1037 (setq a (doctor-readin)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1038 (while (and a (not retval))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1039 (cond ((doctor-nounp (car a))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1040 (setq retval (car a)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1041 ((doctor-verbp (car a))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1042 (setq retval (doctor-build
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1043 (doctor-build x " ")
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1044 (car a))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1045 ((setq a (cdr a))))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1046 retval))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1047
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1048 (defun doctor-subjsearch (sent key type)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1049 "Search for the subject of a sentence SENT, looking for the noun closest
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1050 to and preceding KEY by at least TYPE words. Set global variable subj to
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1051 the subject noun, and return the portion of the sentence following it."
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1052 (let ((i (- (length sent) (length (memq key sent)) type)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1053 (while (and (> i -1) (not (doctor-nounp (nth i sent))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1054 (setq i (1- i)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1055 (cond ((> i -1)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1056 (setq subj (nth i sent))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1057 (nthcdr (1+ i) sent))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1058 (t
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1059 (setq subj 'you)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1060 nil))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1061
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1062 (defun doctor-nounp (x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1063 "Returns t if the symbol argument is a noun."
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1064 (or (doctor-pronounp x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1065 (not (or (doctor-verbp x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1066 (equal x 'not)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1067 (doctor-prepp x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1068 (doctor-modifierp x) )) ))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1069
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1070 (defun doctor-pronounp (x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1071 "Returns t if the symbol argument is a pronoun."
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1072 (memq x '(
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1073 i me mine myself
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1074 we us ours ourselves ourself
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1075 you yours yourself yourselves
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1076 he him himself she hers herself
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1077 it that those this these things thing
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1078 they them themselves theirs
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1079 anybody everybody somebody
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1080 anyone everyone someone
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1081 anything something everything)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1082
68248
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1083 (dolist (x
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1084 '(abort aborted aborts ask asked asks am
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1085 applied applies apply are associate
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1086 associated ate
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1087 be became become becomes becoming
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1088 been being believe believed believes
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1089 bit bite bites bore bored bores boring bought buy buys buying
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1090 call called calling calls came can caught catch come
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1091 contract contracted contracts control controlled controls
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1092 could croak croaks croaked cut cuts
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1093 dare dared define defines dial dialed dials did die died dies
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1094 dislike disliked
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1095 dislikes do does drank drink drinks drinking
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1096 drive drives driving drove dying
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1097 eat eating eats expand expanded expands
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1098 expect expected expects expel expels expelled
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1099 explain explained explains
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1100 fart farts feel feels felt fight fights find finds finding
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1101 forget forgets forgot fought found
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1102 fuck fucked fucking fucks
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1103 gave get gets getting give gives go goes going gone got gotten
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1104 had harm harms has hate hated hates have having
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1105 hear heard hears hearing help helped helping helps
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1106 hit hits hope hoped hopes hurt hurts
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1107 implies imply is
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1108 join joined joins jump jumped jumps
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1109 keep keeping keeps kept
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1110 kill killed killing kills kiss kissed kisses kissing
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1111 knew know knows
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1112 laid lay lays let lets lie lied lies like liked likes
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1113 liking listen listens
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1114 login look looked looking looks
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1115 lose losing lost
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1116 love loved loves loving
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1117 luse lusing lust lusts
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1118 made make makes making may mean means meant might
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1119 move moved moves moving must
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1120 need needed needs
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1121 order ordered orders ought
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1122 paid pay pays pick picked picking picks
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1123 placed placing prefer prefers put puts
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1124 ran rape raped rapes
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1125 read reading reads recall receive received receives
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1126 refer refered referred refers
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1127 relate related relates remember remembered remembers
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1128 romp romped romps run running runs
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1129 said sang sat saw say says
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1130 screw screwed screwing screws scrod see sees seem seemed
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1131 seems seen sell selling sells
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1132 send sendind sends sent shall shoot shot should
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1133 sing sings sit sits sitting sold studied study
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1134 take takes taking talk talked talking talks tell tells telling
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1135 think thinks
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1136 thought told took tooled touch touched touches touching
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1137 transfer transferred transfers transmit transmits transmitted
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1138 type types types typing
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1139 walk walked walking walks want wanted wants was watch
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1140 watched watching went were will wish would work worked works
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1141 write writes writing wrote use used uses using))
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1142 (put x 'doctor-sentence-type 'verb))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1143
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1144 (defun doctor-verbp (x) (if (symbolp x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1145 (eq (get x 'doctor-sentence-type) 'verb)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1146
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1147 (defun doctor-plural (x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1148 "Form the plural of the word argument."
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1149 (let ((foo (doctor-make-string x)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1150 (cond ((string-equal (substring foo -1) "s")
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1151 (cond ((string-equal (substring foo -2 -1) "s")
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1152 (intern (concat foo "es")))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1153 (t x)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1154 ((string-equal (substring foo -1) "y")
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1155 (intern (concat (substring foo 0 -1)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1156 "ies")))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1157 (t (intern (concat foo "s"))))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1158
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1159 (defun doctor-setprep (sent key)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1160 (let ((val)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1161 (foo (memq key sent)))
47322
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
1162 (cond ((doctor-prepp (cadr foo))
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
1163 (setq val (doctor-getnoun (cddr foo)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1164 (cond (val val)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1165 (t 'something)))
47322
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
1166 ((doctor-articlep (cadr foo))
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
1167 (setq val (doctor-getnoun (cddr foo)))
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
1168 (cond (val (doctor-build (doctor-build (cadr foo) " ") val))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1169 (t 'something)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1170 (t 'something))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1171
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1172 (defun doctor-getnoun (x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1173 (cond ((null x)(setq object 'something))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1174 ((atom x)(setq object x))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1175 ((eq (length x) 1)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1176 (setq object (cond
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1177 ((doctor-nounp (setq object (car x))) object)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1178 (t (doctor-query object)))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1179 ((eq (car x) 'to)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1180 (doctor-build 'to\ (doctor-getnoun (cdr x))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1181 ((doctor-prepp (car x))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1182 (doctor-getnoun (cdr x)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1183 ((not (doctor-nounp (car x)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1184 (doctor-build (doctor-build (cdr (assq (car x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1185 (append
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1186 '((a . this)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1187 (some . this)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1188 (one . that))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1189 (list
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1190 (cons
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1191 (car x) (car x))))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1192 " ")
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1193 (doctor-getnoun (cdr x))))
47588
73e46b26325e (doctor-doc): Add 2 question words.
Richard M. Stallman <rms@gnu.org>
parents: 47367
diff changeset
1194 (t (setq object (car x))
73e46b26325e (doctor-doc): Add 2 question words.
Richard M. Stallman <rms@gnu.org>
parents: 47367
diff changeset
1195 (doctor-build (doctor-build (car x) " ") (doctor-getnoun (cdr x))))
73e46b26325e (doctor-doc): Add 2 question words.
Richard M. Stallman <rms@gnu.org>
parents: 47367
diff changeset
1196 ))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1197
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1198 (defun doctor-modifierp (x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1199 (or (doctor-adjectivep x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1200 (doctor-adverbp x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1201 (doctor-othermodifierp x)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1202
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1203 (defun doctor-adjectivep (x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1204 (or (numberp x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1205 (doctor-nmbrp x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1206 (doctor-articlep x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1207 (doctor-colorp x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1208 (doctor-sizep x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1209 (doctor-possessivepronounp x)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1210
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1211 (defun doctor-adverbp (xx)
5282
1d3c5ef6e8a1 (make-doctor-variables): Fix some local var names.
Richard M. Stallman <rms@gnu.org>
parents: 4249
diff changeset
1212 (let ((xxstr (doctor-make-string xx)))
1d3c5ef6e8a1 (make-doctor-variables): Fix some local var names.
Richard M. Stallman <rms@gnu.org>
parents: 4249
diff changeset
1213 (and (>= (length xxstr) 2)
1d3c5ef6e8a1 (make-doctor-variables): Fix some local var names.
Richard M. Stallman <rms@gnu.org>
parents: 4249
diff changeset
1214 (string-equal (substring (doctor-make-string xx) -2) "ly"))))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1215
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1216 (defun doctor-articlep (x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1217 (memq x '(the a an)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1218
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1219 (defun doctor-nmbrp (x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1220 (memq x '(one two three four five six seven eight nine ten
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1221 eleven twelve thirteen fourteen fifteen
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1222 sixteen seventeen eighteen nineteen
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1223 twenty thirty forty fifty sixty seventy eighty ninety
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1224 hundred thousand million billion
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1225 half quarter
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1226 first second third fourth fifth
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 2307
diff changeset
1227 sixth seventh eighth ninth tenth)))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47588
diff changeset
1228
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1229 (defun doctor-colorp (x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1230 (memq x '(beige black blue brown crimson
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1231 gray grey green
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1232 orange pink purple red tan tawny
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1233 violet white yellow)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1234
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1235 (defun doctor-sizep (x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1236 (memq x '(big large tall fat wide thick
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1237 small petite short thin skinny)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1238
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1239 (defun doctor-possessivepronounp (x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1240 (memq x '(my your his her our their)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1241
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1242 (defun doctor-othermodifierp (x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1243 (memq x '(all also always amusing any anyway associated awesome
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1244 bad beautiful best better but certain clear
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1245 ever every fantastic fun funny
13956
71284f0d43ac (make-doctor-variables, doctor-othermodifierp,
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1246 good great grody gross however if ignorant
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1247 less linked losing lusing many more much
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1248 never nice obnoxious often poor pretty real related rich
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1249 similar some stupid super superb
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1250 terrible terrific too total tubular ugly very)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1251
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1252 (defun doctor-prepp (x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1253 (memq x '(about above after around as at
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1254 before beneath behind beside between by
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1255 for from in inside into
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1256 like near next of on onto over
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1257 same through thru to toward towards
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1258 under underneath with without)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1259
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1260 (defun doctor-remember (thing)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1261 (cond ((null history)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1262 (setq history (list thing)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1263 (t (setq history (append history (list thing))))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1264
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1265 (defun doctor-type (x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1266 (setq x (doctor-fix-2 x))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1267 (doctor-txtype (doctor-assm x)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1268
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1269 (defun doctor-fixup (sent)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1270 (setq sent (append
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1271 (cdr
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1272 (assq (car sent)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1273 (append
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1274 '((me i)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1275 (him he)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1276 (her she)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1277 (them they)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1278 (okay)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1279 (well)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1280 (sigh)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1281 (hmm)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1282 (hmmm)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1283 (hmmmm)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1284 (hmmmmm)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1285 (gee)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1286 (sure)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1287 (great)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1288 (oh)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1289 (fine)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1290 (ok)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1291 (no))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1292 (list (list (car sent)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1293 (car sent))))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1294 (cdr sent)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1295 (doctor-fix-2 sent))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1296
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1297 (defun doctor-fix-2 (sent)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1298 (let ((foo sent))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1299 (while foo
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1300 (if (and (eq (car foo) 'me)
47322
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
1301 (doctor-verbp (cadr foo)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1302 (rplaca foo 'i)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1303 (cond ((eq (car foo) 'you)
47322
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
1304 (cond ((memq (cadr foo) '(am be been is))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1305 (rplaca (cdr foo) 'are))
47322
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
1306 ((memq (cadr foo) '(has))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1307 (rplaca (cdr foo) 'have))
47322
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
1308 ((memq (cadr foo) '(was))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1309 (rplaca (cdr foo) 'were))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1310 ((equal (car foo) 'i)
47322
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
1311 (cond ((memq (cadr foo) '(are is be been))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1312 (rplaca (cdr foo) 'am))
47322
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
1313 ((memq (cadr foo) '(were))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1314 (rplaca (cdr foo) 'was))
47322
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
1315 ((memq (cadr foo) '(has))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1316 (rplaca (cdr foo) 'have))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1317 ((and (doctor-verbp (car foo))
47322
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
1318 (eq (cadr foo) 'i)
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
1319 (not (doctor-verbp (car (cddr foo)))))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1320 (rplaca (cdr foo) 'me))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1321 ((and (eq (car foo) 'a)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1322 (doctor-vowelp (string-to-char
47322
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
1323 (doctor-make-string (cadr foo)))))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1324 (rplaca foo 'an))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1325 ((and (eq (car foo) 'an)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1326 (not (doctor-vowelp (string-to-char
47322
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
1327 (doctor-make-string (cadr foo))))))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1328 (rplaca foo 'a)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1329 (setq foo (cdr foo))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1330 sent))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1331
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1332 (defun doctor-vowelp (x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1333 (memq x '(?a ?e ?i ?o ?u)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1334
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1335 (defun doctor-replace (sent rlist)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1336 "Replace any element of SENT that is the car of a replacement
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1337 element pair in RLIST."
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1338 (apply 'append
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1339 (mapcar
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1340 (function
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1341 (lambda (x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1342 (cdr (or (assq x rlist) ; either find a replacement
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1343 (list x x))))) ; or fake an identity mapping
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1344 sent)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1345
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1346 (defun doctor-wherego (sent)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1347 (cond ((null sent)(doc$ whereoutp))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1348 ((null (doctor-meaning (car sent)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1349 (doctor-wherego (cond ((zerop (random 2))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1350 (reverse (cdr sent)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1351 (t (cdr sent)))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1352 (t
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1353 (setq found (car sent))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1354 (doctor-meaning (car sent)))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1355
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1356 (defun doctor-svo (sent key type mem)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1357 "Find subject, verb and object in sentence SENT with focus on word KEY.
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1358 TYPE is number of words preceding KEY to start looking for subject.
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1359 MEM is t if results are to be put on Doctor's memory stack.
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1360 Return in the global variables SUBJ, VERB and OBJECT."
621
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 400
diff changeset
1361 (let ((foo (doctor-subjsearch sent key type)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1362 (or foo
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1363 (setq foo sent
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1364 mem nil))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1365 (while (and (null (doctor-verbp (car foo))) (cdr foo))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1366 (setq foo (cdr foo)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1367 (setq verb (car foo))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1368 (setq obj (doctor-getnoun (cdr foo)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1369 (cond ((eq object 'i)(setq object 'me))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1370 ((eq subj 'me)(setq subj 'i)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1371 (cond (mem (doctor-remember (list subj verb obj))))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1372
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1373 (defun doctor-possess (sent key)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1374 "Set possessive in SENT for keyword KEY.
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1375 Hack on previous word, setting global variable OWNER to correct result."
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1376 (let* ((i (- (length sent) (length (memq key sent)) 1))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1377 (prev (if (< i 0) 'your
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1378 (nth i sent))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1379 (setq owner (if (or (doctor-possessivepronounp prev)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1380 (string-equal "s"
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1381 (substring (doctor-make-string prev)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1382 -1)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1383 prev
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1384 'your))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1385
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1386 ;; Output of replies.
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1387
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1388 (defun doctor-txtype (ans)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1389 "Output to buffer a list of symbols or strings as a sentence."
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1390 (setq *print-upcase* t *print-space* nil)
68248
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1391 (mapc 'doctor-type-symbol ans)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1392 (insert "\n"))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1393
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1394 (defun doctor-type-symbol (word)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1395 "Output a symbol to the buffer with some fancy case and spacing hacks."
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1396 (setq word (doctor-make-string word))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1397 (if (string-equal word "i") (setq word "I"))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1398 (if *print-upcase*
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1399 (progn
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1400 (setq word (capitalize word))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1401 (if *print-space*
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1402 (insert " "))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1403 (cond ((or (string-match "^[.,;:?! ]" word)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1404 (not *print-space*))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1405 (insert word))
64715
46d503c20412 (doctor-type-symbol): "?\ " -> "?\s".
Juanma Barranquero <lekktu@gmail.com>
parents: 64701
diff changeset
1406 (t (insert ?\s word)))
4249
5f6e6ea4c7af (doctor-type-symbol): Win if auto-fill-function is nil.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1407 (and auto-fill-function
5f6e6ea4c7af (doctor-type-symbol): Win if auto-fill-function is nil.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1408 (> (current-column) fill-column)
5f6e6ea4c7af (doctor-type-symbol): Win if auto-fill-function is nil.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1409 (apply auto-fill-function nil))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1410 (setq *print-upcase* (string-match "[.?!]$" word)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1411 *print-space* t))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1412
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1413 (defun doctor-build (str1 str2)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1414 "Make a symbol out of the concatenation of the two non-list arguments."
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1415 (cond ((null str1) str2)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1416 ((null str2) str1)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1417 ((and (atom str1)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1418 (atom str2))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1419 (intern (concat (doctor-make-string str1)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1420 (doctor-make-string str2))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1421 (t nil)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1422
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1423 (defun doctor-make-string (obj)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1424 (cond ((stringp obj) obj)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1425 ((symbolp obj) (symbol-name obj))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1426 ((numberp obj) (int-to-string obj))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1427 (t "")))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1428
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1429 (defun doctor-concat (x y)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1430 "Like append, but force atomic arguments to be lists."
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1431 (append
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1432 (if (and x (atom x)) (list x) x)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1433 (if (and y (atom y)) (list y) y)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1434
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1435 (defun doctor-assm (proto)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1436 (cond ((null proto) nil)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1437 ((atom proto) (list proto))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1438 ((atom (car proto))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1439 (cons (car proto) (doctor-assm (cdr proto))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1440 (t (doctor-concat (doctor-assm (eval (car proto))) (doctor-assm (cdr proto))))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1441
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1442 ;; Functions that handle specific words or meanings when found.
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1443
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1444 (defun doctor-go (destination)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1445 "Call a `doctor-*' function."
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1446 (funcall (intern (concat "doctor-" (doctor-make-string destination)))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1447
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1448 (defun doctor-desire1 ()
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1449 (doctor-go (doc$ whereoutp)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1450
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1451 (defun doctor-huh ()
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1452 (cond ((< (length sent) 9) (doctor-type (doc$ huhlst)))
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1453 (t (doctor-type (doc$ longhuhlst)))))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1454
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1455 (defun doctor-rthing () (doctor-type (doc$ thlst)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1456
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1457 (defun doctor-remem () (cond ((null history)(doctor-huh))
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1458 ((doctor-type (doc$ remlst)))))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1459
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1460 (defun doctor-howdy ()
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1461 (cond ((not howdyflag)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1462 (doctor-type '((doc$ hello) what brings you to see me \?))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1463 (setq howdyflag t))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1464 (t
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1465 (doctor-type '((doc$ ibelieve) we\'ve introduced ourselves already \.))
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1466 (doctor-type '((doc$ please) (doc$ describe) (doc$ things) \.)))))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1467
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1468 (defun doctor-when ()
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1469 (cond ((< (length (memq found sent)) 3)(doctor-short))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1470 (t
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1471 (setq sent (cdr (memq found sent)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1472 (setq sent (doctor-fixup sent))
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1473 (doctor-type '((doc$ whatwhen)(doc// sent) \?)))))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1474
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1475 (defun doctor-conj ()
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1476 (cond ((< (length (memq found sent)) 4)(doctor-short))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1477 (t
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1478 (setq sent (cdr (memq found sent)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1479 (setq sent (doctor-fixup sent))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1480 (cond ((eq (car sent) 'of)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1481 (doctor-type '(are you (doc$ sure) that is the real reason \?))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1482 (setq things (cons (cdr sent) things)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1483 (t
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1484 (doctor-remember sent)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1485 (doctor-type (doc$ beclst)))))))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1486
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1487 (defun doctor-short ()
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1488 (cond ((= (car repetitive-shortness) (1- lincount))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1489 (rplacd repetitive-shortness
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1490 (1+ (cdr repetitive-shortness))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1491 (t
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1492 (rplacd repetitive-shortness 1)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1493 (rplaca repetitive-shortness lincount)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1494 (cond ((> (cdr repetitive-shortness) 6)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1495 (cond ((not **mad**)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1496 (doctor-type '((doc$ areyou)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1497 just trying to see what kind of things
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1498 i have in my vocabulary \? please try to
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1499 carry on a reasonable conversation!))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1500 (setq **mad** t))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1501 (t
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1502 (doctor-type '(i give up \. you need a lesson in creative
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1503 writing \.\.\.))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1504 )))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1505 (t
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1506 (cond ((equal sent (doctor-assm '(yes)))
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1507 (doctor-type '((doc$ isee) (doc$ inter) (doc$ whysay) this is so \?)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1508 ((equal sent (doctor-assm '(because)))
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1509 (doctor-type (doc$ shortbeclst)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1510 ((equal sent (doctor-assm '(no)))
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1511 (doctor-type (doc$ neglst)))
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1512 (t (doctor-type (doc$ shortlst)))))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47588
diff changeset
1513
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1514 (defun doctor-alcohol () (doctor-type (doc$ drnk)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1515
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1516 (defun doctor-desire ()
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1517 (let ((foo (memq found sent)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1518 (cond ((< (length foo) 2)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1519 (doctor-go (doctor-build (doctor-meaning found) 1)))
47322
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
1520 ((memq (cadr foo) '(a an))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1521 (rplacd foo (append '(to have) (cdr foo)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1522 (doctor-svo sent found 1 nil)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1523 (doctor-remember (list subj 'would 'like obj))
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1524 (doctor-type (doc$ whywant)))
47322
8a11a2109567 (doctor-cadr, doctor-caddr, doctor-cddr): Remove.
John Paul Wallington <jpw@pobox.com>
parents: 47314
diff changeset
1525 ((not (eq (cadr foo) 'to))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1526 (doctor-go (doctor-build (doctor-meaning found) 1)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1527 (t
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1528 (doctor-svo sent found 1 nil)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1529 (doctor-remember (list subj 'would 'like obj))
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1530 (doctor-type (doc$ whywant))))))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1531
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1532 (defun doctor-drug ()
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1533 (doctor-type (doc$ drugs))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1534 (doctor-remember (list 'you 'used found)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1535
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1536 (defun doctor-toke ()
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1537 (doctor-type (doc$ toklst)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1538
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1539 (defun doctor-state ()
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1540 (doctor-type (doc$ states))(doctor-remember (list 'you 'were found)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1541
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1542 (defun doctor-mood ()
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1543 (doctor-type (doc$ moods))(doctor-remember (list 'you 'felt found)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1544
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1545 (defun doctor-fear ()
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1546 (setq feared (doctor-setprep sent found))
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1547 (doctor-type (doc$ fears))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1548 (doctor-remember (list 'you 'were 'afraid 'of feared)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1549
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1550 (defun doctor-hate ()
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1551 (doctor-svo sent found 1 t)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1552 (cond ((memq 'not sent) (doctor-forget) (doctor-huh))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1553 ((equal subj 'you)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1554 (doctor-type '(why do you (doc// verb)(doc// obj) \?)))
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1555 (t (doctor-type '((doc$ whysay)(list subj verb obj))))))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1556
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1557 (defun doctor-symptoms ()
66342
a4fe475f3c8b (doctor-doc): Don't say "psychiatrist".
Richard M. Stallman <rms@gnu.org>
parents: 64715
diff changeset
1558 (doctor-type '((doc$ maybe) you should consult a medical doctor\;
a4fe475f3c8b (doctor-doc): Don't say "psychiatrist".
Richard M. Stallman <rms@gnu.org>
parents: 64715
diff changeset
1559 i am a psychotherapist. \.)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1560
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1561 (defun doctor-hates ()
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1562 (doctor-svo sent found 1 t)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1563 (doctor-hates1))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1564
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1565 (defun doctor-hates1 ()
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1566 (doctor-type '((doc$ whysay)(list subj verb obj) \?)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1567
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1568 (defun doctor-loves ()
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1569 (doctor-svo sent found 1 t)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1570 (doctor-qloves))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1571
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1572 (defun doctor-qloves ()
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1573 (doctor-type '((doc$ bother)(list subj verb obj) \?)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1574
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1575 (defun doctor-love ()
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1576 (doctor-svo sent found 1 t)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1577 (cond ((memq 'not sent) (doctor-forget) (doctor-huh))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1578 ((memq 'to sent) (doctor-hates1))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1579 (t
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1580 (cond ((equal object 'something)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1581 (setq object '(this person you love))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1582 (cond ((equal subj 'you)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1583 (setq lover obj)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1584 (cond ((equal lover '(this person you love))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1585 (setq lover '(your partner))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1586 (doctor-forget)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1587 (doctor-type '(with whom are you in love \?)))
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1588 ((doctor-type '((doc$ please)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1589 (doc$ describe)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1590 (doc$ relation)
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1591 (doc// lover)
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1592 \.)))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1593 ((equal subj 'i)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1594 (doctor-txtype '(we were discussing you!)))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1595 (t (doctor-forget)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1596 (setq obj 'someone)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1597 (setq verb (doctor-build verb 's))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1598 (doctor-qloves))))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1599
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1600 (defun doctor-mach ()
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1601 (setq found (doctor-plural found))
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1602 (doctor-type (doc$ machlst)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1603
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1604 (defun doctor-sexnoun () (doctor-sexverb))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1605
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1606 (defun doctor-sexverb ()
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1607 (if (or (memq 'me sent)(memq 'myself sent)(memq 'i sent))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1608 (doctor-foul)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1609 (doctor-type (doc$ sexlst))))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1610
18389
f5f7ca6c4a96 (doctor-death): Give real advice to truly suicidal.
Richard M. Stallman <rms@gnu.org>
parents: 18383
diff changeset
1611 (defun doctor-death ()
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1612 (cond (suicide-flag (doctor-type (doc$ deathlst)))
18389
f5f7ca6c4a96 (doctor-death): Give real advice to truly suicidal.
Richard M. Stallman <rms@gnu.org>
parents: 18383
diff changeset
1613 ((or (equal found 'suicide)
f5f7ca6c4a96 (doctor-death): Give real advice to truly suicidal.
Richard M. Stallman <rms@gnu.org>
parents: 18383
diff changeset
1614 (and (or (equal found 'kill)
f5f7ca6c4a96 (doctor-death): Give real advice to truly suicidal.
Richard M. Stallman <rms@gnu.org>
parents: 18383
diff changeset
1615 (equal found 'killing))
f5f7ca6c4a96 (doctor-death): Give real advice to truly suicidal.
Richard M. Stallman <rms@gnu.org>
parents: 18383
diff changeset
1616 (memq 'yourself sent)))
f5f7ca6c4a96 (doctor-death): Give real advice to truly suicidal.
Richard M. Stallman <rms@gnu.org>
parents: 18383
diff changeset
1617 (setq suicide-flag t)
f5f7ca6c4a96 (doctor-death): Give real advice to truly suicidal.
Richard M. Stallman <rms@gnu.org>
parents: 18383
diff changeset
1618 (doctor-type '(If you are really suicidal, you might
f5f7ca6c4a96 (doctor-death): Give real advice to truly suicidal.
Richard M. Stallman <rms@gnu.org>
parents: 18383
diff changeset
1619 want to contact the Samaritans via
f5f7ca6c4a96 (doctor-death): Give real advice to truly suicidal.
Richard M. Stallman <rms@gnu.org>
parents: 18383
diff changeset
1620 E-mail: jo@samaritans.org or, at your option,
32659
8f47d09a2be7 (doctor-death): Update the Samaritans'
Gerd Moellmann <gerd@gnu.org>
parents: 30887
diff changeset
1621 anonymous E-mail: samaritans@anon.twwells.com\ \.
8f47d09a2be7 (doctor-death): Update the Samaritans'
Gerd Moellmann <gerd@gnu.org>
parents: 30887
diff changeset
1622 or find a Befrienders crisis center at
8f47d09a2be7 (doctor-death): Update the Samaritans'
Gerd Moellmann <gerd@gnu.org>
parents: 30887
diff changeset
1623 http://www.befrienders.org/\ \.
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1624 (doc$ please) (doc$ continue) \.)))
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1625 (t (doctor-type (doc$ deathlst)))))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1626
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1627 (defun doctor-foul ()
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1628 (doctor-type (doc$ foullst)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1629
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1630 (defun doctor-family ()
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1631 (doctor-possess sent found)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1632 (doctor-type (doc$ famlst)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1633
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1634 ;; I did not add this -- rms.
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1635 ;; But he might have removed it. I put it back. --roland
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1636 (defun doctor-rms ()
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1637 (cond (rms-flag (doctor-type (doc$ stallmanlst)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1638 (t (setq rms-flag t) (doctor-type '(do you know Stallman \?)))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1639
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1640 (defun doctor-school nil (doctor-type (doc$ schoollst)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1641
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1642 (defun doctor-eliza ()
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1643 (cond (eliza-flag (doctor-type (doc$ elizalst)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1644 (t (setq eliza-flag t)
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1645 (doctor-type '((doc// found) \? hah !
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1646 (doc$ please) (doc$ continue) \.)))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47588
diff changeset
1647
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1648 (defun doctor-sports () (doctor-type (doc$ sportslst)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1649
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1650 (defun doctor-math () (doctor-type (doc$ mathlst)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1651
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1652 (defun doctor-zippy ()
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1653 (cond (zippy-flag (doctor-type (doc$ zippylst)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1654 (t (setq zippy-flag t)
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1655 (doctor-type '(yow! are we interactive yet \?)))))
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1656
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1657
47367
d8c0258cdf14 2002-09-10 Deepak Goel <deego@glue.umd.edu>
John Paul Wallington <jpw@pobox.com>
parents: 47322
diff changeset
1658 (defun doctor-chat () (doctor-type (doc$ chatlst)))
400
10994e910591 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1659
76953
417f62c55294 Seed RNG on loading.
Glenn Morris <rgm@gnu.org>
parents: 75347
diff changeset
1660 (random t)
417f62c55294 Seed RNG on loading.
Glenn Morris <rgm@gnu.org>
parents: 75347
diff changeset
1661
18383
11218164bc54 Add provide call.
Richard M. Stallman <rms@gnu.org>
parents: 16854
diff changeset
1662 (provide 'doctor)
11218164bc54 Add provide call.
Richard M. Stallman <rms@gnu.org>
parents: 16854
diff changeset
1663
68248
3a3f5ed673b0 Move defvars out of eval-when-compile. Use dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66342
diff changeset
1664 ;; arch-tag: 579380f6-4902-4ea5-bccb-6339e30e1257
662
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 621
diff changeset
1665 ;;; doctor.el ends here