# Ethay Egentsray ofway ethay Universityway ofway Aliforniacay.

fortuneと同じく、BSD Unixにあった /usr/games。

/usr/games には「gameなの?」と言いたくなるような役に立つもの、例えば banner などもあった。初めて Red Hat 系 linux を触ったときに、banner がなくて愕然としたのを憶えている。pom (月齢計算)も役に立つよなぁ? たださ、このね、pig の意味がわからなかったんだ。今でもわからない。

pig.c
  1 /* ---- ORIGINAL COPYRIGHT BEGIN ----- */
2 /*    $NetBSD: pig.c,v 1.11 2004/11/05 21:30:32 dsl Exp$   */
3 /*-
4  * Copyright (c) 1992, 1993
6  *
7  * Redistribution and use in source and binary forms, with or without
8  * modification, are permitted provided that the following conditions
9  * are met:
10  * 1. Redistributions of source code must retain the above copyright
11  *    notice, this list of conditions and the following disclaimer.
12  * 2. Redistributions in binary form must reproduce the above copyright
13  *    notice, this list of conditions and the following disclaimer in the
14  *    documentation and/or other materials provided with the distribution.
15  * 3. Neither the name of the University nor the names of its contributors
16  *    may be used to endorse or promote products derived from this software
17  *    without specific prior written permission.
18  *
19  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS AS IS'' AND
20  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29  * SUCH DAMAGE.
30  */
31
32 #ifndef lint
35 #endif /* not lint */
36
37 #ifndef lint
38 #if 0
39 static char sccsid[] = "@(#)pig.c   8.2 (Berkeley) 5/4/95";
40 #else
41 __RCSID("$NetBSD: pig.c,v 1.11 2004/11/05 21:30:32 dsl Exp$");
42 #endif
43 #endif /* not lint */
44 /* ---- ORIGINAL COPYRIGHT END ----- */
45
46 /*以降 C89/90 化と BSD 依存部分除去だけした、「ほぼ元のまま」*/
47
48 #include <stdio.h>
49 #include <stdlib.h>
50 #include <string.h>
51 #include <sys/types.h>
52 #include <ctype.h>
53
54 void pigout(char* buf, int len)
55 {
56   int ch, start, i;
57   int olen, allupper, firstupper;
58
59   /* See if the word is all upper case */
60   allupper = firstupper = isupper((unsigned char)buf[0]);
61   for (i = 1; i < len && allupper; i++)
62     allupper = allupper && isupper((unsigned char)buf[i]);
63
64   /*
65    * If the word starts with a vowel, append "way".  Don't treat 'y'
66    * as a vowel if it appears first.
67    */
68   if (strchr("aeiouAEIOU", buf[0]) != NULL) {
69     (void)printf("%.*s%s", len, buf,
70          allupper ? "WAY" : "way");
71     return;
72   }
73
74   /*
75    * Copy leading consonants to the end of the word.  The unit "qu"
76    * isn't treated as a vowel.
77    */
78   if (!allupper)
79     buf[0] = tolower((unsigned char)buf[0]);
80   for (start = 0, olen = len;
81        !strchr("aeiouyAEIOUY", buf[start]) && start < olen;) {
82     ch = buf[len++] = buf[start++];
83     if ((ch == 'q' || ch == 'Q') && start < olen &&
84     (buf[start] == 'u' || buf[start] == 'U'))
85       buf[len++] = buf[start++];
86   }
87   if (firstupper)
88     buf[start] = toupper((unsigned char)buf[start]);
89   (void)printf("%.*s%s", olen, buf + start, allupper ? "AY" : "ay");
90 }
91
92 int main(int argc, char** argv)
93 {
94   int len;
95   int ch;
96   char buf[1024];
97
98   for (len = 0; (ch = getchar()) != EOF;) {
99     if (isalpha(ch)) {
100       if ((size_t)len >= sizeof(buf))
101         return 1;
102       buf[len++] = ch;
103       continue;
104     }
105     if (len != 0) {
106       pigout(buf, len);
107       len = 0;
108     }
109     (void)putchar(ch);
110   }
111   return 0;
112 }