annotate src/m/ibms390.h @ 102422:82f82b92314e

(CODING_ISO_CMP_STATUS): New macro. (CODING_ISO_EXTSEGMENT_LEN, CODING_ISO_EMBEDDED_UTF_8): New macros. (MAX_ANNOTATION_LENGTH): Defined to 5. (ADD_COMPOSITION_DATA): New arg nbytes. (emacs_mule_char): New arg cmp_status. (DECODE_EMACS_MULE_COMPOSITION_CHAR): Delete it. (DECODE_EMACS_MULE_COMPOSITION_RULE_20): New arg c. (DECODE_EMACS_MULE_COMPOSITION_RULE_21): New arg c. (DECODE_EMACS_MULE_21_COMPOSITION): Delete the arg c. (DECODE_EMACS_MULE_20_RELATIVE_COMPOSITION): Likewise. (DECODE_EMACS_MULE_20_RULEBASE_COMPOSITION): Likewise. (DECODE_EMACS_MULE_COMPOSITION_START): New macro. (EMACS_MULE_COMPOSITION_END): New macro. (emacs_mule_finish_composition): New function. (EMACS_MULE_MAYBE_FINISH_COMPOSITION): New macro. (decode_coding_emacs_mule): Avoid long looking ahead while handling composition. (DECODE_COMPOSITION_RULE): Argument changed to rule and nbytes. (ENCODE_COMPOSITION_RULE): New macro. (finish_composition): New function. (MAYBE_FINISH_COMPOSITION): Call finish_composition. (DECODE_COMPOSITION_START): New implementation. (DECODE_COMPOSITION_END): Likewise. (STORE_COMPOSITION_RULE): New macro. (decode_coding_iso_2022): Avoid long looking ahead while handling composition, CTEXT extended segment, and embedded UTF-8. (setup_coding_system): For a coding of type iso-2022, reset CODING_ISO_EXTSEGMENT_LEN (coding) and CODING_ISO_EMBEDDED_UTF_8 (coding). (get_translation): Delete arguments last_block, from_nchars, to_nchars. Callers changed. (produce_chars): Don't modify charbuf. Adjusted for the change of get_translation. (produce_composition): Adjusted for the new annotation sequence. (handle_composition_annotation): Likewise. (consume_chars): Adjusted for the change of get_translation.
author Kenichi Handa <handa@m17n.org>
date Fri, 06 Mar 2009 07:51:52 +0000
parents e038c1a8307c
children 1d1d5d9bd884
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
40423
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1 /* machine description file template.
94714
7e5b32f86a4c Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79755
diff changeset
2 Copyright (C) 1985, 1986, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
100951
e038c1a8307c Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 96833
diff changeset
3 2008, 2009 Free Software Foundation, Inc.
40423
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
4
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
5 This file is part of GNU Emacs.
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
6
94714
7e5b32f86a4c Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79755
diff changeset
7 GNU Emacs is free software: you can redistribute it and/or modify
40423
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
8 it under the terms of the GNU General Public License as published by
94714
7e5b32f86a4c Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79755
diff changeset
9 the Free Software Foundation, either version 3 of the License, or
7e5b32f86a4c Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79755
diff changeset
10 (at your option) any later version.
40423
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
11
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
15 GNU General Public License for more details.
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
16
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
94714
7e5b32f86a4c Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79755
diff changeset
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
40423
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
19
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
20
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 44601
diff changeset
21 /* The following line tells the configuration script what sort of
40423
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
22 operating system this machine is likely to run.
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
23 USUAL-OPSYS="<name of system .h file here, without the s- or .h>" */
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
24
78499
49b363c28dce Replace `iff' in comments.
Glenn Morris <rgm@gnu.org>
parents: 78258
diff changeset
25 /* Define WORDS_BIG_ENDIAN if lowest-numbered byte in a word
40423
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
26 is the most significant byte. */
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
27
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
28 #define WORDS_BIG_ENDIAN
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
29
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
30 /* Define NO_ARG_ARRAY if you cannot take the address of the first of a
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
31 * group of arguments and treat it as an array of the arguments. */
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
32
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
33 #define NO_ARG_ARRAY
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
34
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
35 /* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
36 the 24-bit bit field into an int. In other words, if bit fields
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
37 are always unsigned.
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
38
96602
0e3e875ffade * lisp.h:
Dan Nicolaescu <dann@ics.uci.edu>
parents: 96581
diff changeset
39 This flag only matters if you use USE_LISP_UNION_TYPE. */
40423
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
40
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
41 #define EXPLICIT_SIGN_EXTEND
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
42
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
43 /* Data type of load average, as read out of kmem. */
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
44
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
45 #define LOAD_AVE_TYPE long
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
46
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
47 /* Convert that into an integer that is 100 for a load average of 1.0 */
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
48
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
49 #define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / FSCALE)
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
50
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
51 /* Define VIRT_ADDR_VARIES if the virtual addresses of
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
52 pure and impure space as loaded can vary, and even their
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
53 relative order cannot be relied on.
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
54
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
55 Otherwise Emacs assumes that text space precedes data space,
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
56 numerically. */
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
57
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
58 #define VIRT_ADDR_VARIES
95067215a94a New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
59
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
60 /* arch-tag: d8a0ffa4-a8f0-4736-90d3-7fd7b21b8314
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
61 (do not change this comment) */