1 files changed, 117 insertions, 0 deletions
diff --git a/pkg/dataio/export/bltins/exras.x b/pkg/dataio/export/bltins/exras.x
new file mode 100644
index 00000000..f24209c6
--- /dev/null
+++ b/pkg/dataio/export/bltins/exras.x
@@ -0,0 +1,117 @@
+include <mach.h>
+include "../export.h"
+
+
+# EXRAS.X - Source file for the EXPORT task rasterfile builtin format.
+
+define	SZ_RASHDR	8
+define	RAS_MAGIC	1	# Magic number
+define	RAS_WIDTH	2	# Image width (pixels per line)
+define	RAS_HEIGHT	3	# Image height (number of lines)
+define	RAS_DEPTH	4	# Image depth (bits per pixel)
+define	RAS_LENGTH	5	# Image length (bytes)
+define	RAS_TYPE	6	# File type
+define	RAS_MAPTYPE	7	# Colormap type
+define	RAS_MAPLENGTH	8	# Colormap length (bytes)
+
+# Rasterfile magic number
+define	RAS_MAGIC_NUM	59A66A95X
+define	RAS_RLE		80X
+
+# Sun supported ras_types
+define	RT_OLD		0	# Raw pixrect image in 68000 byte order
+define	RT_STANDARD	1	# Raw pixrect image in 68000 byte order
+define	RT_BYTE_ENCODED	2	# Run-length compression of bytes
+define	RT_FORMAT_RGB	3	# XRGB or RGB instead of XBGR or BGR
+define	RT_FORMAT_TIFF	4	# tiff <-> standard rasterfile
+define	RT_FORMAT_IFF	5	# iff (TAAC format) <-> standard rasterfile
+define	RT_EXPERIMENTAL	65535	# Reserved for testing
+
+# Sun supported ras_maptypes
+define	RMT_NONE	0	# ras_maplength is expected to be 0
+define	RMT_EQUAL_RGB	1	# red[ras_maplength/3],green[],blue[]
+define	RMT_RAW		2
+
+
+
+# EX_RAS - Write the evaluated expressions as a Sun Rasterfile.
+
+procedure ex_ras (ex)
+
+pointer	ex					#i task struct pointer
+
+pointer	sp, cmap
+long	header[SZ_RASHDR]
+int	i, flags
+
+begin
+	# Check to see that we have the correct number of expressions to
+	# write this format.
+	flags = EX_OUTFLAGS(ex)
+	if (EX_NEXPR(ex) != 1 && EX_NEXPR(ex) != 3 && EX_NEXPR(ex) != 4) {
+	    if (!bitset(flags, OF_BAND))
+	        call error (7, "Invalid number of expressions for rasterfile.")
+	}
+	if (bitset(flags, OF_LINE) || bitset (flags, LINE_STORAGE))
+	    call error (7, "Line storage illegal for rasterfile.")
+
+	# Fix the output pixel type to single bytes.
+	call ex_do_outtype (ex, "b1")
+	EX_OUTFLAGS(ex) = or (EX_OUTFLAGS(ex), OF_FLIPY)
+
+	# Make sure the output is padded to the nearest 16-bits.
+	if (mod (O_WIDTH(ex,1),2) != 0) {
+	    do i = 1, EX_NEXPR(ex) {
+		call strcat ("//repl(0,1)", O_EXPR(ex,i), SZ_EXPSTR)
+		O_WIDTH(ex,i) = O_WIDTH(ex,i) + 1
+	    }
+	    EX_OCOLS(ex) = EX_OCOLS(ex) + 1
+	}
+
+	# Set the header values.
+	header[RAS_MAGIC] = RAS_MAGIC_NUM
+	header[RAS_WIDTH] = EX_OCOLS(ex)
+	header[RAS_HEIGHT] = EX_OROWS(ex)
+	header[RAS_TYPE] = RT_STANDARD
+	if (EX_NEXPR(ex) == 1 || bitset (flags, OF_BAND)) {
+	    header[RAS_LENGTH] = header[RAS_WIDTH] * header[RAS_HEIGHT]
+	    header[RAS_DEPTH] = long (8)
+	} else {
+	    header[RAS_LENGTH] = header[RAS_WIDTH] * header[RAS_HEIGHT] * 3
+	    header[RAS_DEPTH] = long (24)
+	    header[RAS_TYPE] = RT_FORMAT_RGB
+	}
+	if (bitset(flags, OF_CMAP)) {
+	    header[RAS_MAPTYPE] = RMT_EQUAL_RGB
+	    header[RAS_MAPLENGTH] = long (3*CMAP_SIZE)
+	} else {
+	    header[RAS_MAPTYPE] = RMT_NONE
+	    header[RAS_MAPLENGTH] = long (0)
+	}
+
+        # Write the header to the file.  First swap it to Sun byte order if
+        # needed (although the format doesn't require this), then swap it
+        # if requested by the user.
+        if (BYTE_SWAP4 == YES) 
+            call bswap4 (header, 1, header, 1, (SZ_RASHDR * SZ_LONG * SZB_CHAR))
+        if (EX_BSWAP(ex) == S_I4) 
+            call bswap4 (header, 1, header, 1, (SZ_RASHDR * SZ_LONG * SZB_CHAR))
+        call write (EX_FD(ex), header, (SZ_RASHDR * SZ_LONG))
+
+	# If we have a colormap write that out now.
+	if (bitset(flags, OF_CMAP)) {
+	    call smark (sp)
+	    call salloc (cmap, 3*CMAP_SIZE, TY_CHAR)
+
+	    call achtcb (Memc[EX_CMAP(ex)], Memc[cmap], (3 * CMAP_SIZE))
+	    call write (EX_FD(ex), Memc[cmap], ((3 * CMAP_SIZE) / SZB_CHAR))
+
+	    call sfree (sp)
+	}
+
+	# Finally, evaluate the expressions and write the image.
+	if (EX_NEXPR(ex) == 1 || bitset (flags, OF_BAND))
+	    call ex_no_interleave (ex)
+	else if (EX_NEXPR(ex) == 3 || EX_NEXPR(ex) == 4)
+	    call ex_px_interleave (ex)
+end