Mercurial > hg > xemacs-beta
diff lib-src/make-mswin-unicode.pl @ 4875:49de55c09f18
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 |
line wrap: on
line diff
--- a/lib-src/make-mswin-unicode.pl Fri Jan 15 05:12:07 2010 -0600 +++ b/lib-src/make-mswin-unicode.pl Fri Jan 15 05:42:21 2010 -0600 @@ -2,7 +2,7 @@ ### make-mswin-unicode --- generate Unicode-encapsulation code for MS Windows -## Copyright (C) 2001, 2002, 2004 Ben Wing. +## Copyright (C) 2001, 2002, 2004, 2010 Ben Wing. ## Author: Ben Wing <ben@xemacs.org> ## Maintainer: Ben Wing <ben@xemacs.org> @@ -68,6 +68,9 @@ no indicates a function we don't support (it will be #defined to cause a compile error, with the text after the function included in the erroneous definition to indicate why we don't support it). +review indicates a function that we still need to review to determine whether + or how to support it. This has the same effect as `no', with a comment + indicating that the function needs review. skip indicates a function we support manually; only a comment about this will be generated. split indicates a function with a split structure (different versions @@ -173,7 +176,7 @@ { next if (m!^//!); next if (/^[ \t]*$/); - if (/(file|yes|soon|no|skip|split|begin-bracket|end-bracket)(?: (.*))?/) + if (/(file|yes|soon|no|review|skip|split|begin-bracket|end-bracket)(?: (.*))?/) { my ($command, $parms) = ($1, $2); if ($command eq "file") @@ -282,8 +285,11 @@ print HOUT "#if $bracket\n"; print COUT "#if $bracket\n\n"; } - if ($command eq "no") + if ($command eq "no" || $command eq "review") { + $reason = "Function needs review to determine how to handle it" + if !defined ($reason) && $command eq "review"; + if (!defined ($reason)) { print "WARNING: No reason given for `no' with function $fun\n";