Re: BIG5-HKSCS?

[Simon Josefsson <jas@extundo.com>]

Kenichi Handa <handa@m17n.org> writes:

> In article <iluekwcwyl8.fsf@latte.josefsson.org>, Simon Josefsson <jas@extundo.com> writes:
>> The HMAC-MD5 function seem to fail, causing my login attempts in Gnus
>> to fail.  Reproduce it by:
>
>> jas@latte:~/src/emacs-unicode/src$ ./emacs -q ../lisp/gnus/rfc2104.el
>
>> then do M-x eval-buffer RET and try to evaluate some of the test
>> vectors, the first one should give:
>
>> (rfc2104-hash 'md5 64 16 "Jefe" "what do ya want for nothing?")
>>  => "750c783e6ab0b503eaa86e310a5db738"
>
>> With emacs-unicode I get "f898573306b1366f6edd841a9f5b2871".
>
> Thank you for testing.  I've just installed a fix for
> rfc2104.el.  I'd like to ask you to try it again.

rfc2104.el now works, thanks.  But does the fix really have to
explicitly mention charsets like iso-latin-1?  Is there no way to
handle binary octet strings in emacs-unicode?  Preferably in a
portable way, that works on old Emacs versions and on XEmacs.

> This is a typical problem of emacs-unicode in which
> characters 128..255 are valid Unicode characters, thus, for
> instance, (concat '(?a ?\300)) returns a multibyte string of
> `a' and `À'.  But in the current Emacs, it returns a unibyte
> string.
>
> I suspect the similar fix is necessary in several other
> places.

Having a way to deal with data that is a pure single byte, without
involving coding systems, seems like a rather important thing to me.

>> Is anyone using the emacs-unicode branch with Gnus?
>
> At least, I'm not a Gnus user.  I'd like to ask people to
> use emacs-unicode in various ways to find bugs.  What I can
> test is limited, but, usually, I can fix them quite easily
> like this case.

It started now, but when I enter a summary buffer it crashed:

Program received signal SIGSEGV, Segmentation fault.
0x081a3c81 in skip_chars (forwardp=1, string=160, lim=36) at syntax.c:1591
1591                      char_ranges[n_char_ranges++] = c;
(gdb) bt
#0  0x081a3c81 in skip_chars (forwardp=1, string=160, lim=36) at syntax.c:1591
#1  0x090ed860 in ?? ()
#2  0x081a30d0 in Fskip_chars_forward (string=1, lim=1) at syntax.c:1344
#3  0x081b1a43 in Fbyte_code (bytestr=6, vector=160, maxdepth=152054512)
    at bytecode.c:1418
#4  0x08185689 in funcall_lambda (fun=1223225480, nargs=1,
    arg_vector=0xbfffcf44) at eval.c:2911
#5  0x0818514d in Ffuncall (nargs=2, args=0xbfffcf40) at eval.c:2781
#6  0x081b0ff5 in Fbyte_code (bytestr=406381860, vector=1,
    maxdepth=-1073754304) at bytecode.c:710
#7  0x08185689 in funcall_lambda (fun=1213250456, nargs=2,
    arg_vector=0xbfffd084) at eval.c:2911
#8  0x0818514d in Ffuncall (nargs=3, args=0xbfffd080) at eval.c:2781
#9  0x081b0ff5 in Fbyte_code (bytestr=408546780, vector=2,
    maxdepth=-1073753984) at bytecode.c:710
#10 0x08185689 in funcall_lambda (fun=1222504096, nargs=0,
    arg_vector=0xbfffd1b4) at eval.c:2911
#11 0x0818514d in Ffuncall (nargs=1, args=0xbfffd1b0) at eval.c:2781
#12 0x081b0ff5 in Fbyte_code (bytestr=416820644, vector=0,
    maxdepth=-1073753680) at bytecode.c:710
#13 0x08185689 in funcall_lambda (fun=1222459392, nargs=0,
    arg_vector=0xbfffd2d4) at eval.c:2911
#14 0x0818514d in Ffuncall (nargs=1, args=0xbfffd2d0) at eval.c:2781
---Type <return> to continue, or q <return> to quit---
#15 0x081b0ff5 in Fbyte_code (bytestr=410610228, vector=0,
    maxdepth=-1073753392) at bytecode.c:710
#16 0x08185689 in funcall_lambda (fun=1222459176, nargs=2,
    arg_vector=0xbfffd3f4) at eval.c:2911
#17 0x0818514d in Ffuncall (nargs=3, args=0xbfffd3f0) at eval.c:2781
#18 0x081b0ff5 in Fbyte_code (bytestr=416766892, vector=2,
    maxdepth=-1073753104) at bytecode.c:710
#19 0x08185689 in funcall_lambda (fun=1222077040, nargs=2,
    arg_vector=0xbfffd514) at eval.c:2911
