comparison lisp/play/doctor.el @ 3591:507f64624555

Apply typo patches from Paul Eggert.

3590:d5f22061277d

	  (such lewdness is not appreciated \.)))
  (make-local-variable 'deathlst)
  (setq deathlst
	'((this is not a healthy way of thinking \.)
	  (($ bother) you\, too\, may die someday \?)
	  (i am worried by your obssession with this topic!)
	  (did you watch a lot of crime and violence on television as a child \?))
	)
  (make-local-variable 'sexlst)
  (setq sexlst 
	'((($ areyou) ($ afraidof) sex \?)

(doctor-put-meaning eliza 'eliza)
(doctor-put-meaning liza 'eliza)
(doctor-put-meaning elisa 'eliza)
(doctor-put-meaning weizenbaum 'eliza)
(doctor-put-meaning doktor 'eliza)
(doctor-put-meaning atheletics 'sports)
(doctor-put-meaning baseball 'sports)
(doctor-put-meaning basketball 'sports)
(doctor-put-meaning football 'sports)
(doctor-put-meaning frisbee 'sports)
(doctor-put-meaning gym 'sports)

				    (get (get word 'doctor-correction) 'doctor-expansion)
				  (list word)))
			     sent))))

(defun doctor-shorten (sent)
  "Make a sentence managably short using a few hacks."
  (let (foo
	retval
	(temp '(because but however besides anyway until
		    while that except why how)))
    (while temp

(mapcar (function (lambda (x) (put x 'doctor-sentence-type 'verb)))
	'(abort aborted aborts ask asked asks am
		applied applies apply are associate
		associated ate
		be became become becomes becoming
		been being believe belived believes
		bit bite bites bore bored bores boring bought buy buys buying
		call called calling calls came can caught catch come
		contract contracted contracts control controlled controls
		could croak croaks croaked cut cuts
		dare dared define defines dial dialed dials did die died dies
		dislike disliked
		dislikes do does drank drink drinks drinking
		drive drives driving drove dying
		eat eating eats expand expanded expands
		expect expected expects expel expels expeled expelled
		explain explained explains
		fart farts feel feels felt fight fights find finds finding
		forget forgets forgot fought found fuck fucked
		fucking fucks
		gave get gets getting give gives go goes going gone got gotten

		send sendind sends sent shall shoot shot should
		sing sings sit sits sitting sold studied study
		take takes taking talk talked talking talks tell tells telling
		think thinks
		thought told took tooled touch touched touches touching
		transfer transfered transfers transmit transmits transmitted
		type types types typing
		walk walked walking walks want wanted wants was watch
		watched watching went were will wish would work worked works
		write writes writing wrote use used uses using))

		sixteen seventeen eighteen nineteen
		twenty thirty forty fifty sixty seventy eighty ninety
		hundred thousand million billion
		half quarter
		first second third fourth fifth
		sixth seventh eighth nineth tenth)))
		 
(defun doctor-colorp (x)
  (memq x '(beige black blue brown crimson
		  gray grey green
		  orange pink purple red tan tawny

3591:507f64624555

	  (such lewdness is not appreciated \.)))
  (make-local-variable 'deathlst)
  (setq deathlst
	'((this is not a healthy way of thinking \.)
	  (($ bother) you\, too\, may die someday \?)
	  (i am worried by your obsession with this topic!)
	  (did you watch a lot of crime and violence on television as a child \?))
	)
  (make-local-variable 'sexlst)
  (setq sexlst 
	'((($ areyou) ($ afraidof) sex \?)

(doctor-put-meaning eliza 'eliza)
(doctor-put-meaning liza 'eliza)
(doctor-put-meaning elisa 'eliza)
(doctor-put-meaning weizenbaum 'eliza)
(doctor-put-meaning doktor 'eliza)
(doctor-put-meaning athletics 'sports)
(doctor-put-meaning baseball 'sports)
(doctor-put-meaning basketball 'sports)
(doctor-put-meaning football 'sports)
(doctor-put-meaning frisbee 'sports)
(doctor-put-meaning gym 'sports)

				    (get (get word 'doctor-correction) 'doctor-expansion)
				  (list word)))
			     sent))))

(defun doctor-shorten (sent)
  "Make a sentence manageably short using a few hacks."
  (let (foo
	retval
	(temp '(because but however besides anyway until
		    while that except why how)))
    (while temp

(mapcar (function (lambda (x) (put x 'doctor-sentence-type 'verb)))
	'(abort aborted aborts ask asked asks am
		applied applies apply are associate
		associated ate
		be became become becomes becoming
		been being believe believed believes
		bit bite bites bore bored bores boring bought buy buys buying
		call called calling calls came can caught catch come
		contract contracted contracts control controlled controls
		could croak croaks croaked cut cuts
		dare dared define defines dial dialed dials did die died dies
		dislike disliked
		dislikes do does drank drink drinks drinking
		drive drives driving drove dying
		eat eating eats expand expanded expands
		expect expected expects expel expels expelled
		explain explained explains
		fart farts feel feels felt fight fights find finds finding
		forget forgets forgot fought found fuck fucked
		fucking fucks
		gave get gets getting give gives go goes going gone got gotten

		send sendind sends sent shall shoot shot should
		sing sings sit sits sitting sold studied study
		take takes taking talk talked talking talks tell tells telling
		think thinks
		thought told took tooled touch touched touches touching
		transfer transferred transfers transmit transmits transmitted
		type types types typing
		walk walked walking walks want wanted wants was watch
		watched watching went were will wish would work worked works
		write writes writing wrote use used uses using))

		sixteen seventeen eighteen nineteen
		twenty thirty forty fifty sixty seventy eighty ninety
		hundred thousand million billion
		half quarter
		first second third fourth fifth
		sixth seventh eighth ninth tenth)))
		 
(defun doctor-colorp (x)
  (memq x '(beige black blue brown crimson
		  gray grey green
		  orange pink purple red tan tawny