[pure-lang-svn] SF.net SVN: pure-lang:[508] pure/trunk/lib/system.pure

[<ag...@us...>]

Revision: 508
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=508&view=rev
Author:   agraef
Date:     2008-08-15 09:15:37 +0000 (Fri, 15 Aug 2008)

Log Message:
-----------
Add missing printf %c conversion.

Modified Paths:
--------------
    pure/trunk/lib/system.pure

Modified: pure/trunk/lib/system.pure
===================================================================
--- pure/trunk/lib/system.pure	2008-08-15 08:49:09 UTC (rev 507)
+++ pure/trunk/lib/system.pure	2008-08-15 09:15:37 UTC (rev 508)
@@ -194,6 +194,7 @@
   do_fprintf fp (count,arg:args) (printf_format_spec t s) = count, args
   when
     res = case t, arg of
+      "c", x::int | "c", x::bigint |
       "d", x::int | "d", x::bigint = pure_fprintf_int fp s x;
       "g", x::double = pure_fprintf_double fp s x;
       "s", x::string = pure_fprintf_string fp s x;
@@ -211,7 +212,7 @@
 end;
 
 printf_split_format format = regexg analyze
-  "(%[-#0 ]?[0-9]*([.][0-9]*)?[diouxXeEfgGsp])|(%)|([^%]|%%)+"
+  "(%[-#0 ]?[0-9]*([.][0-9]*)?[cdiouxXeEfgGsp])|(%)|([^%]|%%)+"
   REG_EXTENDED format 0
 with
   analyze info =
@@ -257,6 +258,7 @@
     end;
     buf = check_buf (malloc size);
     res = case t, arg of
+      "c", x::int | "c", x::bigint |
       "d", x::int | "d", x::bigint = pure_snprintf_int buf size s x;
       "g", x::double = pure_snprintf_double buf size s x;
       "s", x::string = pure_snprintf_string buf size s x;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.