#20 0x0818514d in Ffuncall (nargs=3, args=0xbfffd510) at eval.c:2781
#21 0x081b0ff5 in Fbyte_code (bytestr=416766916, vector=2,
    maxdepth=-1073752816) at bytecode.c:710
#22 0x08185689 in funcall_lambda (fun=1222110576, nargs=1,
    arg_vector=0xbfffd634) at eval.c:2911
#23 0x0818514d in Ffuncall (nargs=2, args=0xbfffd630) at eval.c:2781
#24 0x081b0ff5 in Fbyte_code (bytestr=416640468, vector=1,
    maxdepth=-1073752528) at bytecode.c:710
#25 0x08185689 in funcall_lambda (fun=1221949600, nargs=6,
    arg_vector=0xbfffd764) at eval.c:2911
#26 0x0818514d in Ffuncall (nargs=7, args=0xbfffd760) at eval.c:2781
#27 0x081b0ff5 in Fbyte_code (bytestr=408688788, vector=6,
    maxdepth=-1073752224) at bytecode.c:710
#28 0x08185689 in funcall_lambda (fun=1221947744, nargs=7,
---Type <return> to continue, or q <return> to quit---
    arg_vector=0xbfffd894) at eval.c:2911
#29 0x0818514d in Ffuncall (nargs=8, args=0xbfffd890) at eval.c:2781
#30 0x081b0ff5 in Fbyte_code (bytestr=408688788, vector=7,
    maxdepth=-1073751920) at bytecode.c:710
#31 0x08185689 in funcall_lambda (fun=1214659912, nargs=3,
    arg_vector=0xbfffd9c4) at eval.c:2911
#32 0x0818514d in Ffuncall (nargs=4, args=0xbfffd9c0) at eval.c:2781
#33 0x081b0ff5 in Fbyte_code (bytestr=406477324, vector=3,
    maxdepth=-1073751616) at bytecode.c:710
#34 0x08185689 in funcall_lambda (fun=1223292464, nargs=1,
    arg_vector=0xbfffdb24) at eval.c:2911
#35 0x0818514d in Ffuncall (nargs=2, args=0xbfffdb20) at eval.c:2781
#36 0x08180cce in Fcall_interactively (function=407759756,
    record_flag=406023676, keys=1211380872) at callint.c:850
#37 0x0812e9db in Fcommand_execute (cmd=407759756, record_flag=406023676,
    keys=1, special=406023676) at keyboard.c:9725
#38 0x08123462 in command_loop_1 () at keyboard.c:1756
#39 0x0818345e in internal_condition_case (bfun=0x8123100 <command_loop_1>,
    handlers=406111316, hfun=0x8122c40 <cmd_error>) at eval.c:1333
#40 0x08122f9e in command_loop_2 () at keyboard.c:1292
#41 0x08182fbb in internal_catch (tag=1, func=0x8122f70 <command_loop_2>,
    arg=406023676) at eval.c:1094
#42 0x08122f3e in command_loop () at keyboard.c:1271
---Type <return> to continue, or q <return> to quit---
#43 0x081229d4 in recursive_edit_1 () at keyboard.c:987
#44 0x08122b01 in Frecursive_edit () at keyboard.c:1043
#45 0x081211e0 in main (argc=3, argv=0xbfffe374) at emacs.c:1673
(gdb) l
1673      Frecursive_edit ();
1674      /* NOTREACHED */
1675      return 0;
1676    }
1677    ^L
1678    /* Sort the args so we can find the most important ones
1679       at the beginning of argv.  */
1680
1681    /* First, here's a table of all the standard options.  */
1682
(gdb) up
#1  0x090ed860 in ?? ()
(gdb) up
#2  0x081a30d0 in Fskip_chars_forward (string=1, lim=1) at syntax.c:1344
1344      return skip_chars (1, string, lim);
(gdb) p string
$1 = 1
(gdb) p lim
$2 = 1
(gdb) up
#3  0x081b1a43 in Fbyte_code (bytestr=6, vector=160, maxdepth=152054512)
    at bytecode.c:1418
1418                TOP = Fskip_chars_forward (TOP, v1);
(gdb) up
#4  0x08185689 in funcall_lambda (fun=1223225480, nargs=1,
    arg_vector=0xbfffcf44) at eval.c:2911
2911          val = Fbyte_code (AREF (fun, COMPILED_BYTECODE),
(gdb) up
#5  0x0818514d in Ffuncall (nargs=2, args=0xbfffcf40) at eval.c:2781
2781            val = funcall_lambda (fun, numargs, args + 1);
(gdb) up
#6  0x081b0ff5 in Fbyte_code (bytestr=406381860, vector=1,
    maxdepth=-1073754304) at bytecode.c:710
710                 TOP = Ffuncall (op + 1, &TOP);
(gdb) q
A debugging session is active.
Do you still want to close the debugger?(y or n) y
jas@latte:~/src/emacs-unicode/src$