/
makeDllRes.pl
49 lines (44 loc) · 1.12 KB
/
makeDllRes.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
use R::Dcf;
use R::Utils;
my $DllName = $ARGV[0];
my $pkgname = $DllName;
my $pkgversion = "unknown";
if(-r "../DESCRIPTION"){
$description = new R::Dcf("../DESCRIPTION");
} elsif(-r "../../DESCRIPTION"){
$description = new R::Dcf("../../DESCRIPTION");
}
if($description->{"Version"}) {
$pkgversion = $description->{"Version"};
}
if($description->{"Package"}) {
$pkgname = $description->{"Package"};
}
print <<ENDF;
#include <windows.h>
#include "Rversion.h"
VS_VERSION_INFO VERSIONINFO
FILEVERSION R_FILEVERSION
PRODUCTVERSION 3,0,0,0
FILEFLAGSMASK 0x3L
FILEOS VOS__WINDOWS32
FILETYPE VFT_APP
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "040904E4"
BEGIN
ENDF
print " VALUE \"FileDescription\", \"DLL for R package `$pkgname'\\0\"\n";
print " VALUE \"FileVersion\", \"$pkgversion\\0\"\n";
print <<ENDF;
VALUE "Compiled under R Version", R_MAJOR "." R_MINOR " (" R_YEAR "-" R_MONTH "-" R_DAY ")\\0"
VALUE "Project info", "http://www.r-project.org\\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x409, 1252
END
END
ENDF