File: dyn_append.c

package info (click to toggle)
zephyr 2.0.4-7
  • links: PTS
  • area: main
  • in suites: potato
  • size: 2,796 kB
  • ctags: 2,989
  • sloc: ansic: 29,327; sh: 1,447; makefile: 957; yacc: 498; lex: 137; lisp: 127
file content (44 lines) | stat: -rw-r--r-- 1,114 bytes parent folder | download | duplicates (6)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
/*
 * This file is part of libdyn.a, the C Dynamic Object library.  It
 * contains the source code for the function DynAppend().
 *
 * There are no restrictions on this code; however, if you make any
 * changes, I request that you document them so that I do not get
 * credit or blame for your modifications.
 *
 * Written by Barr3y Jaspan, Student Information Processing Board (SIPB)
 * and MIT-Project Athena, 1989.
 */

#include <stdio.h>

#include "dynP.h"

int DynAppend(obj, els, num)
   DynObject obj;
   DynPtr els;
   int num;
{
     if (obj->debug)
	  fprintf(stderr, "dyn: append: Writing %d bytes from %p to %p + %d\n",
		  obj->el_size*num, els, obj->array, obj->num_el*obj->el_size);

     if (obj->size < obj->num_el + num) {
	  int num_incs, ret;

	  num_incs = ((obj->num_el + num - obj->size) / obj->inc) + 1;
	  if ((ret = _DynRealloc(obj, num_incs)) != DYN_OK)
	       return ret;
     }

     (void) memmove(obj->array + obj->num_el*obj->el_size, els,
		    obj->el_size*num);

     obj->num_el += num;

     if (obj->debug)
	  fprintf(stderr, "dyn: append: done.\n");

     return DYN_OK;
}