FEAT: codecs/bmp/size? function for resolving bmp image size withou…

…t need of decoding
Oldes · Sep 1, 2021 · 64734d5 · 64734d5
1 parent 1d3e2ce
commit 64734d5
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 2 deletions.
diff --git a/src/mezz/codec-image-ext.reb b/src/mezz/codec-image-ext.reb
@@ -158,4 +158,13 @@ if find codecs 'gif [
 		]
 		none
 	]
-]
+]
+
+if find codecs 'bmp [
+	extend codecs/bmp 'size? function ["Return BMP image size or none" img [file! url! binary!]][
+		unless binary? img [img: read/binary/part img 32]
+		unless find/tail img #{424D} [return none]
+		try [return to pair! binary/read img [SKIP 18 UI32LE UI32LE]]
+		none
+	]
+]
diff --git a/src/tests/units/codecs-test.r3 b/src/tests/units/codecs-test.r3
@@ -420,7 +420,15 @@ if find codecs 'GIF [
 		--assert 256x256 = codecs/gif/size? %units/files/flower.gif
 		--assert none?     codecs/gif/size? %units/files/test.aar
 	===end-group===
-]	
+]
+
+if find codecs 'BMP [
+	===start-group=== "BMP codec"
+	--test-- "bmp/size?"
+		--assert 256x256 = codecs/bmp/size? %units/files/flower.bmp
+		--assert none?     codecs/bmp/size? %units/files/test.aar
+	===end-group===
+]
 
 if find codecs 'XML [
 	===start-group=== "XML codec"

diff --git a/src/tests/units/files/flower.bmp b/src/tests/units/files/flower.bmp