Can't Copy and Paste this?

Click here for a copy-and-paste friendly version of this code!

//**************************************

//     

//INCLUDE files for :Format US dollar am

//     ounts into text strings

//**************************************

//     

/* +++Date last modified: 05-Jul-1997 */

/*

** NUMCNVRT.H - Header file for SNIPPETS numerical <=> string conversions

*/

#ifndef NUMCNVRT__H

#define NUMCNVRT__H

#include  /* for size_t */

#include "sniptype.h"

#include "round.h"

#include "pi.h"

#define R_ERROR -2 /* EVAL.C Range error*/

/*

** Callable library functions begin here

*/

char * base_convert(const char *in, char *out,

size_t len, int rin, int rout);/* Bascnvrt.C */

char * comma_float(double num, char *buf, int dec); /* Commaflt.C */

size_t commafmt(char *buf, int bufsize, long N); /* Commafmt.C */

char * eng(double value, int places);/* Eng.C */

int evaluate(char *line, double *val);/* Eval.C */

char * fmt_money(double amt);/* Fmtmoney.C */

longhexorint(const char *string); /* Hexorint.C */

char * ltostr(long num, char *string,

size_t max_chars, unsigned base); /* Ltostr.C*/

char * ordinal_text(int number); /* Ord_Text.C */

int scanfrac (const char buf[], double *f);/* Scanfrac.C */

unsigned int hstr_i(char *cptr); /* Hstr_I.C*/

char *long2roman(long val, char *buf, size_t buflen); /* L2Roman.C */

long roman2long(const char *str);/* Roman2L.C */

#if defined(__ZTC__) && !defined(__SC__)

char * ltoa(long val, char *buf, int base); /* Ltoa.C */

#endif

/*

** File: STR27SEG.C

*/

    struct Seg7disp {

    unsigned seg_a : 1;

    unsigned seg_b : 1;

    unsigned seg_c : 1;

    unsigned seg_d : 1;

    unsigned seg_e : 1;

    unsigned seg_f : 1;

    unsigned seg_g : 1;

};

char *str27seg(char *string);

#endif /* NUMCNVRT__H */

code:

Can't Copy and Paste this?

Click here for a copy-and-paste friendly version of this code!

Terms of Agreement:   

By using this code, you agree to the following terms...   

1) You may use this code in your own programs (and may compile it into a program and distribute it in compiled format for langauges that allow it) freely and with no charge.   

2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.   

3) You may link to this code from another website, but ONLY if it is not wrapped in a frame. 

4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.  

/

/* +++Date last modified: 05-Jul-1997 */

/*

** FMTMONEY.C - Format a U.S. dollar value into a numeric string

**

** public domain demo by Bob Stout

*/

#include 

#include 

#include 

#include 

#include "snipmath.h"

#define Form(s,a) bufptr += sprintf(bufptr, s, a)

static char buf[256], *bufptr;

static char *units[] = {"Zero", "One", "Two", "Three", "Four",

"Five", "Six", "Seven", "Eight", "Nine",

"Ten", "Eleven", "Twelve", "Thirteen", "Fourteen",

"Fifteen", "Sixteen", "Seventeen", "Eighteen",

"Nineteen"},

*tens[] = {"Twenty", "Thirty", "Forty", "Fifty", "Sixty",

"Seventy", "Eighty", "Ninety"};

static void form_group(int, char *);

/*

** Call with double amount

** Rounds cents

** Returns string in a static buffer

*/

char *fmt_money(double amt)

    {

    int temp;

    double dummy, cents = modf(amt, &dummy);

    *buf = '\0';

    bufptr = buf;

    temp = (int)(amt/1E12);

    if (temp)

        {

        form_group(temp, "Trillion");

        amt = fmod(amt, 1E12);

    }

    temp = (int)(amt/1E9);

    if (temp)

        {

        form_group(temp, "Billion");

        amt = fmod(amt, 1E9);

    }

    temp = (int)(amt/1E6);

    if (temp)

        {

        form_group(temp, "Million");

        amt = fmod(amt, 1E6);

    }

    temp = (int)(amt/1E3);

    if (temp)

        {

        form_group(temp, "Thousand");

        amt = fmod(amt, 1E3);

    }

    form_group((int)amt, "");

    if (buf == bufptr)

    Form("%s ", units[0]);

    temp = (int)(cents * 100. + .5);

    sprintf(bufptr, "& %02d/100", temp);

    return buf;

}

/*

** Process each thousands group

*/

static void form_group(int amt, char *scale)

    {

    if (buf != bufptr)

    *bufptr++ = ' ';

    if (100 <= amt)

        {

        Form("%s Hundred ", units[amt/100]);

        amt %= 100;

    }

    if (20 <= amt)

        {

        Form("%s", tens[(amt - 20)/10]);

        if (0 != (amt %= 10))

            {

            Form("-%s ", units[amt]);

        }

        elseForm("%s", " ");

    }

    else if (amt)

        {

        Form("%s ", units[amt]);

    }

    Form("%s", scale);

}

#ifdef TEST

main(int argc, char *argv[])

    {

    while (--argc)

        {

        double amt = atof(*(++argv));

        printf("fmt_money(%g) = %s\n", amt, fmt_money(amt));

    }

    return EXIT_SUCCESS;

}

#endif /* TEST */