3 if (substr(elem, 1, 1) == "*") {
11 if (!isaptr(elem)) return elem;
12 return substr(elem, 2);
15 function xprintf(f, fmt, v1, v2, v3, v4, v5, v6, v7)
17 printf(fmt, v1, v2, v3, v4, v5, v6) > f;
22 printf("FATAL: %s\n", why);
26 function numlines(fname,
30 while ((getline line < fname) > 0) count++;
35 # return 1 if the string is a constant
36 function is_constant(s)
38 return match(s,"^[0-9]+$");