--- ray/src/rt/preload.c	2003/02/22 02:07:29	2.6
+++ ray/src/rt/preload.c	2024/08/21 20:42:20	2.18
@@ -1,5 +1,5 @@
 #ifndef lint
-static const char	RCSid[] = "$Id: preload.c,v 2.6 2003/02/22 02:07:29 greg Exp $";
+static const char	RCSid[] = "$Id: preload.c,v 2.18 2024/08/21 20:42:20 greg Exp $";
 #endif
 /*
  * Preload associated object structures to maximize memory sharing.
@@ -7,83 +7,34 @@ static const char	RCSid[] = "$Id: preload.c,v 2.6 2003
  *  External symbols declared in ray.h
  */
 
-/* ====================================================================
- * The Radiance Software License, Version 1.0
- *
- * Copyright (c) 1990 - 2002 The Regents of the University of California,
- * through Lawrence Berkeley National Laboratory.   All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- *
- * 1. Redistributions of source code must retain the above copyright
- *         notice, this list of conditions and the following disclaimer.
- *
- * 2. Redistributions in binary form must reproduce the above copyright
- *       notice, this list of conditions and the following disclaimer in
- *       the documentation and/or other materials provided with the
- *       distribution.
- *
- * 3. The end-user documentation included with the redistribution,
- *           if any, must include the following acknowledgment:
- *             "This product includes Radiance software
- *                 (http://radsite.lbl.gov/)
- *                 developed by the Lawrence Berkeley National Laboratory
- *               (http://www.lbl.gov/)."
- *       Alternately, this acknowledgment may appear in the software itself,
- *       if and wherever such third-party acknowledgments normally appear.
- *
- * 4. The names "Radiance," "Lawrence Berkeley National Laboratory"
- *       and "The Regents of the University of California" must
- *       not be used to endorse or promote products derived from this
- *       software without prior written permission. For written
- *       permission, please contact radiance@radsite.lbl.gov.
- *
- * 5. Products derived from this software may not be called "Radiance",
- *       nor may "Radiance" appear in their name, without prior written
- *       permission of Lawrence Berkeley National Laboratory.
- *
- * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
- * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
- * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
- * DISCLAIMED.   IN NO EVENT SHALL Lawrence Berkeley National Laboratory OR
- * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
- * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
- * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
- * USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
- * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
- * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
- * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
- * SUCH DAMAGE.
- * ====================================================================
- *
- * This software consists of voluntary contributions made by many
- * individuals on behalf of Lawrence Berkeley National Laboratory.   For more
- * information on Lawrence Berkeley National Laboratory, please see
- * <http://www.lbl.gov/>.
- */
+#include "copyright.h"
 
-#include "standard.h"
-#include "octree.h"
-#include "object.h"
+#include "ray.h"
 #include "otypes.h"
 #include "face.h"
 #include "cone.h"
 #include "instance.h"
-#include "color.h"
+#include "mesh.h"
 #include "data.h"
+#include "func.h"
+#include "bsdf.h"
 
+char	*shm_boundary = NULL;		/* boundary of shared memory */
 
+
 /* KEEP THIS ROUTINE CONSISTENT WITH THE DIFFERENT OBJECT FUNCTIONS! */
 
 
 int
