do/sprintf

   1 void
   2 do_sprintf(TARG,len,sarg)
   3 register STR *TARG;
   4 register int len;
   5 register STR **sarg;
   6 {
   7     register char *s;
   8     register char *t;
   9     register char *f;
  10     bool dolong;
  11 #ifdef QUAD
  12     bool doquad;
  13 #endif /* QUAD */
  14     char ch;
  15     register char *send;
  16     register STR *arg;
  17     char *xs;
  18     int xlen;
  19     int pre;
  20     int post;
  21     double value;
  22
  23     str_set(TARG,"");
  24     len--;                      /* don't count pattern string */
  25     t = s = str_get(*sarg);
  26     send = s + (*sarg)->str_cur;
  27     sarg++;
  28     for ( ; ; len--) {
  29
  30         /*SUPPRESS 560*/
  31         if (len <= 0 || !(arg = *sarg++))
  32             arg = &str_no;
  33
  34         /*SUPPRESS 530*/
  35         for ( ; t < send && *t != '%'; t++) ;
  36         if (t >= send)
  37             break;              /* end of format string, ignore extra args */
  38         f = t;
  39         *buf = '\0';
  40         xs = buf;
  41 #ifdef QUAD
  42         doquad =
  43 #endif /* QUAD */
  44         dolong = FALSE;
  45         pre = post = 0;
  46         for (t++; t < send; t++) {
  47             switch (*t) {
  48             default:
  49                 ch = *(++t);
  50                 *t = '\0';
  51                 (void)sprintf(xs,f);
  52                 len++, sarg--;
  53                 xlen = strlen(xs);
  54                 break;
  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 ' ':
  58                 continue;
  59             case 'l':
  60 #ifdef QUAD
  61                 if (dolong) {
  62                     dolong = FALSE;
  63                     doquad = TRUE;
  64                 } else
  65 #endif
  66                 dolong = TRUE;
  67                 continue;
  68             case 'c':
  69                 ch = *(++t);
  70                 *t = '\0';
  71                 xlen = (int)str_gnum(arg);
  72                 if (strEQ(f,"%c")) { /* some printfs fail on null chars */
  73                     *xs = xlen;
  74                     xs[1] = '\0';
  75                     xlen = 1;
  76                 }
  77                 else {
  78                     (void)sprintf(xs,f,xlen);
  79                     xlen = strlen(xs);
  80                 }
  81                 break;
  82             case 'D':
  83                 dolong = TRUE;
  84                 /* FALL THROUGH */
  85             case 'd':
  86                 ch = *(++t);
  87                 *t = '\0';
  88 #ifdef QUAD
  89                 if (doquad)
  90                     (void)sprintf(buf,s,(quad)str_gnum(arg));
  91                 else
  92 #endif
  93                 if (dolong)
  94                     (void)sprintf(xs,f,(long)str_gnum(arg));
  95                 else
  96                     (void)sprintf(xs,f,(int)str_gnum(arg));
  97                 xlen = strlen(xs);
  98                 break;
  99             case 'X': case 'O':
 100                 dolong = TRUE;
 101                 /* FALL THROUGH */
 102             case 'x': case 'o': case 'u':
 103                 ch = *(++t);
 104                 *t = '\0';
 105                 value = str_gnum(arg);
 106 #ifdef QUAD
 107                 if (doquad)
 108                     (void)sprintf(buf,s,(unsigned quad)value);
 109                 else
 110 #endif
 111                 if (dolong)
 112                     (void)sprintf(xs,f,U_L(value));
 113                 else
 114                     (void)sprintf(xs,f,U_I(value));
 115                 xlen = strlen(xs);
 116                 break;
 117             case 'E': case 'e': case 'f': case 'G': case 'g':
 118                 ch = *(++t);
 119                 *t = '\0';
 120                 (void)sprintf(xs,f,str_gnum(arg));
 121                 xlen = strlen(xs);
 122                 break;
 123             case 's':
 124                 ch = *(++t);
 125                 *t = '\0';
 126                 xs = str_get(arg);
 127                 xlen = arg->str_cur;
 128                 if (*xs == 'S' && xs[1] == 't' && xs[2] == 'B' && xs[3] == '\0'
 129                   && xlen == sizeof(STBP)) {
 130                     STR *tmpstr = Str_new(24,0);
 131
 132                     stab_efullname(tmpstr, ((STAB*)arg)); /* a stab value! */
 133                     sprintf(tokenbuf,"*%s",tmpstr->str_ptr);
 134                                         /* reformat to non-binary */
 135                     xs = tokenbuf;
 136                     xlen = strlen(tokenbuf);
 137                     str_free(tmpstr);
 138                 }
 139                 if (strEQ(f,"%s")) {    /* some printfs fail on >128 chars */
 140                     break;              /* so handle simple cases */
 141                 }
 142                 else if (f[1] == '-') {
 143                     char *mp = index(f, '.');
 144                     int min = atoi(f+2);
 145
 146                     if (mp) {
 147                         int max = atoi(mp+1);
 148
 149                         if (xlen > max)
 150                             xlen = max;
 151                     }
 152                     if (xlen < min)
 153                         post = min - xlen;
 154                     break;
 155                 }
 156                 else if (isDIGIT(f[1])) {
 157                     char *mp = index(f, '.');
 158                     int min = atoi(f+1);
 159
 160                     if (mp) {
 161                         int max = atoi(mp+1);
 162
 163                         if (xlen > max)
 164                             xlen = max;
 165                     }
 166                     if (xlen < min)
 167                         pre = min - xlen;
 168                     break;
 169                 }
 170                 strcpy(tokenbuf+64,f);  /* sprintf($s,...$s...) */
 171                 *t = ch;
 172                 (void)sprintf(buf,tokenbuf+64,xs);
 173                 xs = buf;
 174                 xlen = strlen(xs);
 175                 break;
 176             }
 177             /* end of switch, copy results */
 178             *t = ch;
 179             STR_GROW(TARG, TARG->str_cur + (f - s) + xlen + 1 + pre + post);
 180             str_ncat(TARG, s, f - s);
 181             if (pre) {
 182                 repeatcpy(TARG->str_ptr + TARG->str_cur, " ", 1, pre);
 183                 TARG->str_cur += pre;
 184             }
 185             str_ncat(TARG, xs, xlen);
 186             if (post) {
 187                 repeatcpy(TARG->str_ptr + TARG->str_cur, " ", 1, post);
 188                 TARG->str_cur += post;
 189             }
 190             s = t;
 191             break;              /* break from for loop */
 192         }
 193     }
 194     str_ncat(TARG, s, t - s);
 195     STABSET(TARG);
 196 }
 197