Mercurial > hg > xemacs-beta
annotate src/mule-ccl.h @ 5773:94a6b8fbd56e
Use a face, show more context around open parenthesis, #'blink-matching-open
lisp/ChangeLog addition:
2013-12-17 Aidan Kehoe <kehoea@parhasard.net>
* simple.el (blink-matching-open):
When showing the opening parenthesis in the minibiffer, use the
isearch face for it, in case there are multiple parentheses in the
text shown.
When writing moderately involved macros, it's often not enough
just to show the backquote context before the parenthesis
(e.g. @,.`). Skip over that when searching for useful context in
the same way we skip over space and tab.
* simple.el (message):
* simple.el (lmessage):
If there are no ARGS, don't call #'format. This allows extent
information to be passed through to the minibuffer.
It's probably better still to update #'format to preserve extent
info.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Tue, 17 Dec 2013 20:49:52 +0200 |
| parents | 308d34e9f07d |
| children |
| rev | line source |
|---|---|
| 428 | 1 /* Header for CCL (Code Conversion Language) interpreter. |
| 444 | 2 Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. |
| 428 | 3 Licensed to the Free Software Foundation. |
| 4 | |
| 5 This file is part of XEmacs. | |
| 6 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4745
diff
changeset
|
7 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:
4745
diff
changeset
|
8 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:
4745
diff
changeset
|
9 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:
4745
diff
changeset
|
10 option) any later version. |
| 428 | 11 |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4745
diff
changeset
|
12 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:
4745
diff
changeset
|
13 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:
4745
diff
changeset
|
14 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:
4745
diff
changeset
|
15 for more details. |
| 428 | 16 |
| 17 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:
4745
diff
changeset
|
18 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */ |
| 428 | 19 |
| 440 | 20 #ifndef INCLUDED_mule_ccl_h_ |
| 21 #define INCLUDED_mule_ccl_h_ | |
| 428 | 22 |
| 23 /* Macros for exit status of CCL program. */ | |
| 24 #define CCL_STAT_SUCCESS 0 /* Terminated successfully. */ | |
| 25 #define CCL_STAT_SUSPEND_BY_SRC 1 /* Terminated by empty input. */ | |
| 26 #define CCL_STAT_SUSPEND_BY_DST 2 /* Terminated by output buffer full. */ | |
| 27 #define CCL_STAT_INVALID_CMD 3 /* Terminated because of invalid | |
| 28 command. */ | |
| 29 #define CCL_STAT_QUIT 4 /* Terminated because of quit. */ | |
| 30 | |
| 31 /* Structure to hold information about running CCL code. Read | |
| 32 comments in the file ccl.c for the detail of each field. */ | |
| 33 struct ccl_program { | |
| 34 int size; /* Size of the compiled code. */ | |
| 35 Lisp_Object *prog; /* Pointer into the compiled code. */ | |
| 36 int ic; /* Instruction Counter (index for PROG). */ | |
| 37 int eof_ic; /* Instruction Counter for end-of-file | |
| 38 processing code. */ | |
| 39 int reg[8]; /* CCL registers, reg[7] is used for | |
| 40 condition flag of relational | |
| 41 operations. */ | |
| 42 int private_state; /* CCL instruction may use this | |
| 444 | 43 for private use, mainly for saving |
| 44 internal states on suspending. | |
| 428 | 45 This variable is set to 0 when ccl is |
| 46 set up. */ | |
| 47 int last_block; /* Set to 1 while processing the last | |
| 48 block. */ | |
| 49 int status; /* Exit status of the CCL program. */ | |
| 50 int buf_magnification; /* Output buffer magnification. How | |
| 51 many times bigger the output buffer | |
| 52 should be than the input buffer. */ | |
| 53 int stack_idx; /* How deep the call of CCL_Call is nested. */ | |
| 444 | 54 int eol_type; /* When the CCL program is used for |
| 55 encoding by a coding system, set to | |
| 56 the eol_type of the coding | |
| 57 system. */ | |
| 58 int multibyte; /* 1 if the source text is multibyte. */ | |
| 428 | 59 }; |
| 60 | |
| 61 #define CCL_MODE_ENCODING 0 | |
| 62 #define CCL_MODE_DECODING 1 | |
| 63 | |
| 444 | 64 #define CCL_CODING_EOL_LF 0 /* Line-feed only, same as Emacs' |
| 65 internal format. */ | |
| 66 #define CCL_CODING_EOL_CRLF 1 /* Sequence of carriage-return and | |
| 67 line-feed. */ | |
| 68 #define CCL_CODING_EOL_CR 2 /* Carriage-return only. */ | |
| 428 | 69 |
|
4745
0c54de4c4b9d
Resolve the unregistered-CCL-programs-get-garbage-collected problem correctly
Aidan Kehoe <kehoea@parhasard.net>
parents:
613
diff
changeset
|
70 /* If OBJECT is symbol designating a registered CCL program, return it. |
|
0c54de4c4b9d
Resolve the unregistered-CCL-programs-get-garbage-collected problem correctly
Aidan Kehoe <kehoea@parhasard.net>
parents:
613
diff
changeset
|
71 Else if OBJECT is a vector CCL program with no unresolved symbols, return |
|
0c54de4c4b9d
Resolve the unregistered-CCL-programs-get-garbage-collected problem correctly
Aidan Kehoe <kehoea@parhasard.net>
parents:
613
diff
changeset
|
72 it. |
|
0c54de4c4b9d
Resolve the unregistered-CCL-programs-get-garbage-collected problem correctly
Aidan Kehoe <kehoea@parhasard.net>
parents:
613
diff
changeset
|
73 Else, if OBJECT is a vector CCL program with unresolved symbols, return a |
|
0c54de4c4b9d
Resolve the unregistered-CCL-programs-get-garbage-collected problem correctly
Aidan Kehoe <kehoea@parhasard.net>
parents:
613
diff
changeset
|
74 newly-created vector reflecting the CCL program with all symbols |
|
0c54de4c4b9d
Resolve the unregistered-CCL-programs-get-garbage-collected problem correctly
Aidan Kehoe <kehoea@parhasard.net>
parents:
613
diff
changeset
|
75 resolved, if that is currently possible in this XEmacs. |
| 444 | 76 |
|
4745
0c54de4c4b9d
Resolve the unregistered-CCL-programs-get-garbage-collected problem correctly
Aidan Kehoe <kehoea@parhasard.net>
parents:
613
diff
changeset
|
77 Otherwise, signal `invalid-argument'. */ |
|
0c54de4c4b9d
Resolve the unregistered-CCL-programs-get-garbage-collected problem correctly
Aidan Kehoe <kehoea@parhasard.net>
parents:
613
diff
changeset
|
78 extern Lisp_Object get_ccl_program (Lisp_Object object); |
|
0c54de4c4b9d
Resolve the unregistered-CCL-programs-get-garbage-collected problem correctly
Aidan Kehoe <kehoea@parhasard.net>
parents:
613
diff
changeset
|
79 |
|
0c54de4c4b9d
Resolve the unregistered-CCL-programs-get-garbage-collected problem correctly
Aidan Kehoe <kehoea@parhasard.net>
parents:
613
diff
changeset
|
80 /* Set up fields of the structure pointed by CCL appropriately for the |
|
0c54de4c4b9d
Resolve the unregistered-CCL-programs-get-garbage-collected problem correctly
Aidan Kehoe <kehoea@parhasard.net>
parents:
613
diff
changeset
|
81 execution of ccl program CCL_PROG (a symbol or a vector). |
|
0c54de4c4b9d
Resolve the unregistered-CCL-programs-get-garbage-collected problem correctly
Aidan Kehoe <kehoea@parhasard.net>
parents:
613
diff
changeset
|
82 |
|
0c54de4c4b9d
Resolve the unregistered-CCL-programs-get-garbage-collected problem correctly
Aidan Kehoe <kehoea@parhasard.net>
parents:
613
diff
changeset
|
83 If CCL_PROG is a vector and contains unresolved symbols, this function |
|
0c54de4c4b9d
Resolve the unregistered-CCL-programs-get-garbage-collected problem correctly
Aidan Kehoe <kehoea@parhasard.net>
parents:
613
diff
changeset
|
84 will throw an assertion failure. To avoid this, call get_ccl_program at |
|
0c54de4c4b9d
Resolve the unregistered-CCL-programs-get-garbage-collected problem correctly
Aidan Kehoe <kehoea@parhasard.net>
parents:
613
diff
changeset
|
85 the point that you receive the CCL program from Lisp, and use and store |
|
0c54de4c4b9d
Resolve the unregistered-CCL-programs-get-garbage-collected problem correctly
Aidan Kehoe <kehoea@parhasard.net>
parents:
613
diff
changeset
|
86 its (resolved) result instead. */ |
|
0c54de4c4b9d
Resolve the unregistered-CCL-programs-get-garbage-collected problem correctly
Aidan Kehoe <kehoea@parhasard.net>
parents:
613
diff
changeset
|
87 extern int setup_ccl_program (struct ccl_program *, Lisp_Object ccl_prog); |
| 444 | 88 |
| 89 extern int ccl_driver (struct ccl_program *, const unsigned char *, | |
| 90 unsigned_char_dynarr *, int, int *, int); | |
| 91 | |
| 92 EXFUN (Fregister_ccl_program, 2); | |
| 93 | |
| 428 | 94 extern Lisp_Object Qccl_program; |
| 95 | |
| 444 | 96 /* Vector of CCL program names vs corresponding program data. */ |
| 97 extern Lisp_Object Vccl_program_table; | |
| 98 | |
| 99 /* Symbols of ccl program have this property, a value of the property | |
| 100 is an index for Vccl_program_table. */ | |
| 101 extern Lisp_Object Qccl_program_idx; | |
| 102 | |
| 440 | 103 #endif /* INCLUDED_mule_ccl_h_ */ |