ftp.nice.ch/pub/next/unix/audio/cmusic.bs.N.tar.gz#/src/lib/libprocom/SCCS/s.putprop.c

This is s.putprop.c in view mode; [Download] [Up]

h02824

s 00001/00001/00052

d D 1.2 85/11/26 23:02:18 dgl 2 1

c eliminated LOOKED_ALREADY from getheader to cure bug 

c re. trying to add property to stdin if no header exists yet.

e

s 00053/00000/00000

d D 1.1 85/11/25 09:59:50 dgl 1 0

c original version

e

u

U

f i 

t

T

I 1
/* %M%	%I%	(CARL)	%G%	%U% */

#include <stdio.h>
#include <carl/carl.h>
#include <carl/procom.h>

/*
 * putprop - put property on file's property list
 * takes:
 * 	iop - pointer to open file descriptor
 * 	name - name of property
 * 	value - value associated to that name
 * side effects:
 * 	if property list does not exist on fb[fileno(iop)]->p, one is created.
 * 	PROP structure added to absolute end of doubly linked list.
 * 	fb[fileno(iop)]->prop set to 1 if property list has not yet
 * 		been written to the file.
 * note:
 *	use addprop() to manage property lists with sentinels
 */

putprop(iop, name, value)
	FILE *iop; 
	char *name, *value;
{
	register struct fltbuf *f;
	register PROP *cpl, *opl, *pl;

	if (iop == NULL || name == NULL || value == NULL)
		return(-1);

	f = &fb[fileno(iop)];

	/* link property structure to property list for this file */
	/* get to end of property list */
	for (opl = cpl = f->p; cpl != NULL; opl = cpl, cpl = cpl->nextprop)

D 2
			/* empty */ ;

E 2

I 2
			continue;

E 2

	if ((pl = mkprop(name, value)) == NULL)
		return(-1);

	if (opl == NULL) {	/* null length list means here for first time */
		pl->nextprop = pl->lastprop = NULL;
		f->p = pl;
	} else {		/* make bi-directional link */
		pl->nextprop = NULL;
		pl->lastprop = opl;
		opl->nextprop = pl;
	}
	if (f->prop != HDR_SENT)	/* property list not sent yet? */
		f->prop = HDR_PREPED;	/* record that we have a prop list */
	return(0);
}

E 1

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.