ack/lang/pc/libpc/wri.c

27 lines
369 B
C
Raw Normal View History

1984-07-20 10:44:57 +00:00
#include <pc_file.h>
extern _wstrin();
_wsi(w,i,f) int w,i; struct file *f; {
char *p; int j; char buf[6];
p = &buf[6];
if ((j=i) < 0) {
if (i == -32768) {
_wstrin(w,6,"-32768",f);
return;
}
j = -j;
}
do
*--p = '0' + j%10;
while (j /= 10);
if (i<0)
*--p = '-';
_wstrin(w,&buf[6]-p,p,f);
}
_wri(i,f) int i; struct file *f; {
_wsi(6,i,f);
}