gentoo-x86/eclass/portability.eclass

# Copyright 1999-2011 Gentoo Foundation
# Distributed under the terms of the GNU General Public License v2
# $Header: /var/cvsroot/gentoo-x86/eclass/portability.eclass,v 1.23 2011/12/27 17:55:12 fauli Exp $
#
# Author: Diego Pettenò <flameeyes@gentoo.org>
#
# This eclass is created to avoid using non-portable GNUisms inside ebuilds
#
# NB:  If you add anything, please comment it!

if [[ ${___ECLASS_ONCE_PORTABILITY} != "recur -_+^+_- spank" ]] ; then
___ECLASS_ONCE_PORTABILITY="recur -_+^+_- spank"

# treecopy orig1 orig2 orig3 .... dest
#
# mimic cp --parents copy, but working on BSD userland as well
treecopy() {
        local dest=${!#}
        local files_count=$#

        while (( $# > 1 )); do
                local dirstruct=$(dirname "$1")
                mkdir -p "${dest}/${dirstruct}"
                cp -pPR "$1" "${dest}/${dirstruct}"

                shift
        done
}

# seq min max
#
# compatibility function that mimes seq command if not available
seq() {
        # First try `seq`
        local p=$(type -P seq)
        if [[ -n ${p} ]] ; then
                "${p}" "$@"
                return $?
        fi

        local min max step
        case $# in
                1) min=1  max=$1 step=1  ;;
                2) min=$1 max=$2 step=1  ;;
                3) min=$1 max=$3 step=$2 ;;
                *) die "seq called with wrong number of arguments" ;;
        esac

        # Then try `jot`
        p=$(type -P jot)
        if [[ -n ${p} ]] ; then
                local reps
                # BSD userland
                if [[ ${step} != 0 ]] ; then
                        reps=$(( (max - min) / step + 1 ))
                else
                        reps=0
                fi

                jot $reps $min $max $step
                return $?
        fi

        # Screw it, do the output ourselves
        while :; do
                [[ $max < $min && $step > 0 ]] && break
                [[ $min < $max && $step < 0 ]] && break
                echo $min
                : $(( min += step ))
        done
        return 0
}

# Gets the linker flag to link to dlopen() function
dlopen_lib() {
        # - Solaris needs nothing
        # - Darwin needs nothing
        # - *BSD needs nothing
        # - Linux needs -ldl (glibc and uclibc)
        # - Interix needs -ldl
        case "${CHOST}" in
                *-linux-gnu*|*-linux-uclibc|*-interix*)
                        echo "-ldl"
                ;;
        esac
}

# Gets the name of the BSD-ish make command (pmake from NetBSD)
#
# This will return make (provided by system packages) for BSD userlands,
# or bsdmake for Darwin userlands and pmake for the rest of userlands,
# both of which are provided by sys-devel/pmake package.
#
# Note: the bsdmake for Darwin userland is with compatibility with MacOSX
# default name.
get_bmake() {
        if [[ ${USERLAND} == *BSD ]]; then
                echo make
        elif [[ ${USERLAND} == "Darwin" ]]; then
                echo bsdmake
        else
                echo pmake
        fi
}

