blob: 0513e34c6d3240391586b79b461814ab2759c4b6 (
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
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
|
# Functions for opening and closing file descriptors
#
# Copyright (C) 2013 Patrick "P. J." McDermott
#
# This file is part of the ProteanOS Development Kit.
#
# The ProteanOS Development Kit is free software: you can redistribute
# it and/or modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation, either version 3 of the
# License, or (at your option) any later version.
#
# The ProteanOS Development Kit is distributed in the hope that it
# will be useful, but WITHOUT ANY WARRANTY; without even the implied
# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
# See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with the ProteanOS Development Kit program. If not, see
# <http://www.gnu.org/licenses/>.
[ "x${_FD_SM+set}" = 'xset' ] && return 0
_FD_SM=1
use output
use locale
_FD_MIN=3
# Shells and the file descriptors they reserve for the user:
# * Debian Almquist Shell
# - The shell doesn't understand any file descriptor greater than 9.
# - File descriptors starting at 10 are used for I/O redirection.
# * BusyBox ash
# - File descriptors starting at 10 are used for job control and I/O
# redirection.
# * GNU Bash:
# - GNU Readline uses file descriptor 255 in interactive shells.
# - File descriptors starting at 10 are used for I/O redirection.
# * MirOS Korn Shell
# - File descriptors starting at either 10 or 24 are used for the shell's
# tty_fd and shl_dbg_fd.
# * Solaris ksh
# - The shell doesn't understand any file descriptor greater than 9.
_FD_MAX=9
FD=
fopen()
{
local path="${1}"
local mode="${2}"
local i=
local fd=
case "${mode}" in
'r') mode='<' ;;
'w') mode='>' ;;
'a') mode='>>';;
'rw') mode='<>';;
*) return 125;;
esac
# Find first available file descriptor.
i=${_FD_MIN}
while [ ${i} -le ${_FD_MAX} ]; do
if [ "x$(eval echo "\${_fd_${i}+set}")" != 'xset' ]; then
fd=${i}
break
fi
i=$(($i + 1))
done
if [ "x${fd:+set}" != 'xset' ]; then
error 2 "$(get_msg 'emfile')"
return
fi
if eval "exec ${fd}${mode}'${path}'"; then
eval "_fd_${fd}='${mode}${path}'"
FD="${fd}"
return 0
else
error 2 "$(get_msg 'cant_fopen')"
fi
}
fclose()
{
local fd="${1}"
# Make sure the file descriptor is open.
if [ "x$(eval echo "\${_fd_${fd}+set}")" != 'xset' ]; then
error 2 "$(get_msg 'ebadf')"
fi
eval "exec ${fd}>&-"
unset "_fd_${fd}"
return 0
}
|
