new function: format

[calc.git] / format.c

#include <malloc.h>
#include <stdio.h>
#include <string.h>

#include "format.h"

/* global variables */

#define DEFAULT_FORMAT "=> %.6g\n"
char *_format = NULL;
#define DEFAULT_MINFORM "%.6g"
char *_minform = NULL;

int _precision = 6;

#define DEFAULT_PROMPT "=> "
char *_prompt = NULL;

/* print function */

void set_precision (int precision)
{
    _precision = precision;
}

int get_precision ()
{
    return _precision;
}

void set_prompt (char *prompt)
{
    if (_prompt) {
        free (_prompt);
    }
    _prompt = strdup (prompt);
}

void set_format ()
{
    char buffer[128] = {0};
    sprintf (buffer, "%s%%.%dg\n", _prompt ? _prompt : DEFAULT_PROMPT, _precision);
    if (_format) {
        free (_format);
    }
    _format = strdup (buffer);
    sprintf (buffer, "%%.%dg", _precision);
    if (_minform) {
        free (_minform);
    }
    _minform = strdup (buffer);
}

void free_format ()
{
    if (_format) {
        free (_format);
        _format = NULL;
    }
    if (_minform) {
        free (_minform);
        _minform = NULL;
    }
    if (_prompt) {
        free (_prompt);
        _prompt = NULL;
    }
}

double print (double value)
{
    fprintf (stdout, _format ? _format : DEFAULT_FORMAT, value);
    fflush (stdout);
    return value;
}

double printl (double value)
{
    fprintf (stdout, _minform ? _minform : DEFAULT_MINFORM, value);
    fflush (stdout);
    return value;
}

/* vim: set ts=4 sw=4 et: */