/[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.1 by handa, Fri Mar 1 01:17:24 2002 UTC revision 1.239.2.2 by handa, Tue Mar 5 00:08:50 2002 UTC
# Line 1271  decode_coding_utf_16 (coding) Line 1271  decode_coding_utf_16 (coding)
1271  {  {
1272    unsigned char *src = coding->source + coding->consumed;    unsigned char *src = coding->source + coding->consumed;
1273    unsigned char *src_end = coding->source + coding->src_bytes;    unsigned char *src_end = coding->source + coding->src_bytes;
1274    unsigned char *src_base, *surrogate_high_base;    unsigned char *src_base;
1275    int *charbuf = coding->charbuf;    int *charbuf = coding->charbuf;
1276    int *charbuf_end = charbuf + coding->charbuf_size;    int *charbuf_end = charbuf + coding->charbuf_size;
1277    int consumed_chars = 0, consumed_chars_base;    int consumed_chars = 0, consumed_chars_base;
# Line 1943  encode_coding_emacs_mule (coding) Line 1943  encode_coding_emacs_mule (coding)
1943    unsigned char *dst = coding->destination + coding->produced;    unsigned char *dst = coding->destination + coding->produced;
1944    unsigned char *dst_end = coding->destination + coding->dst_bytes;    unsigned char *dst_end = coding->destination + coding->dst_bytes;
1945    int safe_room = 8;    int safe_room = 8;
   unsigned char *adjusted_dst_end =dst_end - 8;  
1946    int produced_chars = 0;    int produced_chars = 0;
1947    Lisp_Object attrs, eol_type, charset_list;    Lisp_Object attrs, eol_type, charset_list;
1948    int c;    int c;
# Line 4413  setup_coding_system (coding_system, codi Line 4412  setup_coding_system (coding_system, codi
4412       Lisp_Object coding_system;       Lisp_Object coding_system;
4413       struct coding_system *coding;       struct coding_system *coding;
4414  {  {
   int id;  
4415    Lisp_Object attrs;    Lisp_Object attrs;
4416    Lisp_Object eol_type;    Lisp_Object eol_type;
4417    Lisp_Object coding_type;    Lisp_Object coding_type;
# Line 4581  Lisp_Object Line 4579  Lisp_Object
4579  raw_text_coding_system (coding_system)  raw_text_coding_system (coding_system)
4580       Lisp_Object coding_system;       Lisp_Object coding_system;
4581  {  {
4582    Lisp_Object spec, attrs, coding_type;    Lisp_Object spec, attrs;
4583    Lisp_Object eol_type, raw_text_eol_type;    Lisp_Object eol_type, raw_text_eol_type;
4584    
4585    spec = CODING_SYSTEM_SPEC (coding_system);    spec = CODING_SYSTEM_SPEC (coding_system);
# Line 4616  coding_inherit_eol_type (coding_system, Line 4614  coding_inherit_eol_type (coding_system,
4614    if (VECTORP (eol_type))    if (VECTORP (eol_type))
4615      {      {
4616        Lisp_Object parent_spec;        Lisp_Object parent_spec;
       Lisp_Object parent_attrs;  
4617        Lisp_Object parent_eol_type;        Lisp_Object parent_eol_type;
4618    
4619        parent_spec        parent_spec
# Line 4763  detect_eol (coding, source, src_bytes) Line 4760  detect_eol (coding, source, src_bytes)
4760    unsigned char c;    unsigned char c;
4761    int total  = 0;    int total  = 0;
4762    int eol_seen = EOL_SEEN_NONE;    int eol_seen = EOL_SEEN_NONE;
   int first_eol_seen;  
4763    
4764    attrs = CODING_ID_ATTRS (coding->id);    attrs = CODING_ID_ATTRS (coding->id);
4765    coding_type = CODING_ATTR_TYPE (attrs);    coding_type = CODING_ATTR_TYPE (attrs);
# Line 4845  adjust_coding_eol_type (coding, eol_seen Line 4841  adjust_coding_eol_type (coding, eol_seen
4841       struct coding_system *coding;       struct coding_system *coding;
4842       int eol_seen;       int eol_seen;
4843  {  {
4844    Lisp_Object eol_type, coding_system;    Lisp_Object eol_type;
4845        
4846    eol_type = CODING_ID_EOL_TYPE (coding->id);    eol_type = CODING_ID_EOL_TYPE (coding->id);
4847    if (eol_seen & EOL_SEEN_LF)    if (eol_seen & EOL_SEEN_LF)
# Line 5576  static int Line 5572  static int
5572  encode_coding (coding)  encode_coding (coding)
5573       struct coding_system *coding;       struct coding_system *coding;
5574  {  {
   int error = 0;  
5575    Lisp_Object attrs;    Lisp_Object attrs;
5576    
5577    attrs = CODING_ID_ATTRS (coding->id);    attrs = CODING_ID_ATTRS (coding->id);
# Line 6286  char_encodable_p (c, attrs) Line 6281  char_encodable_p (c, attrs)
6281       Lisp_Object attrs;       Lisp_Object attrs;
6282  {  {
6283    Lisp_Object tail;    Lisp_Object tail;
   int id;  
6284    struct charset *charset;    struct charset *charset;
6285    
6286    for (tail = CODING_ATTR_CHARSET_LIST (attrs);    for (tail = CODING_ATTR_CHARSET_LIST (attrs);
# Line 6693  code_convert_string_norecord (string, co Line 6687  code_convert_string_norecord (string, co
6687       Lisp_Object string, coding_system;       Lisp_Object string, coding_system;
6688       int encodep;       int encodep;
6689  {  {
6690    code_convert_string (string, coding_system, Qt, encodep, 0, 1);    return code_convert_string (string, coding_system, Qt, encodep, 0, 1);
6691  }  }
6692    
6693    
# Line 7349  DEFUN ("define-coding-system-internal", Line 7343  DEFUN ("define-coding-system-internal",
7343      {      {
7344        Lisp_Object initial, reg_usage, request, flags;        Lisp_Object initial, reg_usage, request, flags;
7345        struct charset *charset;        struct charset *charset;
7346        int i, id, max_id = -1;        int i, id;
7347    
7348        if (nargs < coding_arg_iso2022_max)        if (nargs < coding_arg_iso2022_max)
7349          goto short_args;          goto short_args;

Legend:
Removed from v.1.239.2.1  
changed lines
  Added in v.1.239.2.2

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