regtape/rafnu.c

   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
  13 #include <stdio.h>
  14 #include <ctype.h>
  15
  16 FixCase(p)
  17     register char *p;
  18 {
  19     register int cflag;         /* convert to lcase, unless at start or
  20                                  * following */
  21
  22     /* a space or punctuation mark (e.g., '-') */
  23
  24     for (cflag = 0; *p; p++) {
  25         if (cflag && isupper(*p)) {
  26             *p = tolower(*p);
  27         }
  28         else if (isspace(*p) || ispunct(*p)) {
  29             cflag = 0;
  30         }
  31         else {
  32             cflag = 1;
  33         }
  34     }
  35 }
  36
  37 LookForJrAndIII(nm, pends_sr, pends_jr, pends_iii, pends_iv)
  38     register char *nm;
  39     register int *pends_sr;
  40     register int *pends_jr;
  41     register int *pends_iii;
  42     register int *pends_iv;
  43 {
  44     register int len = strlen(nm);
  45
  46     if (len >= 4 && !strcmp(nm + len - 3, " SR")) {
  47         *pends_sr = 1;
  48         nm[len - 3] = '\0';
  49     }
  50     else if (len >= 4 && !strcmp(nm + len - 3, " JR")) {
  51         *pends_jr = 1;
  52         nm[len - 3] = '\0';
  53     }
  54     else if (len >= 4 && !strcmp(nm + len - 3, " IV")) {
  55         *pends_iv = 1;
  56         nm[len - 3] = '\0';
  57     }
  58     else if (len >= 5 && !strcmp(nm + len - 4, " SR.")) {
  59         *pends_sr = 1;
  60         nm[len - 4] = '\0';
  61     }
  62     else if (len >= 5 && !strcmp(nm + len - 4, " JR.")) {
  63         *pends_jr = 1;
  64         nm[len - 4] = '\0';
  65     }
  66     else if (len >= 5 && !strcmp(nm + len - 4, " III")) {
  67         *pends_iii = 1;
  68         nm[len - 4] = '\0';
  69     }
  70 }
  71
  72 LookForSt(nm)                   /* ST PIERRE, etc. */
  73     register char *nm;
  74 {
  75     char temp[256];
  76
  77     if (!strcmp(nm, "ST ")) {
  78         (void) strcpy(temp, nm + 3);
  79         (void) strcpy(nm, "ST. ");
  80         (void) strcat(nm, temp);
  81     }
  82 }
  83
  84 LookForO(nm)                    /* O BRIEN, etc. */
  85     register char *nm;
  86 {
  87     if (!strcmp(nm, "O ") && isalpha(nm[2])) {
  88         nm[1] = '\'';
  89     }
  90 }