diff options
| author | K. Handa | 2015-01-07 22:51:41 +0900 |
|---|---|---|
| committer | K. Handa | 2015-01-07 22:51:41 +0900 |
| commit | 88bc8332eb14bcc4780fd3fe3dd4de2205c31dbf (patch) | |
| tree | 18da116400703b67738bdbbd38cc4abf4c1e929f /src/ccl.c | |
| parent | 3f79d3131629f73da16ec121d2a0056f11b70e65 (diff) | |
| parent | 95295df44cc2b6e0e2442aeff96b0fe2ceac405c (diff) | |
| download | emacs-88bc8332eb14bcc4780fd3fe3dd4de2205c31dbf.tar.gz emacs-88bc8332eb14bcc4780fd3fe3dd4de2205c31dbf.zip | |
Merge branch master of git.sv.gnu.org:/srv/git/emacs.
Diffstat (limited to 'src/ccl.c')
| -rw-r--r-- | src/ccl.c | 26 |
1 files changed, 10 insertions, 16 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* CCL (Code Conversion Language) interpreter. | 1 | /* CCL (Code Conversion Language) interpreter. |
| 2 | Copyright (C) 2001-2014 Free Software Foundation, Inc. | 2 | Copyright (C) 2001-2015 Free Software Foundation, Inc. |
| 3 | Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, | 3 | Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | 2005, 2006, 2007, 2008, 2009, 2010, 2011 | 4 | 2005, 2006, 2007, 2008, 2009, 2010, 2011 |
| 5 | National Institute of Advanced Industrial Science and Technology (AIST) | 5 | National Institute of Advanced Industrial Science and Technology (AIST) |
| @@ -34,21 +34,6 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 34 | #include "ccl.h" | 34 | #include "ccl.h" |
| 35 | #include "coding.h" | 35 | #include "coding.h" |
| 36 | 36 | ||
| 37 | Lisp_Object Qccl, Qcclp; | ||
| 38 | |||
| 39 | /* This symbol is a property which associates with ccl program vector. | ||
| 40 | Ex: (get 'ccl-big5-encoder 'ccl-program) returns ccl program vector. */ | ||
| 41 | static Lisp_Object Qccl_program; | ||
| 42 | |||
| 43 | /* These symbols are properties which associate with code conversion | ||
| 44 | map and their ID respectively. */ | ||
| 45 | static Lisp_Object Qcode_conversion_map; | ||
| 46 | static Lisp_Object Qcode_conversion_map_id; | ||
| 47 | |||
| 48 | /* Symbols of ccl program have this property, a value of the property | ||
| 49 | is an index for Vccl_program_table. */ | ||
| 50 | static Lisp_Object Qccl_program_idx; | ||
| 51 | |||
| 52 | /* Table of registered CCL programs. Each element is a vector of | 37 | /* Table of registered CCL programs. Each element is a vector of |
| 53 | NAME, CCL_PROG, RESOLVEDP, and UPDATEDP, where NAME (symbol) is the | 38 | NAME, CCL_PROG, RESOLVEDP, and UPDATEDP, where NAME (symbol) is the |
| 54 | name of the program, CCL_PROG (vector) is the compiled code of the | 39 | name of the program, CCL_PROG (vector) is the compiled code of the |
| @@ -2297,8 +2282,17 @@ syms_of_ccl (void) | |||
| 2297 | 2282 | ||
| 2298 | DEFSYM (Qccl, "ccl"); | 2283 | DEFSYM (Qccl, "ccl"); |
| 2299 | DEFSYM (Qcclp, "cclp"); | 2284 | DEFSYM (Qcclp, "cclp"); |
| 2285 | |||
| 2286 | /* This symbol is a property which associates with ccl program vector. | ||
| 2287 | Ex: (get 'ccl-big5-encoder 'ccl-program) returns ccl program vector. */ | ||
| 2300 | DEFSYM (Qccl_program, "ccl-program"); | 2288 | DEFSYM (Qccl_program, "ccl-program"); |
| 2289 | |||
| 2290 | /* Symbols of ccl program have this property, a value of the property | ||
| 2291 | is an index for Vccl_program_table. */ | ||
| 2301 | DEFSYM (Qccl_program_idx, "ccl-program-idx"); | 2292 | DEFSYM (Qccl_program_idx, "ccl-program-idx"); |
| 2293 | |||
| 2294 | /* These symbols are properties which associate with code conversion | ||
| 2295 | map and their ID respectively. */ | ||
| 2302 | DEFSYM (Qcode_conversion_map, "code-conversion-map"); | 2296 | DEFSYM (Qcode_conversion_map, "code-conversion-map"); |
| 2303 | DEFSYM (Qcode_conversion_map_id, "code-conversion-map-id"); | 2297 | DEFSYM (Qcode_conversion_map_id, "code-conversion-map-id"); |
| 2304 | 2298 | ||