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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
|
#!/usr/bin/perl
#
# Copyright (c) 2003-2020 Rony Shapiro <ronys@pwsafe.org>.
# All rights reserved. Use of the code is allowed under the
# Artistic License 2.0 terms, as specified in the LICENSE file
# distributed with this code, or available from
# http://www.opensource.org/licenses/artistic-license-2.0.php
#
# A simple utility to create a C++ and header file given an rc2 file
# containing one or more stringtables.
#
# Usage: $0 rc2file
# Input: rc2file.rc2
# Output: rc2file_st.cpp, rc2file_st.h
#
# The .cpp file contains a std::map<int, TCHAR *> named rc2file_st
# The .h file contains a declaration of same.
use strict;
use warnings;
use File::Basename;
sub usage {
print "Usage: $0 rc2file\n";
exit 1;
}
&usage unless ($#ARGV == 0);
my $PATHNAME = $ARGV[0];
my $RC2FILE;
my $CPPFILE;
my $HFILE;
my %MAP;
# accept both filename.rc2 and filename as input
if ($PATHNAME =~ m/(.+)\.rc2/) {
$PATHNAME = $1;
}
$RC2FILE = "${PATHNAME}.rc2";
$CPPFILE = "${PATHNAME}_st.cpp";
$HFILE = "${PATHNAME}_st.h";
# Get last modified dates to see if we need to recreate the files.
# If we do re-create them when they haven't changed, then VS will
# want to rebuild the core library for no reason
my $dateRC2;
my $dateCPP;
my $dateH;
my $sizeCPP;
if (-e $RC2FILE) {
$dateRC2 = (stat $RC2FILE)[9];
} else {
print "Resource file not found\n";
exit 1;
}
# Verify that the source and header files are newer than the rc file
# However, need to also verify that the source file contains good info
# even if newer. Size should be ~21KB not the default one of < 1KB.
if (-e $CPPFILE) {
$dateCPP = (stat $CPPFILE)[9];
$sizeCPP = (stat $CPPFILE)[7];
} else {
$dateCPP = -1;
$sizeCPP = 0;
}
if (-e $HFILE) {
$dateH = (stat $HFILE)[9];
} else {
$dateH = -1;;
}
if ($dateRC2 < $dateCPP && $dateRC2 < $dateH && $sizeCPP > 1024) {
# Nothing has changed - exit cleanuly
exit 0;
}
my $BASE;
my $dummy;
($BASE, $dummy, $dummy) = fileparse($RC2FILE, qr{\.rc2});
my $B = uc($BASE);
my $b = lc($BASE);
my $include;
&ReadRC2File;
&WriteHFile;
&WriteCPPFile;
exit 0;
#-----------------------------------------------------------------
sub ReadRC2File {
my $inST = 0;
open(RC2, "<$RC2FILE") || die "Couldn't open $RC2FILE\n";
while (<RC2>) {
if (m/^#include.*/) {
$include = $_;
$include =~ s,\\,/,g;
} elsif (m/^\s*STRINGTABLE\s*$/) {
$inST = 1;
} elsif ($inST == 1 && m/^\s*BEGIN\s*$/) {
$inST = 2;
} elsif ($inST == 2 && m/^\s*END\s*$/) {
$inST = 0;
} elsif ($inST == 2 && m/^\s*(\w+)\s+(\".+\")[^"]*/) {
my ($key, $val) = ($1, $2);
# replace "" with \"
$val =~ s/\"\"/\\\"/g;
# replace \xab and \xbb with gettext-friendly \":
$val =~ s/\\x[ab]b/\\\"/g;
$MAP{$key} = $val;
}
}
close(RC2);
}
sub WriteHFile {
open(H, ">$HFILE") || die "Couldn't open $HFILE\n";
print H <<"EOT";
#ifndef __${B}_ST_H
#define __${B}_ST_H
/**
* Declaration of string table map
* Derived from $RC2FILE
* Generated by $0
*
* THIS FILE IS AUTOMATICALLY GENERATED. DO NOT EDIT.
* Changes made to this file will be lost when the
* file is regenerated.
*
* Note: The contents of this file is not needed for MFC builds but
* it does not seem possible to conditionally exclude it from these.
*
*/
#if !defined(_WIN32) || defined(__WX__)
#include <map>
#include "../os/typedefs.h" // for definition of TCHAR
extern std::map<int, const TCHAR *> ${b}_st;
#endif
#endif /* __${B}_ST_H */
EOT
close(H);
}
sub WriteCPPFile {
open(CPP, ">$CPPFILE") || die "Couldn't open $CPPFILE\n";
print CPP <<"PREAMBLE";
/**
* Definition of string table map
* Derived from $RC2FILE
* Generated by $0
*
* THIS FILE IS AUTOMATICALLY GENERATED. DO NOT EDIT.
* Changes made to this file will be lost when the
* file is regenerated.
*
* Note: The contents of this file is not needed for MFC builds but
* it does not seem possible to conditionally exclude it from these.
*
*/
#if !defined(_WIN32) || defined(__WX__)
#define _(x) L ## x
#include "./${BASE}_st.h"
#include <utility>
${include}
using namespace std;
namespace {
pair<int, const TCHAR *> Pairs[] = {
PREAMBLE
# print %MAP, sorted by constant name, just to be consistent
my $key;
foreach $key (sort keys %MAP) {
print CPP " make_pair($key, _($MAP{$key})),\n";
}
print CPP <<"POSTAMBLE";
}; // Pairs array
} // anonymous namespace
map<int, const TCHAR *> ${b}_st(Pairs, Pairs + sizeof(Pairs)/sizeof(Pairs[0]));
#endif
POSTAMBLE
close(CPP);
}
|
