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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-08-31 16:36:51 -0700 (Wed, 31 Aug 2005)
New Revision: 1372

Modified:
   branches/r5rs/sigscheme/datas.c
   branches/r5rs/sigscheme/operations.c
   branches/r5rs/sigscheme/sigscheme.h
Log:
* sigscheme/sigscheme.h
* sigscheme/operations.c
* sigscheme/datas.c
  - rename "Scm_NewString_With_StrLen" to "Scm_NewStringWithLen"


Modified: branches/r5rs/sigscheme/datas.c
===================================================================
--- branches/r5rs/sigscheme/datas.c	2005-08-31 23:11:35 UTC (rev 1371)
+++ branches/r5rs/sigscheme/datas.c	2005-08-31 23:36:51 UTC (rev 1372)
@@ -662,7 +662,7 @@
     return obj;
 }
 
-ScmObj Scm_NewString_With_StrLen(char *str, int len)
+ScmObj Scm_NewStringWithLen(char *str, int len)
 {
     ScmObj obj = SCM_NULL;
     SCM_NEW_OBJ_INTERNAL(obj);

Modified: branches/r5rs/sigscheme/operations.c
===================================================================
--- branches/r5rs/sigscheme/operations.c	2005-08-31 23:11:35 UTC (rev 1371)
+++ branches/r5rs/sigscheme/operations.c	2005-08-31 23:36:51 UTC (rev 1372)
@@ -1409,7 +1409,7 @@
     }
 
     /* make string */
-    str = Scm_NewString_With_StrLen(NULL, len);
+    str = Scm_NewStringWithLen(NULL, len);
 
     /* and fill! */
     ScmOp_string_fill(str, ch);
@@ -1584,7 +1584,7 @@
         p += strlen(SCM_STRING_STR(obj));
     }
 
-    return Scm_NewString_With_StrLen(new_str, total_len);
+    return Scm_NewStringWithLen(new_str, total_len);
 }
 
 ScmObj ScmOp_string2list(ScmObj string)

Modified: branches/r5rs/sigscheme/sigscheme.h
===================================================================
--- branches/r5rs/sigscheme/sigscheme.h	2005-08-31 23:11:35 UTC (rev 1371)
+++ branches/r5rs/sigscheme/sigscheme.h	2005-08-31 23:36:51 UTC (rev 1372)
@@ -113,7 +113,7 @@
 ScmObj Scm_NewChar(char *ch);
 ScmObj Scm_NewString(char *str);
 ScmObj Scm_NewStringCopying(const char *str);
-ScmObj Scm_NewString_With_StrLen(char *str, int len);
+ScmObj Scm_NewStringWithLen(char *str, int len);
 ScmObj Scm_NewFunc(enum ScmFuncTypeCode type, ScmFuncType func);
 ScmObj Scm_NewClosure(ScmObj exp, ScmObj env);
 ScmObj Scm_NewVector(ScmObj *vec, int len);