]>
Commit | Line | Data |
---|---|---|
27e6dc94 | 1 | /* |
2 | * $Source$ | |
3 | * $Author$ | |
4 | * $Header$ | |
5 | */ | |
6 | ||
7 | #ifndef lint | |
8 | static char *rcsid_rafnu_c = "$Header$"; | |
9 | ||
10 | #endif lint | |
11 | ||
12 | ||
27e6dc94 | 13 | #include <stdio.h> |
14 | #include <ctype.h> | |
27e6dc94 | 15 | |
44d12d58 | 16 | FixCase(char *p) |
27e6dc94 | 17 | { |
44d12d58 | 18 | int cflag; |
27e6dc94 | 19 | |
5eaef520 | 20 | for (cflag = 0; *p; p++) |
21 | { | |
22 | if (cflag && isupper(*p)) | |
23 | *p = tolower(*p); | |
24 | else if (isspace(*p) || ispunct(*p)) | |
25 | cflag = 0; | |
26 | else | |
27 | cflag = 1; | |
27e6dc94 | 28 | } |
29 | } | |
30 | ||
44d12d58 | 31 | LookForJrAndIII(char *nm, int *pends_sr, int *pends_jr, int *pends_iii, |
32 | int *pends_iv) | |
27e6dc94 | 33 | { |
44d12d58 | 34 | int len = strlen(nm); |
27e6dc94 | 35 | |
5eaef520 | 36 | if (len >= 4 && !strcmp(nm + len - 3, " SR")) |
37 | { | |
38 | *pends_sr = 1; | |
39 | nm[len - 3] = '\0'; | |
f8062548 | 40 | } |
5eaef520 | 41 | else if (len >= 4 && !strcmp(nm + len - 3, " JR")) |
42 | { | |
43 | *pends_jr = 1; | |
44 | nm[len - 3] = '\0'; | |
27e6dc94 | 45 | } |
5eaef520 | 46 | else if (len >= 4 && !strcmp(nm + len - 3, " IV")) |
47 | { | |
48 | *pends_iv = 1; | |
49 | nm[len - 3] = '\0'; | |
27e6dc94 | 50 | } |
5eaef520 | 51 | else if (len >= 5 && !strcmp(nm + len - 4, " SR.")) |
52 | { | |
53 | *pends_sr = 1; | |
54 | nm[len - 4] = '\0'; | |
f8062548 | 55 | } |
5eaef520 | 56 | else if (len >= 5 && !strcmp(nm + len - 4, " JR.")) |
57 | { | |
58 | *pends_jr = 1; | |
59 | nm[len - 4] = '\0'; | |
27e6dc94 | 60 | } |
5eaef520 | 61 | else if (len >= 5 && !strcmp(nm + len - 4, " III")) |
62 | { | |
63 | *pends_iii = 1; | |
64 | nm[len - 4] = '\0'; | |
27e6dc94 | 65 | } |
66 | } | |
67 | ||
44d12d58 | 68 | LookForSt(char *nm) /* ST PIERRE, etc. */ |
27e6dc94 | 69 | { |
5eaef520 | 70 | char temp[256]; |
27e6dc94 | 71 | |
5eaef520 | 72 | if (!strcmp(nm, "ST ")) |
73 | { | |
74 | strcpy(temp, nm + 3); | |
75 | strcpy(nm, "ST. "); | |
76 | strcat(nm, temp); | |
27e6dc94 | 77 | } |
78 | } | |
79 | ||
44d12d58 | 80 | LookForO(char *nm) /* O BRIEN, etc. */ |
27e6dc94 | 81 | { |
5eaef520 | 82 | if (!strcmp(nm, "O ") && isalpha(nm[2])) |
83 | nm[1] = '\''; | |
27e6dc94 | 84 | } |