2 do_sprintf(TARG,len,sarg)
24 len--; /* don't count pattern string */
25 t = s = str_get(*sarg);
26 send = s + (*sarg)->str_cur;
31 if (len <= 0 || !(arg = *sarg++))
35 for ( ; t < send && *t != '%'; t++) ;
37 break; /* end of format string, ignore extra args */
46 for (t++; t < send; t++) {
55 case '0': case '1': case '2': case '3': case '4':
56 case '5': case '6': case '7': case '8': case '9':
57 case '.': case '#': case '-': case '+': case ' ':
71 xlen = (int)str_gnum(arg);
72 if (strEQ(f,"%c")) { /* some printfs fail on null chars */
78 (void)sprintf(xs,f,xlen);
90 (void)sprintf(buf,s,(quad)str_gnum(arg));
94 (void)sprintf(xs,f,(long)str_gnum(arg));
96 (void)sprintf(xs,f,(int)str_gnum(arg));
102 case 'x': case 'o': case 'u':
105 value = str_gnum(arg);
108 (void)sprintf(buf,s,(unsigned quad)value);
112 (void)sprintf(xs,f,U_L(value));
114 (void)sprintf(xs,f,U_I(value));
117 case 'E': case 'e': case 'f': case 'G': case 'g':
120 (void)sprintf(xs,f,str_gnum(arg));
128 if (*xs == 'S' && xs[1] == 't' && xs[2] == 'B' && xs[3] == '\0'
129 && xlen == sizeof(STBP)) {
130 STR *tmpstr = Str_new(24,0);
132 stab_efullname(tmpstr, ((STAB*)arg)); /* a stab value! */
133 sprintf(tokenbuf,"*%s",tmpstr->str_ptr);
134 /* reformat to non-binary */
136 xlen = strlen(tokenbuf);
139 if (strEQ(f,"%s")) { /* some printfs fail on >128 chars */
140 break; /* so handle simple cases */
142 else if (f[1] == '-') {
143 char *mp = index(f, '.');
147 int max = atoi(mp+1);
156 else if (isDIGIT(f[1])) {
157 char *mp = index(f, '.');
161 int max = atoi(mp+1);
170 strcpy(tokenbuf+64,f); /* sprintf($s,...$s...) */
172 (void)sprintf(buf,tokenbuf+64,xs);
177 /* end of switch, copy results */
179 STR_GROW(TARG, TARG->str_cur + (f - s) + xlen + 1 + pre + post);
180 str_ncat(TARG, s, f - s);
182 repeatcpy(TARG->str_ptr + TARG->str_cur, " ", 1, pre);
183 TARG->str_cur += pre;
185 str_ncat(TARG, xs, xlen);
187 repeatcpy(TARG->str_ptr + TARG->str_cur, " ", 1, post);
188 TARG->str_cur += post;
191 break; /* break from for loop */
194 str_ncat(TARG, s, t - s);