annotate src/mule-ccl.h @ 213:78f53ef88e17 r20-4b5

Import from CVS: tag r20-4b5
author cvs
date Mon, 13 Aug 2007 10:06:47 +0200
parents
children 74fd4e045ea6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
213
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
1 /* Header for CCL (Code Conversion Language) interpreter.
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
2 Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
3 Licensed to the Free Software Foundation.
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
4
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
5 This file is part of XEmacs.
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
6
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
7 GNU Emacs is free software; you can redistribute it and/or modify
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
8 it under the terms of the GNU General Public License as published by
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
9 the Free Software Foundation; either version 2, or (at your option)
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
10 any later version.
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
11
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
15 GNU General Public License for more details.
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
16
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
18 along with GNU Emacs; see the file COPYING. If not, write to
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
20 Boston, MA 02111-1307, USA. */
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
21
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
22 /* Synched up with: FSF Emacs 20.2 */
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
23
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
24 #ifndef _CCL_H
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
25 #define _CCL_H
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
26
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
27 /* Structure to hold information about running CCL code. Read
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
28 comments in the file ccl.c for the detail of each field. */
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
29 struct ccl_program {
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
30 int size; /* Size of the compiled code. */
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
31 Lisp_Object *prog; /* Pointer into the compiled code. */
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
32 int ic; /* Instruction Counter (index for PROG). */
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
33 int eof_ic; /* Instruction Counter for end-of-file
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
34 processing code. */
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
35 int reg[8]; /* CCL registers, reg[7] is used for
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
36 condition flag of relational
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
37 operations. */
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
38 int last_block; /* Set to 1 while processing the last
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
39 block. */
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
40 int status; /* Exit status of the CCL program. */
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
41 int buf_magnification; /* Output buffer magnification. How
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
42 many times bigger the output buffer
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
43 should be than the input buffer. */
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
44 };
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
45
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
46 int ccl_driver (struct ccl_program *ccl, CONST unsigned char *source,
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
47 unsigned_char_dynarr *destination, int src_bytes, int *consumed);
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
48 void setup_ccl_program (struct ccl_program *ccl, Lisp_Object val);
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
49
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
50 /* Alist of fontname patterns vs corresponding CCL program. */
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
51 extern Lisp_Object Vfont_ccl_encoder_alist;
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
52
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents:
diff changeset
53 #endif /* _CCL_H */