aboutsummaryrefslogtreecommitdiffstats
path: root/src/ccl.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/ccl.c')
-rw-r--r--src/ccl.c26
1 files changed, 10 insertions, 16 deletions
diff --git a/src/ccl.c b/src/ccl.c
index 54093bf5677..053544c8274 100644
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -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
37Lisp_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. */
41static Lisp_Object Qccl_program;
42
43/* These symbols are properties which associate with code conversion
44 map and their ID respectively. */
45static Lisp_Object Qcode_conversion_map;
46static 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. */
50static 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