annotate nt/site.def @ 4690:257b468bf2ca

Move the #'query-coding-region implementation to C. This is necessary because there is no reasonable way to access the corresponding mswindows-multibyte functionality from Lisp, and we need such functionality if we're going to have a reliable and portable #'query-coding-region implementation. However, this change doesn't yet provide #'query-coding-region for the mswindow-multibyte coding systems, there should be no functional differences between an XEmacs with this change and one without it. src/ChangeLog addition: 2009-09-19 Aidan Kehoe <kehoea@parhasard.net> Move the #'query-coding-region implementation to C. This is necessary because there is no reasonable way to access the corresponding mswindows-multibyte functionality from Lisp, and we need such functionality if we're going to have a reliable and portable #'query-coding-region implementation. However, this change doesn't yet provide #'query-coding-region for the mswindow-multibyte coding systems, there should be no functional differences between an XEmacs with this change and one without it. * mule-coding.c (struct fixed_width_coding_system): Add a new coding system type, fixed_width, and implement it. It uses the CCL infrastructure but has a much simpler creation API, and its own query_method, formerly in lisp/mule/mule-coding.el. * unicode.c: Move the Unicode query method implementation here from unicode.el. * lisp.h: Declare Fmake_coding_system_internal, Fcopy_range_table here. * intl-win32.c (complex_vars_of_intl_win32): Use Fmake_coding_system_internal, not Fmake_coding_system. * general-slots.h: Add Qsucceeded, Qunencodable, Qinvalid_sequence here. * file-coding.h (enum coding_system_variant): Add fixed_width_coding_system here. (struct coding_system_methods): Add query_method and query_lstream_method to the coding system methods. Provide flags for the query methods. Declare the default query method; initialise it correctly in INITIALIZE_CODING_SYSTEM_TYPE. * file-coding.c (default_query_method): New function, the default query method for coding systems that do not set it. Moved from coding.el. (make_coding_system_1): Accept new elements in PROPS in #'make-coding-system; aliases, a list of aliases; safe-chars and safe-charsets (these were previously accepted but not saved); and category. (Fmake_coding_system_internal): New function, what used to be #'make-coding-system--on Mule builds, we've now moved some of the functionality of this to Lisp. (Fcoding_system_canonical_name_p): Move this earlier in the file, since it's now called from within make_coding_system_1. (Fquery_coding_region): Move the implementation of this here, from coding.el. (complex_vars_of_file_coding): Call Fmake_coding_system_internal, not Fmake_coding_system; specify safe-charsets properties when we're a mule build. * extents.h (mouse_highlight_priority, Fset_extent_priority, Fset_extent_face, Fmap_extents): Make these available to other C files. lisp/ChangeLog addition: 2009-09-19 Aidan Kehoe <kehoea@parhasard.net> Move the #'query-coding-region implementation to C. * coding.el: Consolidate code that depends on the presence or absence of Mule at the end of this file. (default-query-coding-region, query-coding-region): Move these functions to C. (default-query-coding-region-safe-charset-skip-chars-map): Remove this variable, the corresponding C variable is Vdefault_query_coding_region_chartab_cache in file-coding.c. (query-coding-string): Update docstring to reflect actual multiple values, be more careful about not modifying a range table that we're currently mapping over. (encode-coding-char): Make the implementation of this simpler. (featurep 'mule): Autoload #'make-coding-system from mule/make-coding-system.el if we're a mule build; provide an appropriate compiler macro. Do various non-mule compatibility things if we're not a mule build. * update-elc.el (additional-dump-dependencies): Add mule/make-coding-system as a dump time dependency if we're a mule build. * unicode.el (ccl-encode-to-ucs-2): (decode-char): (encode-char): Move these earlier in the file, for the sake of some byte compile warnings. (unicode-query-coding-region): Move this to unicode.c * mule/make-coding-system.el: New file, not dumped. Contains the functionality to rework the arguments necessary for fixed-width coding systems, and contains the implementation of #'make-coding-system, which now calls #'make-coding-system-internal. * mule/vietnamese.el (viscii): * mule/latin.el (iso-8859-2): (windows-1250): (iso-8859-3): (iso-8859-4): (iso-8859-14): (iso-8859-15): (iso-8859-16): (iso-8859-9): (macintosh): (windows-1252): * mule/hebrew.el (iso-8859-8): * mule/greek.el (iso-8859-7): (windows-1253): * mule/cyrillic.el (iso-8859-5): (koi8-r): (koi8-u): (windows-1251): (alternativnyj): (koi8-ru): (koi8-t): (koi8-c): (koi8-o): * mule/arabic.el (iso-8859-6): (windows-1256): Move all these coding systems to being of type fixed-width, not of type CCL. This allows the distinct query-coding-region for them to be in C, something which will eventually allow us to implement query-coding-region for the mswindows-multibyte coding systems. * mule/general-late.el (posix-charset-to-coding-system-hash): Document why we're pre-emptively persuading the byte compiler that the ELC for this file needs to be written using escape-quoted. Call #'set-unicode-query-skip-chars-args, now the Unicode query-coding-region implementation is in C. * mule/thai-xtis.el (tis-620): Don't bother checking whether we're XEmacs or not here. * mule/mule-coding.el: Move the eight bit fixed-width functionality from this file to make-coding-system.el. tests/ChangeLog addition: 2009-09-19 Aidan Kehoe <kehoea@parhasard.net> * automated/mule-tests.el: Check a coding system's type, not an 8-bit-fixed property, for whether that coding system should be treated as a fixed-width coding system. * automated/query-coding-tests.el: Don't test the query coding functionality for mswindows-multibyte coding systems, it's not yet implemented.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 19 Sep 2009 22:53:13 +0100
parents 43dd3413c7c7
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
155
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
1 XCOMM site: $XConsortium: site.def /main/revisionist/3 1996/10/15 09:31:04 swick $
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
2
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
3 /***************************************************************************
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
4 * *
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
5 * SITE-SPECIFIC DEFINITIONS *
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
6 * *
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
7 * This file contains two halves, one included before the vendor-specific *
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
8 * configuration file (.cf file), and one included after the .cf file. *
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
9 * The before-half should be protected by #ifdef BeforeVendorCF, and the *
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
10 * after-half should be protected by #ifdef AfterVendorCF. *
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
11 * *
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
12 * The before-half should only set things that the .cf file depends on. *
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
13 * For the .cf files shipped in this release, the main variables in this *
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
14 * category are HasGcc, HasGcc2, HasCplusplus, OSMajorVersion, *
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
15 * OSMinorVersion, and OSTeenyVersion. *
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
16 * *
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
17 * The after-half should contain all other definitions. For example, *
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
18 * place your ProjectRoot definition here. *
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
19 * *
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
20 * OS Major and Minor version numbers should be changed directly in the *
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
21 * .cf file, not overridden in site.def. *
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
22 * *
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
23 ***************************************************************************/
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
24
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
25 /* if you want host-specific customization, this is one way to do it */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
26 /*
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
27 #ifndef SiteIConfigFiles
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
28 #define SiteIConfigFiles $(IRULESRC)/host.def
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
29 #define LocalConfigFiles host.def
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
30 #endif
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
31 */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
32
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
33
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
34 #ifdef BeforeVendorCF
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
35
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
36 /* #include <host.def> */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
37
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
38 /* On systems where cpp doesn't expand correctly macros in include directives
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
39 * the two following macros need to be defined directly (where "X11" is
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
40 * really whatever the TopLevelProject macro is defined to be).
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
41 */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
42 # ifndef ProjectRulesFile
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
43 # define ProjectRulesFile <X11.rules>
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
44 # endif
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
45 # ifndef ProjectTmplFile
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
46 # define ProjectTmplFile <X11.tmpl>
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
47 # endif
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
48
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
49 /*
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
50 #ifndef HasGcc2
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
51 #define HasGcc2 YES
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
52 #endif
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
53 */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
54
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
55 #endif /* BeforeVendorCF */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
56
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
57 #ifdef AfterVendorCF
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
58
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
59 #define ProjectRoot f:/utils/X11R6
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
60
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
61 /* Only set HasXdmAuth to YES if you have a Wraphelp.c file. */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
62 /* #define HasXdmAuth YES */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
63
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
64 /* #define PreIncDir /usr/local/lib/gcc-lib/sparc-sun-solaris2.4/2.7.2/include */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
65
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
66 /*
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
67 #if defined(SunArchitecture) && defined(SparcArchitecture)
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
68 #define HasCodeCenter YES
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
69 #ifndef SVR4Architecture
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
70 #define HasTestCenter YES
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
71 #endif
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
72 #endif
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
73 */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
74
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
75 /*
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
76 #ifdef __hp9000s800
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
77 #define HasCodeCenter YES
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
78 #endif
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
79 */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
80
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
81 /*
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
82 #if defined(SunArchitecture) && defined(SparcArchitecture) && !defined(SVR4Architecture)
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
83 #define HasPurify YES
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
84 #endif
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
85 */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
86
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
87 /*
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
88 #define HasSentinel YES
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
89 */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
90
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
91 /*
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
92 #undef DefaultUserPath
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
93 #define DefaultUserPath /bin:/usr/bin:$(BINDIR):/usr/ucb:/usr/local/bin
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
94 */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
95
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
96
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
97 /* You do NOT need SetUID if you only run the server under xdm */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
98 /* You MAY need SetUID if users run the server by hand or under xinit */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
99 /* Consult your system administrator before making the X server setuid */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
100 /*
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
101 #if defined(SunArchitecture) && OSMajorVersion > 4
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
102 #define InstallXserverSetUID YES
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
103 #endif
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
104 */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
105
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
106 /* You do NOT need SetUID if you only run the server under xdm */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
107 /* You MAY need SetUID if users run the server by hand or under xinit */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
108 /* Consult your system administrator before making the X server setuid */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
109 /*
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
110 #ifdef XFree86Version
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
111 #define InstallXserverSetUID YES
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
112 #endif
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
113 */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
114
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
115 #ifndef XnestServer
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
116 #undef BuildServer
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
117 #define BuildServer YES
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
118 #define XnestServer YES
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
119 #endif
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
120
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
121 /* #include <host.def> */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
122
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
123 #endif /* AfterVendorCF */