WebSVN - NaviCtrl - Diff - Rev 41 and 203

 /*
 Copyright (C) 1993 Free Software Foundation
 This file is part of the GNU IO Library.  This library is free
 software; you can redistribute it and/or modify it under the
  Alexander Popov
  sasho@vip.orbitel.bg
 ******************************************************************************
  Changed file to work with LPC - ARM.
  Ingo Busker
  busker@mikrocontroller.com   02.2005
 ******************************************************************************/
 /*
  * Actual printf innards.
 #include <stdarg.h>
 #else
 #include <varargs.h>
 #endif
 #include "91x_lib.h"
-#include "menu.h"
+#include "printf_P.h"
-//#define LIGHTPRINTF
-char Putchar(char zeichen)
+void PRINT(pVoidFnctChar pPutchar, const char * ptr, unsigned int len)
 {
-   DisplayBuff[DispPtr++] = zeichen;
+        for(;len;len--)
-   return(1);
+                (*pPutchar)(*ptr++);
-}
+}
-void PRINT(const char * ptr, unsigned int len) {
-        for(;len;len--)
-                Putchar(*ptr++);
-}
+void PRINTP(pVoidFnctChar pPutchar, const char * ptr, unsigned int len)
-void PRINTP(const char * ptr, unsigned int len) {
+{
         for(;len;len--)
-                Putchar(*ptr++);
+                (*pPutchar)(*ptr++);
+}
-void PAD_SP(signed char howmany) {
+void PAD_SP(pVoidFnctChar pPutchar, signed char howmany) {
         for(;howmany>0;howmany--)
-                Putchar(' ');
+                (*pPutchar)(' ');
 }
-void PAD_0(signed char howmany) {
+void PAD_0(pVoidFnctChar pPutchar, signed char howmany) {
         for(;howmany>0;howmany--)
-                Putchar('0');
+                (*pPutchar)('0');
+}
 #define BUF             40
 /*
  * Macros for converting digits to letters and vice versa
  */
 #define to_digit(c)     ((c) - '0')
-#define  is_digit(c)    ((c)<='9' && (c)>='0')
+#define is_digit(c)     ((c)<='9' && (c)>='0')
 #define to_char(n)      ((n) + '0')
 /*
  * Flags used during conversion.
  */
 #define LONGINT         0x01            /* long integer */
 #define LONGDBL         0x02            /* long double; unimplemented */
-#define SHORTINT                0x04            /* short integer */
+#define SHORTINT        0x04            /* short integer */
 #define ALT                     0x08            /* alternate form */
 #define LADJUST         0x10            /* left adjustment */
 #define ZEROPAD         0x20            /* zero (as opposed to blank) pad */
            quite grok this spaghetti code ... */
         signed char size = 0;           /* size of converted field or string */
         char buf[BUF];          /* space for %c, %[diouxX], %[eEfgG] */
         char ox[2];                     /* space for 0x hex-prefix */
+        if(pPutchar == NULL) return;
         va_start(ap, fmt0);
         fmt = fmt0;
         /*
          * Scan the format for conversions (`%' character).
          */
         for (;;) {
                 for (fmark = fmt; (ch = (*fmt)) != '\0' && ch != '%'; fmt++)
                         /* void */;
                 if ((n = fmt - fmark) != 0) {
-                        PRINTP(fmark, n);
+                        PRINTP(pPutchar, fmark, n);
+                }
                 if (ch == '\0')
                         register unsigned int _d;
                         _d=va_arg(ap, unsigned int);
                         _ulong = flags&SHORTINT ? (unsigned long)(unsigned short)_d : (unsigned long)_d;
+                }
+        }
 #ifndef LIGHTPRINTF
                 if(ch==' ') {
                         /*
                          * ``If the space and + flags both appear, the space
                          * flag will be ignored.''
                         } else {
                                 register int _d;
                                 _d=va_arg(ap, int);
                                 _ulong = flags&SHORTINT ? (long)(short)_d : (long)_d;
+                        }
                         if ((long)_ulong < 0) {
                                 _ulong = -_ulong;
                                 sign = '-';
+                        }
                         base = DEC;
                         goto number;
                 } else
 /*
                 if (ch=='n') {
                         if (flags & LONGINT)
                                 *va_arg(ap, long *) = ret;
                         else if (flags & SHORTINT)
                                 *va_arg(ap, short *) = ret;
                         else
                                 *va_arg(ap, int *) = ret;
                         continue;       // no output
                 } else
 */
 #ifndef LIGHTPRINTF
                 if (ch=='O'||ch=='o') {
                         if (ch=='O')
                                 flags |= LONGINT;
                         base = OCT;
                         goto nosign;
                                         size = prec;
                         } else
                                 size = strlen(cp);
                         sign = '\0';
                 } else
 #endif /* LIGHTPRINTF */
                 if(ch=='U'||ch=='u') {
                         if (ch=='U')
                                 flags |= LONGINT;
                         base = DEC;
                         goto nosign;
+                                        }
                                         *--cp=_d;
                                         _ulong /= base;
                                 } while (notlastdigit);
 #ifndef LIGHTPRINTF
                                 // handle octal leading 0
                                 if (base==OCT && flags & ALT && *cp != '0')
                                         *--cp = '0';
 #endif
+                        }
                         fieldsz += 2;
                 fieldsz += dpad;
                 /* right-adjusting blank padding */
                 if ((flags & (LADJUST|ZEROPAD)) == 0)
-                        PAD_SP(width - fieldsz);
+                        PAD_SP(pPutchar, width - fieldsz);
                 /* prefix */
                 if (sign) {
-                        PRINT(&sign, 1);
+                        PRINT(pPutchar, &sign, 1);
                 } else if (flags & HEXPREFIX) {
                         ox[0] = '0';
                         ox[1] = ch;
-                        PRINT(ox, 2);
+                        PRINT(pPutchar, ox, 2);
+                }
                 /* right-adjusting zero padding */
                 if ((flags & (LADJUST|ZEROPAD)) == ZEROPAD)
-                        PAD_0(width - fieldsz);
+                        PAD_0(pPutchar, width - fieldsz);
                 /* leading zeroes from decimal precision */
-                PAD_0(dpad);
+                PAD_0(pPutchar, dpad);
                 /* the string or number proper */
-                PRINT(cp, size);
+                PRINT(pPutchar, cp, size);
                 /* left-adjusting padding (always blank) */

Subversion Repositories NaviCtrl

(root)/tags/V2.10c/printf_P.c @ 641 - Rev 41 → 203