--- ray/src/px/ra_xyze.c	1997/01/31 12:51:22	2.3
+++ ray/src/px/ra_xyze.c	2004/01/02 12:47:01	2.8
@@ -1,24 +1,20 @@
-/* Copyright (c) 1997 Regents of the University of California */
-
 #ifndef lint
-static char SCCSid[] = "$SunId$ LBL";
+static const char	RCSid[] = "$Id: ra_xyze.c,v 2.8 2004/01/02 12:47:01 schorsch Exp $";
 #endif
-
 /*
  *  Program to convert between RADIANCE RGBE and XYZE formats
+ *  Added white-balance adjustment 10/01 (GW).
  */
 
 #include  <stdio.h>
+#include  <string.h>
 #include  <math.h>
+#include  <time.h>
+
+#include  "platform.h"
 #include  "color.h"
 #include  "resolu.h"
 
-#ifdef MSDOS
-#include  <fcntl.h>
-#endif
-
-extern char  *malloc(), *strcpy();
-
 int  rgbinp = -1;			/* input is RGBE? */
 
 int  rgbout = 0;			/* output should be RGBE? */
@@ -33,9 +29,14 @@ int  doflat = -1;			/* produce flat file? */
 
 char  *progname;
 
+static gethfunc headline;
 
-headline(s)				/* process header line */
-char	*s;
+
+static int
+headline(				/* process header line */
+	char	*s,
+	void	*p
+)
 {
 	char	fmt[32];
 
@@ -46,14 +47,14 @@ char	*s;
 			rgbinp = 0;
 		else
 			rgbinp = -2;
-		return;			/* don't echo */
+		return(0);		/* don't echo */
 	}
 	if (isprims(s)) {		/* get input primaries */
 		primsval(inprims, s);
-		return;			/* don't echo */
+		return(0);		/* don't echo */
 	}
 					/* should I grok colcorr also? */
-	fputs(s, stdout);
+	return(fputs(s, stdout));
 }
 
 
@@ -62,12 +63,9 @@ int  argc;
 char  *argv[];
 {
 	int  i;
-#ifdef MSDOS
-	extern int  _fmode;
-	_fmode = O_BINARY;
-	setmode(fileno(stdin), O_BINARY);
-	setmode(fileno(stdout), O_BINARY);
-#endif
+	SET_DEFAULT_BINARY();
+	SET_FILE_BINARY(stdin);
+	SET_FILE_BINARY(stdout);
 	progname = argv[0];
 
 	for (i = 1; i < argc; i++)
@@ -125,8 +123,6 @@ char  *argv[];
 	if (rgbinp == -1)
 		rgbinp = !rgbout;
 	printargs(argc, argv, stdout);		/* add to header */
-	if (expcomp < 0.99 || expcomp > 1.01)
-		fputexpos(expcomp, stdout);
 	convert();				/* convert picture */
 	exit(0);
 userr:
@@ -154,37 +150,36 @@ convert()				/* convert to XYZE or RGBE picture */
 	COLORMAT	xfm;
 	register COLOR	*scanin;
 	register COLR	*scanout;
+	double	ourexp = expcomp;
 	int	y;
 	register int	x;
 						/* compute transform */
 	if (rgbout) {
-		double	mult;
 		if (rgbinp) {			/* RGBE -> RGBE */
-			comprgb2rgbmat(xfm, inprims, outprims);
-			mult = expcomp;
+			comprgb2rgbWBmat(xfm, inprims, outprims);
 		} else {			/* XYZE -> RGBE */
-			compxyz2rgbmat(xfm, outprims);
-			mult = expcomp/WHTEFFICACY;
+			compxyz2rgbWBmat(xfm, outprims);
+			ourexp *= WHTEFFICACY;
 		}
-		for (y = 0; y < 3; y++)
-			for (x = 0; x < 3; x++)
-				xfm[y][x] *= mult;
 	} else {
 		if (rgbinp) {			/* RGBE -> XYZE */
-			comprgb2xyzmat(xfm, inprims);
-			for (y = 0; y < 3; y++)
-				for (x = 0; x < 3; x++)
-					xfm[y][x] *= WHTEFFICACY*expcomp;
+			comprgb2xyzWBmat(xfm, inprims);
+			ourexp /= WHTEFFICACY;
 		} else {			/* XYZE -> XYZE */
 			for (y = 0; y < 3; y++)
 				for (x = 0; x < 3; x++)
-					xfm[y][x] = x==y ? expcomp : 0.;
+					xfm[y][x] = x==y ? 1. : 0.;
 		}
 	}
+	for (y = 0; y < 3; y++)
+		for (x = 0; x < 3; x++)
+			xfm[y][x] *= expcomp;
 						/* get input resolution */
 	if ((order = fgetresolu(&xmax, &ymax, stdin)) < 0)
 		quiterr("bad picture format");
 						/* complete output header */
+	if (ourexp < 0.99 || ourexp > 1.01)
+		fputexpos(ourexp, stdout);
 	if (rgbout) {
 		fputprims(outprims, stdout);
 		fputformat(COLRFMT, stdout);
@@ -219,7 +214,7 @@ convert()				/* convert to XYZE or RGBE picture */
 			quiterr("error writing output picture");
 	}
 						/* free scanline */
-	free((char *)scanin);
+	free((void *)scanin);
 	if (scanout != NULL)
-		free((char *)scanout);
+		free((void *)scanout);
 }