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