#! /usr/bin/revolution -ui

# $1 = source file

# $2 = dst file

# $3 = var name

on startup

try

generate

catch tError

write tError & return to stderr

end try

end startup

on generate

local tSource

set the itemDelimiter to comma

local tText, tCText, tBinary, tLength

put the compress of url ("binfile:" & $1) into tBinary

put the length of tBinary into tLength

put binaryToC(tBinary) into tCText

put "unsigned char " & $3 & "[] =" & return after tText

put "{" & return after tText

put " " & tCText & return after tText

put "};" & return after tText

put "unsigned int " & $3 & "_length = " & tLength & ";" & return after tText

put tText into url ("file:" & $2)

end generate

function binaryToC pBinary

local tData, tIndex

put 0 into tIndex

repeat for each character tByte in pBinary

put format("0x%02x, ", charToNum(tByte)) after tData

add 1 to tIndex

if tIndex mod 16 is 0 then

put return & " " after tData

end if

end repeat

if tIndex mod 16 is 0 then

delete char -5 to -1 of tData

else

delete char -2 to -1 of tData

end if

return tData

end binaryToC