[uim-commit] r2971 - branches/r5rs/sigscheme/src

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-22 07:43:52 -0800 (Sun, 22 Jan 2006)
New Revision: 2971

Modified:
   branches/r5rs/sigscheme/src/encoding.c
   branches/r5rs/sigscheme/src/io.c
   branches/r5rs/sigscheme/src/mbcport.c
Log:
* sigscheme/src/mbcport.c
  - (mbcport_put_char): Cosmetic change
* sigscheme/src/io.c
  - (parse_script_prelude): Ditto
* sigscheme/src/encoding.c
  - (eucjp_char_len, euc_char_len, utf8_char_len, sjis_char_len): Ditto


Modified: branches/r5rs/sigscheme/src/encoding.c
===================================================================
--- branches/r5rs/sigscheme/src/encoding.c	2006-01-22 14:52:06 UTC (rev 2970)
+++ branches/r5rs/sigscheme/src/encoding.c	2006-01-22 15:43:52 UTC (rev 2971)
@@ -456,7 +456,8 @@
 int
 eucjp_char_len(scm_ichar_t ch)
 {
-    uchar *end, buf[SCM_MB_MAX_LEN + sizeof("")];
+    uchar *end;
+    uchar buf[SCM_MB_MAX_LEN + sizeof("")];
 
     end = eucjp_int2str(buf, ch, SCM_MB_STATELESS);
 
@@ -611,7 +612,8 @@
 int
 euc_char_len(scm_ichar_t ch)
 {
-    uchar *end, buf[SCM_MB_MAX_LEN + sizeof("")];
+    uchar *end;
+    uchar buf[SCM_MB_MAX_LEN + sizeof("")];
 
     end = euc_int2str(buf, ch, SCM_MB_STATELESS);
 
@@ -773,7 +775,8 @@
 int
 utf8_char_len(scm_ichar_t ch)
 {
-    uchar *end, buf[SCM_MB_MAX_LEN + sizeof("")];
+    uchar *end;
+    uchar buf[SCM_MB_MAX_LEN + sizeof("")];
 
     end = utf8_int2str(buf, ch, SCM_MB_STATELESS);
 
@@ -930,7 +933,8 @@
 int
 sjis_char_len(scm_ichar_t ch)
 {
-    uchar *end, buf[SCM_MB_MAX_LEN + sizeof("")];
+    uchar *end;
+    uchar buf[SCM_MB_MAX_LEN + sizeof("")];
 
     end = sjis_int2str(buf, ch, SCM_MB_STATELESS);
 

Modified: branches/r5rs/sigscheme/src/io.c
===================================================================
--- branches/r5rs/sigscheme/src/io.c	2006-01-22 14:52:06 UTC (rev 2970)
+++ branches/r5rs/sigscheme/src/io.c	2006-01-22 15:43:52 UTC (rev 2971)
@@ -688,7 +688,8 @@
 parse_script_prelude(ScmObj port)
 {
     int argc, c, len, line_len;
-    char **argv, *arg, *p, line[SCRIPT_PRELUDE_MAXLEN];
+    char **argv, *arg, *p;
+    char line[SCRIPT_PRELUDE_MAXLEN];
     DECLARE_INTERNAL_FUNCTION("parse_script_prelude");
 
     for (p = line; p < &line[SCRIPT_PRELUDE_MAXLEN]; p++) {

Modified: branches/r5rs/sigscheme/src/mbcport.c
===================================================================
--- branches/r5rs/sigscheme/src/mbcport.c	2006-01-22 14:52:06 UTC (rev 2970)
+++ branches/r5rs/sigscheme/src/mbcport.c	2006-01-22 15:43:52 UTC (rev 2971)
@@ -233,7 +233,8 @@
 static int
 mbcport_put_char(ScmMultiByteCharPort *port, scm_ichar_t ch)
 {
-    char *end, wbuf[SCM_MB_MAX_LEN + sizeof("")];
+    char *end;
+    char wbuf[SCM_MB_MAX_LEN + sizeof("")];
 
     /* FIXME: set updated state to port->state */
     end = SCM_CHARCODEC_INT2STR(port->codec, wbuf, ch, port->state);