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

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

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

Log Message:
-----------
Fix up scanf %c conversion.

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

Modified: pure/trunk/lib/system.pure
===================================================================
--- pure/trunk/lib/system.pure	2008-08-15 08:12:33 UTC (rev 506)
+++ pure/trunk/lib/system.pure	2008-08-15 08:49:09 UTC (rev 507)
@@ -345,6 +345,7 @@
                 = buf otherwise;
   // Compute a reasonable size for a string buffer; if necessary, modify the
   // field width of the format accordingly.
+  guestimate "%c" = 2, "%c";
   guestimate format = n, format
   when
     1,0,_,1,s = regex "^%([0-9]*)" REG_EXTENDED format 0;
@@ -437,6 +438,7 @@
                 = buf otherwise;
   // Compute a reasonable size for a string buffer; if necessary, modify the
   // field width of the format accordingly.
+  guestimate "%c" = 2, "%c";
   guestimate format = n, format
   when
     1,0,_,1,s = regex "^%([0-9]*)" REG_EXTENDED format 0;


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