From 8d0137e0fd6926005d968967fe1f75197d44dbec Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 8 Jan 2013 15:51:26 -0800
Subject: [PATCH] tools.deploy.windows.ico: Throw an error if the .ico is a
 unsupported format.

---
 basis/tools/deploy/windows/ico/ico.factor | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/basis/tools/deploy/windows/ico/ico.factor b/basis/tools/deploy/windows/ico/ico.factor
index 4827cc2e05..fb950d25cc 100755
--- a/basis/tools/deploy/windows/ico/ico.factor
+++ b/basis/tools/deploy/windows/ico/ico.factor
@@ -53,12 +53,22 @@ STRUCT: group-directory-entry
     header clone >c-ptr group-directory concat append
     icon-bytes ; inline
 
+ERROR: unsupported-ico-format bytes format ;
+
+: check-ico-type ( bytes -- bytes )
+    dup "PNG" head? [
+        "PNG" unsupported-ico-format
+    ] when
+    dup B{ 0 0 } head? [
+        "UNKNOWN" unsupported-ico-format
+    ] unless ;
+
 PRIVATE>
 
 :: embed-icon-resource ( exe ico-bytes id -- )
     exe normalize-path 1 BeginUpdateResource :> hUpdate
     hUpdate [
-        ico-bytes ico-group-and-icons :> ( group icons )
+        ico-bytes check-ico-type ico-group-and-icons :> ( group icons )
         hUpdate RT_GROUP_ICON id 0 group dup byte-length
         UpdateResource drop