From d17b33131c14864bd1eae275f49a3f148e21cf29 Mon Sep 17 00:00:00 2001
From: Leo Chan <leochanj@live.unc.edu>
Date: Thu, 22 Oct 2020 01:53:21 -0400
Subject: Squashed commit of the sb-vbs branch.

Includes the SD-VBS benchmarks modified to:
- Use libextra to loop as realtime jobs
- Preallocate memory before starting their main computation
- Accept input via stdin instead of via argc

Does not include the SD-VBS matlab code.

Fixes libextra execution in LITMUS^RT.
---
 .../toolbox/toolbox_basic/calib_bouguetj/loadinr.m | 52 ++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100755 SD-VBS/common/toolbox/toolbox_basic/calib_bouguetj/loadinr.m

(limited to 'SD-VBS/common/toolbox/toolbox_basic/calib_bouguetj/loadinr.m')

diff --git a/SD-VBS/common/toolbox/toolbox_basic/calib_bouguetj/loadinr.m b/SD-VBS/common/toolbox/toolbox_basic/calib_bouguetj/loadinr.m
new file mode 100755
index 0000000..91b6f89
--- /dev/null
+++ b/SD-VBS/common/toolbox/toolbox_basic/calib_bouguetj/loadinr.m
@@ -0,0 +1,52 @@
+%LOADINR	Load an INRIMAGE format file
+%
+%	LOADINR(filename, im)
+%
+%	Load an INRIA image format file and return it as a matrix
+%
+% SEE ALSO:	saveinr
+%
+%	Copyright (c) Peter Corke, 1999  Machine Vision Toolbox for Matlab
+
+
+% Peter Corke 1996
+
+function im = loadinr(fname, im)
+
+	fid = fopen(fname, 'r');
+
+	s = fgets(fid);
+	if strcmp(s(1:12), '#INRIMAGE-4#') == 0,
+		error('not INRIMAGE format');
+	end
+
+	% not very complete, only looks for the X/YDIM keys
+	while 1,
+		s = fgets(fid);
+		n = length(s) - 1;
+		if s(1) == '#',
+			break
+		end
+		if strcmp(s(1:5), 'XDIM='),
+			cols = str2num(s(6:n));
+		end
+		if strcmp(s(1:5), 'YDIM='),
+			rows = str2num(s(6:n));
+		end
+		if strcmp(s(1:4), 'CPU='),
+			if strcmp(s(5:n), 'sun') == 0,
+				error('not sun data ordering');
+			end
+		end
+		
+	end
+	disp(['INRIMAGE format file ' num2str(rows) ' x ' num2str(cols)])
+
+	% now the binary data
+	fseek(fid, 256, 'bof');
+	[im count] = fread(fid, [cols rows], 'float32');
+	im = im';
+	if count ~= (rows*cols),
+		error('file too short');
+	end
+	fclose(fid);
-- 
cgit v1.2.2