The R Project SVN R

Rev

Details | Last modification | View Log | RSS feed

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