]>
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 | |
5eaef520 | 16 | FixCase(register char *p) |
27e6dc94 | 17 | { |
5eaef520 | 18 | register 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 | ||
5eaef520 | 31 | LookForJrAndIII(register char *nm, register int *pends_sr, |
32 | register int *pends_jr, register int *pends_iii, | |
33 | register int *pends_iv) | |
27e6dc94 | 34 | { |
5eaef520 | 35 | register int len = strlen(nm); |
27e6dc94 | 36 | |
5eaef520 | 37 | if (len >= 4 && !strcmp(nm + len - 3, " SR")) |
38 | { | |
39 | *pends_sr = 1; | |
40 | nm[len - 3] = '\0'; | |
f8062548 | 41 | } |
5eaef520 | 42 | else if (len >= 4 && !strcmp(nm + len - 3, " JR")) |
43 | { | |
44 | *pends_jr = 1; | |
45 | nm[len - 3] = '\0'; | |
27e6dc94 | 46 | } |
5eaef520 | 47 | else if (len >= 4 && !strcmp(nm + len - 3, " IV")) |
48 | { | |
49 | *pends_iv = 1; | |
50 | nm[len - 3] = '\0'; | |
27e6dc94 | 51 | } |
5eaef520 | 52 | else if (len >= 5 && !strcmp(nm + len - 4, " SR.")) |
53 | { | |
54 | *pends_sr = 1; | |
55 | nm[len - 4] = '\0'; | |
f8062548 | 56 | } |
5eaef520 | 57 | else if (len >= 5 && !strcmp(nm + len - 4, " JR.")) |
58 | { | |
59 | *pends_jr = 1; | |
60 | nm[len - 4] = '\0'; | |
27e6dc94 | 61 | } |
5eaef520 | 62 | else if (len >= 5 && !strcmp(nm + len - 4, " III")) |
63 | { | |
64 | *pends_iii = 1; | |
65 | nm[len - 4] = '\0'; | |
27e6dc94 | 66 | } |
67 | } | |
68 | ||
5eaef520 | 69 | LookForSt(register char *nm) /* ST PIERRE, etc. */ |
27e6dc94 | 70 | { |
5eaef520 | 71 | char temp[256]; |
27e6dc94 | 72 | |
5eaef520 | 73 | if (!strcmp(nm, "ST ")) |
74 | { | |
75 | strcpy(temp, nm + 3); | |
76 | strcpy(nm, "ST. "); | |
77 | strcat(nm, temp); | |
27e6dc94 | 78 | } |
79 | } | |
80 | ||
5eaef520 | 81 | LookForO(register char *nm) /* O BRIEN, etc. */ |
27e6dc94 | 82 | { |
5eaef520 | 83 | if (!strcmp(nm, "O ") && isalpha(nm[2])) |
84 | nm[1] = '\''; | |
27e6dc94 | 85 | } |