diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2010-11-18 23:00:31 +0200 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2010-11-18 23:00:31 +0200 |
| commit | 6f3612539c425da2bc1d34db621696e6a273b01c (patch) | |
| tree | 9623b3ac2c54a93e5eed3be2b1dda7f4e4bf0e47 /vms/gawkmisc.vms | |
| parent | 4e3701015635401df2fc4da58abaab7645f4ebd3 (diff) | |
| download | egawk-6f3612539c425da2bc1d34db621696e6a273b01c.tar.gz egawk-6f3612539c425da2bc1d34db621696e6a273b01c.tar.bz2 egawk-6f3612539c425da2bc1d34db621696e6a273b01c.zip | |
Bring latest byte code gawk into git. Hurray!
Diffstat (limited to 'vms/gawkmisc.vms')
| -rw-r--r-- | vms/gawkmisc.vms | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/vms/gawkmisc.vms b/vms/gawkmisc.vms index df5ded15..6f8fdaef 100644 --- a/vms/gawkmisc.vms +++ b/vms/gawkmisc.vms @@ -169,3 +169,14 @@ int fd; /* no-op */ return; } + +/* files_are_same --- deal with VMS struct stat */ + +int +files_are_same(struct stat *f1, struct stat *f2) +{ + return (strcmp(f1->st_dev, f2->st_dev) == 0 + && f1->st_ino[0] == f2->st_ino[0] + && f1->st_ino[1] == f2->st_ino[1] + && f1->st_ino[2] == f2->st_ino[2]); +} |