home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / editors / 2836 < prev    next >
Encoding:
Text File  |  1992-11-21  |  2.4 KB  |  116 lines
  1. Newsgroups: comp.editors
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!pacific.mps.ohio-state.edu!pacific.mps.ohio-state.edu!davis
  3. From: davis@pacific.mps.ohio-state.edu ("John E. Davis")
  4. Subject: rot13.sl for JED
  5. Message-ID: <DAVIS.92Nov21165702@pacific.mps.ohio-state.edu>
  6. Sender: news@pacific.mps.ohio-state.edu
  7. Nntp-Posting-Host: pacific.mps.ohio-state.edu
  8. Reply-To: davis@pacific.mps.ohio-state.edu  (John E. Davis)
  9. Organization: "Dept. of Physics, The Ohio State University"
  10. Date: Sat, 21 Nov 1992 21:57:02 GMT
  11. Lines: 103
  12.  
  13. Hi,
  14.  
  15.    Here is a rot13.sl file for encrypting/decrypting text via rotating chars
  16. a-z by 13.  To use it, cut it out, call it rot13.sl and put it in JED_LIBRARY.
  17. Then put the following line in your .jedrc or site.sl:
  18.  
  19. "rot13.sl" evalfile
  20.  
  21. Then in JED set the mark and move the Point to define a region.  Then enter
  22. ^[X (escape X) or whatever you have `evaluate_cmd' bound to and type: rot13
  23. at the JED> prompt, i.e.,
  24.  
  25. Escape-X
  26.  
  27. JED> rot13
  28.  
  29. Or, instead of always loading it, even when you do not need it, simply do:
  30.  
  31. Escape-X
  32.  
  33. JED> "rot13.sl" evalfile rot13
  34.  
  35. This loads it then evaluates the function which rotates the region.
  36.  
  37. In a later release of JED, I will add autoloading so that something like:
  38.  
  39. "rot13" "rot13.sl" autoload
  40.  
  41. but that is later.
  42.  
  43. Here is the file.  Enjoy.
  44.  
  45. ;;
  46. ;;  rot13.sl
  47. ;;
  48. ( [ch delta] =ch
  49.   0 =delta
  50.   ;; M is 77
  51.   ;; A is 65, Z is 90
  52.   
  53.   ch 90 > { 32 =delta ch 32 - =ch} if
  54.   
  55.   {ch 65 <}{ch 90 >} orelse {1 right pop return} if
  56.   
  57.   
  58.   ch 77 > {ch 13 - =ch}{ ch 13 + =ch} else
  59.   del 
  60.   ch delta + char insert
  61. ) do_rot13
  62.  
  63. ( 
  64.   [n r1 c1 c2]
  65.   markp { "Set mark!" error } !if
  66.   
  67.   push_spot
  68.   
  69.   what_column =c2
  70.   whatline "exchange" call whatline =r1
  71.   r1 - =n  ;number of lines - 1
  72.   what_column =c1
  73.   
  74.   {n 0 ==} {c1 c2 ==} andelse {"bad region!" error} if
  75.   
  76.   n 0 < { n chs =n 
  77.           r1 n - =r1
  78.       c1 c2 =c1 =c2
  79.     } if
  80.  
  81.   n 0 == { c1 c2 > { c1 c2 =c1 =c2  "hmm" message } if } if
  82.   
  83.   r1 goto_line c1 goto_column
  84.  
  85.   n { 
  86.        eolp 0 == 
  87.          {  pop
  88.         what_char do_rot13
  89.         eolp {0}{1} else
  90.      } while
  91.        1 down pop bol
  92.     } loop
  93.     
  94.   ;; take care of final line
  95.     
  96.    what_column c2 < 
  97.      { pop 
  98.        what_char do_rot13
  99.        what_column c2 <
  100.      } while
  101.      
  102.   pop_spot
  103. ) rot13
  104.  
  105.  
  106.   
  107.  
  108. --
  109.      _____________
  110. #___/John E. Davis\_________________________________________________________
  111. #
  112. # internet: davis@amy.tch.harvard.edu
  113. #   bitnet: davis@ohstpy
  114. #   office: 617-735-6746
  115. #
  116.