cde/programs/dtinfo/DtMmdb/dstr/slist.C

   1 /*
   2  * $XConsortium: slist.cc /main/4 1996/07/18 14:30:12 drk $
   3  *
   4  * Copyright (c) 1993 HAL Computer Systems International, Ltd.
   5  * All rights reserved.  Unpublished -- rights reserved under
   6  * the Copyright Laws of the United States.  USE OF A COPYRIGHT
   7  * NOTICE IS PRECAUTIONARY ONLY AND DOES NOT IMPLY PUBLICATION
   8  * OR DISCLOSURE.
   9  *
  10  * THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE
  11  * SECRETS OF HAL COMPUTER SYSTEMS INTERNATIONAL, LTD.  USE,
  12  * DISCLOSURE, OR REPRODUCTION IS PROHIBITED WITHOUT THE
  13  * PRIOR EXPRESS WRITTEN PERMISSION OF HAL COMPUTER SYSTEMS
  14  * INTERNATIONAL, LTD.
  15  *
  16  *                         RESTRICTED RIGHTS LEGEND
  17  * Use, duplication, or disclosure by the Government is subject
  18  * to the restrictions as set forth in subparagraph (c)(l)(ii)
  19  * of the Rights in Technical Data and Computer Software clause
  20  * at DFARS 252.227-7013.
  21  *
  22  *          HAL COMPUTER SYSTEMS INTERNATIONAL, LTD.
  23  *                  1315 Dell Avenue
  24  *                  Campbell, CA  95008
  25  *
  26  */
  27
  28
  29 #include "dstr/slist.h"
  30 #include "utility/funcs.h"
  31
  32 slist::slist(slist_cell* x) : v_ct(0), v_head(0), v_tail(0)
  33 {
  34    if ( x )
  35       insert_as_tail(x);
  36 }
  37
  38 slist::~slist()
  39 {
  40    slist_cell* y = 0;
  41    slist_cell* x = v_head;
  42
  43    while (x) {
  44       y = x -> v_succ;
  45       delete x;
  46       x = y;
  47    }
  48 }
  49
  50 void slist::append(slist* tail_list)
  51 {
  52    if ( tail_list == 0 ) return;
  53
  54    if ( v_tail != 0 )
  55       v_tail -> v_succ = tail_list -> v_head;
  56
  57    if ( v_head == 0 )
  58       v_head = tail_list -> v_head;
  59
  60    v_tail = tail_list -> v_tail;
  61    v_ct += tail_list -> v_ct;
  62
  63    tail_list -> v_head = tail_list -> v_tail = 0;
  64    tail_list -> v_ct = 0;
  65 }
  66
  67 void slist::insert_as_tail(slist_cell* x)
  68 {
  69    if ( v_head == 0 ) {
  70       v_head = v_tail = x;
  71    } else {
  72       v_tail -> v_succ = x;
  73       v_tail = x;
  74    }
  75    x -> v_succ = 0;
  76    v_ct++;
  77 }
  78
  79 void slist::delete_head()
  80 {
  81    if ( v_ct == 1 )
  82        v_head = v_tail = 0;
  83    else {
  84        v_head = v_head -> v_succ;
  85    }
  86
  87    v_ct--;
  88 }
  89
  90 long slist::first()
  91 {
  92    return long(v_head);
  93 }
  94
  95 long slist::last()
  96 {
  97    return long(v_tail);
  98 }
  99
 100 void slist::next(long& index)
 101 {
 102    if ( index == long(v_tail) )
 103       index = 0;
 104    else
 105       index = long( ((slist_cell*)(index)) -> v_succ );
 106 }
 107
 108 slist* slist::concate_with(slist* first_list ...)
 109 {
 110    va_list ap;
 111    va_start (ap, first_list);
 112
 113    this -> append(first_list);
 114
 115    for (;;) {
 116       slist* p = va_arg(ap, slist*);
 117       if ( p == 0 )
 118          break;
 119       else
 120          this -> append(p);
 121    }
 122
 123    va_end(ap);
 124
 125    return this;
 126 }