remove unused code (including the function this file is named after,

now making its name _completely_ obscure)

diff --git a/regtape/rafnu.c b/regtape/rafnu.c
index be5b7fe35aa074daae1d831588aa126638ef8cc8..9c75972edccbd7245f79f875e4abae100fce5150 100644 (file)
--- a/regtape/rafnu.c
+++ b/regtape/rafnu.c
@@ -10,241 +10,8 @@ static char *rcsid_rafnu_c = "$Header$";
 #endif lint
 
 
-/* ReadAndFixNextUser reads in a student record line in the format
- * of the registrar's tape and hacks on the info to make it conform
- * to athenareg's standards.  For example, the line
-  
-123321123 ALBERGHETTI III                        JOANNA MARIA             97
-  
- * gets processed into:
- *
- * -->
- * {nil, nil, nil, nil,
- *  last -> "Alberghetti",
- *  first -> "Joanna III",
- *  mid_init -> "M",
- *  nil,
- *  crypt_ssn -> "aj7.NBbasJbn8"       ; encrypted with salt "aj"
- *  year -> "97",
- *  nil}
- *
- */
-
 #include <stdio.h>
 #include <ctype.h>
-#ifdef USE_CRYPT_H
-#include <crypt.h>
-#else
-#include <unistd.h>
-#endif
-
-#define LAST_LEN               15
-#define FIRST_LEN              15
-#define FULL_NAME_LEN          31
-
-#define REG_TAPE_LINE_LEN      77
-#define SSN_OFFSET             0
-#define SSN_ILEN               9
-#define LAST_NAME_OFFSET       10
-#define LAST_NAME_MAX_ILEN     39
-#define FIRST_NAME_OFFSET      49
-#define FIRST_NAME_MAX_ILEN    25
-#define MIT_YEAR_OFFSET                74
-#define MIT_YEAR_ILEN          2
-
-#define BUFSIZE  1024
-
-int 
-ReadAndFixNextUser(s, querc, querv)
-    FILE *s;
-    int querc;
-    char **querv;
-
-{
-    char ibuf[BUFSIZE];                /* input line buffer */
-    static lno = 0;            /* line number */
-    int len;                   /* line length */
-    char issn[SSN_ILEN + 1];
-    char ilnm[LAST_NAME_MAX_ILEN + 1];
-    char ifnm[FIRST_NAME_MAX_ILEN + 1 + 6];    /* extra for ", Jr.", et al */
-    char iyr[MIT_YEAR_ILEN + 1];
-    int ends_sr = 0;           /* 1 if name ends in "SR" or "SR." */
-    int ends_jr = 0;           /* 1 if name ends in "JR" or "JR." */
-    int ends_iii = 0;          /* 1 if name ends in "III" */
-    int ends_iv = 0;           /* 1 if name ends in "IV" */
-    char salt[2];
-    register char *p;
-
-    for (;;) {                 /* ... well, at least until we get a good
-                                * input line */
-       if (fgets(ibuf, BUFSIZE, s) == NULL) {
-           fprintf(stderr, "Reached EOF after line %d.\n", lno);
-           return (EOF);       /* reached EOF */
-       }
-/* 
- * POTENTIAL  BUG!!!   fgets will not remove \n from input stream
- *                      May need to manually get that character off
- */
-       lno++;
-
-       if ((len = strlen(ibuf)) != REG_TAPE_LINE_LEN) {
-           fprintf(stderr, "bad length\n");
-           goto complain_and_continue;
-       }
-
-       /* grab and check input SSN */
-
-       issn[SSN_ILEN] = '\0';
-       (void) strncpy(issn, ibuf + SSN_OFFSET, SSN_ILEN);
-       for (p = issn; *p; p++) {
-           if (!isdigit(*p)) {
-               fprintf(stderr, "bad char \"%c\"\n", *p);
-               goto complain_and_continue;
-           }
-       }
-
-       /* check for blank before last name */
-
-       if (!isspace(ibuf[LAST_NAME_OFFSET - 1])) {
-           fprintf(stderr, "not space \"%c\"\n", ibuf[LAST_NAME_OFFSET - 1]);
-           goto complain_and_continue;
-       }
-
-       /* grab input last name */
-
-       ilnm[LAST_NAME_MAX_ILEN] = '\0';
-       (void) strncpy(ilnm, ibuf + LAST_NAME_OFFSET, LAST_NAME_MAX_ILEN);
-       for (p = ilnm; *p; p++) {
-           if (!isalpha(*p) && *p != '-' && *p != ' ' &&
-               *p != '.' && *p != '\'') {
-               fprintf(stderr, "bad char in name \"%c\"\n", *p);
-               goto complain_and_continue;
-           }
-       }
-
-       /* grab input first name */
-
-       ifnm[FIRST_NAME_MAX_ILEN] = '\0';
-       (void) strncpy(ifnm, ibuf + FIRST_NAME_OFFSET, FIRST_NAME_MAX_ILEN);
-
-       for (p = ifnm; *p; p++) {
-           if (!isalpha(*p) && *p != '-' && *p != ' ' && *p != '.') {
-               fprintf(stderr, "bad char in fname \"%c\"\n", *p);
-               goto complain_and_continue;
-           }
-       }
-
-       /* grab MIT year */
-
-       iyr[MIT_YEAR_ILEN] = '\0';
-       (void) strncpy(iyr, ibuf + MIT_YEAR_OFFSET, MIT_YEAR_ILEN);
-       if (strcmp(iyr, "GG") && strcmp(iyr, "90") && strcmp(iyr, "88")
-           && strcmp(iyr, "89") && strcmp(iyr, "91")) {
-           fprintf(stderr, "bad year \"%s\"\n", iyr);
-           goto complain_and_continue;
-       }
-
-       /* Okay, got everything, now hack on it */
-
-       /* Last name ... */
-
-       TrimTrailingSpace(ilnm);
-       LookForJrAndIII(ilnm, &ends_sr, &ends_jr, &ends_iii, &ends_iv);
-       LookForSt(ilnm);
-       LookForO(ilnm);
-       FixCase(ilnm);
-       (void) strncpy(querv[4], ilnm, LAST_LEN);
-
-       /* First name  & middle initial ... */
-
-       TrimTrailingSpace(ifnm);
-       LookForJrAndIII(ifnm, &ends_sr, &ends_jr, &ends_iii, &ends_iv);
-
-       GetMidInit(ifnm, querv[6]);
-       FixCase(ifnm);
-       (void) strncpy(querv[5], ifnm, FIRST_LEN);
-
-
-       /* okay, finish up first name */
-       AppendJrOrIII(ifnm, &ends_sr, &ends_jr, &ends_iii, &ends_iv);
-
-       /* MIT Year ... */
-
-       if (!strcmp(iyr, "GG")) {
-           (void) strcpy(querv[9], "G\0");
-       }
-       else {
-           (void) strcpy(querv[9], iyr);
-       }
-
-       /* MIT-ID (Social Security Number) ... */
-
-       salt[0] = tolower(*ilnm);
-       salt[1] = tolower(*ifnm);
-       (void) strcpy(querv[8], crypt(issn + 2, salt)); /* last 7 digits only */
-       (void) strcat(querv[8], "\0");
-       /* That's all, folks */
-
-
-       return (lno);
-
-complain_and_continue:
-       fprintf(stderr, "\007ERROR on input line no. %d, len %d:\n",
-               lno, len);
-       fprintf(stderr, "%s\n", ibuf);
-    }
-}
-
-TrimTrailingSpace(ip)
-    register char *ip;
-{
-    register char *p;
-
-    for (p = ip + strlen(ip) - 1; p >= ip && isspace(*p); p--) {
-       *p = '\0';
-    }
-}
-
-GetMidInit(nm, mi)
-    register char *nm;         /* truncate at first space, if any such */
-    register char *mi;         /* set to first char after first space, if
-                                * any such */
-{
-    while (*nm && !isspace(*nm)) {
-       nm++;
-    }
-    if (*nm) {
-       *nm++ = '\0';
-    }
-    while (*nm && isspace(*nm)) {
-       nm++;
-    }
-    if (*nm) {
-       *mi++ = *nm;
-    }
-    *mi = '\0';
-}
-
-AppendJrOrIII(nm, phas_sr, phas_jr, phas_iii, phas_iv)
-    register char *nm;
-    register int *phas_sr;
-    register int *phas_jr;
-    register int *phas_iii;
-    register int *phas_iv;
-{
-    if (*phas_sr) {
-       (void) strcat(nm, ", Sr.");
-    }
-    else if (*phas_jr) {
-       (void) strcat(nm, ", Jr.");
-    }
-    else if (*phas_iii) {
-       (void) strcat(nm, " III");
-    }
-    else if (*phas_iv) {
-       (void) strcat(nm, " IV");
-    }
-}
 
 FixCase(p)
     register char *p;