Mercurial > hg > xemacs-beta
annotate lisp/mule/mule-win32-init.el @ 5820:b3824b7f5627
Some changes to eliminate warnings with Apple clang version 1.7.
src/ChangeLog addition:
2014-10-18 Aidan Kehoe <kehoea@parhasard.net>
Some changes to eliminate warnings with Apple clang version 1.7.
* cm.c (send_string_to_tty_console):
* doprnt.c (doprnt_2):
* doprnt.c (parse_off_posnum):
* event-stream.c (dribble_out_event):
Cast various calls to Lstream_putc() to void when the result isn't
being used, for the sake of clang.
* lisp.h:
Declare #'replace here too, it's used in event-stream.c.
* lisp.h (ALLOCA):
* lisp.h (MALLOC_OR_ALLOCA):
Cast a couple of zeros in the context of the ternary operator to
void to prevent unused value warnings with clang.
* sysdep.c (child_setup_tty):
* text.h (ASSERT_ASCTEXT_ASCII_LEN):
Use DO_NOTHING in these files to quieten the compiler.
lib-src/ChangeLog addition:
2014-10-18 Aidan Kehoe <kehoea@parhasard.net>
* ootags.c (substitute):
Cast the result of strlen to int before comparing it with a signed
value, for the sake of compiler warnings.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sat, 18 Oct 2014 21:48:10 +0100 |
| parents | 248176c74e6b |
| children |
| rev | line source |
|---|---|
| 1315 | 1 ;;; mule-win32-init.el --- initialization code for MS Windows/Cygwin under MULE |
| 2 ;;; Copyright (C) 2001, 2002 Ben Wing. | |
| 3 | |
| 4 ;; This file is part of XEmacs. | |
| 5 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4491
diff
changeset
|
6 ;; XEmacs is free software: you can redistribute it and/or modify it |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4491
diff
changeset
|
7 ;; under the terms of the GNU General Public License as published by the |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4491
diff
changeset
|
8 ;; 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:
4491
diff
changeset
|
9 ;; option) any later version. |
| 1315 | 10 |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4491
diff
changeset
|
11 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4491
diff
changeset
|
12 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4491
diff
changeset
|
13 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4491
diff
changeset
|
14 ;; for more details. |
| 1315 | 15 |
| 16 ;; 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:
4491
diff
changeset
|
17 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
| 1315 | 18 |
| 19 (make-coding-system | |
| 20 'mswindows-multibyte 'mswindows-multibyte | |
| 21 "MS Windows Multibyte (current code page)" | |
| 22 '(mnemonic "MSW-MB" | |
| 23 documentation | |
| 24 "MS Windows multibyte -- current code page. | |
| 25 | |
| 26 This implements the encoding specified by the current code page -- | |
| 27 i.e. the ANSI code page corresponding to the current locale, as | |
| 28 returned by | |
| 29 | |
| 30 (mswindows-locale-code-page (mswindows-current-locale)) | |
| 31 " | |
| 32 locale current | |
| 33 code-page ansi)) | |
| 34 | |
| 35 ;; we temporarily aliased this to raw-text in intl-win32.c. | |
| 36 (define-coding-system-alias 'mswindows-multibyte-system-default nil) | |
| 37 (make-coding-system | |
| 38 'mswindows-multibyte-system-default 'mswindows-multibyte | |
| 39 "MS Windows Multibyte (system default code page)" | |
| 40 '(mnemonic "MSW-MB-SysDef" | |
| 41 documentation | |
| 42 "MS Windows multibyte -- system default code page. | |
| 43 | |
| 44 This implements the encoding specified by the system default code page | |
| 45 -- i.e. the ANSI code page corresponding to the system default locale, | |
| 46 as returned by | |
| 47 | |
| 48 (mswindows-locale-code-page (mswindows-system-default-locale)) | |
| 49 " | |
| 50 locale system-default | |
| 51 code-page ansi)) | |
| 52 | |
| 53 (make-coding-system | |
| 54 'mswindows-multibyte-user-default 'mswindows-multibyte | |
| 55 "MS Windows Multibyte (user default code page)" | |
| 56 '(mnemonic "MSW-MB-UserDef" | |
| 57 documentation | |
| 58 "MS Windows multibyte -- user default code page. | |
| 59 | |
| 60 This implements the encoding specified by the user default code page | |
| 61 -- i.e. the ANSI code page corresponding to the user default locale, | |
| 62 as returned by | |
| 63 | |
| 64 (mswindows-locale-code-page (mswindows-user-default-locale)) | |
| 65 " | |
| 66 locale user-default | |
| 67 code-page ansi)) | |
| 68 | |
| 69 (make-coding-system | |
| 70 'mswindows-multibyte-oem 'mswindows-multibyte | |
| 71 "MS Windows Multibyte (current OEM code page)" | |
| 72 '(mnemonic "MSW-MB-OEM" | |
| 73 documentation | |
| 74 "MS Windows multibyte -- current OEM code page. | |
| 75 | |
| 76 This implements the encoding specified by the current OEM code page | |
| 77 -- i.e. the OEM code page corresponding to the current locale, | |
| 78 as returned by | |
| 79 | |
| 80 (mswindows-locale-oem-code-page (mswindows-current-locale)) | |
| 81 " | |
| 82 locale current | |
| 83 code-page oem)) | |
| 84 | |
| 85 (make-coding-system | |
| 86 'mswindows-multibyte-oem-system-default 'mswindows-multibyte | |
| 87 "MS Windows Multibyte (system default OEM code page)" | |
| 88 '(mnemonic "MSW-MB-OEM-SysDef" | |
| 89 documentation | |
| 90 "MS Windows multibyte -- system default OEM code page. | |
| 91 | |
| 92 This implements the encoding specified by the system default OEM code page | |
| 93 -- i.e. the OEM code page corresponding to the system default locale, | |
| 94 as returned by | |
| 95 | |
| 96 (mswindows-locale-oem-code-page (mswindows-system-default-locale)) | |
| 97 " | |
| 98 locale system-default | |
| 99 code-page oem)) | |
| 100 | |
| 101 (make-coding-system | |
| 102 'mswindows-multibyte-oem-user-default 'mswindows-multibyte | |
| 103 "MS Windows Multibyte (user default OEM code page)" | |
| 104 '(mnemonic "MSW-MB-OEM-UserDef" | |
| 105 documentation | |
| 106 "MS Windows multibyte -- user default OEM code page. | |
| 107 | |
| 108 This implements the encoding specified by the user default OEM code page | |
| 109 -- i.e. the OEM code page corresponding to the user default locale, | |
| 110 as returned by | |
| 111 | |
| 112 (mswindows-locale-oem-code-page (mswindows-user-default-locale)) | |
| 113 " | |
| 114 locale user-default | |
| 115 code-page oem)) | |
| 116 | |
| 4145 | 117 (loop |
| 118 for (ansioem cp category name) | |
| 119 in '(("EBCDIC" 037 no-conversion "EBCDIC") | |
| 120 ("OEM" 437 no-conversion "MS-DOS United States") | |
| 121 ("EBCDIC" 500 no-conversion "EBCDIC \"500V1\"") | |
| 122 | |
| 123 ;; This is ISO-8859-6. | |
| 124 ;; ("OEM" 708 "Arabic (ASMO 708)") | |
| 125 ("OEM" 709 no-conversion "Arabic (ASMO 449+, BCON V4)") | |
| 126 ("OEM" 710 no-conversion "Arabic (Transparent Arabic)") | |
| 127 ("OEM" 720 no-conversion "Arabic (Transparent ASMO)") | |
| 128 ("OEM" 737 no-conversion "Greek (formerly 437G)") | |
| 129 ("OEM" 775 no-conversion "Baltic") | |
| 130 ("OEM" 850 no-conversion "MS-DOS Multilingual (Latin I)") | |
| 131 ("OEM" 852 no-conversion "MS-DOS Slavic (Latin II)") | |
| 132 ("OEM" 855 no-conversion "IBM Cyrillic (primarily Russian)") | |
| 133 ("OEM" 857 no-conversion "IBM Turkish") | |
| 134 ("OEM" 860 no-conversion "MS-DOS Portuguese") | |
| 135 ("OEM" 861 no-conversion "MS-DOS Icelandic") | |
| 136 ("OEM" 862 no-conversion "Hebrew") | |
| 137 ("OEM" 863 no-conversion "MS-DOS Canadian-French") | |
| 138 ("OEM" 864 no-conversion "Arabic") | |
| 139 ("OEM" 865 no-conversion "MS-DOS Nordic") | |
| 140 ; ("OEM" 866 no-conversion "MS-DOS Russian") | |
| 141 ("OEM" 869 no-conversion "IBM Modern Greek") | |
|
5397
a63e666bb68a
No longer create windows-874 as a Win32-specific coding system; thanks Mats!
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
142 ; ("Ansi/OEM" 874 no-conversion "Thai") |
| 4145 | 143 ("EBCDIC" 875 no-conversion "EBCDIC") |
| 144 ("Ansi/OEM" 932 shift_jis "Japanese") | |
| 145 ("Ansi/OEM" 936 iso_8_2 "Chinese (PRC, Singapore)") | |
| 146 ("Ansi/OEM" 949 iso_8_2 "Korean") | |
| 147 ("Ansi/OEM" 950 big5 "Chinese (Taiwan; Hong Kong SAR, PRC)") | |
| 148 ("EBCDIC" 1026 no-conversion "EBCDIC") | |
| 149 | |
| 150 ;; This code page doesn't work. See | |
| 151 ;; http://blogs.msdn.com/michkap/archive/2005/08/01/446475.aspx | |
| 152 ; ("ANSI" 1200 utf-16-little-endian "Unicode (BMP of ISO 10646)") | |
| 153 | |
| 154 ;; We implement this ourselves, and keeping the same implementation | |
| 155 ;; across platforms means behaviour is a bit more consistent. | |
|
4447
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4145
diff
changeset
|
156 ; ("ANSI" 1250 no-conversion "Windows 3.1 Eastern European") |
| 4145 | 157 ; ("ANSI" 1251 no-conversion "Windows 3.1 Cyrillic") |
| 158 ; ("ANSI" 1252 no-conversion "Windows 3.1 US (ANSI)") | |
| 159 | |
| 160 ; ("ANSI" 1253 no-conversion "Windows 3.1 Greek") | |
| 161 ("ANSI" 1254 no-conversion "Windows 3.1 Turkish") | |
| 162 ("ANSI" 1255 no-conversion "Hebrew") | |
|
4491
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4447
diff
changeset
|
163 ;; We implement these ourselves. |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4447
diff
changeset
|
164 ; ("ANSI" 1256 no-conversion "Arabic") |
| 4145 | 165 ("ANSI" 1257 no-conversion "Baltic") |
| 166 ("ANSI" 1258 no-conversion "VietNam") | |
| 167 ;; #### Is this category right? I don't have Lunde to hand, and the | |
| 168 ;; online information on Johab is scant. | |
| 169 ("Ansi/OEM" 1361 iso_8_2 "Korean (Johab)") | |
| 170 ("Mac" 10000 no-conversion "Macintosh Roman") | |
| 171 ("Mac" 10001 shift_jis "Macintosh Japanese") | |
| 172 ("Mac" 10006 no-conversion "Macintosh Greek I") | |
| 173 ("Mac" 10007 no-conversion "Macintosh Cyrillic") | |
| 174 ("Mac" 10029 no-conversion "Macintosh Latin 2") | |
| 175 ("Mac" 10079 no-conversion "Macintosh Icelandic") | |
| 176 ("Mac" 10081 no-conversion "Macintosh Turkish")) | |
| 177 do | |
| 178 (make-coding-system | |
| 179 (intern (format "windows-%s" cp)) | |
| 180 'mswindows-multibyte | |
| 181 (format "MS Windows code page %s (%s, %s)" cp ansioem name) | |
| 182 `(mnemonic | |
| 183 ,(format "MSW-%s" cp) | |
| 184 code-page ,cp | |
| 185 documentation | |
| 186 ,(format | |
| 187 "MS Windows Multibyte -- code page %s (%s, %s). | |
| 1315 | 188 |
| 189 This implements the encoding specified by code page %s. | |
| 190 For more information on code pages, see `mswindows-charset-code-page'." | |
| 4145 | 191 cp ansioem name cp))) |
| 192 (define-coding-system-alias | |
| 193 (intern (format "cp%s" cp)) | |
| 194 (intern (format "windows-%s" cp))) | |
| 195 (coding-system-put (intern (format "windows-%s" cp)) 'category category)) | |
| 196 |