Mercurial > emacs

comparison lisp/play/doctor.el @ 14540:bcab69b22ec0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(doctor-mode): State that file has been censored.
author Richard M. Stallman <rms@gnu.org>
date Sat, 10 Feb 1996 18:43:38 +0000
parents 83f275dcd93a
children 73e281e7b1aa
comparison
equal deleted inserted replaced
14539:136de3bfa14f 14540:bcab69b22ec0
1 ;;; doctor.el --- psychological help for frustrated users. 1 ;;; doctor.el --- psychological help for frustrated users.
2 2 ;;; (censored version--see below)
3 ;; Copyright (C) 1985, 1987, 1994 Free Software Foundation, Inc. 3
4 ;; Copyright (C) 1985, 1987, 1994, 1996 Free Software Foundation, Inc.
4 5
5 ;; Maintainer: FSF 6 ;; Maintainer: FSF
6 ;; Keywords: games 7 ;; Keywords: games
7 8
8 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
25 ;;; Commentary: 26 ;;; Commentary:
26 27
27 ;; The single entry point `doctor', simulates a Rogerian analyst using 28 ;; The single entry point `doctor', simulates a Rogerian analyst using
28 ;; phrase-production techniques similar to the classic ELIZA demonstration 29 ;; phrase-production techniques similar to the classic ELIZA demonstration
29 ;; of pseudo-AI. 30 ;; of pseudo-AI.
31
32 ;; This file has been censored by the Communications Decency Act.
33 ;; Some of its features were removed. The law was promoted as a ban
34 ;; on pornography, but it bans far more than that. The doctor program
35 ;; did not contain pornograpy, but part of it was prohibited
36 ;; nonetheless.
37
38 ;; For information on US government censorship of the Internet, and
39 ;; what you can do to bring back freedom of the press, see the web
40 ;; site http://www.vtw.org/
30 41
31 ;;; Code: 42 ;;; Code:
32 43
33 (defun doctor-cadr (x) (car (cdr x))) 44 (defun doctor-cadr (x) (car (cdr x)))
34 (defun doctor-caddr (x) (car (cdr (cdr x)))) 45 (defun doctor-caddr (x) (car (cdr (cdr x))))
66 (use-local-map doctor-mode-map) 77 (use-local-map doctor-mode-map)
67 (setq major-mode 'doctor-mode) 78 (setq major-mode 'doctor-mode)
68 (setq mode-name "Doctor") 79 (setq mode-name "Doctor")
69 (turn-on-auto-fill) 80 (turn-on-auto-fill)
70 (doctor-type '(i am the psychotherapist \. 81 (doctor-type '(i am the psychotherapist \.
82 for your protection, i have been censored according to
83 the Communications Decency Act \.
71 ($ please) ($ describe) your ($ problems) \. 84 ($ please) ($ describe) your ($ problems) \.
72 each time you are finished talking, type \R\E\T twice \.)) 85 each time you are finished talking, type \R\E\T twice \.))
73 (insert "\n")) 86 (insert "\n"))
74 87
75 (defun make-doctor-variables () 88 (defun make-doctor-variables ()
601 (doctor-put-meaning vax 'mach) 614 (doctor-put-meaning vax 'mach)
602 (doctor-put-meaning vms 'mach) 615 (doctor-put-meaning vms 'mach)
603 (doctor-put-meaning ibm 'mach) 616 (doctor-put-meaning ibm 'mach)
604 (doctor-put-meaning pc 'mach) 617 (doctor-put-meaning pc 'mach)
605 (doctor-put-meaning bitching 'foul) 618 (doctor-put-meaning bitching 'foul)
606 (doctor-put-meaning shit 'foul)
607 (doctor-put-meaning bastard 'foul) 619 (doctor-put-meaning bastard 'foul)
608 (doctor-put-meaning damn 'foul) 620 (doctor-put-meaning damn 'foul)
609 (doctor-put-meaning damned 'foul) 621 (doctor-put-meaning damned 'foul)
610 (doctor-put-meaning hell 'foul) 622 (doctor-put-meaning hell 'foul)
611 (doctor-put-meaning suck 'foul) 623 (doctor-put-meaning suck 'foul)
690 (doctor-put-meaning virgin 'sexnoun) 702 (doctor-put-meaning virgin 'sexnoun)
691 (doctor-put-meaning cock 'sexnoun) 703 (doctor-put-meaning cock 'sexnoun)
692 (doctor-put-meaning cocks 'sexnoun) 704 (doctor-put-meaning cocks 'sexnoun)
693 (doctor-put-meaning dick 'sexnoun) 705 (doctor-put-meaning dick 'sexnoun)
694 (doctor-put-meaning dicks 'sexnoun) 706 (doctor-put-meaning dicks 'sexnoun)
695 (doctor-put-meaning cunt 'sexnoun)
696 (doctor-put-meaning cunts 'sexnoun)
697 (doctor-put-meaning prostitute 'sexnoun) 707 (doctor-put-meaning prostitute 'sexnoun)
698 (doctor-put-meaning condom 'sexnoun) 708 (doctor-put-meaning condom 'sexnoun)
699 (doctor-put-meaning sex 'sexnoun) 709 (doctor-put-meaning sex 'sexnoun)
700 (doctor-put-meaning rapes 'sexnoun) 710 (doctor-put-meaning rapes 'sexnoun)
701 (doctor-put-meaning wife 'family) 711 (doctor-put-meaning wife 'family)
749 (doctor-put-meaning bourbon 'alcohol) 759 (doctor-put-meaning bourbon 'alcohol)
750 (doctor-put-meaning beer 'alcohol) 760 (doctor-put-meaning beer 'alcohol)
751 (doctor-put-meaning wine 'alcohol) 761 (doctor-put-meaning wine 'alcohol)
752 (doctor-put-meaning whiskey 'alcohol) 762 (doctor-put-meaning whiskey 'alcohol)
753 (doctor-put-meaning scotch 'alcohol) 763 (doctor-put-meaning scotch 'alcohol)
754 (doctor-put-meaning fuck 'sexverb)
755 (doctor-put-meaning fucked 'sexverb)
756 (doctor-put-meaning screw 'sexverb) 764 (doctor-put-meaning screw 'sexverb)
757 (doctor-put-meaning screwing 'sexverb) 765 (doctor-put-meaning screwing 'sexverb)
758 (doctor-put-meaning fucking 'sexverb)
759 (doctor-put-meaning rape 'sexverb) 766 (doctor-put-meaning rape 'sexverb)
760 (doctor-put-meaning raped 'sexverb) 767 (doctor-put-meaning raped 'sexverb)
761 (doctor-put-meaning kiss 'sexverb) 768 (doctor-put-meaning kiss 'sexverb)
762 (doctor-put-meaning kissing 'sexverb) 769 (doctor-put-meaning kissing 'sexverb)
763 (doctor-put-meaning kisses 'sexverb) 770 (doctor-put-meaning kisses 'sexverb)
764 (doctor-put-meaning screws 'sexverb) 771 (doctor-put-meaning screws 'sexverb)
765 (doctor-put-meaning fucks 'sexverb)
766 (doctor-put-meaning because 'conj) 772 (doctor-put-meaning because 'conj)
767 (doctor-put-meaning but 'conj) 773 (doctor-put-meaning but 'conj)
768 (doctor-put-meaning however 'conj) 774 (doctor-put-meaning however 'conj)
769 (doctor-put-meaning besides 'conj) 775 (doctor-put-meaning besides 'conj)
770 (doctor-put-meaning anyway 'conj) 776 (doctor-put-meaning anyway 'conj)