Mercurial > hg > xemacs-beta

comparison lib-src/make-mswin-unicode.pl @ 4875:49de55c09f18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add "review" lines in intl-encap-win32.c for all unseen functions in processed headers -------------------- ChangeLog entries follow: -------------------- lib-src/ChangeLog addition: 2010-01-15 Ben Wing <ben@xemacs.org> * make-mswin-unicode.pl: Process the command `review'. Cause an error to happen if we try to use the command, indicating that the command needs review to determine how to handle it. src/ChangeLog addition: 2010-01-15 Ben Wing <ben@xemacs.org> * intl-encap-win32.c: Add `review' lines for all functions seen in the headers that we process but not yet associated with an encapsulation command. These will cause an error to be signaled if these functions are used. * intl-auto-encap-win32.c: * intl-auto-encap-win32.h: Regenerate.
author Ben Wing <ben@xemacs.org>
date Fri, 15 Jan 2010 05:42:21 -0600
parents 50861fea97f6
children 70089046adef
comparison
equal deleted inserted replaced
4874:4c3f5e1ecbeb 4875:49de55c09f18
1 : #-*- Perl -*- 1 : #-*- Perl -*-
2 2
3 ### make-mswin-unicode --- generate Unicode-encapsulation code for MS Windows 3 ### make-mswin-unicode --- generate Unicode-encapsulation code for MS Windows
4 4
5 ## Copyright (C) 2001, 2002, 2004 Ben Wing. 5 ## Copyright (C) 2001, 2002, 2004, 2010 Ben Wing.
6 6
7 ## Author: Ben Wing <ben@xemacs.org> 7 ## Author: Ben Wing <ben@xemacs.org>
8 ## Maintainer: Ben Wing <ben@xemacs.org> 8 ## Maintainer: Ben Wing <ben@xemacs.org>
9 ## Current Version: 1.0, August 24, 2001 9 ## Current Version: 1.0, August 24, 2001
10 10
66 soon indicates a function that should be automatically Unicode-encapsulated, 66 soon indicates a function that should be automatically Unicode-encapsulated,
67 but we're not ready to process it yet. 67 but we're not ready to process it yet.
68 no indicates a function we don't support (it will be #defined to cause 68 no indicates a function we don't support (it will be #defined to cause
69 a compile error, with the text after the function included in the 69 a compile error, with the text after the function included in the
70 erroneous definition to indicate why we don't support it). 70 erroneous definition to indicate why we don't support it).
71 review indicates a function that we still need to review to determine whether
72 or how to support it. This has the same effect as `no', with a comment
73 indicating that the function needs review.
71 skip indicates a function we support manually; only a comment about this 74 skip indicates a function we support manually; only a comment about this
72 will be generated. 75 will be generated.
73 split indicates a function with a split structure (different versions 76 split indicates a function with a split structure (different versions
74 for Unicode and ANSI), but where the only difference is in pointer 77 for Unicode and ANSI), but where the only difference is in pointer
75 types, and the actual size does not differ. The structure name 78 types, and the actual size does not differ. The structure name
171 } 174 }
172 elsif ($in_script) 175 elsif ($in_script)
173 { 176 {
174 next if (m!^//!); 177 next if (m!^//!);
175 next if (/^[ \t]*$/); 178 next if (/^[ \t]*$/);
176 if (/(file|yes|soon|no|skip|split|begin-bracket|end-bracket)(?: (.*))?/) 179 if (/(file|yes|soon|no|review|skip|split|begin-bracket|end-bracket)(?: (.*))?/)
177 { 180 {
178 my ($command, $parms) = ($1, $2); 181 my ($command, $parms) = ($1, $2);
179 if ($command eq "file") 182 if ($command eq "file")
180 { 183 {
181 $current_file = $parms; 184 $current_file = $parms;
280 if (defined ($bracket)) 283 if (defined ($bracket))
281 { 284 {
282 print HOUT "#if $bracket\n"; 285 print HOUT "#if $bracket\n";
283 print COUT "#if $bracket\n\n"; 286 print COUT "#if $bracket\n\n";
284 } 287 }
285 if ($command eq "no") 288 if ($command eq "no" || $command eq "review")
286 { 289 {
290 $reason = "Function needs review to determine how to handle it"
291 if !defined ($reason) && $command eq "review";
292
287 if (!defined ($reason)) 293 if (!defined ($reason))
288 { 294 {
289 print "WARNING: No reason given for `no' with function $fun\n"; 295 print "WARNING: No reason given for `no' with function $fun\n";
290 $reason = ""; 296 $reason = "";
291 } 297 }