annotate lisp/play/studly.el @ 16842:72276b334084 before-thomas-posix1996 glibc-2_0_2 libc-970108 libc-970109 libc-970110 libc-970111 libc-970112 libc-970113 libc-970114 libc-970115 libc-970116 libc-970117 libc-970118 libc-970119 libc-970120 libc-970121 libc-970122 libc-970123 libc-970124 libc-970125 libc-970126 libc-970127 libc-970128 libc-970129 libc-970130 libc-970131 libc-970201 libc-970202 libc-970203 libc-970204 libc-970205 libc-970206 libc-970207 libc-970208 libc-970209 libc-970210 libc-970211 libc-970212 libc-970213 libc-970214 libc-970215 libc-970216 libc-970217 libc-970218 libc-970219 libc-970220 libc-970221 libc-970222 libc-970223 libc-970224 libc-970225 libc-970226 libc-970227 libc-970228 libc-970301 libc-970302 libc-970303 libc-970304 libc-970305 libc-970306 libc-970307 libc-970308 libc-970309 libc-970310 libc-970311 libc-970312 libc-970313 libc-970314 libc-970315 libc-970316 libc-970317 libc-970318 libc-970319 libc-970320 libc-970321 libc-970322 libc-970323 libc-970324 libc20x-970306 libc20x-97031 libc20x-970316 libc20x-970318 libc20x-970319 libc20x-970404 root-libc-2_0_x-branch

Add hppa1.1-hitachi-hiuxmpp support, passed along by rms.
author David J. MacKenzie <djm@gnu.org>
date Tue, 07 Jan 1997 19:29:28 +0000
parents 9e7ec92a4fdf
children 11218164bc54
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
657
fec3f9a1e3e5 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2
diff changeset
1 ;;; studly.el --- StudlyCaps (tm)(r)(c)(xxx)
787
3cece0106722 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 665
diff changeset
2
665
f9274ecd9acd *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 664
diff changeset
3 ;;; This is in the public domain, since it was distributed
f9274ecd9acd *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 664
diff changeset
4 ;;; by its author without a copyright notice in 1986.
2
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5
841
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
6 ;; Keywords: games
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
7
2315
9e7ec92a4fdf Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 841
diff changeset
8 ;;; Commentary:
9e7ec92a4fdf Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 841
diff changeset
9
9e7ec92a4fdf Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 841
diff changeset
10 ;; Functions to studlycapsify a region, word, or buffer. Possibly the
9e7ec92a4fdf Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 841
diff changeset
11 ;; esoteric significance of studlycapsification escapes you; that is,
9e7ec92a4fdf Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 841
diff changeset
12 ;; you suffer from autostudlycapsifibogotification. Too bad.
9e7ec92a4fdf Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 841
diff changeset
13
787
3cece0106722 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 665
diff changeset
14 ;;; Code:
3cece0106722 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 665
diff changeset
15
2
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 (defun studlify-region (begin end)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 "Studlify-case the region"
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 (interactive "*r")
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19 (save-excursion
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20 (goto-char begin)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21 (setq begin (point))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22 (while (and (<= (point) end)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23 (not (looking-at "\\W*\\'")))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24 (forward-word 1)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25 (backward-word 1)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
26 (setq begin (max (point) begin))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
27 (forward-word 1)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
28 (let ((offset 0)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
29 (word-end (min (point) end))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
30 c)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
31 (goto-char begin)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
32 (while (< (point) word-end)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
33 (setq offset (+ offset (following-char)))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
34 (forward-char 1))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35 (setq offset (+ offset (following-char)))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
36 (goto-char begin)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
37 (while (< (point) word-end)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
38 (setq c (following-char))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39 (if (and (= (% (+ c offset) 4) 2)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
40 (let ((ch (following-char)))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41 (or (and (>= ch ?a) (<= ch ?z))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42 (and (>= ch ?A) (<= ch ?Z)))))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43 (progn
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
44 (delete-char 1)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
45 (insert (logxor c ? ))))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46 (forward-char 1))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47 (setq begin (point))))))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49 (defun studlify-word (count)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50 "Studlify-case the current word, or COUNT words if given an argument"
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
51 (interactive "*p")
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
52 (let ((begin (point)) end rb re)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53 (forward-word count)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
54 (setq end (point))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
55 (setq rb (min begin end) re (max begin end))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
56 (studlify-region rb re)))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
57
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58 (defun studlify-buffer ()
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
59 "Studlify-case the current buffer"
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
60 (interactive "*")
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
61 (studlify-region (point-min) (point-max)))
657
fec3f9a1e3e5 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2
diff changeset
62
fec3f9a1e3e5 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2
diff changeset
63 ;;; studly.el ends here