File: commas.c

package info (click to toggle)
grass 6.0.2-6
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 40,044 kB
  • ctags: 31,303
  • sloc: ansic: 321,125; tcl: 25,676; sh: 11,176; cpp: 10,098; makefile: 5,025; fortran: 1,846; yacc: 493; lex: 462; perl: 133; sed: 1
file content (66 lines) | stat: -rw-r--r-- 1,160 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
#include "gis.h"
#include <string.h>
/* puts commas into numbers:
	1234567    becomes 1,234,567
	1234567.89 becomes 1,234,567.89
	12345      becomes 12,345
	1234       stays   1234
* doesn't work well with negative numbers (yet)
*/
int G_insert_commas(
    char *buf)
{
    char number[100];
    int i,len;
    int comma;

    while (*buf == ' ') buf++;
    strcpy (number, buf);
    for (len=0; number[len]; len++)
	if(number[len] == '.')
	    break;
    if (len < 5)
	return 1;
 
    i = 0;
    if (comma = len%3)
    {
	while (i < comma)
	    *buf++ = number[i++];
	*buf++ = ',';
    }
    for (comma = 0; number[i]; comma++)
    {
	if (number[i] == '.')
	    break;
	if (comma && (comma%3 == 0))
	    *buf++ = ',';
	*buf++ = number[i++];
    }
    while (number[i])
	*buf++ = number[i++];
    *buf = 0;

    return 0;
}

/* removes commas from strings representing a number 
	1,234,567    becomes 1234567
	1,234,567.89 becomes 1234567.89
	12,345      becomes 12345
	1234       stays   1234
*/
#include <string.h>

int G_remove_commas(
    char *buf)
{
    char *b;

    for (b=buf; *b; b++)
	if(*b != ',')
	    *buf++ = *b;

    *buf = 0;
    return  0;
}