mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 16:34:07 +00:00
165 lines
3.2 KiB
C
165 lines
3.2 KiB
C
/*****************************************************************************
|
|
*
|
|
* P R I N T F I N T E R N A L R O U T I N E
|
|
* ---------------------------------------------
|
|
*
|
|
* Routine "_printf" is used to handle all "printf" functions, including
|
|
* "sprintf", and "fprintf".
|
|
*
|
|
* Calling Sequence:
|
|
*
|
|
* _printf(fd,func,fmt,arg1);
|
|
*
|
|
* Where:
|
|
*
|
|
* fd Is the file or string pointer.
|
|
* func Is the function to handle output.
|
|
* fmt Is the address of the format string.
|
|
* arg1 Is the address of the first arg.
|
|
*
|
|
* Bugs:
|
|
*
|
|
* It is assumed that args are contiguous starting at "arg1", and that
|
|
* all are the same size (int), except for floating point.
|
|
*
|
|
* "putc" arguments are reversed from UNIX.
|
|
*
|
|
*****************************************************************************/
|
|
|
|
char *_ptrbf = 0;
|
|
char *_ptrst = 0;
|
|
char *__fmt = 0;
|
|
|
|
_printf(fd,f,fmt,a1) /****************************/
|
|
int fd; /* Not really, but ... */
|
|
char (*f)(); /* Function pointer */
|
|
char *fmt; /* -> Format string */
|
|
int *a1; /* -> Arg list */
|
|
{ /****************************/
|
|
auto char c, *s, adj, *ptr,*p, buf[30];
|
|
auto int *adx, x, n, m, width, prec,i, padchar;
|
|
double zz, *dblptr;
|
|
extern _putstr();
|
|
_ptrbf = buf;
|
|
adx = a1;
|
|
_ptrst = fd;
|
|
__fmt = fmt;
|
|
|
|
|
|
while( c = *__fmt++ ){
|
|
if(c != '%') (*f)(fd,c);
|
|
else { x = *adx++;
|
|
if( *__fmt == '-' ){ adj = 'l'; __fmt++; }
|
|
else adj = 'r';
|
|
padchar = (*__fmt=='0') ? '0' : ' ';
|
|
width = __conv();
|
|
if( *__fmt == '.'){++__fmt; prec = __conv();}
|
|
else prec = 0;
|
|
|
|
s = 0;
|
|
if(*__fmt == 'l' || *__fmt == 'L') __fmt++;
|
|
switch ( c = *__fmt++ ) {
|
|
|
|
case 'D':
|
|
case 'd':
|
|
_prt1(x); break;
|
|
case 'o':
|
|
case 'O':
|
|
_prnt8(x); break;
|
|
case 'x':
|
|
case 'X':
|
|
_prntx(x); break;
|
|
case 'S':
|
|
case 's': s=x;
|
|
break;
|
|
case 'C':
|
|
case 'c': *_ptrbf++ = x&0777;
|
|
break;
|
|
case 'E':
|
|
case 'e':
|
|
case 'F':
|
|
case 'f':
|
|
dblptr = adx-1;
|
|
zz = *dblptr;
|
|
adx =+ 1;
|
|
ftoa (zz, buf, prec, c);
|
|
prec = 0;
|
|
s = buf;
|
|
break;
|
|
default: (*f)(fd,c);
|
|
adx--;
|
|
}
|
|
if (s == 0)
|
|
{*_ptrbf = '\0'; s = buf;}
|
|
n = aclenf (s);
|
|
n = (prec<n && prec != 0) ? prec : n;
|
|
m = width-n;
|
|
if (adj == 'r') while (m-- > 0) (*f)(fd,padchar);
|
|
while (n--) (*f)(fd,*s++);
|
|
while (m-- > 0) (*f)(fd,padchar);
|
|
_ptrbf = buf;
|
|
}
|
|
}
|
|
if((*f) == _putstr) (*f)(fd,'\0');
|
|
}
|
|
|
|
|
|
_prnt8 (n)
|
|
{ /* print in octal */
|
|
int p, k, sw;
|
|
if (n==0) {*_ptrbf++ = '0'; return;}
|
|
sw = 0;
|
|
for (p=31; p >= 0; p =- 3)
|
|
if ((k = (n>>p)&07) || sw)
|
|
{
|
|
if (p==31)
|
|
k = k & 02;
|
|
*_ptrbf++ = '0' + k;
|
|
sw = 1;
|
|
}
|
|
}
|
|
_prntx (n)
|
|
{
|
|
int d,a;
|
|
if (a = n>>4)
|
|
_prntx ( a & 0xfffffff);
|
|
d = n&017;
|
|
*_ptrbf++ = d > 9 ? 'A'+d-10 : '0' + d;
|
|
}
|
|
|
|
__conv()
|
|
{
|
|
auto c,n;
|
|
n = 0;
|
|
while( ((c = *__fmt++) >= '0') && (c<='9'))
|
|
n = n*10+c-'0';
|
|
__fmt--;
|
|
return(n);
|
|
}
|
|
|
|
_putstr(str,chr)
|
|
char chr;
|
|
char *str;
|
|
{
|
|
*_ptrst++ = chr;
|
|
return;
|
|
}
|
|
_prt1(n)
|
|
{
|
|
int digs[15], *dpt;
|
|
dpt = digs;
|
|
if (n >= 0)
|
|
n = -n;
|
|
else
|
|
*_ptrbf++ = '-';
|
|
for (; n != 0; n = n/10)
|
|
*dpt++ = n%10;
|
|
if (dpt == digs)
|
|
*dpt++ = 0;
|
|
while (dpt != digs)
|
|
{
|
|
--dpt;
|
|
*_ptrbf++ = '0' - *dpt;
|
|
}
|
|
}
|