At 12:39 PM -0400 4/10/2001, Chris Nandor wrote:
>At 09:32 -0400 2001.04.10, peter furmonavicius wrote:
>>Hi. I have been trying to figure out how to determine the
>>application's "version" information from within MacPerl (i.e. the
>>info shown in the "Version:" field when you do a 'get info' on an
>>application). Thanks for any advice/help.
>
>This is what I came up with. Have fun! Note that you can do this with the
>app open, since we open the resource in read-only mode.
I would make one change.
># numeric version
>my @num = split //, sprintf "%x", ord $data[1];
>printf "%x.%d", ord $data[0], $num[0];
>printf ".%d", $num[1] if $num[1];
>printf "$r%x", ord $data[3] if $r ne 'f';
>printf "\n";
I'd change the next to the last line to:
printf "$r%u", ord $data[3] if $r ne 'f';
While the version number is a binary coded decimal (ranging on one byte from
0-99), the non-release stage isn't (it ranges from 0-255). ResEdit gets this
wrong in every version I've seen. Resourcerer 2 and later interpret it
correctly. See Apple Technote 1132 for further information:
http://developer.apple.com/technotes/indexes/numberindex.html?number=1132
-Charles Albrecht
[EMAIL PROTECTED]
