Mercurial > hg > xemacs-beta

comparison src/mule-ccl.c @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents 11cf20601dec
children 6330739388db
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
18 along with GNU Emacs; see the file COPYING. If not, write to 18 along with GNU Emacs; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, 19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */ 20 Boston, MA 02111-1307, USA. */
21 21
22 /* Synched up with : FSF Emacs 20.2 */ 22 /* Synched up with : FSF Emacs 20.2 */
23
24 #include <stdio.h>
25 23
26 #ifdef emacs 24 #ifdef emacs
27 25
28 #include <config.h> 26 #include <config.h>
29 #include "lisp.h" 27 #include "lisp.h"
32 #include "mule-ccl.h" 30 #include "mule-ccl.h"
33 #include "file-coding.h" 31 #include "file-coding.h"
34 32
35 #else /* not emacs */ 33 #else /* not emacs */
36 34
35 #include <stdio.h>
37 #include "mulelib.h" 36 #include "mulelib.h"
38 37
39 #endif /* not emacs */ 38 #endif /* not emacs */
40 39
41 /* Alist of fontname patterns vs corresponding CCL program. */ 40 /* Alist of fontname patterns vs corresponding CCL program. */
536 CONST unsigned char *src = source, *src_end = src + src_bytes; 535 CONST unsigned char *src = source, *src_end = src + src_bytes;
537 int jump_address = 0; /* shut up the compiler */ 536 int jump_address = 0; /* shut up the compiler */
538 537
539 int i, j, op; 538 int i, j, op;
540 int stack_idx = 0; 539 int stack_idx = 0;
541 /* For the moment, we only support depth 256 of stack. */ 540 /* For the moment, we only support depth 256 of stack. */
542 struct ccl_prog_stack ccl_prog_stack_struct[256]; 541 struct ccl_prog_stack ccl_prog_stack_struct[256];
543 542
544 if (ic >= ccl->eof_ic) 543 if (ic >= ccl->eof_ic)
545 ic = CCL_HEADER_MAIN; 544 ic = CCL_HEADER_MAIN;
546 545
726 ccl_prog = ccl_prog_stack_struct[0].ccl_prog; 725 ccl_prog = ccl_prog_stack_struct[0].ccl_prog;
727 ic = ccl_prog_stack_struct[0].ic; 726 ic = ccl_prog_stack_struct[0].ic;
728 } 727 }
729 CCL_INVALID_CMD; 728 CCL_INVALID_CMD;
730 } 729 }
731 730
732 ccl_prog_stack_struct[stack_idx].ccl_prog = ccl_prog; 731 ccl_prog_stack_struct[stack_idx].ccl_prog = ccl_prog;
733 ccl_prog_stack_struct[stack_idx].ic = ic; 732 ccl_prog_stack_struct[stack_idx].ic = ic;
734 stack_idx++; 733 stack_idx++;
735 ccl_prog = XVECTOR_DATA (XCDR (slot)); 734 ccl_prog = XVECTOR_DATA (XCDR (slot));
736 ic = CCL_HEADER_MAIN; 735 ic = CCL_HEADER_MAIN;
1060 int i; 1059 int i;
1061 1060
1062 CHECK_SYMBOL (name); 1061 CHECK_SYMBOL (name);
1063 if (!NILP (ccl_prog)) 1062 if (!NILP (ccl_prog))
1064 CHECK_VECTOR (ccl_prog); 1063 CHECK_VECTOR (ccl_prog);
1065 1064
1066 for (i = 0; i < len; i++) 1065 for (i = 0; i < len; i++)
1067 { 1066 {
1068 Lisp_Object slot = XVECTOR_DATA (Vccl_program_table)[i]; 1067 Lisp_Object slot = XVECTOR_DATA (Vccl_program_table)[i];
1069 1068
1070 if (!CONSP (slot)) 1069 if (!CONSP (slot))