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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
# Written by Aleksey Cheusov <vle@gmx.net>, public domain
#
# This awk module is a part of RunAWK distribution,
# http://sourceforge.net/projects/runawk
#
############################################################
# =head2 io.awk
#
# This module provides a number of IO functions.
#
# =over 2
#
# =item I<is_file(FILENAME)>
#
# returns 1 if the specified FILENAME
# is a regular file or 0 otherwise.
#
# =item I<is_socket(FILENAME)>
#
# returns 1 if the specified FILENAME
# is a socket or 0 otherwise.
#
# =item I<is_dir(FILENAME)>
#
# returns 1 if the specified FILENAME
# is a dir or 0 otherwise.
#
# =item I<is_exec(FILENAME)>
#
# returns 1 if the specified FILENAME
# is executable or 0 otherwise.
#
# =item I<is_fifo(FILENAME)>
#
# returns 1 if the specified FILENAME
# is a FIFO or 0 otherwise.
#
# =item I<is_blockdev(FILENAME)>
#
# returns 1 if the specified FILENAME
# is a block special file or 0 otherwise.
#
# =item I<is_chardev(FILENAME)>
#
# returns 1 if the specified FILENAME
# is a character special file or 0 otherwise.
#
# =item I<is_symlink(FILENAME)>
#
# returns 1 if the specified FILENAME
# is a symlink or 0 otherwise.
#
# =item I<file_size(FILENAME, USE_STAT_NOT_LSTAT)>
#
# returns the size of the specified FILENAME.
# If USE_STAT_NOT_LSTAT is True, stat(2) is used instead of lstat(2).
#
# Return value:
# -2 if file doesn't exist
# -1 if file is not a regular file
# filesize otherwise
#
# =item I<file_type(FILENAME, USE_STAT_NOT_LSTAT)>
#
# returns a single letter that corrspond to the file
# type. If USE_STAT_NOT_LSTAT is True, stat(2) is used instead of lstat(2).
#
# Return value:
# - -- regular file
# d -- directory
# c -- character device
# b -- block device
# p -- FIFO
# l -- symlink
# s -- socket
#
# =back
#
# See example/demo_io for the sample of usage
#
#use "shquote.awk"
function is_file (fn){
return !system("test -f " shquote(fn))
}
function is_socket (fn){
return !system("test -S " shquote(fn))
}
function is_dir (fn){
return !system("test -d " shquote(fn))
}
function is_exec (fn){
return !system("test -x " shquote(fn))
}
function is_fifo (fn){
return !system("test -p " shquote(fn))
}
function is_blockdev (fn){
return !system("test -b " shquote(fn))
}
function is_chardev (fn){
return !system("test -c " shquote(fn))
}
function is_symlink (fn){
return !system("test -h " shquote(fn))
}
function file_size (fn, stat, d0,arr,cmd){
cmd = "ls -ld " (stat ? "-L " : "") shquote(fn) " 2>/dev/null"
if (0 < (cmd | getline d0)){
close(cmd)
if (d0 ~ /^-/){
split(d0, arr, " ")
return arr [5]
}else{
return -1;
}
}else{
close(cmd)
return -2
}
}
function file_type (fn, stat, d0,cmd){
cmd = "ls -ld " (stat ? "-L " : "") shquote(fn) " 2>/dev/null"
if (0 < (cmd | getline d0)){
close(cmd)
return substr(d0, 1, 1)
}else{
close(cmd)
return ""
}
}
|
