diff options
author | cgd <cgd@NetBSD.org> | 1993-03-21 09:45:37 +0000 |
---|---|---|
committer | cgd <cgd@NetBSD.org> | 1993-03-21 09:45:37 +0000 |
commit | 77e3814f0c0e3dea4d0032e25666f77e6f83bfff (patch) | |
tree | 7eddfcbf3dd12089e71dc3fafb0a106c5c5766c7 /number/number.c | |
parent | e81d63576b2e46ab90da7d75fa155ea57ee4d32e (diff) | |
download | bsdgames-darwin-77e3814f0c0e3dea4d0032e25666f77e6f83bfff.tar.gz bsdgames-darwin-77e3814f0c0e3dea4d0032e25666f77e6f83bfff.tar.zst bsdgames-darwin-77e3814f0c0e3dea4d0032e25666f77e6f83bfff.zip |
initial import of 386bsd-0.1 sources
Diffstat (limited to 'number/number.c')
-rw-r--r-- | number/number.c | 243 |
1 files changed, 243 insertions, 0 deletions
diff --git a/number/number.c b/number/number.c new file mode 100644 index 00000000..110400ea --- /dev/null +++ b/number/number.c @@ -0,0 +1,243 @@ +/* + * Copyright (c) 1988 Regents of the University of California. + * All rights reserved. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * 3. All advertising materials mentioning features or use of this software + * must display the following acknowledgement: + * This product includes software developed by the University of + * California, Berkeley and its contributors. + * 4. Neither the name of the University nor the names of its contributors + * may be used to endorse or promote products derived from this software + * without specific prior written permission. + * + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF + * SUCH DAMAGE. + */ + +#ifndef lint +char copyright[] = +"@(#) Copyright (c) 1988 Regents of the University of California.\n\ + All rights reserved.\n"; +#endif /* not lint */ + +#ifndef lint +static char sccsid[] = "@(#)number.c 5.1 (Berkeley) 2/28/91"; +#endif /* not lint */ + +#include <stdio.h> +#include <ctype.h> + +#define YES 1 +#define NO 0 +#define EOS '\0' +#define MAXNUM 65 /* biggest number we handle */ + +static char *name1[] = { + "", "one", "two", "three", + "four", "five", "six", "seven", + "eight", "nine", "ten", "eleven", + "twelve", "thirteen", "fourteen", "fifteen", + "sixteen", "seventeen", "eighteen", "nineteen", +}, + *name2[] = { + "", "ten", "twenty", "thirty", + "forty", "fifty", "sixty", "seventy", + "eighty", "ninety", +}, + *name3[] = { + "hundred", "thousand", "million", "billion", + "trillion", "quadrillion", "quintillion", "sextillion", + "septillion", "octillion", "nonillion", "decillion", + "undecillion", "duodecillion", "tredecillion", "quattuordecillion", + "quindecillion", "sexdecillion", + "septendecillion", "octodecillion", + "novemdecillion", "vigintillion", +}; + +main(argc,argv) + int argc; + char **argv; +{ + register int cnt; + char line[MAXNUM * 2 + 2]; /* MAXNUM '.' MAXNUM '\0' */ + + if (argc > 1) + for (cnt = 1;cnt < argc;++cnt) { + convert(argv[cnt]); + puts("..."); + } + else + while (fgets(line,sizeof(line),stdin)) { + convert(line); + puts("..."); + } + exit(0); +} + +convert(line) + char *line; +{ + register int len, + ret; + register char *C, + *fraction; + + for (fraction = NULL, C = line;*C && *C != '\n';++C) + if (!isdigit(*C)) + switch(*C) { + case '-': + if (C != line) + usage(NO); + break; + case '.': + if (!fraction) { + fraction = C + 1; + *C = EOS; + break; + } + default: + usage(NO); + } + *C = EOS; + if (*line == '-') { + puts("minus"); + ++line; + } + ret = NO; + if (len = strlen(line)) { + if (len > MAXNUM) + usage(YES); + ret = unit(len,line); + } + if (fraction && (len = strlen(fraction))) { + if (len > MAXNUM) + usage(YES); + for (C = fraction;*C;++C) + if (*C != '0') { + if (ret) + puts("and"); + if (unit(len,fraction)) { + ++ret; + pfract(len); + } + break; + } + } + if (!ret) + puts("zero."); +} + +unit(len,C) + register int len; + register char *C; +{ + register int off, + ret; + + ret = NO; + if (len > 3) { + if (len % 3) { + off = len % 3; + len -= off; + if (number(C,off)) { + ret = YES; + printf(" %s.\n",name3[len / 3]); + } + C += off; + } + for (;len > 3;C += 3) { + len -= 3; + if (number(C,3)) { + ret = YES; + printf(" %s.\n",name3[len / 3]); + } + } + } + if (number(C,len)) { + puts("."); + ret = YES; + } + return(ret); +} + +number(C,len) + register char *C; + int len; +{ + register int val, + ret; + + ret = 0; + switch(len) { + case 3: + if (*C != '0') { + ++ret; + printf("%s hundred",name1[*C - '0']); + } + ++C; + /*FALLTHROUGH*/ + case 2: + val = (C[1] - '0') + (C[0] - '0') * 10; + if (val) { + if (ret++) + putchar(' '); + if (val < 20) + fputs(name1[val],stdout); + else { + fputs(name2[val / 10],stdout); + if (val % 10) + printf("-%s",name1[val % 10]); + } + } + break; + case 1: + if (*C != '0') { + ++ret; + fputs(name1[*C - '0'],stdout); + } + } + return(ret); +} + +pfract(len) + register int len; +{ + static char *pref[] = { "", "ten-", "hundred-" }; + + switch(len) { + case 1: + puts("tenths."); + break; + case 2: + puts("hundredths."); + break; + default: + printf("%s%sths.\n",pref[len % 3],name3[len / 3]); + } +} + +usage(toobig) + int toobig; +{ + if (toobig) + fprintf(stderr,"number: number too large, max %d digits.\n",MAXNUM); + fputs("usage: number # ...\n",stderr); + exit(-1); +} |