4 use POSIX qw(strftime);
6 my $git = `git rev-parse --short HEAD`;
9 my $now = strftime('%Y%m%d', localtime(time));
12 /* DO NOT EDIT - GENERATED BY $0 */
14 unsigned char version[] = {
17 print hex2c($now, "date");
18 print hex2c($git, "git revision");
20 print "};\n\nunsigned char version_len = 8;\n";
21 print "\n/* EOF - this file has not been truncated */\n\n";
24 my ($data, $comment) = @_;
27 $data1 .= '0' if (length($data1) & 1 == 1);
28 $data1 =~ s/(..)/0x$1, /g;
29 return "\t$data1 /* $comment $data */\n";