This commit was generated by cvs2svn to compensate for changes in r372,

which included commits to RCS files with non-trunk default branches.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@373 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 226 insertions, 237 deletions

diff --git a/sprintf.c b/sprintf.c
index 7862a469e8..3c09a8ed2a 100644
--- a/sprintf.c
+++ b/sprintf.c
@@ -6,14 +6,14 @@
   $Date$
   created at: Fri Oct 15 10:39:26 JST 1993
 
-  Copyright (C) 1993-1996 Yukihiro Matsumoto
+  Copyright (C) 1993-1998 Yukihiro Matsumoto
 
 ************************************************/
 
 #include "ruby.h"
 #include <ctype.h>
 
-static void fmt_setup();
+static void fmt_setup _((char*,char,int,int,int));
 
 static char*
 remove_sign_bits(str, base)
@@ -23,20 +23,21 @@ remove_sign_bits(str, base)
     char *s, *t, *end;
     
     s = t = str;
+    end = str + strlen(str);
 
     if (base == 16) {
       x_retry:
 	switch (*t) {
-	  case 'c':
-	    *t = '8';
+	  case 'c': case 'C':
+	    *t = '4';
 	    break;
-	  case 'd':
-	    *t = '9';
+	  case 'd': case 'D':
+	    *t = '5';
 	    break;
-	  case 'e':
+	  case 'e': case 'E':
 	    *t = '2';
 	    break;
-	  case 'f':
+	  case 'f': case 'F':
 	    if (t[1] > '8') {
 		t++;
 		goto x_retry;
@@ -99,32 +100,16 @@ remove_sign_bits(str, base)
     return str;
 }
 
-double big2dbl();
-#ifndef atof
-double atof();
-#endif
-
-VALUE
-f_sprintf(argc, argv)
-    int argc;
-    VALUE *argv;
-{
-    VALUE fmt;
-    char *buf, *p, *end;
-    int blen, bsiz;
-    VALUE result;
+double rb_big2dbl _((VALUE));
 
 #define FNONE  0
 #define FSHARP 1
 #define FMINUS 2
 #define FPLUS  4
 #define FZERO  8
-#define FWIDTH 16
-#define FPREC  32
-
-    int width = 0, prec = 0, flags = FNONE;
-    VALUE str;
-
+#define FSPACE 16
+#define FWIDTH 32
+#define FPREC  64
 
 #define CHECK(l) {\
     while (blen + (l) >= bsiz) {\
@@ -140,17 +125,30 @@ f_sprintf(argc, argv)
 }
 
 #define GETARG() \
-    ((argc == 0)?(ArgError("too few argument."),0):(argc--,((argv++)[0])))
+    ((argc == 0)?(rb_raise(rb_eArgError, "too few argument."),0):(argc--,((argv++)[0])))
 
-    fmt = GETARG();
-    Check_Type(fmt, T_STRING);
+VALUE
+rb_f_sprintf(argc, argv)
+    int argc;
+    VALUE *argv;
+{
+    VALUE fmt;
+    char *buf, *p, *end;
+    int blen, bsiz;
+    VALUE result;
+
+    int width, prec, flags = FNONE;
+    VALUE tmp;
+    VALUE str;
 
+    fmt = GETARG();
+    p = str2cstr(fmt, &blen);
+    end = p + blen;
     blen = 0;
     bsiz = 120;
     buf = ALLOC_N(char, bsiz);
-    end = RSTRING(fmt)->ptr + RSTRING(fmt)->len;
 
-    for (p = RSTRING(fmt)->ptr; p < end; p++) {
+    for (; p < end; p++) {
 	char *t;
 
 	for (t = p; t < end && *t != '%'; t++) ;
@@ -162,16 +160,18 @@ f_sprintf(argc, argv)
 	}
 	p = t + 1;		/* skip `%' */
 
+	width = prec = -1;
       retry:
 	switch (*p) {
 	  default:
-	    if (isprint(*p))
-		ArgError("malformed format string - %%%c", *p);
+	    if (ISPRINT(*p))
+		rb_raise(rb_eArgError, "malformed format string - %%%c", *p);
 	    else
-		ArgError("malformed format string");
+		rb_raise(rb_eArgError, "malformed format string");
 	    break;
 
 	  case ' ':
+	    flags |= FSPACE;
 	    p++;
 	    goto retry;
 
@@ -199,51 +199,50 @@ f_sprintf(argc, argv)
 	  case '5': case '6': case '7': case '8': case '9':
 	    flags |= FWIDTH;
 	    width = 0;
-	    for (; p < end && isdigit(*p); p++) {
+	    for (; p < end && ISDIGIT(*p); p++) {
 		width = 10 * width + (*p - '0');
 	    }
 	    if (p >= end) {
-		ArgError("malformed format string - %%[0-9]");
+		rb_raise(rb_eArgError, "malformed format string - %%[0-9]");
 	    }
 	    goto retry;
 
 	  case '*':
 	    if (flags & FWIDTH) {
-		ArgError("width given twice");
+		rb_raise(rb_eArgError, "width given twice");
 	    }
 
 	    flags |= FWIDTH;
-	    width = GETARG();
-	    width = NUM2INT(width);
+	    tmp = GETARG();
+	    width = NUM2INT(tmp);
 	    if (width < 0) {
 		flags |= FMINUS;
-		width = - width;
+		width = -width;
 	    }
 	    p++;
 	    goto retry;
 
 	  case '.':
 	    if (flags & FPREC) {
-		ArgError("precision given twice");
+		rb_raise(rb_eArgError, "precision given twice");
 	    }
 
 	    prec = 0;
 	    p++;
-	    if (*p == '0') flags |= FZERO;
 	    if (*p == '*') {
-		prec = GETARG();
-		prec = NUM2INT(prec);
+		tmp = GETARG();
+		prec = NUM2INT(tmp);
 		if (prec > 0)
 		    flags |= FPREC;
 		p++;
 		goto retry;
 	    }
 
-	    for (; p < end && isdigit(*p); p++) {
+	    for (; p < end && ISDIGIT(*p); p++) {
 		prec = 10 * prec + (*p - '0');
 	    }
 	    if (p >= end) {
-		ArgError("malformed format string - %%.[0-9]");
+		rb_raise(rb_eArgError, "malformed format string - %%.[0-9]");
 	    }
 	    if (prec > 0)
 		flags |= FPREC;
@@ -261,8 +260,13 @@ f_sprintf(argc, argv)
 		VALUE val = GETARG();
 		char c;
 
+		if (!(flags & FMINUS))
+		    while (--width > 0)
+			PUSH(" ", 1);
 		c = NUM2INT(val) & 0xff;
 		PUSH(&c, 1);
+		while (--width > 0)
+		    PUSH(" ", 1);
 	    }
 	    break;
 
@@ -271,7 +275,7 @@ f_sprintf(argc, argv)
 		VALUE arg = GETARG();
 		int len;
 
-		str = obj_as_string(arg);
+		str = rb_obj_as_string(arg);
 		len = RSTRING(str)->len;
 		if (flags&FPREC) {
 		    if (prec < len) {
@@ -283,8 +287,8 @@ f_sprintf(argc, argv)
 		}
 		if (flags&FWIDTH) {
 		    if (width > len) {
-			width -= len;
 			CHECK(width);
+			width -= len;
 			if (!(flags&FMINUS)) {
 			    while (width--) {
 				buf[blen++] = ' ';
@@ -306,28 +310,58 @@ f_sprintf(argc, argv)
 	    }
 	    break;
 
-	  case 'b':
-	  case 'B':
+	  case 'd':
+	  case 'i':
 	  case 'o':
 	  case 'x':
+	  case 'X':
+	  case 'b':
 	  case 'u':
 	    {
 		volatile VALUE val = GETARG();
 		char fbuf[32], nbuf[64], *s, *t;
-		int v, base, bignum = 0;
-		int len, slen, pos;
+		char *prefix = 0;
+		int sign = 0;
+		char sc = 0;
+		long v;
+		int base, bignum = 0;
+		int len, pos;
+
+		switch (*p) {
+		  case 'd':
+		  case 'i':
+		    sign = 1; break;
+		  case 'o':
+		  case 'x':
+		  case 'X':
+		  case 'b':
+		  case 'u':
+		  default:
+		    if (flags&(FPLUS|FSPACE)) sign = 1;
+		    break;
+		}
+		if (flags & FSHARP) {
+		    if (*p == 'o') prefix = "0";
+		    else if (*p == 'x') prefix = "0x";
+		    else if (*p == 'X') prefix = "0X";
+		    else if (*p == 'b') prefix = "0b";
+		    if (prefix) {
+			width -= strlen(prefix);
+		    }
+		}
 
 	      bin_retry:
 		switch (TYPE(val)) {
 		  case T_FIXNUM:
-		    v = FIX2INT(val);
+		    v = FIX2LONG(val);
 		    break;
 		  case T_FLOAT:
-		    val = dbl2big(RFLOAT(val)->value);
+		    val = rb_dbl2big(RFLOAT(val)->value);
+		    if (FIXNUM_P(val)) goto bin_retry;
 		    bignum = 1;
 		    break;
 		  case T_STRING:
-		    val = str2inum(RSTRING(val)->ptr, 0);
+		    val = rb_str2inum(RSTRING(val)->ptr, 10);
 		    goto bin_retry;
 		  case T_BIGNUM:
 		    bignum = 1;
@@ -337,51 +371,90 @@ f_sprintf(argc, argv)
 		    break;
 		}
 
-		if (*p == 'x') base = 16;
+		if (*p == 'u' || *p == 'd' || *p == 'i') base = 10;
+		else if (*p == 'x' || *p == 'X') base = 16;
 		else if (*p == 'o') base = 8;
-		else if (*p == 'u') base = 10;
-		else if (*p == 'b' || *p == 'B') base = 2;
+		else if (*p == 'b') base = 2;
 		if (!bignum) {
-		    if (*p == 'b' || *p == 'B') {
-			val = int2big(v);
+		    if (base == 2) {
+			val = rb_int2big(v);
+			goto bin_retry;
 		    }
-		    else {
-			s = nbuf;
+		    if (sign) {
+			char c = *p;
+			if (c == 'i') c = 'd'; /* %d and %i are identical */
 			if (v < 0) {
-			    strcpy(s, "..");
-			    s += 2;
-			    bignum = 2;
+			    v = -v;
+			    sc = '-';
+			    width--;
 			}
-			sprintf(fbuf, "%%%c", *p);
-			sprintf(s, fbuf, v);
-			if (v < 0) {
-			    char d = 0;
-
-			    remove_sign_bits(s, base);
-			    switch (base) {
-			      case 16:
-				d = 'f'; break;
-			      case 8:
-				d = '7'; break;
-			    }
-			    if (d && *s != d) {
-				memmove(s+1, s, strlen(s)+1);
-				*s = d;
-			    }
+			else if (flags & FPLUS) {
+			    sc = '+';
+			    width--;
 			}
+			else if (flags & FSPACE) {
+			    sc = ' ';
+			    width--;
+			}
+			sprintf(fbuf, "%%l%c", c);
+			sprintf(nbuf, fbuf, v);
 			s = nbuf;
-			goto unsigned_format;
+			goto format_integer;
+		    }
+		    s = nbuf;
+		    if (v < 0) {
+			strcpy(s, "..");
+			s += 2;
+		    }
+		    sprintf(fbuf, "%%l%c", *p);
+		    sprintf(s, fbuf, v);
+		    if (v < 0) {
+			char d = 0;
+
+			remove_sign_bits(s, base);
+			switch (base) {
+			  case 16:
+			    d = 'f'; 
+			    break;
+			  case 8:
+			    d = '7'; break;
+			}
+			if (d && *s != d) {
+			    memmove(s+1, s, strlen(s)+1);
+			    *s = d;
+			}
 		    }
+		    s = nbuf;
+		    goto format_integer;
 		}
-		if (*p != 'B' && !RBIGNUM(val)->sign) {
-		    val = big_clone(val);
-		    big_2comp(val);
+
+		if (sign) {
+		    val = rb_big2str(val, base);
+		    s = RSTRING(val)->ptr;
+		    if (s[0] == '-') {
+			s++;
+			sc = '-';
+			width--;
+		    }
+		    else if (flags & FPLUS) {
+			sc = '+';
+			width--;
+		    }
+		    else if (flags & FSPACE) {
+			sc = ' ';
+			width--;
+		    }
+		    goto format_integer;
+		}
+		if (!RBIGNUM(val)->sign) {
+		    val = rb_big_clone(val);
+		    rb_big_2comp(val);
 		}
-		val = big2str(val, base);
+		val = rb_big2str(val, base);
 		s = RSTRING(val)->ptr;
-		if (*s == '-' && *p != 'B') {
+		if (*s == '-') {
 		    remove_sign_bits(++s, base);
-		    val = str_new(0, 3+strlen(s));
+		    val = rb_str_new(0, 3+strlen(s));
 		    t = RSTRING(val)->ptr;
 		    strcpy(t, "..");
 		    t += 2;
@@ -396,165 +469,79 @@ f_sprintf(argc, argv)
 		}
 		s  = RSTRING(val)->ptr;
 
-	      unsigned_format:
-		slen = len = strlen(s);
-		pos = blen;
-		if (flags&FWIDTH) {
-		    if (width <= len) flags &= ~FWIDTH;
-		    else {
-			slen = width;
+	      format_integer:
+		pos = -1;
+		len = strlen(s);
+
+		if (*p == 'X') {
+		    char *pp = s;
+		    while (*pp) {
+			*pp = toupper(*pp);
+			pp++;
 		    }
 		}
-		if (flags&FPREC) {
-		    if (prec <= len) flags &= ~FPREC;
-		    else {
-			if (prec >= slen) {
-			    flags &= ~FWIDTH;
-			    slen = prec;
-			}
+		if (prec < len) prec = len;
+		width -= prec;
+		if (!(flags&(FZERO|FMINUS)) && s[0] != '.') {
+		    CHECK(width);
+		    while (width-->0) {
+			buf[blen++] = ' ';
 		    }
 		}
-		if (slen > len) {
-		    int n = slen-len;
-		    char d = ' ';
-		    if (flags & FZERO) d = '0';
-		    CHECK(n);
-		    while (n--) {
-			buf[blen++] = d;
-		    }
+		if (sc) PUSH(&sc, 1);
+		if (prefix) {
+		    int plen = strlen(prefix);
+		    CHECK(plen);
+		    strcpy(&buf[blen], prefix);
+		    blen += plen;
+		    if (pos) pos += plen;
 		}
-		if ((flags&(FWIDTH|FPREC)) == (FWIDTH|FPREC)) {
-		    if (prec < width) {
-			pos = width - prec;
+		if (!(flags & FMINUS)) {
+		    char c = ' ';
+
+		    if (s[0] == '.') {
+			c = '.';
+			if ((flags & FPREC) && prec > len) {
+			    pos = blen;
+			}
+			else {
+			    pos = blen + 2;
+			}
+		    }
+		    else if (flags & FZERO) c = '0';
+		    CHECK(width);
+		    while (width-->0) {
+			buf[blen++] = c;
 		    }
 		}
+		CHECK(prec - len);
+		while (len < prec--) {
+		    buf[blen++] = s[0]=='.'?'.':'0';
+		}
 		CHECK(len);
 		strcpy(&buf[blen], s);
 		blen += len;
-		t = &buf[pos];
-		if (bignum == 2) {
-		    char d = '.';
+		CHECK(width);
+		while (width-->0) {
+		    buf[blen++] = ' ';
+		}
+		if (pos >= 0 && buf[pos] == '.') {
+		    char c = '.';
 
 		    switch (base) {
 		      case 16:
-			d = 'f'; break;
+			if (*p == 'X') c = 'F';
+			else c = 'f';
+			break;
 		      case 8:
-			d = '7'; break;
+			c = '7'; break;
 		      case '2':
-			d = '1'; break;
-		    }
-
-		    if ((flags & FPREC) == 0 || prec <= len-2) {
-			*t++ = '.'; *t++ = '.';
-		    }
-		    while (*t == ' ' || *t == '.') {
-			*t++ = d;
-		    }
-		}
-		else if (flags & (FPREC|FZERO)) {
-		    while (*t == ' ') {
-			*t++ = '0';
-		    }
-		}
-	    }
-	    break;
-
-	  case 'd':
-	  case 'D':
-	  case 'O':
-	  case 'X':
-	    {
-		volatile VALUE val = GETARG();
-		char fbuf[32], c = *p;
-		int bignum = 0, base;
-		int v;
-
-		if (c == 'D') c = 'd';
-	      int_retry:
-		switch (TYPE(val)) {
-		  case T_FIXNUM:
-		    v = FIX2INT(val);
-		    break;
-		  case T_FLOAT:
-		    v = RFLOAT(val)->value;
-		    break;
-		  case T_STRING:
-		    val = str2inum(RSTRING(val)->ptr, 0);
-		    goto int_retry;
-		  case T_BIGNUM:
-		    if (c == 'd') base = 10;
-		    else if (c == 'X') base = 16;
-		    else if (c == 'O') base = 8;
-		    val = big2str(val, base);
-		    bignum = 1;
-		    break;
-		  default:
-		    val = num2fix(val);
-		    goto int_retry;
-		}
-
-		if (bignum) {
-		    char *s = RSTRING(val)->ptr;
-		    int slen, len, pos_b, pos;
-
-		    slen = len = strlen(s);
-		    pos = pos_b = blen;
-		    if (flags&FWIDTH) {
-			if (width <= len) flags &= ~FWIDTH;
-			else {
-			    slen = width;
-			}
-		    }
-		    if (flags&FPREC) {
-			if (prec <= len) flags &= ~FPREC;
-			else {
-			    if (prec >= slen) {
-				flags &= ~FWIDTH;
-				slen = prec;
-			    }
-			}
-		    }
-		    if (slen > len) {
-			int n = slen-len;
-			CHECK(n);
-			while (n--) {
-			    buf[blen++] = ' ';
-			}
+			c = '1'; break;
 		    }
-		    if ((flags&(FWIDTH|FPREC)) == (FWIDTH|FPREC)) {
-			if (prec < width) {
-			    pos = width - prec;
-			}
-		    }
-		    CHECK(len);
-		    strcpy(&buf[blen], s);
-		    blen += len;
-		    if (flags & (FPREC|FZERO)) {
-			char *t = &buf[pos];
-			char *b = &buf[pos_b];
-
-			if (s[0] == '-') {
-			    if (slen > len && t != b ) t[-1] = '-';
-			    else *t++ = '-';
-			}
-			while (*t == ' ' || *t == '-') {
-			    *t++ = '0';
-			}
-		    }
-		}
-		else {
-		    int max = 11;
-
-		    if ((flags & FPREC) && prec > max) max = prec;
-		    if ((flags & FWIDTH) && width > max) max = width;
-		    CHECK(max);
-		    if (v < 0 && (c == 'X' || c == 'O')) {
-			v = -v;
-			PUSH("-", 1);
+		    s = &buf[pos];
+		    while (*s && *s == '.') {
+			*s++ = c;
 		    }
-		    fmt_setup(fbuf, c, flags, width, prec);
-		    sprintf(&buf[blen], fbuf, v);
-		    blen += strlen(&buf[blen]);
 		}
 	    }
 	    break;
@@ -562,6 +549,7 @@ f_sprintf(argc, argv)
 	  case 'f':
 	  case 'g':
 	  case 'e':
+	  case 'E':
 	    {
 		VALUE val = GETARG();
 		double fval;
@@ -569,13 +557,13 @@ f_sprintf(argc, argv)
 
 		switch (TYPE(val)) {
 		  case T_FIXNUM:
-		    fval = FIX2INT(val);
+		    fval = (double)FIX2LONG(val);
 		    break;
 		  case T_FLOAT:
 		    fval = RFLOAT(val)->value;
 		    break;
 		  case T_BIGNUM:
-		    fval = big2dbl(val);
+		    fval = rb_big2dbl(val);
 		    break;
 		  case T_STRING:
 		    fval = atof(RSTRING(val)->ptr);
@@ -597,10 +585,10 @@ f_sprintf(argc, argv)
     }
 
   sprint_exit:
-    if (RTEST(verbose) && argc > 1) {
-	ArgError("too many argument for format string");
+    if (RTEST(rb_verbose) && argc > 1) {
+	rb_raise(rb_eArgError, "too many argument for format string");
     }
-    result = str_new(buf, blen);
+    result = rb_str_new(buf, blen);
     free(buf);
 
     return result;
@@ -616,6 +604,7 @@ fmt_setup(buf, c, flags, width, prec)
     if (flags & FPLUS)  *buf++ = '+';
     if (flags & FMINUS) *buf++ = '-';
     if (flags & FZERO)  *buf++ = '0';
+    if (flags & FSPACE) *buf++ = ' ';
 
     if (flags & FWIDTH) {
 	sprintf(buf, "%d", width);