paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

Try to improve system error check script

Browse Source 
git-svn-id: trunk@21633 -
This commit is contained in:
pierre 2012-06-17 14:47:26 +00:00
parent b1b96529ec
commit cd0522189c
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/unix/scripts/check_errno.sh
View File

@ -64,7 +64,7 @@ fi
# You should only need to change the variables above
sed -n "s:^[[:space:]]*${fpc_errno_prefix}\\([_a-zA-Z0-9]*\\)[[:space:]]*=[[:space:]]*\\([0-9][0-9]*\\).*:check_errno_number ${errno_prefix}\1 \2:p" ${errno_include} > check_errno_list.sh
sed -n "s:#define[[:space:]]*${errno_prefix}\\([_a-zA-Z0-9]*\\)[[:space:]][[:space:]]*\\(-*[0-9A-Za-z_]*\\).*:check_reverse_errno_number ${fpc_errno_prefix}\1 \2:p" ${errno_header} > check_reverse_errno_list.sh
sed -n "s:#define[[:space:]]*${errno_prefix}\\([_a-zA-Z0-9]*\\)[[:space:]][[:space:]]*\\(-*[0-9A-Za-z_]*\\)[[:space:]]*\(.*\):check_reverse_errno_number ${fpc_errno_prefix}\1 \2 \"\3\":p" ${errno_header} > check_reverse_errno_list.sh
function check_errno_number ()
{
@ -113,13 +113,16 @@ function check_reverse_errno_number ()
errname=$1
errvalue=$2
found=`grep -i -w $1 ${errno_include}`
comment="$3"
comment=${comment##*\/\*}
comment=${comment%%*\*\/}
if [ "${found}" == "" ] ; then
echo "Error ${errname}, value ${errvalue}, not in ${errno_include} file"
if [ $addtoerrno -eq 0 ] ; then
addtoerrno=1
echo "{ List of missing system error number found in $errno_header }" > $errnonew
fi
echo " $errname = $errvalue;" >> $errnonew
echo " $errname = $errvalue; { $comment }" >> $errnonew
fi
}