home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / xfitsvew.zip / XFITSview / fitssubs / infolist.c < prev    next >
C/C++ Source or Header  |  1998-04-02  |  6KB  |  156 lines
  1. /* InfoList Class implementation  */ 
  2. /*  An InfoList is a linked list of arbitrary pieces of information. 
  3.     Elements of the list are objects of type InfoElement.
  4.     Data array pointers must be cast to type char */ 
  5. /*-----------------------------------------------------------------------
  6. *  Copyright (C) 1996,1998
  7. *  Associated Universities, Inc. Washington DC, USA.
  8. *  This program is free software; you can redistribute it and/or
  9. *  modify it under the terms of the GNU General Public License as
  10. *  published by the Free Software Foundation; either version 2 of
  11. *  the License, or (at your option) any later version.
  12. *
  13. *  This program is distributed in the hope that it will be useful,
  14. *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  15. *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16. *  GNU General Public License for more details.
  17. *-----------------------------------------------------------------------*/
  18. #include "infolist.h" 
  19.   
  20. /* Constructor  */ 
  21. InfoList* MakeInfoList () 
  22. { 
  23.   InfoList *temp = (InfoList *) malloc (sizeof(InfoList)); 
  24.   temp->first = NULL; temp->last = NULL; 
  25.   return temp; 
  26. } /* end MakeInfoList */ 
  27.   
  28. /* Destructor  */ 
  29. void KillInfoList(InfoList *me) 
  30. { 
  31.   InfoElement *p, *pnext; 
  32.   if (!me) return; /* anybody home? */ 
  33.   p = me->first; 
  34.   if ((me->first == NULL) || (me->last == NULL)) {free(me); return; }
  35.  /*  Delete from start of list  */ 
  36.  while (p) 
  37.      {pnext = p->inext; KillInfoElement(p); p = pnext;} 
  38.  free(me); 
  39. }/* end of KillInfoList  */ 
  40.   
  41. /* clear list  */ 
  42. void ClearInfoList(InfoList *me) 
  43. { 
  44.  InfoElement *p, *pnext; 
  45.  if (!me) return; /* validity check */
  46.  p = me->first; 
  47.  if ((me->first == 0) || (me->last == 0)) return; 
  48.  /*  Delete from start of list  */ 
  49.  while (p) 
  50.      {pnext = p->inext; KillInfoElement(p); p = pnext;} 
  51.  me->first = NULL; me->last = NULL; 
  52. } /* end of clear  */ 
  53.   
  54. /* Delete a member of an InfoList.  */ 
  55. void InfoZap(InfoList *me, char *label) 
  56. {InfoElement *el, *pe, *ie; 
  57.  if (!me) return; /* validity check */
  58.  if (!label) return; /* validity check */
  59.  el = InfoFind(me, label); 
  60.  if (el==0) return;  /*  Not found  */ 
  61.  if (el==me->first)      /*  Delete first element of Info List?  */ 
  62.      me->first = el->inext; 
  63.  else 
  64.      {pe = me->first; ie = me->first; 
  65.       if (el==me->last)             /*  Last element?  */ 
  66.       {while (ie != el)           /*  Find previous element  */ 
  67.            {pe = ie; ie = ie->inext;} 
  68.        me->last = pe;           /*  Reset last element pointer  */ 
  69.        InfoAddLink(pe, NULL);}    /*  last element gets 0 link  */ 
  70.       else                            /*  Element not at either end  */ 
  71.       {while (ie != el)           /*  Find previous element  */ 
  72.            {pe = ie; ie = ie->inext;} 
  73.        ie = ie->inext; 
  74.        InfoAddLink(pe, ie);}       /*  reset previous link  */ 
  75.   } 
  76.  KillInfoElement(el);                  /*  Delete element  */ 
  77. } /* end InfoZap */ 
  78.   
  79. /* Checks of an element of a given label is in the list,  */ 
  80. /* returns pointer to InfoElement; 0=> not found.  */ 
  81. InfoElement* InfoFind(InfoList *me, char *label) 
  82. { 
  83.   InfoElement *current; 
  84.  if (!me) return NULL; /* validity check */
  85.  if (!label) return NULL; /* validity check */
  86.   if (me->first)       /* Don't search empty list  */ 
  87.     {current = me->first; 
  88.      while (current) 
  89.        {if (InfoTestName(current, label)) return current; 
  90.     current = current->inext;}} 
  91.   return 0;   /* Didn;t find  */ 
  92. } /* end InfoFind */ 
  93.   
  94. /* Finds type of element, returns 0 if element found  */ 
  95. Integer  InfoFindType(InfoList *me, char *label, Integer *type, 
  96.                    Integer *ndim, Integer *dim) 
  97. {InfoElement *el; 
  98.  Integer i, rc = 0; 
  99.  if (!me) return -1; /* validity check */
  100.  if (!label) return -1; /* validity check */
  101.  if (!type) return -1; /* validity check */
  102.  if (!ndim) return -1; /* validity check */
  103.  if (!dim) return -1; /* validity check */
  104.  el = InfoFind(me, label); 
  105.  if (el)                                 /*  Entry found?  */ 
  106.      {*type = el->itype; 
  107.       *ndim = el->indim; 
  108.       for (i=0; i<*ndim; i++) dim[i] = el->idim[i];} 
  109.  else 
  110.      rc = -1; 
  111.  return rc; 
  112. } /* end InfoFindType */ 
  113.   
  114. /* Store data for an element. Returns 0 if successful.  */ 
  115. Integer InfoStore(InfoList *me, char *label, Integer type, Integer ndim, 
  116.           Integer *dim,  char *data) 
  117. {InfoElement *el, *next; 
  118.  Integer rc = 0; 
  119.  if (!me) return -1; /* validity check */
  120.  if (!label) return -1; /* validity check */
  121.  if (!dim) return -1; /* validity check */
  122.  if (!data) return -1; /* validity check */
  123.  el = InfoFind(me, label); 
  124.  if (el) 
  125.      rc = InfoUpdate(el, type, ndim, dim, data);  /*  existing entry. */ 
  126.  else   /*  Create new InfoElement and link in.  */ 
  127.      {next = MakeInfoElement(label, type, ndim, dim, data); 
  128.       /*   See if there are already any entries:  */ 
  129.       if (me->first == 0) {me->first = next; me->last = next;} 
  130.       else 
  131.       InfoAddLink(me->last, next); /*Add link to previous last element*/ 
  132.       me->last = next;}                   /* Save new last element  */ 
  133.  return rc; 
  134. } /* end InfoStore */ 
  135.   
  136. /* Find element and return its contents, returns 0 if successful.  */ 
  137. Integer InfoLookup  (InfoList *me, char *label, Integer *type, Integer *ndim, 
  138.              Integer *dim, char *data) 
  139. {InfoElement *el; 
  140.  Integer i, rc = 0;
  141.  if (!me) return -1; /* validity check */
  142.  if (!label) return -1; /* validity check */
  143.  if (!type) return -1; /* validity check */
  144.  if (!dim) return -1; /* validity check */
  145.  if (!data) return -1; /* validity check */
  146.  el  = InfoFind(me, label); 
  147.  if (el)  /*  Does it exist?  */ 
  148.      {*type = el->itype; 
  149.       *ndim = el->indim; 
  150.       for (i=0;i<*ndim;i++) dim[i] = el->idim[i]; 
  151.       rc = InfoGet(el, data);} /*  Copy data  */ 
  152.  else   /*  Doesn't exist  */ 
  153.      {rc = 1; ndim = 0;} 
  154.  return rc;}  /*  End of InfoLookup  */ 
  155.   
  156.