/[emacs]/emacs/src/coding.c
ViewVC logotype

Diff of /emacs/src/coding.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.239.2.29 by fx, Wed Jul 17 10:20:32 2002 UTC revision 1.239.2.30 by handa, Mon Jul 22 06:39:58 2002 UTC
# Line 1537  encode_coding_utf_16 (coding) Line 1537  encode_coding_utf_16 (coding)
1537    
1538  char emacs_mule_bytes[256];  char emacs_mule_bytes[256];
1539    
 /* Leading-code followed by extended leading-code.  */  
 #define LEADING_CODE_PRIVATE_11 0x9A /* for private DIMENSION1 of 1-column */  
 #define LEADING_CODE_PRIVATE_12 0x9B /* for private DIMENSION1 of 2-column */  
 #define LEADING_CODE_PRIVATE_21 0x9C /* for private DIMENSION2 of 1-column */  
 #define LEADING_CODE_PRIVATE_22 0x9D /* for private DIMENSION2 of 2-column */  
   
   
1540  int  int
1541  emacs_mule_char (coding, src, nbytes, nchars)  emacs_mule_char (coding, src, nbytes, nchars)
1542       struct coding_system *coding;       struct coding_system *coding;
# Line 1569  emacs_mule_char (coding, src, nbytes, nc Line 1562  emacs_mule_char (coding, src, nbytes, nc
1562        break;        break;
1563    
1564      case 3:      case 3:
1565        if (c == LEADING_CODE_PRIVATE_11        if (c == EMACS_MULE_LEADING_CODE_PRIVATE_11
1566            || c == LEADING_CODE_PRIVATE_12)            || c == EMACS_MULE_LEADING_CODE_PRIVATE_12)
1567          {          {
1568            ONE_MORE_BYTE (c);            ONE_MORE_BYTE (c);
1569            if (! (charset = emacs_mule_charset[c]))            if (! (charset = emacs_mule_charset[c]))
# Line 4102  static void Line 4095  static void
4095  decode_coding_ccl (coding)  decode_coding_ccl (coding)
4096       struct coding_system *coding;       struct coding_system *coding;
4097  {  {
4098    unsigned char *src = coding->source + coding->consumed;    const unsigned char *src = coding->source + coding->consumed;
4099    unsigned char *src_end = coding->source + coding->src_bytes;    unsigned char *src_end = coding->source + coding->src_bytes;
4100    int *charbuf = coding->charbuf;    int *charbuf = coding->charbuf;
4101    int *charbuf_end = charbuf + coding->charbuf_size;    int *charbuf_end = charbuf + coding->charbuf_size;
# Line 4116  decode_coding_ccl (coding) Line 4109  decode_coding_ccl (coding)
4109    
4110    while (src < src_end)    while (src < src_end)
4111      {      {
4112        unsigned char *p = src;        const unsigned char *p = src;
4113        int *source, *source_end;        int *source, *source_end;
4114        int i = 0;        int i = 0;
4115    
# Line 5619  consume_chars (coding) Line 5612  consume_chars (coding)
5612    int *buf = coding->charbuf;    int *buf = coding->charbuf;
5613    /* -1 is to compensate for CRLF.  */    /* -1 is to compensate for CRLF.  */
5614    int *buf_end = coding->charbuf + coding->charbuf_size - 1;    int *buf_end = coding->charbuf + coding->charbuf_size - 1;
5615    unsigned char *src = coding->source + coding->consumed;    const unsigned char *src = coding->source + coding->consumed;
5616    int pos = coding->src_pos + coding->consumed_char;    int pos = coding->src_pos + coding->consumed_char;
5617    int end_pos = coding->src_pos + coding->src_chars;    int end_pos = coding->src_pos + coding->src_chars;
5618    int multibytep = coding->src_multibyte;    int multibytep = coding->src_multibyte;
# Line 6457  DEFUN ("find-coding-systems-region-inter Line 6450  DEFUN ("find-coding-systems-region-inter
6450  {  {
6451    Lisp_Object coding_attrs_list, safe_codings;    Lisp_Object coding_attrs_list, safe_codings;
6452    EMACS_INT start_byte, end_byte;    EMACS_INT start_byte, end_byte;
6453    unsigned char *p, *pbeg, *pend;    const unsigned char *p, *pbeg, *pend;
6454    int c;    int c;
6455    Lisp_Object tail, elt;    Lisp_Object tail, elt;
6456    
# Line 6587  buffer positions.  END is ignored.  */) Line 6580  buffer positions.  END is ignored.  */)
6580    Lisp_Object list;    Lisp_Object list;
6581    EMACS_INT start_byte, end_byte;    EMACS_INT start_byte, end_byte;
6582    int pos;    int pos;
6583    unsigned char *p, *pbeg, *pend;    const unsigned char *p, *pbeg, *pend;
6584    int c;    int c;
6585    Lisp_Object tail, elt;    Lisp_Object tail, elt;
6586    
# Line 7890  init_coding_once () Line 7883  init_coding_once ()
7883      {      {
7884        emacs_mule_bytes[i] = 1;        emacs_mule_bytes[i] = 1;
7885      }      }
7886    emacs_mule_bytes[LEADING_CODE_PRIVATE_11] = 3;    emacs_mule_bytes[EMACS_MULE_LEADING_CODE_PRIVATE_11] = 3;
7887    emacs_mule_bytes[LEADING_CODE_PRIVATE_12] = 3;    emacs_mule_bytes[EMACS_MULE_LEADING_CODE_PRIVATE_12] = 3;
7888    emacs_mule_bytes[LEADING_CODE_PRIVATE_21] = 4;    emacs_mule_bytes[EMACS_MULE_LEADING_CODE_PRIVATE_21] = 4;
7889    emacs_mule_bytes[LEADING_CODE_PRIVATE_22] = 4;    emacs_mule_bytes[EMACS_MULE_LEADING_CODE_PRIVATE_22] = 4;
7890  }  }
7891    
7892  #ifdef emacs  #ifdef emacs

Legend:
Removed from v.1.239.2.29  
changed lines
  Added in v.1.239.2.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26