procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Vtranslation_hash_table_vector, GET_HASH_TABLE)

Browse source 
(HASH_VALUE, CCL_LookupIntConstTbl, CCL_LookupCharConstTbl): New.
(ccl_driver): Add cases for CCL_LookupIntConstTbl,
CCL_LookupCharConstTbl.
(syms_of_ccl): Defvar translation-hash-table-vector.
This commit is contained in:
Dave Love 2002-07-05 18:54:22 +00:00
parent e431fcda80
commit d80dc57e0d
1 changed files with 73 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

74
src/ccl.c
View file

@ -1,6 +1,6 @@
/* CCL (Code Conversion Language) interpreter.
Copyright (C) 1995, 1997 Electrotechnical Laboratory, JAPAN.
Copyright (C) 2001 Free Software Foundation, Inc.
Copyright (C) 2001, 2002 Free Software Foundation, Inc.
Licensed to the Free Software Foundation.
This file is part of GNU Emacs.
@ -65,6 +65,15 @@ Lisp_Object Qccl_program_idx;
already resolved to index numbers or not. */
Lisp_Object Vccl_program_table;
/* Vector of registered hash tables for translation. */
Lisp_Object Vtranslation_hash_table_vector;
/* Return a hash table of id number ID. */
#define GET_HASH_TABLE(id) \
(XHASH_TABLE (XCDR(XVECTOR(Vtranslation_hash_table_vector)->contents[(id)])))
/* Copied from fns.c. */
#define HASH_VALUE(H, IDX) AREF ((H)->key_and_value, 2 * (IDX) + 1)
/* CCL (Code Conversion Language) is a simple language which has
operations on one input buffer, one output buffer, and 7 registers.
The syntax of CCL is described in `ccl.el'. Emacs Lisp function
@ -652,6 +661,18 @@ while (0)
set reg[RRR] to -1.
*/
#define CCL_LookupIntConstTbl 0x13 /* Lookup multibyte character by
integer key. Afterwards R7 set
to 1 iff lookup succeeded.
1:ExtendedCOMMNDRrrRRRXXXXXXXX
2:ARGUMENT(Hash table ID) */
#define CCL_LookupCharConstTbl 0x14 /* Lookup integer by multibyte
character key. Afterwards R7 set
to 1 iff lookup succeeded.
1:ExtendedCOMMNDRrrRRRrrrXXXXX
2:ARGUMENT(Hash table ID) */
/* CCL arithmetic/logical operators. */
#define CCL_PLUS 0x00 /* X = Y + Z */
#define CCL_MINUS 0x01 /* X = Y - Z */
@ -1406,6 +1427,50 @@ ccl_driver (ccl, source, destination, src_bytes, dst_bytes, consumed)
reg[rrr] = i;
break;
case CCL_LookupIntConstTbl:
op = XINT (ccl_prog[ic]); /* table */
ic++;
{
struct Lisp_Hash_Table *h = GET_HASH_TABLE (op);
op = hash_lookup (h, make_number (reg[RRR]), NULL);
if (op >= 0)
{
op = HASH_VALUE (h, op);
if (!CHAR_VALID_P (op, 0))
CCL_INVALID_CMD;
SPLIT_CHAR (XINT (op), reg[RRR], i, j);
if (j != -1)
i = (i << 7) | j;
reg[rrr] = i;
reg[7] = 1; /* r7 true for success */
}
else
reg[7] = 0;
}
break;
case CCL_LookupCharConstTbl:
op = XINT (ccl_prog[ic]); /* table */
ic++;
CCL_MAKE_CHAR (reg[RRR], reg[rrr], i);
{
struct Lisp_Hash_Table *h = GET_HASH_TABLE (op);
op = hash_lookup (h, make_number (i), NULL);
if (op >= 0)
{
op = HASH_VALUE (h, op);
if (!INTEGERP (op))
CCL_INVALID_CMD;
reg[RRR] = XINT (op);
reg[7] = 1; /* r7 true for success */
}
else
reg[7] = 0;
}
break;
case CCL_IterateMultipleMap:
{
Lisp_Object map, content, attrib, value;
@ -2336,6 +2401,13 @@ The code point in the font is set in CCL registers R1 and R2
If the font is single-byte font, the register R2 is not used. */);
Vfont_ccl_encoder_alist = Qnil;
DEFVAR_LISP ("translation-hash-table-vector", &Vtranslation_hash_table_vector,
doc: /* Vector containing all translation hash tables ever defined.
Comprises pairs (SYMBOL . TABLE) where SYMBOL and TABLE were set up by calls
to `define-translation-hash-table'. The vector is indexed by the table id
used by CCL. */);
Vtranslation_hash_table_vector = Qnil;
defsubr (&Sccl_program_p);
defsubr (&Sccl_execute);
defsubr (&Sccl_execute_on_string);