The R Project SVN R

Rev

Rev 13874 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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