sync'ing files for RCS->CVS migration

[moira.git] / db / match.qc

diff --git a/db/match.qc b/db/match.qc
deleted file mode 100644 (file)
index 6580171..0000000
--- a/db/match.qc
+++ /dev/null
@@ -1,79 +0,0 @@
-/*  (c) Copyright 1988 by the Massachusetts Institute of Technology. */
-/*  For copying and distribution information, please see the file */
-/*  <mit-copyright.h>. */
-
-#include <mit-copyright.h>
-#include <stdio.h>
-
-char *malloc(), *strsave();
-
-struct np {
-    struct np *next; /* this must be the first field */
-    int        id;
-    char *dir;
-};
-struct np **nfsphys = NULL;
-
-int match_phys(mach, directory)
-int mach;
-char *directory;
-{
-    struct np *p, *n;
-
-    if (nfsphys == NULL)
-##    {
-##     int id, maxmach, mid;
-##     char dir[65];
-
-       printf("Building NFSphys table\n");
-##     range of n is nfsphys
-##     retrieve (maxmach = max(machine.mach_id))
-       maxmach++;
-       nfsphys = (struct np **) malloc(maxmach * sizeof(struct np *));
-       bzero(nfsphys, maxmach * sizeof(struct np *));
-##     retrieve (id = n.nfsphys_id, mid = n.mach_id, dir = n.#dir)
-##             sort by #dir:d {
-           n = (struct np *) malloc(sizeof(struct np));
-           n->next = NULL;
-           n->id = id;
-           n->dir = strsave(strtrim(dir));
-           p = (struct np *)&nfsphys[mid];
-           while (p->next)
-             p = p->next;
-           p->next = n;
-##     }
-##    }
-
-    if ((n = nfsphys[mach]) == NULL)
-      return(0);
-    while (n) {
-       if (!strncmp(directory, n->dir, strlen(n->dir)))
-         return(n->id);
-       n = n->next;
-    }
-    return(0);
-}
-
-
-##int match_filsys(mach, device, user)
-##int mach;
-##char *device;
-##int user;
-##{
-##  int mid, fid;
-##  char dev[33];
-
-##  repeat retrieve (fid = f.filsys_id, mid = f.mach_id, dev = n.#device)
-##     where f.label = u.login and n.nfsphys_id = f.phys_id and
-##             u.users_id = @user
-    if (mid == mach && !strcmp(device, strtrim(dev)))
-      return(fid);
-    fid = 0;
-##  repeat retrieve unique (fid = f.filsys_id) where f.mach_id = @mach and
-##     f.name = @device
-    if (fid == 0) {
-##     repeat retrieve unique (fid = f.filsys_id) where f.mach_id = @mach and
-##             f.phys_id = n.nfsphys_id and n.#device = @device
-    }
-    return(fid);
-##}