naruse	2009-10-11 09:48:35 +0900 (Sun, 11 Oct 2009)

  New Revision: 25295

  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi?view=rev&revision=25295

  Log:
    * regerror.c (onig_vsnprintf_with_pattern): added.
    
    * regparse.c (onig_syntax_warn): use above.

  Modified files:
    trunk/ChangeLog
    trunk/regerror.c
    trunk/regparse.c

Index: regparse.c
===================================================================
--- regparse.c	(revision 25294)
+++ regparse.c	(revision 25295)
@@ -2844,20 +2844,23 @@
 }
 #endif /* USE_NAMED_GROUP */
 
+void onig_vsnprintf_with_pattern(UChar buf[], int bufsize, OnigEncoding enc,
+                           UChar* pat, UChar* pat_end, const UChar *fmt, va_list args);
+
 static void
 onig_syntax_warn(ScanEnv *env, const char *fmt, ...)
 {
     va_list args;
     UChar buf[WARN_BUFSIZE];
     va_start(args, fmt);
-    onig_snprintf_with_pattern(buf, WARN_BUFSIZE, env->enc,
+    onig_vsnprintf_with_pattern(buf, WARN_BUFSIZE, env->enc,
 		env->pattern, env->pattern_end,
 		(const UChar *)fmt, args);
     va_end(args);
     if (env->sourcefile == NULL)
-	rb_warn(fmt, buf);
+	rb_warn((char *)buf);
     else
-	rb_compile_warn(env->sourcefile, env->sourceline, fmt, buf);
+	rb_compile_warn(env->sourcefile, env->sourceline, (char *)buf);
 }
 
 static void
Index: ChangeLog
===================================================================
--- ChangeLog	(revision 25294)
+++ ChangeLog	(revision 25295)
@@ -1,3 +1,9 @@
+Sun Oct 11 09:44:46 2009  NARUSE, Yui  <naruse@r...>
+
+	* regerror.c (onig_vsnprintf_with_pattern): added.
+
+	* regparse.c (onig_syntax_warn): use above.
+
 Sun Oct 11 09:04:08 2009  Nobuyoshi Nakada  <nobu@r...>
 
 	* include/ruby/ruby.h (RB_GC_GUARD_PTR): workaround for gcc
Index: regerror.c
===================================================================
--- regerror.c	(revision 25294)
+++ regerror.c	(revision 25295)
@@ -312,31 +312,16 @@
   return (int)len;
 }
 
-
 void
-#ifdef HAVE_STDARG_PROTOTYPES
-onig_snprintf_with_pattern(UChar buf[], int bufsize, OnigEncoding enc,
-                           UChar* pat, UChar* pat_end, const UChar *fmt, ...)
-#else
-onig_snprintf_with_pattern(buf, bufsize, enc, pat, pat_end, fmt, va_alist)
-    UChar buf[];
-    int bufsize;
-    OnigEncoding enc;
-    UChar* pat;
-    UChar* pat_end;
-    const UChar *fmt;
-    va_dcl
-#endif
+onig_vsnprintf_with_pattern(UChar buf[], int bufsize, OnigEncoding enc,
+                           UChar* pat, UChar* pat_end, const UChar *fmt, va_list args)
 {
   size_t need;
   int n, len;
   UChar *p, *s, *bp;
   UChar bs[6];
-  va_list args;
 
-  va_init_list(args, fmt);
   n = xvsnprintf((char* )buf, bufsize, (const char* )fmt, args);
-  va_end(args);
 
   need = (pat_end - pat) * 4 + 4;
 
@@ -387,3 +372,26 @@
     *s   = '\0';
   }
 }
+
+void
+#ifdef HAVE_STDARG_PROTOTYPES
+onig_snprintf_with_pattern(UChar buf[], int bufsize, OnigEncoding enc,
+                           UChar* pat, UChar* pat_end, const UChar *fmt, ...)
+#else
+onig_snprintf_with_pattern(buf, bufsize, enc, pat, pat_end, fmt, va_alist)
+    UChar buf[];
+    int bufsize;
+    OnigEncoding enc;
+    UChar* pat;
+    UChar* pat_end;
+    const UChar *fmt;
+    va_dcl
+#endif
+{
+  va_list args;
+  va_init_list(args, fmt);
+  onig_vsnprintf_with_pattern(buf, bufsize, enc,
+	  pat, pat_end, fmt, args);
+  va_end(args);
+}
+

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml/