Mercurial > hg > xemacs-beta

comparison lib-src/make-mswin-unicode.pl @ 778:2923009caf47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-03-16 10:38:59 by ben] cm.c, file-coding.c: fix warnings. .cvsignore: Those pesky *.tmp files. mule\arabic.el, mule\canna-leim.el, mule\china-util.el, mule\chinese.el, mule\cyril-util.el, mule\cyrillic.el, mule\devan-util.el, mule\devanagari.el, mule\english.el, mule\ethio-util.el, mule\ethiopic.el, mule\european.el, mule\greek.el, mule\hebrew.el, mule\indian.el, mule\japan-util.el, mule\japanese.el, mule\korea-util.el, mule\korean.el, mule\lao-util.el, mule\lao.el, mule\misc-lang.el, mule\mule-charset.el, mule\mule-cmds.el, mule\thai-util.el, mule\thai.el, mule\tibet-util.el, mule\tibetan.el, mule\viet-util.el, mule\vietnamese.el, unicode.el: Fix lots of warnings. Sync up some files to FSF 21.1. Copy over all charset definitions from FSF 21.1, convert them to our format, and stick them in the relevant files. Eventually we will actually be able to dump these files (though they may not quite work). autoload.el: Support defun*, defmacro*. mule/mule-composite.el, mule/mule-composite-stub.el: New file, stubs for nonexistent composition funs/vars. mule/viet-chars.el, dumped-lisp.el: Account for these changes. font.el, mouse.el, msw-font-menu.el, printer.el, startup.el: fix warnings.
author ben
date Sat, 16 Mar 2002 10:39:19 +0000
parents 943eaba38521
children a5954632b187
comparison
equal deleted inserted replaced
777:e65d9cf16707 778:2923009caf47
54 consisting only of the words \"begin-unicode-encapsulation-script\" 54 consisting only of the words \"begin-unicode-encapsulation-script\"
55 and \"end-unicode-encapsulation-script\". More than one section can 55 and \"end-unicode-encapsulation-script\". More than one section can
56 occur in a single file. Processed lines begin with a command word, 56 occur in a single file. Processed lines begin with a command word,
57 followed by one or more args (no quotes are necessary for spaces): 57 followed by one or more args (no quotes are necessary for spaces):
58 58
59 dir sets the directory for include files.
60 file specifies a file to start reading from. 59 file specifies a file to start reading from.
61 yes indicates a function to be automatically Unicode-encapsulated. 60 yes indicates a function to be automatically Unicode-encapsulated.
62 (All parameters either need no special processing or are LPTSTR or 61 (All parameters either need no special processing or are LPTSTR or
63 LPCTSTR.) 62 LPCTSTR.)
64 soon indicates a function that should be automatically Unicode-encapsulated, 63 soon indicates a function that should be automatically Unicode-encapsulated,
86 $Getopt::Long::ignorecase = 0; 85 $Getopt::Long::ignorecase = 0;
87 &GetOptions ( 86 &GetOptions (
88 \%options, 87 \%options,
89 'c-output=s', 88 'c-output=s',
90 'h-output=s', 89 'h-output=s',
90 'includedir=s',
91 'help', 91 'help',
92 ); 92 );
93 93
94 die $usage if $options{"help"}; 94 die $usage if $options{"help"};
95 95
96 my $in_script; 96 my $in_script;
97 my $slurp; 97 my $slurp;
98 98
99 my ($cout, $hout) = ($options{"c-output"}, $options{"h-output"}); 99 my ($cout, $hout, $dir) = ($options{"c-output"},
100 $options{"h-output"},
101 $options{"includedir"});
102 if (!$dir)
103 {
104 $dir=$ENV{"MSVCDIR"} or die "Environment variable MSVCDIR undefined - run vcvars32.bat from your MSVC installation";
105 $dir.='/include';
106 }
107 die "Can't find MSVC include files in \"$dir\"" unless (-f $dir.'/WINDOWS.H');
100 108
101 open (COUT, ">$cout") or die "Can't open C output file $cout: $!"; 109 open (COUT, ">$cout") or die "Can't open C output file $cout: $!";
102 open (HOUT, ">$hout") or die "Can't open C output file $hout: $!"; 110 open (HOUT, ">$hout") or die "Can't open C output file $hout: $!";
103 111
104 select (STDOUT); $| = 1; 112 select (STDOUT); $| = 1;
142 } 150 }
143 elsif ($in_script) 151 elsif ($in_script)
144 { 152 {
145 next if (m!^//!); 153 next if (m!^//!);
146 next if (/^[ \t]*$/); 154 next if (/^[ \t]*$/);
147 if (/(dir|file|yes|soon|no|skip|split|begin-bracket|end-bracket)(?: (.*))?/) 155 if (/(file|yes|soon|no|skip|split|begin-bracket|end-bracket)(?: (.*))?/)
148 { 156 {
149 my ($command, $parms) = ($1, $2); 157 my ($command, $parms) = ($1, $2);
150 if ($command eq "dir") 158 if ($command eq "file")
151 {
152 chdir $parms or die "Can't chdir to $parms: $!";
153 }
154 elsif ($command eq "file")
155 { 159 {
156 $current_file = $parms; 160 $current_file = $parms;
157 } 161 }
158 elsif ($command eq "begin-bracket") 162 elsif ($command eq "begin-bracket")
159 { 163 {
398 402
399 403
400 sub FileContents 404 sub FileContents
401 { 405 {
402 local $/ = undef; 406 local $/ = undef;
403 open (FILE, "< $_[0]") or die "$_[0]: $!"; 407 open (FILE, "< $dir/$_[0]") or die "$dir/$_[0]: $!";
404 my $retval = scalar <FILE>; 408 my $retval = scalar <FILE>;
405 # must hack away CRLF junk. 409 # must hack away CRLF junk.
406 $retval =~ s/\r\n/\n/g; 410 $retval =~ s/\r\n/\n/g;
407 return $retval; 411 return $retval;
408 } 412 }