~ [ source navigation ] ~ [ diff markup ] ~ [ identifier search ] ~ [ freetext search ] ~ [ file search ] ~

Linux Cross Reference
Tina6/tina-libs/tina/sys/sysTyp_generic.c

Version: ~
Architecture: ~ [ i386 ] ~ [ alpha ] ~ [ m68k ] ~ [ mips ] ~ [ ppc ] ~ [ sparc ] ~ [ sparc64 ] ~

  1 /**********
  2  * 
  3  * Copyright (c) 2003, Division of Imaging Science and Biomedical Engineering,
  4  * University of Manchester, UK.  All rights reserved.
  5  * 
  6  * Redistribution and use in source and binary forms, with or without modification, 
  7  * are permitted provided that the following conditions are met:
  8  * 
  9  *   . Redistributions of source code must retain the above copyright notice, 
 10  *     this list of conditions and the following disclaimer.
 11  *    
 12  *   . Redistributions in binary form must reproduce the above copyright notice,
 13  *     this list of conditions and the following disclaimer in the documentation 
 14  *     and/or other materials provided with the distribution.
 15  * 
 16  *   . Neither the name of the University of Manchester nor the names of its
 17  *     contributors may be used to endorse or promote products derived from this 
 18  *     software without specific prior written permission.
 19  * 
 20  * 
 21  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
 22  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
 23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
 24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE 
 25  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
 26  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
 27  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 28  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
 29  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
 30  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 
 31  * POSSIBILITY OF SUCH DAMAGE.
 32  *
 33  **********
 34  * 
 35  * Program :    TINA
 36  * File    :  $Source: /home/tina/cvs/tina-libs/tina/sys/sysTyp_generic.c,v $
 37  * Date    :  $Date: 2003/09/22 16:09:02 $
 38  * Version :  $Revision: 1.4 $
 39  * CVS Id  :  $Id: sysTyp_generic.c,v 1.4 2003/09/22 16:09:02 tony Exp $
 40  *
 41  * Notes :
 42  *
 43  *  General structure to wrap around data that does not possess property list
 44  *
 45  *********
 46 */
 47 
 48 #include "sysTyp_generic.h"
 49 
 50 #if HAVE_CONFIG_H
 51   #include <config.h>
 52 #endif
 53 
 54 #include <stdio.h>
 55 #include <memory.h>
 56 #include <tina/sys/sys_GenDef.h>
 57 #include <tina/sys/sys_MemDef.h>
 58 #include <tina/sys/sys_TypDef.h>
 59 #include <tina/sys/sysMem_ralloc.h>
 60 #include <tina/sys/sysLst_prop.h>
 61 
 62 
 63 int new_label(void)
 64 {
 65         static int label = 0;           /* static data! */
 66 
 67         return (label++);
 68 }
 69 
 70 Generic *generic_alloc(void)
 71 {
 72         Generic *gen = ts_ralloc(Generic);
 73 
 74         gen->label = new_label();
 75         return (gen);
 76 }
 77 
 78 Generic *generic_make(void *ptr, int type)
 79 {
 80         Generic *gen = ts_ralloc(Generic);
 81 
 82         gen->type = type;
 83         gen->label = new_label();
 84         gen->to = ptr;
 85         gen->props = NULL;
 86         return (gen);
 87 }
 88 
 89 void generic_free(Generic * gen)
 90 {
 91         if (gen == NULL)
 92                 return;
 93         proplist_freelist(gen->props);
 94         rfree((void *) gen);
 95 }
 96 
 97 Generic *generic_copy(Generic * gen)
 98 {
 99         Generic *copy;
100 
101         if (gen == NULL)
102                 return (NULL);
103 
104         copy = ts_ralloc(Generic);
105         (void *) memcpy((char *) copy, (char *) gen, sizeof(Generic));
106         copy->props = proplist_copy(gen->props);
107         return (copy);
108 }
109 
110 int generic_number(List * gens)
111 {
112         List *ptr;
113         int n = 0;
114 
115         for (ptr = gens; ptr != NULL; ptr = ptr->next)
116                 ((Generic *) (ptr->to))->label = n++;
117         return n;
118 }
119 

~ [ source navigation ] ~ [ diff markup ] ~ [ identifier search ] ~ [ freetext search ] ~ [ file search ] ~

This page was automatically generated by the LXR engine.
Visit the LXR main site for more information.