17c478bd9Sstevel@tonic-gate /*
27c478bd9Sstevel@tonic-gate * This file is part of libdyn.a, the C Dynamic Object library. It
37c478bd9Sstevel@tonic-gate * contains the source code for the functions DynGet() and DynAdd().
47c478bd9Sstevel@tonic-gate *
57c478bd9Sstevel@tonic-gate * There are no restrictions on this code; however, if you make any
67c478bd9Sstevel@tonic-gate * changes, I request that you document them so that I do not get
77c478bd9Sstevel@tonic-gate * credit or blame for your modifications.
87c478bd9Sstevel@tonic-gate *
97c478bd9Sstevel@tonic-gate * Written by Barr3y Jaspan, Student Information Processing Board (SIPB)
107c478bd9Sstevel@tonic-gate * and MIT-Project Athena, 1989.
117c478bd9Sstevel@tonic-gate */
127c478bd9Sstevel@tonic-gate
137c478bd9Sstevel@tonic-gate #include <stdio.h>
147c478bd9Sstevel@tonic-gate #include <strings.h>
157c478bd9Sstevel@tonic-gate
167c478bd9Sstevel@tonic-gate #include "dynP.h"
177c478bd9Sstevel@tonic-gate
DynArray(obj)187c478bd9Sstevel@tonic-gate DynPtr DynArray(obj)
197c478bd9Sstevel@tonic-gate DynObjectP obj;
207c478bd9Sstevel@tonic-gate {
217c478bd9Sstevel@tonic-gate if (obj->debug)
227c478bd9Sstevel@tonic-gate fprintf(stderr, "dyn: array: returning array pointer %d.\n",
237c478bd9Sstevel@tonic-gate obj->array);
247c478bd9Sstevel@tonic-gate
257c478bd9Sstevel@tonic-gate return obj->array;
267c478bd9Sstevel@tonic-gate }
277c478bd9Sstevel@tonic-gate
DynGet(obj,num)287c478bd9Sstevel@tonic-gate DynPtr DynGet(obj, num)
297c478bd9Sstevel@tonic-gate DynObjectP obj;
307c478bd9Sstevel@tonic-gate int num;
317c478bd9Sstevel@tonic-gate {
327c478bd9Sstevel@tonic-gate if (num < 0) {
337c478bd9Sstevel@tonic-gate if (obj->debug)
347c478bd9Sstevel@tonic-gate fprintf(stderr, "dyn: get: bad index %d\n", num);
357c478bd9Sstevel@tonic-gate return NULL;
367c478bd9Sstevel@tonic-gate }
37*1da57d55SToomas Soome
387c478bd9Sstevel@tonic-gate if (num >= obj->num_el) {
397c478bd9Sstevel@tonic-gate if (obj->debug)
407c478bd9Sstevel@tonic-gate fprintf(stderr, "dyn: get: highest element is %d.\n",
417c478bd9Sstevel@tonic-gate obj->num_el);
427c478bd9Sstevel@tonic-gate return NULL;
437c478bd9Sstevel@tonic-gate }
44*1da57d55SToomas Soome
457c478bd9Sstevel@tonic-gate if (obj->debug)
467c478bd9Sstevel@tonic-gate fprintf(stderr, "dyn: get: Returning address %d + %d.\n",
477c478bd9Sstevel@tonic-gate obj->array, obj->el_size*num);
48*1da57d55SToomas Soome
497c478bd9Sstevel@tonic-gate return (DynPtr) obj->array + obj->el_size*num;
507c478bd9Sstevel@tonic-gate }
517c478bd9Sstevel@tonic-gate
DynAdd(obj,el)527c478bd9Sstevel@tonic-gate int DynAdd(obj, el)
537c478bd9Sstevel@tonic-gate DynObjectP obj;
547c478bd9Sstevel@tonic-gate void *el;
557c478bd9Sstevel@tonic-gate {
567c478bd9Sstevel@tonic-gate int ret;
57*1da57d55SToomas Soome
587c478bd9Sstevel@tonic-gate ret = DynPut(obj, el, obj->num_el);
597c478bd9Sstevel@tonic-gate if (ret != DYN_OK)
607c478bd9Sstevel@tonic-gate return ret;
617c478bd9Sstevel@tonic-gate
627c478bd9Sstevel@tonic-gate ++obj->num_el;
637c478bd9Sstevel@tonic-gate return ret;
647c478bd9Sstevel@tonic-gate }
657c478bd9Sstevel@tonic-gate
667c478bd9Sstevel@tonic-gate /*
677c478bd9Sstevel@tonic-gate * WARNING! There is a reason this function is not documented in the
687c478bd9Sstevel@tonic-gate * man page. If DynPut used to mutate already existing elements,
697c478bd9Sstevel@tonic-gate * everything will go fine. If it is used to add new elements
707c478bd9Sstevel@tonic-gate * directly, however, the state within the object (such as
717c478bd9Sstevel@tonic-gate * obj->num_el) will not be updated properly and many other functions
727c478bd9Sstevel@tonic-gate * in the library will lose. Have a nice day.
737c478bd9Sstevel@tonic-gate */
DynPut(obj,el_in,idx)747c478bd9Sstevel@tonic-gate int DynPut(obj, el_in, idx)
757c478bd9Sstevel@tonic-gate DynObjectP obj;
767c478bd9Sstevel@tonic-gate void *el_in;
777c478bd9Sstevel@tonic-gate int idx;
787c478bd9Sstevel@tonic-gate {
797c478bd9Sstevel@tonic-gate DynPtr el = (DynPtr) el_in;
807c478bd9Sstevel@tonic-gate int ret;
81*1da57d55SToomas Soome
827c478bd9Sstevel@tonic-gate if (obj->debug)
837c478bd9Sstevel@tonic-gate fprintf(stderr, "dyn: put: Writing %d bytes from %d to %d + %d\n",
847c478bd9Sstevel@tonic-gate obj->el_size, el, obj->array, idx*obj->el_size);
857c478bd9Sstevel@tonic-gate
867c478bd9Sstevel@tonic-gate if ((ret = _DynResize(obj, idx)) != DYN_OK)
877c478bd9Sstevel@tonic-gate return ret;
887c478bd9Sstevel@tonic-gate
897c478bd9Sstevel@tonic-gate #ifdef HAVE_MEMMOVE
907c478bd9Sstevel@tonic-gate memmove(obj->array + idx*obj->el_size, el, obj->el_size);
917c478bd9Sstevel@tonic-gate #else
927c478bd9Sstevel@tonic-gate bcopy(el, obj->array + idx*obj->el_size, obj->el_size);
93*1da57d55SToomas Soome #endif
947c478bd9Sstevel@tonic-gate
957c478bd9Sstevel@tonic-gate if (obj->debug)
967c478bd9Sstevel@tonic-gate fprintf(stderr, "dyn: put: done.\n");
97*1da57d55SToomas Soome
987c478bd9Sstevel@tonic-gate return DYN_OK;
997c478bd9Sstevel@tonic-gate }
100