Initial revision

lisp/play/yow.el

@@ -0,0 +1,86 @@
+;; Copyright (C) 1985, 1987 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 1, or (at your option)
+;; any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to
+;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+
+(provide 'yow)
+
+; Randomize the seed in the random number generator.
+(random t)
+
+; Important pinheaddery for GNU Emacs.
+; Expects file emacs/etc/yow.lines to be in ITS-style LINS format
+;  (ie strings terminated by ascii 0 characters.  Leading whitespace ignored)
+; Everything up to the first \000 is a comment.
+(defun yow (&optional n interactive)
+  "Return or display a Zippy quotation."
+  (interactive "P\np")
+  (if (null yow-vector)
+      (setq yow-vector (snarf-yows)))
+  (cond (n (setq n (prefix-numeric-value n)))
+	((>= (setq n (random (length yow-vector))) 0))
+	(t (setq n (- n))))
+  (let ((yow (aref yow-vector n)))
+    (cond ((not interactive)
+	   yow)
+	  ((not (string-match "\n" yow))
+	   (delete-windows-on (get-buffer-create "*Help*"))
+	   (message "%s" yow))
+	  (t
+	   (message "Yow!")
+	   (with-output-to-temp-buffer "*Help*"
+	     (princ yow))))))
+
+(defvar yow-vector nil "Pertinent pinhead statements")
+(defun snarf-yows (&optional file)
+  (save-excursion
+    (let ((buf (generate-new-buffer " yow"))
+	  (result '())
+	  (cursor-in-echo-area t))
+      (message "Am I CONSING yet?...")
+      (set-buffer buf)
+      (insert-file-contents (or file
+				(expand-file-name "yow.lines" exec-directory)))
+      (search-forward "\0")
+      (while (progn (skip-chars-forward " \t\n\r\f") (not (eobp)))
+	(let ((beg (point)))
+	  (search-forward "\0")
+	  (setq result (cons (buffer-substring beg (1- (point)))
+			     result))))
+      (kill-buffer buf)
+      (message "I have SEEN the CONSING!!" (length result))
+      (apply 'vector (nreverse result)))))
+
+; Yowza!! Feed zippy quotes to the doctor. Watch results.
+; fun, fun, fun. Entertainment for hours...
+;
+; written by Kayvan Aghaiepour
+
+(defun psychoanalyze-pinhead ()
+  "Zippy goes to the analyst."
+  (interactive)
+  (doctor)				; start the psychotherapy
+  (if (null yow-vector)
+      (setq yow-vector (snarf-yows)))
+  (message "")
+  (switch-to-buffer "*doctor*")
+  (sit-for 0)
+  (while (not (input-pending-p))
+    (insert-string (yow))
+    (sit-for 0)
+    (doctor-ret-or-read 1)
+    (doctor-ret-or-read 1)))
+