File: filefuncs.awk

package info (click to toggle)
gawk 1%3A5.3.2-1
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 24,120 kB
  • sloc: ansic: 56,743; awk: 14,966; sh: 6,985; yacc: 6,820; makefile: 3,144; sed: 119; python: 31; csh: 6
file content (25 lines) | stat: -rw-r--r-- 536 bytes parent folder | download | duplicates (5) 
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
 
@load "filefuncs"

BEGIN {
   if (chdir(builddir) < 0) {
      printf "Error: chdir failed with ERRNO %s\n", ERRNO
      exit 1
   }

   if (stat(ARGV[0] "api.o", st) < 0) {
      printf "Error: stat(%s) failed with ERRNO %s\n", ARGV[0] "api.o", ERRNO
      exit 1
   }

   nf = split("name dev ino mode nlink uid gid size blocks atime mtime ctime pmode type", f)

   for (i = 1; i <= nf; i++) {
      if (!(f[i] in st)) {
	 printf "stat value for %s is missing\n",f[i]
	 rc = 1
      }
      else
	 delete st[f[i]]
   }
   exit rc+0
}