lib/ss/request_tbl.c

   1 /*
   2  * Copyright 1987, 1988 by MIT Student Information Processing Board
   3  *
   4  * Permission to use, copy, modify, and distribute this software and
   5  * its documentation for any purpose is hereby granted, provided that
   6  * the names of M.I.T. and the M.I.T. S.I.P.B. not be used in
   7  * advertising or publicity pertaining to distribution of the software
   8  * without specific, written prior permission.  M.I.T. and the
   9  * M.I.T. S.I.P.B. make no representations about the suitability of
  10  * this software for any purpose.  It is provided "as is" without
  11  * express or implied warranty.
  12  */
  13
  14 #ifdef HAVE_ERRNO_H
  15 #include <errno.h>
  16 #endif
  17
  18 #include "ss_internal.h"
  19
  20 #define ssrt ss_request_table   /* for some readable code... */
  21
  22 void ss_add_request_table(sci_idx, rqtbl_ptr, position, code_ptr)
  23         int sci_idx;
  24         ssrt *rqtbl_ptr;
  25         int position;           /* 1 -> becomes second... */
  26         int *code_ptr;
  27 {
  28         register ss_data *info;
  29         register int i, size;
  30
  31         info = ss_info(sci_idx);
  32         for (size=0; info->rqt_tables[size] != (ssrt *)NULL; size++)
  33                 ;
  34         /* size == C subscript of NULL == #elements */
  35         size += 2;              /* new element, and NULL */
  36         info->rqt_tables = (ssrt **)realloc(info->rqt_tables,
  37                                             (unsigned)size*sizeof(ssrt));
  38         if (info->rqt_tables == (ssrt **)NULL) {
  39                 *code_ptr = errno;
  40                 return;
  41         }
  42         if (position > size - 2)
  43                 position = size - 2;
  44
  45         if (size > 1)
  46                 for (i = size - 2; i >= position; i--)
  47                         info->rqt_tables[i+1] = info->rqt_tables[i];
  48
  49         info->rqt_tables[position] = rqtbl_ptr;
  50         info->rqt_tables[size-1] = (ssrt *)NULL;
  51         *code_ptr = 0;
  52 }
  53
  54 void ss_delete_request_table(sci_idx, rqtbl_ptr, code_ptr)
  55      int sci_idx;
  56      ssrt *rqtbl_ptr;
  57      int *code_ptr;
  58 {
  59      register ss_data *info;
  60      register ssrt **rt1, **rt2;
  61
  62      *code_ptr = SS_ET_TABLE_NOT_FOUND;
  63      info = ss_info(sci_idx);
  64      rt1 = info->rqt_tables;
  65      for (rt2 = rt1; *rt1; rt1++) {
  66           if (*rt1 != rqtbl_ptr) {
  67                *rt2++ = *rt1;
  68                *code_ptr = 0;
  69           }
  70      }
  71      *rt2 = (ssrt *)NULL;
  72      return;
  73 }