rom/dos/vfwritef.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8 #include "dos_intern.h"
   9 #include <dos/bptr.h>
  10 #include <string.h>
  11
  12 LONG    putNumber(STRPTR *format, IPTR **args, ULONG base, BPTR fh,
  13                   struct DosLibrary *DOSBase);
  14 STRPTR  writeNumber(char *buffer, ULONG base, ULONG n, BOOL minus,
  15                     struct DosLibrary *DOSBase);
  16
  17 /*****************************************************************************
  18
  19     NAME */
  20 #include <proto/dos.h>
  21
  22         AROS_LH3(LONG, VFWritef,
  23
  24 /*  SYNOPSIS */
  25         AROS_LHA(BPTR  , fh      , D1),
  26         AROS_LHA(STRPTR, fmt     , D2),
  27         AROS_LHA(IPTR *, argarray, D3),
  28
  29 /*  LOCATION */
  30         struct DosLibrary *, DOSBase, 58, Dos)
  31
  32 /*  FUNCTION
  33
  34     Write a formatted string (with supplied values) to a specified file.
  35     The string may be of any length and the routine is buffered.
  36     The following format commands may be used (preceded by a '%') a la printf.
  37
  38         S   --  string (C style)
  39         Tx  --  writes a left justified string padding it to be (at least)
  40                 x bytes long
  41         C   --  character
  42         Ox  --  octal number; maximum width x characters
  43         Xx  --  hexadecimal number; maximum width x characters
  44         Ix  --  decimal number; maximum width x chararcters
  45         N   --  decimal number; any length
  46         Ux  --  unsigned decimal number; maximum width x characters
  47         $   --  ignore parameter
  48
  49         Note: 'x' above is the character value - '0'.
  50
  51     INPUTS
  52
  53     fh        --  file to write the output to
  54     fmt       --  format string
  55     argarray  --  pointer to an array of formatting values
  56
  57     RESULT
  58
  59     The number of bytes written or -1 if there was an error.
  60
  61     NOTES
  62
  63     EXAMPLE
  64
  65     BUGS
  66
  67     SEE ALSO
  68
  69     VFPrintf(), FPutC()
  70
  71     INTERNALS
  72
  73 *****************************************************************************/
  74 {
  75     AROS_LIBFUNC_INIT
  76
  77 #define  bLast  (sizeof(ULONG)*8/3 + 1)
  78
  79     char    buffer[bLast + 1];
  80
  81     LONG    count  = 0;      /* Number of characters written */
  82     STRPTR  format = fmt;
  83     IPTR   *args   = argarray;
  84
  85     STRPTR  string;
  86     STRPTR  wBuf;            /* Pointer to first number character in buffer */
  87     LONG    len;
  88     LONG    i;               /* Loop variable */
  89     LONG    number;
  90     BOOL    minus;
  91     BOOL    quitNow = FALSE;    /* Takes care of the case "...%" as format
  92                                    string */
  93
  94
  95     while (*format != 0 && !quitNow)
  96     {
  97         if (*format == '%')
  98         {
  99             format++;
 100
 101             switch (*format)
 102             {
 103             case 'S':           /* Regular c string */
 104             case 's':
 105                 string = (STRPTR)*args;
 106                 args++;
 107
 108                 if (string == NULL)
 109                 {
 110                     return -1;
 111                 }
 112
 113                 while (*string != 0)
 114                 {
 115                     FPutC(fh, *string++);
 116                     count++;
 117                 }
 118
 119                 break;
 120
 121             case 'T':           /* BCPL string (possibly filled out) */
 122             case 't':
 123                 format++;
 124                 len = *format - '0';
 125
 126                 if (BADDR(*args) == NULL)
 127                 {
 128                     return -1;
 129                 }
 130
 131                 for (i = 0; i < AROS_BSTR_strlen((BSTR)*args); i++)
 132                 {
 133                     FPutC(fh, AROS_BSTR_getchar((BSTR)*args, i));
 134                     count++;
 135                 }
 136
 137                 args++;
 138
 139                 /* If needed, write out spaces to fill field. */
 140                 for(; i < len; i++)
 141                 {
 142                     FPutC(fh, ' ');
 143                     count++;
 144                 }
 145
 146                 break;
 147
 148             case 'C':           /* Character */
 149             case 'c':
 150                 FPutC(fh, (char)*args);
 151                 count++;
 152                 args++;
 153                 break;
 154
 155             case 'O':           /* Octal number */
 156             case 'o':
 157                 count += putNumber(&format, &args, 8, fh, DOSBase);
 158                 break;
 159
 160             case 'X':           /* Hexadecimal number */
 161             case 'x':
 162                 count += putNumber(&format, &args, 16, fh, DOSBase);
 163                 break;
 164
 165             case 'I':           /* Decimal number */
 166             case 'i':
 167                 count += putNumber(&format, &args, 10, fh, DOSBase);
 168                 break;
 169
 170             case 'N':           /* Decimal number (no length restriction) */
 171             case 'n':
 172                 number = *args;
 173                 args++;
 174
 175                 if (number < 0)
 176                 {
 177                     number = -number;
 178                     minus = TRUE;
 179                 }
 180                 else
 181                 {
 182                     minus = FALSE;
 183                 }
 184
 185                 buffer[bLast] = 0;
 186
 187                 /* Write decimal number */
 188                 wBuf = writeNumber(&buffer[bLast], 10, number, minus, DOSBase);
 189
 190                 while (*wBuf != 0)
 191                 {
 192                     FPutC(fh, *wBuf++);
 193                     count++;
 194                 }
 195
 196                 break;
 197
 198             case 'U':           /* Unsigned decimal number */
 199             case 'u':
 200                 format++;
 201                 len = *format - '0';
 202
 203                 number = *args;
 204                 args++;
 205
 206                 wBuf = writeNumber(&buffer[bLast], 10, number, FALSE, DOSBase);
 207
 208                 for (i = 0; i < len; i++)
 209                 {
 210                     FPutC(fh, *wBuf++);
 211                     count++;
 212
 213                     if (*wBuf == 0)
 214                     {
 215                         break;
 216                     }
 217                 }
 218
 219                 break;
 220
 221             case '$':           /* Skip argument */
 222                 args++;
 223                 break;
 224
 225             case 0:             /* Stupid user... */
 226                 quitNow = TRUE;
 227                 break;
 228
 229             default:            /* Ability to print '%':s */
 230                 FPutC(fh, *format);
 231                 count++;
 232                 break;
 233             }
 234         }
 235         else
 236         {
 237             /* A regular character */
 238             FPutC(fh, *format);
 239             count++;
 240         }
 241
 242         format++;
 243     }
 244
 245     return count;
 246
 247     AROS_LIBFUNC_EXIT
 248 } /* VFWritef */
 249
 250
 251 LONG putNumber(STRPTR *format, IPTR **args, ULONG base, BPTR fh,
 252                struct DosLibrary *DOSBase)
 253 {
 254     char    buffer[bLast + 1];
 255     LONG    icount = 0;
 256     LONG    number;
 257     LONG    len;                /* Maximum width of number (ASCII) */
 258     BOOL    minus = FALSE;
 259     STRPTR  aNum;
 260     LONG    i;                  /* Loop variable */
 261
 262     buffer[bLast] = 0;
 263
 264     (*format)++;
 265     len = **format - '0';
 266
 267     number = **args;
 268     (*args)++;
 269
 270     if(number < 0)
 271     {
 272         number = -number;
 273         minus = TRUE;
 274     }
 275
 276     aNum = writeNumber(&buffer[bLast], base, number, minus, DOSBase);
 277
 278     /* Write the textual number to the file */
 279     for (i = 0; i < len; i++)
 280     {
 281         FPutC(fh, *aNum++);
 282         icount++;
 283
 284         if(*aNum == 0)
 285             break;
 286     }
 287
 288     return icount;
 289 } /* VFWritef */
 290
 291
 292 /* Generate a text string from a number */
 293 STRPTR writeNumber(char *buffer, ULONG base, ULONG n, BOOL minus,
 294                    struct DosLibrary *DOSBase)
 295 {
 296     int val;
 297
 298     do
 299     {
 300         val = n % base;
 301         *--buffer = val < 10 ? val + '0' : val - 10 + 'A';
 302         n /= base;
 303     } while(n != 0);
 304
 305     if (minus)
 306     {
 307         *--buffer = '-';
 308     }
 309
 310     return buffer;
 311 }
 312