[Emacs-diffs] Changes to emacs/src/ccl.h [emacs-unicode-2]

[Kenichi Handa]

Index: emacs/src/ccl.h
diff -c /dev/null emacs/src/ccl.h:1.18.4.1
*** /dev/null   Mon Sep  8 08:48:33 2003
--- emacs/src/ccl.h     Mon Sep  8 08:48:09 2003
***************
*** 0 ****
--- 1,114 ----
+ /* Header for CCL (Code Conversion Language) interpreter.
+    Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
+      Licensed to the Free Software Foundation.
+    Copyright (C) 2003
+      National Institute of Advanced Industrial Science and Technology (AIST)
+      Registration Number H13PRO009
+ 
+ This file is part of GNU Emacs.
+ 
+ GNU Emacs is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2, or (at your option)
+ any later version.
+ 
+ GNU Emacs is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ GNU General Public License for more details.
+ 
+ You should have received a copy of the GNU General Public License
+ along with GNU Emacs; see the file COPYING.  If not, write to
+ the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ Boston, MA 02111-1307, USA.  */
+ 
+ #ifndef EMACS_CCL_H
+ #define EMACS_CCL_H
+ 
+ /* Macros for exit status of CCL program.  */
+ #define CCL_STAT_SUCCESS      0 /* Terminated successfully.  */
+ #define CCL_STAT_SUSPEND_BY_SRC       1 /* Terminated by empty input.  */
+ #define CCL_STAT_SUSPEND_BY_DST       2 /* Terminated by output buffer full.  
*/
+ #define CCL_STAT_INVALID_CMD  3 /* Terminated because of invalid
+                                    command.  */
+ #define CCL_STAT_QUIT         4 /* Terminated because of quit.  */
+ 
+ /* Structure to hold information about running CCL code.  Read
+    comments in the file ccl.c for the detail of each field.  */
+ struct ccl_program {
+   int size;                   /* Size of the compiled code.  */
+   Lisp_Object *prog;          /* Pointer into the compiled code.  */
+   int ic;                     /* Instruction Counter (index for PROG).  */
+   int eof_ic;                 /* Instruction Counter for end-of-file
+                                  processing code.  */
+   int reg[8];                 /* CCL registers, reg[7] is used for
+                                  condition flag of relational
+                                  operations.  */
+   int private_state;            /* CCL instruction may use this
+                                  for private use, mainly for saving
+                                  internal states on suspending.
+                                  This variable is set to 0 when ccl is
+                                  set up.  */
+   int last_block;             /* Set to 1 while processing the last
+                                  block. */
+   int status;                 /* Exit status of the CCL program.  */
+   int buf_magnification;      /* Output buffer magnification.  How
+                                  many times bigger the output buffer
+                                  should be than the input buffer.  */
+   int stack_idx;              /* How deep the call of CCL_Call is nested.  */
+   int src_multibyte;          /* 1 if the input buffer is multibyte.  */
+   int dst_multibyte;          /* 1 if the output buffer is multibyte.  */
+   int cr_consumed;            /* Flag for encoding DOS-like EOL
+                                  format when the CCL program is used
+                                  for encoding by a coding
+                                  system.  */
+   int consumed;
+   int produced;
+   int suppress_error;         /* If nonzero, don't insert error
+                                  message in the output.  */
+   int eight_bit_control;      /* If nonzero, ccl_driver counts all
+                                  eight-bit-control bytes written by
+                                  CCL_WRITE_CHAR.  After execution,
+                                  if no such byte is written, set
+                                  this value to zero.  */
+ };
+ 
+ /* This data type is used for the spec field of the structure
+    coding_system.  */
+ 
+ struct ccl_spec {
+   struct ccl_program ccl;
+   int cr_carryover;           /* CR carryover flag.  */
+   unsigned char eight_bit_carryover[MAX_MULTIBYTE_LENGTH];
+ };
+ 
+ #define CODING_SPEC_CCL_PROGRAM(coding) ((coding)->spec.ccl.ccl)
+ 
+ /* Alist of fontname patterns vs corresponding CCL program.  */
+ extern Lisp_Object Vfont_ccl_encoder_alist;
+ 
+ /* Setup fields of the structure pointed by CCL appropriately for the
+    execution of ccl program CCL_PROG (symbol or vector).  */
+ extern int setup_ccl_program P_ ((struct ccl_program *, Lisp_Object));
+ 
+ extern void ccl_driver P_ ((struct ccl_program *, int *, int *, int, int,
+                           Lisp_Object));
+ 
+ /* Vector of CCL program names vs corresponding program data.  */
+ extern Lisp_Object Vccl_program_table;
+ 
+ /* Symbols of ccl program have this property, a value of the property
+    is an index for Vccl_protram_table. */
+ extern Lisp_Object Qccl_program_idx;
+ 
+ extern Lisp_Object Qccl, Qcclp;
+ 
+ EXFUN (Fccl_program_p, 1);
+ 
+ #define CHECK_CCL_PROGRAM(x)                  \
+   do {                                                \
+     if (NILP (Fccl_program_p (x)))            \
+       x = wrong_type_argument (Qcclp, (x));   \
+   } while (0);
+ 
+ #endif /* EMACS_CCL_H */