# Portable method of getting mount names and points.
# Returns as "point node fs options"
# Remember to convert 040 back to a space.
get_mounts() {
        local point= node= fs= opts= foo=

        # Linux has /proc/mounts which should always exist
        if [[ $(uname -s) == "Linux" ]] ; then
                while read node point fs opts foo ; do
                        echo "${point} ${node} ${fs} ${opts}"
                done < /proc/mounts
                return
        fi

        # OK, pray we have a -p option that outputs mounts in fstab format
        # using tabs as the seperator.
        # Then pray that there are no tabs in the either.
        # Currently only FreeBSD supports this and the other BSDs will
        # have to be patched.
        # Athough the BSD's may support /proc, they do NOT put \040 in place
        # of the spaces and we should not force a /proc either.
        local IFS=$'\t'
        LC_ALL=C mount -p | while read node point fs foo ; do
                opts=${fs#* }
                fs=${fs%% *}
                echo "${point// /\040} ${node// /\040} ${fs%% *} ${opts// /\040}"
        done
}

_dead_portability_user_funcs() { die "if you really need this, please file a bug for base-system@gentoo.org"; }
is-login-disabled() { _dead_portability_user_funcs; }

fi
1	# Copyright 1999-2011 Gentoo Foundation
2	# Distributed under the terms of the GNU General Public License v2
3	# $Header: /var/cvsroot/gentoo-x86/eclass/portability.eclass,v 1.23 2011/12/27 17:55:12 fauli Exp $
4	#
5	# Author: Diego Pettenò <flameeyes@gentoo.org>
6	#
7	# This eclass is created to avoid using non-portable GNUisms inside ebuilds
8	#
9	# NB: If you add anything, please comment it!
10
11	if [[ ${___ECLASS_ONCE_PORTABILITY} != "recur -_+^+_- spank" ]] ; then
12	___ECLASS_ONCE_PORTABILITY="recur -_+^+_- spank"
13
14	# treecopy orig1 orig2 orig3 .... dest
15	#
16	# mimic cp --parents copy, but working on BSD userland as well
17	treecopy() {
18	local dest=${!#}
19	local files_count=$#
20
21	while (( $# > 1 )); do
22	local dirstruct=$(dirname "$1")
23	mkdir -p "${dest}/${dirstruct}"
24	cp -pPR "$1" "${dest}/${dirstruct}"
25
26	shift
27	done
28	}
29
30	# seq min max
31	#
32	# compatibility function that mimes seq command if not available
33	seq() {
34	# First try `seq`
35	local p=$(type -P seq)
36	if [[ -n ${p} ]] ; then
37	"${p}" "$@"
38	return $?
39	fi
40
41	local min max step
42	case $# in
43	1) min=1 max=$1 step=1 ;;
44	2) min=$1 max=$2 step=1 ;;
45	3) min=$1 max=$3 step=$2 ;;
46	*) die "seq called with wrong number of arguments" ;;
47	esac
48
49	# Then try `jot`
50	p=$(type -P jot)
51	if [[ -n ${p} ]] ; then
52	local reps
53	# BSD userland
54	if [[ ${step} != 0 ]] ; then
55	reps=$(( (max - min) / step + 1 ))
56	else
57	reps=0
58	fi
59
60	jot $reps $min $max $step
61	return $?
62	fi
63
64	# Screw it, do the output ourselves
65	while :; do
66	[[ $max < $min && $step > 0 ]] && break
67	[[ $min < $max && $step < 0 ]] && break
68	echo $min
69	: $(( min += step ))
70	done
71	return 0
72	}
73
74	# Gets the linker flag to link to dlopen() function
75	dlopen_lib() {
76	# - Solaris needs nothing
77	# - Darwin needs nothing
78	# - *BSD needs nothing
79	# - Linux needs -ldl (glibc and uclibc)
80	# - Interix needs -ldl
81	case "${CHOST}" in
82	-linux-gnu\|-linux-uclibc\|-interix*)
83	echo "-ldl"
84	;;
85	esac
86	}
87
88	# Gets the name of the BSD-ish make command (pmake from NetBSD)
89	#
90	# This will return make (provided by system packages) for BSD userlands,
91	# or bsdmake for Darwin userlands and pmake for the rest of userlands,
92	# both of which are provided by sys-devel/pmake package.
93	#
94	# Note: the bsdmake for Darwin userland is with compatibility with MacOSX
95	# default name.
96	get_bmake() {
97	if [[ ${USERLAND} == *BSD ]]; then
98	echo make
99	elif [[ ${USERLAND} == "Darwin" ]]; then
100	echo bsdmake
101	else
102	echo pmake
103	fi
104	}
105
106	# Portable method of getting mount names and points.
107	# Returns as "point node fs options"
108	# Remember to convert 040 back to a space.
109	get_mounts() {
110	local point= node= fs= opts= foo=
111
112	# Linux has /proc/mounts which should always exist
113	if [[ $(uname -s) == "Linux" ]] ; then
114	while read node point fs opts foo ; do
115	echo "${point} ${node} ${fs} ${opts}"
116	done < /proc/mounts
117	return
118	fi
119
120	# OK, pray we have a -p option that outputs mounts in fstab format
121	# using tabs as the seperator.
122	# Then pray that there are no tabs in the either.
123	# Currently only FreeBSD supports this and the other BSDs will
124	# have to be patched.
125	# Athough the BSD's may support /proc, they do NOT put \040 in place
126	# of the spaces and we should not force a /proc either.
127	local IFS=$'\t'
128	LC_ALL=C mount -p \| while read node point fs foo ; do
129	opts=${fs#* }
130	fs=${fs%% *}
131	echo "${point// /\040} ${node// /\040} ${fs%% *} ${opts// /\040}"
132	done
133	}
134
135	_dead_portability_user_funcs() { die "if you really need this, please file a bug for base-system@gentoo.org"; }
136	is-login-disabled() { _dead_portability_user_funcs; }
137
138	fi