summaryrefslogtreecommitdiff
path: root/source3/aparser/util.awk
blob: 6c5594da688bf53c45deb4096cede169c8cce883 (plain)
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
function isaptr(elem) 
{
	if (substr(elem, 1, 1) == "*") {
		return 1;
	}
	return 0;
}

function noptr(elem) 
{
	if (!isaptr(elem)) return elem;
	return substr(elem, 2);
}

function xprintf(f, fmt, v1, v2, v3, v4, v5, v6, v7)
{
	printf(fmt, v1, v2, v3, v4, v5, v6) > f;
}

function fatal(why)
{
	printf("FATAL: %s\n", why);
	exit 1;
}

function numlines(fname,
		  LOCAL, line, count)
{
	count=0;
	while ((getline line < fname) > 0) count++;
	close(fname);
	return count;
}

# return 1 if the string is a constant
function is_constant(s) 
{
    return match(s,"^[0-9]+$");
}