-load_os(op)			/* load associated data for object */
-register OBJREC	*op;
+load_os(			/* load associated data for object */
+	OBJREC	*op
+)
 {
-	DATARRAY  *dp;
+	DATARRAY	*dp;
+	SDData		*sd;
 
+	SDretainSet = SDretainAll;
+
 	switch (op->otype) {
 	case OBJ_FACE:		/* polygon */
 		getface(op);
@@ -98,6 +49,9 @@ register OBJREC	*op;
 	case OBJ_INSTANCE:	/* octree instance */
 		getinstance(op, IO_ALL);
 		return(1);
+	case OBJ_MESH:		/* mesh instance */
+		getmeshinst(op, IO_ALL);
+		return(1);
 	case PAT_CPICT:		/* color picture */
 		if (op->oargs.nsargs < 4)
 			goto sargerr;
@@ -105,6 +59,8 @@ register OBJREC	*op;
 		getfunc(op, 4, 0x3<<5, 0);
 		return(1);
 	case PAT_CDATA:		/* color data */
+		if (op->oargs.nsargs < 4)
+			goto sargerr;
 		dp = getdata(op->oargs.sarg[3]);
 		getdata(op->oargs.sarg[4]);
 		getdata(op->oargs.sarg[5]);
@@ -122,6 +78,26 @@ register OBJREC	*op;
 	case PAT_CFUNC:		/* color function */
 		getfunc(op, 3, 0x7, 0);
 		return(1);
+	case PAT_SPECFUNC:	/* spectral function */
+		getfunc(op, 1, 0, 0);
+		return(1);
+	case PAT_SPECFILE:	/* spectrum file */
+		if (op->oargs.nsargs < 1)
+			goto sargerr;
+		getdata(op->oargs.sarg[0]);
+		return(1);
+	case PAT_SPECDATA:	/* spectral data file */
+		if (op->oargs.nsargs < 2)
+			goto sargerr;
+		dp = getdata(op->oargs.sarg[1]);
+		getfunc(op, 2, ((1<<(dp->nd-1)) - 1)<<3, 0);
+		return(1);
+	case PAT_SPECPICT:	/* spectral picture */
+		if (op->oargs.nsargs < 2)
+			goto sargerr;
+		getspec(op->oargs.sarg[1]);
+		getfunc(op, 2, 0x3<<3, 0);
+		return(1);
 	case TEX_DATA:		/* texture data */
 		if (op->oargs.nsargs < 6)
 			goto sargerr;
@@ -151,6 +127,20 @@ register OBJREC	*op;
 	case MAT_BRTDF:		/* BRDTfunc material */
 		getfunc(op, 9, 0x3f, 0);
 		return(1);
+	case MAT_BSDF:		/* BSDF material */
+		if (op->oargs.nsargs < 6)
+			goto sargerr;
+		getfunc(op, 5, 0x1d, 1);
+		sd = loadBSDF(op->oargs.sarg[1]);
+		if (sd != NULL) SDfreeCache(sd);
+		return(1);
+	case MAT_ABSDF:		/* aBSDF material */
+		if (op->oargs.nsargs < 5)
+			goto sargerr;
+		getfunc(op, 4, 0xe, 1);
+		sd = loadBSDF(op->oargs.sarg[0]);
+		if (sd != NULL) SDfreeCache(sd);
+		return(1);
 	case MAT_PDATA:		/* plastic BRDF data */
 	case MAT_MDATA:		/* metal BRDF data */
 	case MAT_TDATA:		/* trans BRDF data */
@@ -175,14 +165,39 @@ register OBJREC	*op;
 	return(0);
 sargerr:
 	objerror(op, USER, "too few string arguments");
+	return 0; /* pro forma return */
 }
 
 
 void
-preload_objs()		/* preload object data structures */
+preload_objs(void)		/* preload object data structures */
 {
-	register OBJECT on;
+	OBJECT on;
 				/* note that nobjects may change during loop */
 	for (on = 0; on < nobjects; on++)
 		load_os(objptr(on));
+}
+
+
+void
+cow_memshare(void)		/* set up copy-on-write memory sharing */
+{
+	if (shm_boundary != NULL)
+		return;			/* assume we're good */
+
+	preload_objs();			/* preload auxiliary data */
+					/* set shared memory boundary */
+	shm_boundary = (char *)malloc(16);
+	strcpy(shm_boundary, "SHM_BOUNDARY");
+}
+
+
+void
+cow_doneshare(void)		/* clear memory sharing boundary */
+{
+	if (shm_boundary == NULL)
+		return;
+					/* clear shared memory boundary */
+	free((void *)shm_boundary);
+	shm_boundary = NULL;
 }