[uim-commit] r1311 - branches/r5rs/sigscheme

[kzk at freedesktop.org]

Author: kzk
Date: 2005-08-25 01:49:33 -0700 (Thu, 25 Aug 2005)
New Revision: 1311

Modified:
   branches/r5rs/sigscheme/datas.c
   branches/r5rs/sigscheme/io.c
   branches/r5rs/sigscheme/read.c
Log:
* sigscheme/io.c
* sigscheme/datas.c
  - add comments after #endif directive. This is recommended in
    GNU coding standards.

* sigscheme/read.c
  - (read_word, read_char_sequence): using variable++ to simplify
    the code.



Modified: branches/r5rs/sigscheme/datas.c
===================================================================
--- branches/r5rs/sigscheme/datas.c	2005-08-25 01:35:53 UTC (rev 1310)
+++ branches/r5rs/sigscheme/datas.c	2005-08-25 08:49:33 UTC (rev 1311)
@@ -794,7 +794,7 @@
 
     return obj;
 }
-#endif
+#endif /* SCM_USE_NONSTD_FEATURES */
 
 /*
  * Symbol Name Hash Related Functions
@@ -902,7 +902,7 @@
 
     return SCM_C_FUNCPOINTER_VALUE(c_funcptr);
 }
-#endif
+#endif /* SCM_USE_NONSTD_FEATURES */
 
 ScmObj Scm_eval_c_string(const char *exp)
 {

Modified: branches/r5rs/sigscheme/io.c
===================================================================
--- branches/r5rs/sigscheme/io.c	2005-08-25 01:35:53 UTC (rev 1310)
+++ branches/r5rs/sigscheme/io.c	2005-08-25 08:49:33 UTC (rev 1311)
@@ -394,7 +394,7 @@
     return SCM_UNDEF;
 
 }
-#endif
+#endif /* SCM_USE_NONSTD_FEATURES */
 
 ScmObj ScmOp_newline(ScmObj arg, ScmObj env)
 {
@@ -618,4 +618,4 @@
     fclose(f);
     return 1;
 }
-#endif
+#endif /* SCM_USE_NONSTD_FEATURES */

Modified: branches/r5rs/sigscheme/read.c
===================================================================
--- branches/r5rs/sigscheme/read.c	2005-08-25 01:35:53 UTC (rev 1310)
+++ branches/r5rs/sigscheme/read.c	2005-08-25 08:49:33 UTC (rev 1311)
@@ -469,8 +469,7 @@
             return dst;
 
         default:
-            stringbuf[stringlen] = (char)c;
-            stringlen++;
+            stringbuf[stringlen++] = (char)c;
             break;
         }
     }
@@ -499,8 +498,7 @@
         case '(': case ')': case ';':
             /* pass through first char */
             if (stringlen == 0) {
-                stringbuf[stringlen] = (char)c;
-                stringlen++;
+                stringbuf[stringlen++] = (char)c;
                 break;
             }
             /* doesn't break */
@@ -512,8 +510,7 @@
             return dst;
 
         default:
-            stringbuf[stringlen] = (char)c;
-            stringlen++;
+            stringbuf[stringlen++] = (char)c;
             break;
         }
     }