ack/lang/basic/lib/print.c

#include <stdlib.h>
#include <stdio.h>
#include "bc_string.h"
#include "bc_io.h"

/* $Id$ */

/* Here all routine to generate terminal oriented output is located */

void _qstmark(void)
{
	/* prompt for terminal input */
	putchar('?');
}

void _nl(void)
{
	_asschn();
	_outnl();
}
void _prinum(int i)
{
	char	buffer[40];

	_asschn();
	if(i>=0) 
		sprintf(buffer," %d ",i);
	else	sprintf(buffer,"-%d ",-i);
	_out(buffer);
}
void _str(double f, char* buffer)
{
	register char *c = buffer;
	int eformat = 0;
	if( f>=0){
		if( f> 1.0e8) {
			eformat = 1;
			sprintf(buffer," %e",f);
		}
		else sprintf(buffer," %f",f);
		c++;
	}else {
		if(-f> 1.0e8) {
			eformat = 1;
			sprintf(buffer,"-%e",-f);
		}
		else sprintf(buffer,"-%f",-f);
	}
	if (! eformat) {
		for( ; *c && *c!= ' ';c++) ;
		c--;
		while( c>buffer && *c== '0')
		{
			*c= 0;c--;
		}
		if( *c=='.') *c=0;
	}
}
void _prfnum(double f)
{
	/* BASIC strings trailing zeroes */
	char	buffer[100];
	char	*c;

	_asschn();
	c= buffer;
	_str(f,c);
	strcat(buffer," ");
	_out(buffer);
}
void _prstr(String* str)
{
	_asschn();
	if( str==0)	_out("<null>");
	else		_out(str->strval);
}