Mercurial > hg > xemacs-beta
annotate nt/make-build-dir @ 5565:48a3d3281b48
Pass eighth bit on TTY consoles to coding system if needed.
src/ChangeLog addition:
2011-09-06 Aidan Kehoe <kehoea@parhasard.net>
* redisplay-tty.c (init_tty_for_redisplay):
Only set the console meta key flag to treat the eight bit as meta
if the native coding system doesn't need that.
* general-slots.h:
* mule-coding.c:
* mule-coding.c (syms_of_mule_coding):
Move Qiso2022, Qseven to general-slots.h, they're now used in
redisplay-tty.c.
lisp/ChangeLog addition:
2011-09-06 Aidan Kehoe <kehoea@parhasard.net>
* mule/mule-cmds.el (set-language-environment-coding-systems):
Set the input mode for TTY consoles to use the eighth bit for
character information if the native coding system for the language
environment needs that.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Tue, 06 Sep 2011 11:44:50 +0100 |
| parents | 308d34e9f07d |
| children |
| rev | line source |
|---|---|
| 1330 | 1 : #-*- Perl -*- |
| 2 | |
| 3 # Create skeleton build tree | |
| 4 # | |
| 5 # Copyright (C) 2003 Ben Wing. | |
| 6 # | |
| 7 # This file is part of XEmacs. | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
1330
diff
changeset
|
8 # |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
1330
diff
changeset
|
9 # XEmacs is free software: you can redistribute it and/or modify it |
| 1330 | 10 # under the terms of the GNU General Public License as published by the |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
1330
diff
changeset
|
11 # Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
1330
diff
changeset
|
12 # option) any later version. |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
1330
diff
changeset
|
13 # |
| 1330 | 14 # XEmacs is distributed in the hope that it will be useful, but WITHOUT |
| 15 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 16 # FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 17 # for more details. | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
1330
diff
changeset
|
18 # |
| 1330 | 19 # You should have received a copy of the GNU General Public License |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
1330
diff
changeset
|
20 # along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
| 1330 | 21 # |
| 22 # Author: Ben Wing <ben@xemacs.org> | |
| 23 # | |
| 24 # Synched up with: Not in FSF. | |
| 25 | |
| 26 eval 'exec perl -w -S $0 ${1+"$@"}' | |
| 27 if 0; | |
| 28 | |
| 29 use File::Copy; | |
| 30 use File::Basename; | |
| 31 use Cwd; | |
| 32 | |
| 33 die "Creates a skeleton build tree for use with SOURCE_DIR in config.inc. | |
| 34 | |
| 35 Usage: $0 PATH | |
| 36 " if ($#ARGV); | |
| 37 | |
| 38 my $path = $ARGV[0]; | |
| 39 # Sometimes perl sucks, too. To get the equivalent of expand-file-name | |
| 40 # in a reliable way, you have to do really weird shit, it seems. | |
| 41 my $cwd = cwd (); | |
| 42 $0 =~ s|\\|/|g; | |
| 43 chdir (dirname ($0)); | |
| 44 my $srcroot = dirname (cwd ()); | |
| 45 | |
| 46 # Convert the path to MS Windows format if we're running Cygwin Perl. | |
| 47 chomp ($srcroot = `cygpath -w $srcroot`) if ($^O eq "cygwin"); | |
| 48 $srcroot =~ s|/|\\|g; | |
| 49 | |
| 50 chdir ($cwd); | |
| 51 | |
| 52 print "Creating skeleton build tree in $path\n"; | |
| 53 mkdir $path if ! -e $path; | |
| 54 mkdir "$path/nt" if ! -e "$path/nt"; | |
| 55 copy("$srcroot/nt/xemacs.mak", "$path/nt/xemacs.mak") if ! -e "$path/nt/xemacs.mak"; | |
| 56 | |
| 57 &HackFile ("config.inc.samp"); | |
| 58 &HackFile ("config.inc") if -e "$srcroot/nt/config.inc"; | |
| 59 | |
| 60 sub HackFile | |
| 61 { | |
| 62 my $file = $_[0]; | |
| 63 if (! -e "$path/nt/$file") | |
| 64 { | |
| 65 open IN, "<$srcroot/nt/$file"; | |
| 66 open OUT, ">$path/nt/$file"; | |
| 67 | |
| 68 while (<IN>) | |
| 69 { | |
| 70 # Must hack away CRLF junk. Perl sucks again. Wouldn't it be | |
| 71 # nice if perl handled this right?? Really can't be that hard!!! | |
| 72 s/\r\n/\n/g; | |
| 73 | |
| 74 # hack the SOURCE_DIR line to point back to the source. | |
| 75 s!^# SOURCE_DIR=.*!SOURCE_DIR=$srcroot!; | |
| 76 | |
| 77 print OUT; | |
| 78 } | |
| 79 | |
| 80 close IN; | |
| 81 close OUT; | |
| 82 } | |
| 83 } |