home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / functions / randomize.el < prev    next >
Encoding:
Text File  |  1992-04-07  |  2.4 KB  |  68 lines
  1. ; Path: hal.com!decwrl!mips!pacbell.com!iggy.GW.Vitalink.COM!widener!dsinc!bagate!cbmvax!devon!dastari!dastari!hermit
  2. ; From: hermit@dastari.uucp (Mark Buda)
  3. ; Newsgroups: gnu.emacs.sources
  4. ; Subject: randomizing text
  5. ; Date: 26 Mar 92 19:34:26 GMT
  6. ; Reply-To: hermit%dastari.uucp@devon.lns.pa.us
  7. ; Organization: Competitive Computer Systems, Inc.
  8. ; 
  9. ;; Here are a couple functions I whipped up to take a region or
  10. ;; rectangle and randomize it. (It was the first thing I wrote in
  11. ;; Elisp.) The original purpose was to be able to include sample
  12. ;; reports from an accounting system in the documentation without
  13. ;; having to make up test data or reveal somebody's actual data.
  14.  
  15. ;; randomize-rectangle randomizes a rectangle; randomize-text does the
  16. ;; region.
  17.  
  18. ;; LCD Archive Entry:
  19. ;; randomize|Mark Buda|hermit@dastari.uucp|
  20. ;; Randomize a rectangle or region by replacing letters and numbers randomly.|
  21. ;; 92-03-26||~/functions/randomize.el.Z|
  22.  
  23. ;; Capital letters are turned into other capital letters, lowercase
  24. ;; into other lowercase, and numbers into other numbers. Everything
  25. ;; else is left alone.
  26.  
  27. ;; Copyright 1991 Mark R. Buda (hermit%dastari.uucp@devon.lns.pa.us).
  28. ;; You can do whatever you want with this except distribute it without
  29. ;; source code or misrepresent its authorship. (Meaning, you must
  30. ;; preserve this copyright notice, and if you distribute a modified
  31. ;; version, you must note that in the source.)
  32.  
  33. ;; randomize some text
  34.  
  35. (load-library "rect")
  36.  
  37. (defun rnd (number)
  38.   "Generate a random integer x, 0 <= x < NUMBER"
  39.   (interactive "nRandom from 0 to: ")
  40.   (setq number (% (random) number))
  41.   (if (< number 0) (- number) number))
  42.  
  43. (defun randomize-text (start end)
  44.   "Replace text and numbers in the region with randomly generated text."
  45.   (interactive "r")
  46.   (let ((case-fold-search nil))
  47.     (save-excursion
  48.       (goto-char start)
  49.       (while (/= (point) end)
  50.     (cond ((looking-at "[0-9]")
  51.            (delete-char 1)
  52.            (insert-char (+ ?0 (rnd 10)) 1))
  53.           ((looking-at "[a-z]")
  54.            (delete-char 1)
  55.            (insert-char (+ ?a (rnd 26)) 1))
  56.           ((looking-at "[A-Z]")
  57.            (delete-char 1)
  58.            (insert-char (+ ?A (rnd 26)) 1))
  59.           (t (forward-char 1)))))))
  60.  
  61. (defun randomize-rectangle (start end)
  62.   "Replace text and numbers in a rectangle with randomly generated text."
  63.   (interactive "r")
  64.   (operate-on-rectangle
  65.    (function (lambda (start before end)
  66.            (randomize-text start (point))))
  67.    start end nil))
  68.