gentoo-x86/eclass/cvs.eclass

# Copyright 1999-2004 Gentoo Foundation
# Distributed under the terms of the GNU General Public License v2
# $Header: /var/cvsroot/gentoo-x86/eclass/cvs.eclass,v 1.53 2004/10/19 19:51:12 vapier Exp $

# Current Maintainer: Tal Peer <coredumb@gentoo.org>
# Original Author:    Dan Armak <danarmak@gentoo.org>

# SSH auth code by Danny <danny.milo@gmx.net>

# SSH password authentication support and host key verification
# support by Jeremy Maitin-Shepard <jbms@gentoo.org>


# This eclass provides the generic cvs fetching functions.  To use
# this from an ebuild, set the `ebuild-configurable settings' as
# specified below in your ebuild before inheriting.  Then either leave
# the default src_unpack or extend over cvs_src_unpack.  If you find
# that you need to call the cvs_* functions directly, I'd be
# interested to hear about it.

# TODO:

# Implement more auth types (gserver?, kserver?)

# Support additional remote shells with `ext' authentication (does
# anyone actually need to use it with anything other than SSH?)


ECLASS=cvs
INHERITED="$INHERITED $ECLASS"

# Users shouldn't change these settings!  The ebuild/eclass inheriting
# this eclass will take care of that.  If you want to set the global
# KDE cvs ebuilds' settings, see the comments in kde-source.eclass.

# --- begin ebuild-configurable settings

# ECVS_CVS_COMMAND -- CVS command to run
#
# You can set, for example, "cvs -t" for extensive debug information
# on the cvs connection.  The default of "cvs -q -f -z4" means to be
# quiet, to disregard the ~/.cvsrc config file and to use maximum
# compression.

[ -z "$ECVS_CVS_COMMAND" ] && ECVS_CVS_COMMAND="cvs -q -f -z4"


# ECVS_UP_OPTS, ECVS_CO_OPTS -- CVS options given after the cvs
# command (update or checkout).
#
# Don't remove -dP from update or things won't work.

[ -z "$ECVS_UP_OPTS" ] && ECVS_UP_OPTS="-dP"
[ -z "$ECVS_CO_OPTS" ] && ECVS_CO_OPTS=""


# ECVS_LOCAL -- If this is set, the CVS module will be fetched
# non-recursively.  Refer to the information in the CVS man page
# regarding the -l command option (not the -l global option).


# ECVS_LOCALNAME -- local name of checkout directory
#
# This is useful if the module on the server is called something
# common like 'driver' or is nested deep in a tree, and you don't like
# useless empty directories.
#
# WARNING: Set this only from within ebuilds!  If set in your shell or
# some such, things will break because the ebuild won't expect it and
# have e.g. a wrong $S setting.


# ECVS_TOP_DIR -- The directory under which CVS modules are checked
# out.

[ -z "$ECVS_TOP_DIR" ] && ECVS_TOP_DIR="${DISTDIR}/cvs-src"

# ECVS_NAME -- CVS path
#
# The format is "server:/dir", e.g. "anoncvs.kde.org:/home/kde".
# Remove the other parts of the full CVSROOT, which might look like
# ":pserver:anonymous@anoncvs.kde.org:/home/kde"; this is generated
# using other settings also.
#
# Set this to "offline" to disable fetching (i.e. to assume the module
# is already checked out in ECVS_TOP_DIR).

[ -z "$ECVS_SERVER" ] && ECVS_SERVER="offline"


# ECVS_MODULE -- the name of the CVS module to be fetched
#
# This must be set when cvs_src_unpack is called.  This can include
# several directory levels, i.e. "foo/bar/baz"

#[ -z "$ECVS_MODULE" ] && die "$ECLASS: error: ECVS_MODULE not set, cannot continue"


# ECVS_BRANCH -- the name of the branch/tag to use

# The default is "HEAD".  The following default _will_ reset your
# branch checkout to head if used.

#[ -z "$ECVS_BRANCH" ] && ECVS_BRANCH="HEAD"


# ECVS_AUTH -- authentication method to use
#
# Possible values are "pserver" and "ext".  If `ext' authentication is
# used, the remote shell to use can be specified in CVS_RSH (SSH is
# used by default).  Currently, the only supported remote shell for
# `ext' authentication is SSH.
#
# Armando Di Cianno <fafhrd@gentoo.org> 2004/09/27
# - Added "no" as a server type, which uses no AUTH method, nor
#    does it login
#  e.g.
#   "cvs -danoncvs@savannah.gnu.org:/cvsroot/backbone co System"
#   ( from gnustep-apps/textedit )
[ -z "$ECVS_AUTH" ] && ECVS_AUTH="pserver"

# ECVS_USER -- Username to use for authentication on the remote server
[ -z "$ECVS_USER" ] && ECVS_USER="anonymous"


# ECVS_PASS -- Password to use for authentication on the remote server
[ -z "$ECVS_PASS" ] && ECVS_PASS=""


# ECVS_SSH_HOST_KEY
#
# If SSH is used for `ext' authentication, use this variable to
# specify the host key of the remote server.  The format of the value
# should be the same format that is used for the SSH known hosts file.
#
# WARNING: If a SSH host key is not specified using this variable, the
# remote host key will not be verified.


# ECVS_CLEAN -- Set this to get a clean copy when updating (passes the
# -C option to cvs update)


# ECVS_RUNAS
#
# Specifies an alternate (non-root) user to use to run cvs.  Currently
# b0rked and wouldn't work with portage userpriv anyway without
# special magic.

# [ -z "$ECVS_RUNAS" ] && ECVS_RUNAS="`whoami`"


# ECVS_SUBDIR -- deprecated, do not use
[ -n "$ECVS_SUBDIR" ] && die "ERROR: deprecated ECVS_SUBDIR defined. Please fix this ebuild."


# --- end ebuild-configurable settings ---

# add cvs to deps
# ssh is used for ext auth
# sudo is used to run as a specified user
DEPEND="$DEPEND dev-util/cvs app-admin/sudo"

if [ "$ECVS_AUTH" == "ext" ]; then
        #default to ssh
        [ -z "$CVS_RSH" ] && export SSH_RSH="ssh"
        if [ "$CVS_RSH" != "ssh" ]; then
                die "Support for ext auth with clients other than ssh has not been implemented yet"
        fi
        DEPEND="$DEPEND net-misc/openssh"
fi

# called from cvs_src_unpack
cvs_fetch() {

        # Make these options local variables so that the global values are
        # not affected by modifications in this function.

        local ECVS_COMMAND="${ECVS_COMMAND}"
        local ECVS_UP_OPTS="${ECVS_UP_OPTS}"
        local ECVS_CO_OPTS="${ECVS_CO_OPTS}"

        # Fix for sourceforge which doesnt want -z>3 anymore.

        (echo $ECVS_SERVER | grep -q sourceforge) \
                && [ "$ECVS_CVS_COMMAND" == "cvs -q -f -z4" ] \
                && ECVS_CVS_COMMAND="cvs -q -f -z3"

        debug-print-function $FUNCNAME $*

        # Update variables that are modified by ebuild parameters, which
        # should be effective every time cvs_fetch is called, and not just
        # every time cvs.eclass is inherited


        # Handle parameter for local (non-recursive) fetching
        
        if [ -n "$ECVS_LOCAL" ]; then
                ECVS_UP_OPTS="$ECVS_UP_OPTS -l"
                ECVS_CO_OPTS="$ECVS_CO_OPTS -l"
        fi

        # Handle ECVS_BRANCH option
        # 
        # Because CVS auto-switches branches, we just have to pass the
        # correct -rBRANCH option when updating.

        if [ -n "$ECVS_BRANCH" ]; then
                ECVS_UP_OPTS="$ECVS_UP_OPTS -r$ECVS_BRANCH"
                ECVS_CO_OPTS="$ECVS_CO_OPTS -r$ECVS_BRANCH"
        fi

        # Handle ECVS_LOCALNAME, which specifies the local directory name
        # to use.  Note that the -d command option is not equivalent to
        # the global -d option.

        if [ "$ECVS_LOCALNAME" != "$ECVS_MODULE" ]; then
                ECVS_CO_OPTS="$ECVS_CO_OPTS -d $ECVS_LOCALNAME"
        fi


        if [ -n "$ECVS_CLEAN" ]; then
                ECVS_UP_OPTS="$ECVS_UP_OPTS -C"
        fi


        # It would be easiest to always be in "run-as mode", logic-wise,
        # if sudo didn't ask for a password even when sudo'ing to `whoami`.

        if [ -z "$ECVS_RUNAS" ]; then
                run=""
        else
                run="sudo -u $ECVS_RUNAS"
        fi

        # Create the top dir if needed

        if [ ! -d "$ECVS_TOP_DIR" ]; then

                # Note that the addwrite statements in this block are only
                # there to allow creating ECVS_TOP_DIR; we allow writing
                # inside it separately.

                # This is because it's simpler than trying to find out the
                # parent path of the directory, which would need to be the
                # real path and not a symlink for things to work (so we can't
                # just remove the last path element in the string)

                debug-print "$FUNCNAME: checkout mode. creating cvs directory"
                addwrite /foobar
                addwrite /
                $run mkdir -p "/$ECVS_TOP_DIR"
                export SANDBOX_WRITE="${SANDBOX_WRITE//:\/foobar:\/}"
        fi

        # In case ECVS_TOP_DIR is a symlink to a dir, get the real path,
        # otherwise addwrite() doesn't work.

        cd -P "$ECVS_TOP_DIR" > /dev/null
        ECVS_TOP_DIR="`/bin/pwd`"

        # Disable the sandbox for this dir
        addwrite "$ECVS_TOP_DIR"

        # Chown the directory and all of its contents
        if [ -n "$ECVS_RUNAS" ]; then
                $run chown -R "$ECVS_RUNAS" "/$ECVS_TOP_DIR"
        fi

        # Determine the CVS command mode (checkout or update)
        if [ ! -d "$ECVS_TOP_DIR/$ECVS_LOCALNAME/CVS" ]; then
                mode=checkout
        else
                mode=update
        fi


        # Our server string (i.e. CVSROOT) without the password so it can
        # be put in Root
        if [ "$ECVS_AUTH" == "no" ]
        then
                local server="${ECVS_USER}@${ECVS_SERVER}"
        else
                local server=":${ECVS_AUTH}:${ECVS_USER}@${ECVS_SERVER}"
        fi

        # Switch servers automagically if needed
        if [ "$mode" == "update" ]; then
                cd /$ECVS_TOP_DIR/$ECVS_LOCALNAME
                local oldserver="`$run cat CVS/Root`"
                if [ "$server" != "$oldserver" ]; then

                        einfo "Changing the CVS server from $oldserver to $server:"
                        debug-print "$FUNCNAME: Changing the CVS server from $oldserver to $server:"

                        einfo "Searching for CVS directories ..."
                        local cvsdirs="`$run find . -iname CVS -print`"
                        debug-print "$FUNCNAME: CVS directories found:"
                        debug-print "$cvsdirs"

                        einfo "Modifying CVS directories ..."
                        for x in $cvsdirs; do
                                debug-print "In $x"
                                $run echo "$server" > "$x/Root"
                        done

                fi
        fi

        # Prepare a cvspass file just for this session, we don't want to
        # mess with ~/.cvspass
        touch "${T}/cvspass"
        export CVS_PASSFILE="${T}/cvspass"
        if [ -n "$ECVS_RUNAS" ]; then
                chown "$ECVS_RUNAS" "${T}/cvspass"
        fi

        # The server string with the password in it, for login
        cvsroot_pass=":${ECVS_AUTH}:${ECVS_USER}:${ECVS_PASS}@${ECVS_SERVER}"

        # Ditto without the password, for checkout/update after login, so
        # that the CVS/Root files don't contain the password in plaintext
        if [ "$ECVS_AUTH" == "no" ]
        then
                cvsroot_nopass="${ECVS_USER}@${ECVS_SERVER}"
        else
                cvsroot_nopass=":${ECVS_AUTH}:${ECVS_USER}@${ECVS_SERVER}"
        fi

        # Commands to run
        cmdlogin="${run} ${ECVS_CVS_COMMAND} -d \"${cvsroot_pass}\" login"
        cmdupdate="${run} ${ECVS_CVS_COMMAND} -d \"${cvsroot_nopass}\" update ${ECVS_UP_OPTS} ${ECVS_LOCALNAME}"
        cmdcheckout="${run} ${ECVS_CVS_COMMAND} -d \"${cvsroot_nopass}\" checkout ${ECVS_CO_OPTS} ${ECVS_MODULE}"

        # Execute commands

        cd "${ECVS_TOP_DIR}"
        if [ "${ECVS_AUTH}" == "pserver" ]; then
                einfo "Running $cmdlogin"
                eval $cmdlogin || die "cvs login command failed"
                if [ "${mode}" == "update" ]; then
                        einfo "Running $cmdupdate"
                        eval $cmdupdate || die "cvs update command failed"
                elif [ "${mode}" == "checkout" ]; then
                        einfo "Running $cmdcheckout" 
                        eval $cmdcheckout|| die "cvs checkout command failed"
                fi
        elif [ "${ECVS_AUTH}" == "ext" ] || [ "${ECVS_AUTH}" == "no" ]; then

                # Hack to support SSH password authentication

                # Backup environment variable values
                local CVS_ECLASS_ORIG_CVS_RSH="${CVS_RSH}"

                if [ "${SSH_ASKPASS+set}" == "set" ]; then
                        local CVS_ECLASS_ORIG_SSH_ASKPASS="${SSH_ASKPASS}"
                else
                        unset CVS_ECLASS_ORIG_SSH_ASKPASS
                fi

                if [ "${DISPLAY+set}" == "set" ]; then
                        local CVS_ECLASS_ORIG_DISPLAY="${DISPLAY}"
                else
                        unset CVS_ECLASS_ORIG_DISPLAY
                fi

                if [ "${CVS_RSH}" == "ssh" ]; then

                        # Force SSH to use SSH_ASKPASS by creating python wrapper

                        export CVS_RSH="${T}/cvs_sshwrapper"
                        cat > "${CVS_RSH}"<<EOF
#!/usr/bin/python
import fcntl
import os
import sys
try:
        fd = os.open('/dev/tty', 2)
        TIOCNOTTY=0x5422
        try:
                fcntl.ioctl(fd, TIOCNOTTY)
        except:
                pass
        os.close(fd)
except:
        pass
newarglist = sys.argv[:]
EOF

                        # disable X11 forwarding which causes .xauth access violations
                        # - 20041205 Armando Di Cianno <fafhrd@gentoo.org>
                        echo "newarglist.insert(1, '-oClearAllForwardings=yes')" \
                                >> "${CVS_RSH}"
                        echo "newarglist.insert(1, '-oForwardX11=no')" \
                                >> "${CVS_RSH}"

                        # Handle SSH host key checking

                        local CVS_ECLASS_KNOWN_HOSTS="${T}/cvs_ssh_known_hosts"
                        echo "newarglist.insert(1, '-oUserKnownHostsFile=${CVS_ECLASS_KNOWN_HOSTS}')" \
                                >> "${CVS_RSH}"

                        if [ -z "${ECVS_SSH_HOST_KEY}" ]; then
                                ewarn "Warning: The SSH host key of the remote server will not be verified."
                                einfo "A temporary known hosts list will be used."
                                local CVS_ECLASS_STRICT_HOST_CHECKING="no"
                                touch "${CVS_ECLASS_KNOWN_HOSTS}"
                        else
                                local CVS_ECLASS_STRICT_HOST_CHECKING="yes"
                                echo "${ECVS_SSH_HOST_KEY}" > "${CVS_ECLASS_KNOWN_HOSTS}"
                        fi

                        echo -n "newarglist.insert(1, '-oStrictHostKeyChecking=" \
                                >> "${CVS_RSH}"
                        echo "${CVS_ECLASS_STRICT_HOST_CHECKING}')" \
                                >> "${CVS_RSH}"
                        echo "os.execv('/usr/bin/ssh', newarglist)" \
                                >> "${CVS_RSH}"

            chmod a+x "${CVS_RSH}"

                        # Make sure DISPLAY is set (SSH will not use SSH_ASKPASS
                        # if DISPLAY is not set)

                        [ -z "${DISPLAY}" ] && DISPLAY="DISPLAY"
                        export DISPLAY

                        # Create a dummy executable to echo $ECVS_PASS

            export SSH_ASKPASS="${T}/cvs_sshechopass"
                        if [ "${ECVS_AUTH}" != "no" ]; then
                                echo -en "#!/bin/bash\necho \"$ECVS_PASS\"\n" \
                                        > "${SSH_ASKPASS}"
                        else
                                echo -en "#!/bin/bash\nreturn\n" \
                                        > "${SSH_ASKPASS}"

                        fi
                        chmod a+x "${SSH_ASKPASS}"
                fi
            
                if [ "${mode}" == "update" ]; then
                        einfo "Running $cmdupdate"
                        eval $cmdupdate || die "cvs update command failed"
                elif [ "${mode}" == "checkout" ]; then
                        einfo "Running $cmdcheckout" 
                        eval $cmdcheckout|| die "cvs checkout command failed"
                fi
                
                # Restore environment variable values
                export CVS_RSH="${CVS_ECLASS_ORIG_CVS_RSH}"
                if [ "${CVS_ECLASS_ORIG_SSH_ASKPASS+set}" == "set" ]; then
                        export SSH_ASKPASS="${CVS_ECLASS_ORIG_SSH_ASKPASS}"
                else
                        unset SSH_ASKPASS
                fi

                if [ "${CVS_ECLASS_ORIG_DISPLAY+set}" == "set" ]; then
                        export DISPLAY="${CVS_ECLASS_ORIG_DISPLAY}"
                else
                        unset DISPLAY
                fi
        fi

        # Restore ownership.  Not sure why this is needed, but someone
        # added it in the orig ECVS_RUNAS stuff.
        if [ -n "$ECVS_RUNAS" ]; then
                chown `whoami` "${T}/cvspass"
        fi

}


cvs_src_unpack() {

        debug-print-function $FUNCNAME $*

        debug-print "$FUNCNAME: init:
        ECVS_CVS_COMMAND=$ECVS_CVS_COMMAND
        ECVS_UP_OPTS=$ECVS_UP_OPTS
        ECVS_CO_OPTS=$ECVS_CO_OPTS
        ECVS_TOP_DIR=$ECVS_TOP_DIR
        ECVS_SERVER=$ECVS_SERVER
        ECVS_USER=$ECVS_USER
        ECVS_PASS=$ECVS_PASS
        ECVS_MODULE=$ECVS_MODULE
        ECVS_LOCAL=$ECVS_LOCAL
        ECVS_RUNAS=$ECVS_RUNAS
        ECVS_LOCALNAME=$ECVS_LOCALNAME"

        [ -z "$ECVS_MODULE" ] && die "ERROR: CVS module not set, cannot continue."

        local ECVS_LOCALNAME="${ECVS_LOCALNAME}"

        if [ -z "$ECVS_LOCALNAME" ]; then
            ECVS_LOCALNAME="$ECVS_MODULE"
        fi

        if [ "$ECVS_SERVER" == "offline" ]; then
                # We're not required to fetch anything; the module already
                # exists and shouldn't be updated.
                if [ -d "${ECVS_TOP_DIR}/${ECVS_LOCALNAME}" ]; then
                        debug-print "$FUNCNAME: offline mode"
                else
                        debug-print "$FUNCNAME: Offline mode specified but directory ${ECVS_TOP_DIR}/${ECVS_LOCALNAME} not found, exiting with error"
                        die "ERROR: Offline mode specified, but directory ${ECVS_TOP_DIR}/${ECVS_LOCALNAME} not found. Aborting."
                fi
        elif [ -n "$ECVS_SERVER" ]; then # ECVS_SERVER!=offline --> real fetching mode
                einfo "Fetching CVS module $ECVS_MODULE into $ECVS_TOP_DIR ..."
                cvs_fetch
        else # ECVS_SERVER not set
                die "ERROR: CVS server not specified, cannot continue."
        fi

        einfo "Copying $ECVS_MODULE from $ECVS_TOP_DIR ..."
        debug-print "Copying module $ECVS_MODULE local_mode=$ECVS_LOCAL from $ECVS_TOP_DIR ..."

        # This is probably redundant, but best to make sure.
        mkdir -p "$WORKDIR/$ECVS_LOCALNAME"

        if [ -n "$ECVS_LOCAL" ]; then
                cp -f "$ECVS_TOP_DIR/$ECVS_LOCALNAME"/* "$WORKDIR/$ECVS_LOCALNAME"
        else
                cp -Rf "$ECVS_TOP_DIR/$ECVS_LOCALNAME" "$WORKDIR/$ECVS_LOCALNAME/.."
        fi

        # If the directory is empty, remove it; empty directories cannot
        # exist in cvs.  This happens when, for example, kde-source
        # requests module/doc/subdir which doesn't exist.  Still create
        # the empty directory in workdir though.
        if [ "`ls -A \"${ECVS_TOP_DIR}/${ECVS_LOCALNAME}\"`" == "CVS" ]; then
                debug-print "$FUNCNAME: removing empty CVS directory $ECVS_LOCALNAME"
                rm -rf "${ECVS_TOP_DIR}/${ECVS_LOCALNAME}"
        fi

        # Implement some of base_src_unpack's functionality; note however
        # that base.eclass may not have been inherited!
        if [ -n "$PATCHES" ]; then
                debug-print "$FUNCNAME: PATCHES=$PATCHES, S=$S, autopatching"
                cd "$S"
                for x in $PATCHES; do
                        debug-print "patching from $x"
                        patch -p0 < "$x"
                done
                # Make sure we don't try to apply patches more than once,
                # since cvs_src_unpack is usually called several times from
                # e.g. kde-source_src_unpack
                export PATCHES=""
        fi
        
        einfo "CVS module ${ECVS_MODULE} is now in ${WORKDIR}"
}

EXPORT_FUNCTIONS src_unpack
1	vapier	1.51	# Copyright 1999-2004 Gentoo Foundation
2	vapier	1.22	# Distributed under the terms of the GNU General Public License v2
3	fafhrd	1.54	# $Header: /var/cvsroot/gentoo-x86/eclass/cvs.eclass,v 1.53 2004/10/19 19:51:12 vapier Exp $
4	coredumb	1.50
5	coredumb	1.47	# Current Maintainer: Tal Peer <coredumb@gentoo.org>
6			# Original Author: Dan Armak <danarmak@gentoo.org>
7	coredumb	1.50
8	coredumb	1.47	# SSH auth code by Danny <danny.milo@gmx.net>
9	coredumb	1.50
10			# SSH password authentication support and host key verification
11			# support by Jeremy Maitin-Shepard <jbms@gentoo.org>
12
13
14			# This eclass provides the generic cvs fetching functions. To use
15			# this from an ebuild, set the `ebuild-configurable settings' as
16			# specified below in your ebuild before inheriting. Then either leave
17			# the default src_unpack or extend over cvs_src_unpack. If you find
18			# that you need to call the cvs_* functions directly, I'd be
19			# interested to hear about it.
20	danarmak	1.1
21	coredumb	1.47	# TODO:
22	coredumb	1.50
23	coredumb	1.47	# Implement more auth types (gserver?, kserver?)
24	coredumb	1.50
25			# Support additional remote shells with `ext' authentication (does
26			# anyone actually need to use it with anything other than SSH?)
27
28	coredumb	1.47
29	danarmak	1.1	ECLASS=cvs
30			INHERITED="$INHERITED $ECLASS"
31
32	coredumb	1.50	# Users shouldn't change these settings! The ebuild/eclass inheriting
33			# this eclass will take care of that. If you want to set the global
34			# KDE cvs ebuilds' settings, see the comments in kde-source.eclass.
35	danarmak	1.1
36			# --- begin ebuild-configurable settings
37
38	coredumb	1.50	# ECVS_CVS_COMMAND -- CVS command to run
39			#
40			# You can set, for example, "cvs -t" for extensive debug information
41			# on the cvs connection. The default of "cvs -q -f -z4" means to be
42			# quiet, to disregard the ~/.cvsrc config file and to use maximum
43			# compression.
44
45	danarmak	1.8	[ -z "$ECVS_CVS_COMMAND" ] && ECVS_CVS_COMMAND="cvs -q -f -z4"
46	danarmak	1.1
47	coredumb	1.50
48			# ECVS_UP_OPTS, ECVS_CO_OPTS -- CVS options given after the cvs
49			# command (update or checkout).
50			#
51			# Don't remove -dP from update or things won't work.
52
53	danarmak	1.36	[ -z "$ECVS_UP_OPTS" ] && ECVS_UP_OPTS="-dP"
54			[ -z "$ECVS_CO_OPTS" ] && ECVS_CO_OPTS=""
55	danarmak	1.7
56
57	coredumb	1.50	# ECVS_LOCAL -- If this is set, the CVS module will be fetched
58			# non-recursively. Refer to the information in the CVS man page
59			# regarding the -l command option (not the -l global option).
60
61
62			# ECVS_LOCALNAME -- local name of checkout directory
63			#
64			# This is useful if the module on the server is called something
65			# common like 'driver' or is nested deep in a tree, and you don't like
66			# useless empty directories.
67			#
68			# WARNING: Set this only from within ebuilds! If set in your shell or
69			# some such, things will break because the ebuild won't expect it and
70			# have e.g. a wrong $S setting.
71
72
73			# ECVS_TOP_DIR -- The directory under which CVS modules are checked
74			# out.
75	danarmak	1.43
76	danarmak	1.14	[ -z "$ECVS_TOP_DIR" ] && ECVS_TOP_DIR="${DISTDIR}/cvs-src"
77	danarmak	1.1
78	coredumb	1.50	# ECVS_NAME -- CVS path
79			#
80			# The format is "server:/dir", e.g. "anoncvs.kde.org:/home/kde".
81			# Remove the other parts of the full CVSROOT, which might look like
82			# ":pserver:anonymous@anoncvs.kde.org:/home/kde"; this is generated
83			# using other settings also.
84			#
85			# Set this to "offline" to disable fetching (i.e. to assume the module
86			# is already checked out in ECVS_TOP_DIR).
87
88	danarmak	1.9	[ -z "$ECVS_SERVER" ] && ECVS_SERVER="offline"
89	danarmak	1.1
90	coredumb	1.50
91			# ECVS_MODULE -- the name of the CVS module to be fetched
92			#
93			# This must be set when cvs_src_unpack is called. This can include
94			# several directory levels, i.e. "foo/bar/baz"
95
96			#[ -z "$ECVS_MODULE" ] && die "$ECLASS: error: ECVS_MODULE not set, cannot continue"
97
98
99			# ECVS_BRANCH -- the name of the branch/tag to use
100
101			# The default is "HEAD". The following default _will_ reset your
102			# branch checkout to head if used.
103
104			#[ -z "$ECVS_BRANCH" ] && ECVS_BRANCH="HEAD"
105
106
107			# ECVS_AUTH -- authentication method to use
108			#
109			# Possible values are "pserver" and "ext". If `ext' authentication is
110			# used, the remote shell to use can be specified in CVS_RSH (SSH is
111			# used by default). Currently, the only supported remote shell for
112			# `ext' authentication is SSH.
113	fafhrd	1.52	#
114			# Armando Di Cianno <fafhrd@gentoo.org> 2004/09/27
115			# - Added "no" as a server type, which uses no AUTH method, nor
116			# does it login
117			# e.g.
118			# "cvs -danoncvs@savannah.gnu.org:/cvsroot/backbone co System"
119			# ( from gnustep-apps/textedit )
120	danarmak	1.36	[ -z "$ECVS_AUTH" ] && ECVS_AUTH="pserver"
121	phoenix	1.24
122	coredumb	1.50	# ECVS_USER -- Username to use for authentication on the remote server
123			[ -z "$ECVS_USER" ] && ECVS_USER="anonymous"
124	phoenix	1.24
125	danarmak	1.1
126	coredumb	1.50	# ECVS_PASS -- Password to use for authentication on the remote server
127	danarmak	1.1	[ -z "$ECVS_PASS" ] && ECVS_PASS=""
128
129
130	coredumb	1.50	# ECVS_SSH_HOST_KEY
131			#
132			# If SSH is used for `ext' authentication, use this variable to
133			# specify the host key of the remote server. The format of the value
134			# should be the same format that is used for the SSH known hosts file.
135			#
136			# WARNING: If a SSH host key is not specified using this variable, the
137			# remote host key will not be verified.
138
139
140			# ECVS_CLEAN -- Set this to get a clean copy when updating (passes the
141			# -C option to cvs update)
142
143
144			# ECVS_RUNAS
145			#
146			# Specifies an alternate (non-root) user to use to run cvs. Currently
147			# b0rked and wouldn't work with portage userpriv anyway without
148			# special magic.
149
150			# [ -z "$ECVS_RUNAS" ] && ECVS_RUNAS="`whoami`"
151
152	danarmak	1.14
153	coredumb	1.50	# ECVS_SUBDIR -- deprecated, do not use
154	danarmak	1.36	[ -n "$ECVS_SUBDIR" ] && die "ERROR: deprecated ECVS_SUBDIR defined. Please fix this ebuild."
155	danarmak	1.1
156	coredumb	1.48
157	danarmak	1.1	# --- end ebuild-configurable settings ---
158
159	danarmak	1.6	# add cvs to deps
160	danarmak	1.36	# ssh is used for ext auth
161			# sudo is used to run as a specified user
162			DEPEND="$DEPEND dev-util/cvs app-admin/sudo"
163	coredumb	1.47
164			if [ "$ECVS_AUTH" == "ext" ]; then
165			#default to ssh
166			[ -z "$CVS_RSH" ] && export SSH_RSH="ssh"
167			if [ "$CVS_RSH" != "ssh" ]; then
168			die "Support for ext auth with clients other than ssh has not been implemented yet"
169			fi
170			DEPEND="$DEPEND net-misc/openssh"
171			fi
172	danarmak	1.1
173	coredumb	1.50	# called from cvs_src_unpack
174	danarmak	1.1	cvs_fetch() {
175	torbenh	1.42
176	coredumb	1.50	# Make these options local variables so that the global values are
177			# not affected by modifications in this function.
178	torbenh	1.42
179	coredumb	1.50	local ECVS_COMMAND="${ECVS_COMMAND}"
180			local ECVS_UP_OPTS="${ECVS_UP_OPTS}"
181			local ECVS_CO_OPTS="${ECVS_CO_OPTS}"
182
183			# Fix for sourceforge which doesnt want -z>3 anymore.
184
185			(echo $ECVS_SERVER \| grep -q sourceforge) \
186			&& [ "$ECVS_CVS_COMMAND" == "cvs -q -f -z4" ] \
187			&& ECVS_CVS_COMMAND="cvs -q -f -z3"
188	danarmak	1.1
189			debug-print-function $FUNCNAME $*
190
191	coredumb	1.50	# Update variables that are modified by ebuild parameters, which
192			# should be effective every time cvs_fetch is called, and not just
193			# every time cvs.eclass is inherited
194
195
196			# Handle parameter for local (non-recursive) fetching
197
198	danarmak	1.36	if [ -n "$ECVS_LOCAL" ]; then
199			ECVS_UP_OPTS="$ECVS_UP_OPTS -l"
200			ECVS_CO_OPTS="$ECVS_CO_OPTS -l"
201			fi
202	coredumb	1.50
203			# Handle ECVS_BRANCH option
204			#
205			# Because CVS auto-switches branches, we just have to pass the
206			# correct -rBRANCH option when updating.
207
208	danarmak	1.36	if [ -n "$ECVS_BRANCH" ]; then
209			ECVS_UP_OPTS="$ECVS_UP_OPTS -r$ECVS_BRANCH"
210			ECVS_CO_OPTS="$ECVS_CO_OPTS -r$ECVS_BRANCH"
211			fi
212	danarmak	1.14
213	coredumb	1.50	# Handle ECVS_LOCALNAME, which specifies the local directory name
214			# to use. Note that the -d command option is not equivalent to
215			# the global -d option.
216
217	danarmak	1.43	if [ "$ECVS_LOCALNAME" != "$ECVS_MODULE" ]; then
218			ECVS_CO_OPTS="$ECVS_CO_OPTS -d $ECVS_LOCALNAME"
219	coredumb	1.48	fi
220
221	coredumb	1.50
222	coredumb	1.48	if [ -n "$ECVS_CLEAN" ]; then
223			ECVS_UP_OPTS="$ECVS_UP_OPTS -C"
224	danarmak	1.43	fi
225
226	coredumb	1.50
227			# It would be easiest to always be in "run-as mode", logic-wise,
228			# if sudo didn't ask for a password even when sudo'ing to `whoami`.
229
230	danarmak	1.36	if [ -z "$ECVS_RUNAS" ]; then
231			run=""
232			else
233			run="sudo -u $ECVS_RUNAS"
234	danarmak	1.1	fi
235	danarmak	1.18
236	coredumb	1.50	# Create the top dir if needed
237
238	danarmak	1.36	if [ ! -d "$ECVS_TOP_DIR" ]; then
239	coredumb	1.50
240			# Note that the addwrite statements in this block are only
241			# there to allow creating ECVS_TOP_DIR; we allow writing
242			# inside it separately.
243
244			# This is because it's simpler than trying to find out the
245			# parent path of the directory, which would need to be the
246			# real path and not a symlink for things to work (so we can't
247			# just remove the last path element in the string)
248
249	danarmak	1.36	debug-print "$FUNCNAME: checkout mode. creating cvs directory"
250	danarmak	1.17	addwrite /foobar
251			addwrite /
252	danarmak	1.36	$run mkdir -p "/$ECVS_TOP_DIR"
253	danarmak	1.26	export SANDBOX_WRITE="${SANDBOX_WRITE//:\/foobar:\/}"
254	danarmak	1.17	fi
255	danarmak	1.1
256	coredumb	1.50	# In case ECVS_TOP_DIR is a symlink to a dir, get the real path,
257	danarmak	1.17	# otherwise addwrite() doesn't work.
258	coredumb	1.50
259	danarmak	1.26	cd -P "$ECVS_TOP_DIR" > /dev/null
260	danarmak	1.17	ECVS_TOP_DIR="`/bin/pwd`"
261	danarmak	1.36
262	coredumb	1.50	# Disable the sandbox for this dir
263			addwrite "$ECVS_TOP_DIR"
264
265			# Chown the directory and all of its contents
266			if [ -n "$ECVS_RUNAS" ]; then
267			$run chown -R "$ECVS_RUNAS" "/$ECVS_TOP_DIR"
268			fi
269
270			# Determine the CVS command mode (checkout or update)
271	danarmak	1.43	if [ ! -d "$ECVS_TOP_DIR/$ECVS_LOCALNAME/CVS" ]; then
272	danarmak	1.36	mode=checkout
273			else
274			mode=update
275			fi
276
277	danarmak	1.17
278	coredumb	1.50	# Our server string (i.e. CVSROOT) without the password so it can
279			# be put in Root
280	fafhrd	1.52	if [ "$ECVS_AUTH" == "no" ]
281			then
282			local server="${ECVS_USER}@${ECVS_SERVER}"
283			else
284			local server=":${ECVS_AUTH}:${ECVS_USER}@${ECVS_SERVER}"
285			fi
286	danarmak	1.36
287	coredumb	1.50	# Switch servers automagically if needed
288	danarmak	1.36	if [ "$mode" == "update" ]; then
289	danarmak	1.43	cd /$ECVS_TOP_DIR/$ECVS_LOCALNAME
290	coredumb	1.50	local oldserver="`$run cat CVS/Root`"
291	danarmak	1.36	if [ "$server" != "$oldserver" ]; then
292	coredumb	1.47
293	coredumb	1.50	einfo "Changing the CVS server from $oldserver to $server:"
294			debug-print "$FUNCNAME: Changing the CVS server from $oldserver to $server:"
295	danarmak	1.1
296	vapier	1.53	einfo "Searching for CVS directories ..."
297	coredumb	1.50	local cvsdirs="`$run find . -iname CVS -print`"
298			debug-print "$FUNCNAME: CVS directories found:"
299	danarmak	1.1	debug-print "$cvsdirs"
300
301	vapier	1.53	einfo "Modifying CVS directories ..."
302	danarmak	1.1	for x in $cvsdirs; do
303			debug-print "In $x"
304	danarmak	1.36	$run echo "$server" > "$x/Root"
305	danarmak	1.1	done
306	coredumb	1.47
307	danarmak	1.1	fi
308	danarmak	1.36	fi
309	danarmak	1.1
310	coredumb	1.50	# Prepare a cvspass file just for this session, we don't want to
311			# mess with ~/.cvspass
312	danarmak	1.36	touch "${T}/cvspass"
313			export CVS_PASSFILE="${T}/cvspass"
314			if [ -n "$ECVS_RUNAS" ]; then
315			chown "$ECVS_RUNAS" "${T}/cvspass"
316			fi
317	phoenix	1.32
318	coredumb	1.50	# The server string with the password in it, for login
319	danarmak	1.38	cvsroot_pass=":${ECVS_AUTH}:${ECVS_USER}:${ECVS_PASS}@${ECVS_SERVER}"
320	coredumb	1.50
321			# Ditto without the password, for checkout/update after login, so
322			# that the CVS/Root files don't contain the password in plaintext
323	fafhrd	1.52	if [ "$ECVS_AUTH" == "no" ]
324			then
325			cvsroot_nopass="${ECVS_USER}@${ECVS_SERVER}"
326			else
327			cvsroot_nopass=":${ECVS_AUTH}:${ECVS_USER}@${ECVS_SERVER}"
328			fi
329	danarmak	1.38
330	coredumb	1.50	# Commands to run
331	coredumb	1.47	cmdlogin="${run} ${ECVS_CVS_COMMAND} -d \"${cvsroot_pass}\" login"
332			cmdupdate="${run} ${ECVS_CVS_COMMAND} -d \"${cvsroot_nopass}\" update ${ECVS_UP_OPTS} ${ECVS_LOCALNAME}"
333			cmdcheckout="${run} ${ECVS_CVS_COMMAND} -d \"${cvsroot_nopass}\" checkout ${ECVS_CO_OPTS} ${ECVS_MODULE}"
334	danarmak	1.36
335	coredumb	1.50	# Execute commands
336
337	danarmak	1.36	cd "${ECVS_TOP_DIR}"
338			if [ "${ECVS_AUTH}" == "pserver" ]; then
339	coredumb	1.47	einfo "Running $cmdlogin"
340			eval $cmdlogin \|\| die "cvs login command failed"
341	danarmak	1.36	if [ "${mode}" == "update" ]; then
342	coredumb	1.47	einfo "Running $cmdupdate"
343			eval $cmdupdate \|\| die "cvs update command failed"
344	danarmak	1.36	elif [ "${mode}" == "checkout" ]; then
345	coredumb	1.47	einfo "Running $cmdcheckout"
346			eval $cmdcheckout\|\| die "cvs checkout command failed"
347			fi
348	fafhrd	1.54	elif [ "${ECVS_AUTH}" == "ext" ] \|\| [ "${ECVS_AUTH}" == "no" ]; then
349	coredumb	1.50
350			# Hack to support SSH password authentication
351
352			# Backup environment variable values
353			local CVS_ECLASS_ORIG_CVS_RSH="${CVS_RSH}"
354
355			if [ "${SSH_ASKPASS+set}" == "set" ]; then
356			local CVS_ECLASS_ORIG_SSH_ASKPASS="${SSH_ASKPASS}"
357			else
358			unset CVS_ECLASS_ORIG_SSH_ASKPASS
359			fi
360
361			if [ "${DISPLAY+set}" == "set" ]; then
362			local CVS_ECLASS_ORIG_DISPLAY="${DISPLAY}"
363			else
364			unset CVS_ECLASS_ORIG_DISPLAY
365			fi
366
367			if [ "${CVS_RSH}" == "ssh" ]; then
368
369			# Force SSH to use SSH_ASKPASS by creating python wrapper
370
371			export CVS_RSH="${T}/cvs_sshwrapper"
372			cat > "${CVS_RSH}"<<EOF
373			#!/usr/bin/python
374			import fcntl
375			import os
376			import sys
377			try:
378			fd = os.open('/dev/tty', 2)
379			TIOCNOTTY=0x5422
380			try:
381			fcntl.ioctl(fd, TIOCNOTTY)
382			except:
383			pass
384			os.close(fd)
385			except:
386			pass
387			newarglist = sys.argv[:]
388			EOF
389
390	fafhrd	1.54	# disable X11 forwarding which causes .xauth access violations
391			# - 20041205 Armando Di Cianno <fafhrd@gentoo.org>
392			echo "newarglist.insert(1, '-oClearAllForwardings=yes')" \
393			>> "${CVS_RSH}"
394			echo "newarglist.insert(1, '-oForwardX11=no')" \
395			>> "${CVS_RSH}"
396
397	coredumb	1.50	# Handle SSH host key checking
398
399			local CVS_ECLASS_KNOWN_HOSTS="${T}/cvs_ssh_known_hosts"
400			echo "newarglist.insert(1, '-oUserKnownHostsFile=${CVS_ECLASS_KNOWN_HOSTS}')" \
401			>> "${CVS_RSH}"
402
403			if [ -z "${ECVS_SSH_HOST_KEY}" ]; then
404			ewarn "Warning: The SSH host key of the remote server will not be verified."
405			einfo "A temporary known hosts list will be used."
406			local CVS_ECLASS_STRICT_HOST_CHECKING="no"
407			touch "${CVS_ECLASS_KNOWN_HOSTS}"
408			else
409			local CVS_ECLASS_STRICT_HOST_CHECKING="yes"
410			echo "${ECVS_SSH_HOST_KEY}" > "${CVS_ECLASS_KNOWN_HOSTS}"
411			fi
412
413			echo -n "newarglist.insert(1, '-oStrictHostKeyChecking=" \
414			>> "${CVS_RSH}"
415			echo "${CVS_ECLASS_STRICT_HOST_CHECKING}')" \
416			>> "${CVS_RSH}"
417			echo "os.execv('/usr/bin/ssh', newarglist)" \
418			>> "${CVS_RSH}"
419
420			chmod a+x "${CVS_RSH}"
421
422			# Make sure DISPLAY is set (SSH will not use SSH_ASKPASS
423			# if DISPLAY is not set)
424
425			[ -z "${DISPLAY}" ] && DISPLAY="DISPLAY"
426			export DISPLAY
427
428			# Create a dummy executable to echo $ECVS_PASS
429
430			export SSH_ASKPASS="${T}/cvs_sshechopass"
431	fafhrd	1.54	if [ "${ECVS_AUTH}" != "no" ]; then
432			echo -en "#!/bin/bash\necho \"$ECVS_PASS\"\n" \
433			> "${SSH_ASKPASS}"
434			else
435			echo -en "#!/bin/bash\nreturn\n" \
436			> "${SSH_ASKPASS}"
437	coredumb	1.50
438	fafhrd	1.54	fi
439	coredumb	1.50	chmod a+x "${SSH_ASKPASS}"
440			fi
441
442	coredumb	1.47	if [ "${mode}" == "update" ]; then
443			einfo "Running $cmdupdate"
444			eval $cmdupdate \|\| die "cvs update command failed"
445			elif [ "${mode}" == "checkout" ]; then
446			einfo "Running $cmdcheckout"
447			eval $cmdcheckout\|\| die "cvs checkout command failed"
448	phoenix	1.32	fi
449	coredumb	1.50
450			# Restore environment variable values
451			export CVS_RSH="${CVS_ECLASS_ORIG_CVS_RSH}"
452			if [ "${CVS_ECLASS_ORIG_SSH_ASKPASS+set}" == "set" ]; then
453			export SSH_ASKPASS="${CVS_ECLASS_ORIG_SSH_ASKPASS}"
454			else
455			unset SSH_ASKPASS
456			fi
457
458			if [ "${CVS_ECLASS_ORIG_DISPLAY+set}" == "set" ]; then
459			export DISPLAY="${CVS_ECLASS_ORIG_DISPLAY}"
460			else
461			unset DISPLAY
462			fi
463	danarmak	1.36	fi
464	danarmak	1.33
465	coredumb	1.50	# Restore ownership. Not sure why this is needed, but someone
466			# added it in the orig ECVS_RUNAS stuff.
467	danarmak	1.36	if [ -n "$ECVS_RUNAS" ]; then
468			chown `whoami` "${T}/cvspass"
469	danarmak	1.23	fi
470	coredumb	1.47
471	danarmak	1.1	}
472
473	danarmak	1.36
474	danarmak	1.1	cvs_src_unpack() {
475	coredumb	1.47
476	danarmak	1.21	debug-print-function $FUNCNAME $*
477	danarmak	1.1
478	danarmak	1.36	debug-print "$FUNCNAME: init:
479	coredumb	1.47	ECVS_CVS_COMMAND=$ECVS_CVS_COMMAND
480			ECVS_UP_OPTS=$ECVS_UP_OPTS
481			ECVS_CO_OPTS=$ECVS_CO_OPTS
482			ECVS_TOP_DIR=$ECVS_TOP_DIR
483			ECVS_SERVER=$ECVS_SERVER
484			ECVS_USER=$ECVS_USER
485			ECVS_PASS=$ECVS_PASS
486			ECVS_MODULE=$ECVS_MODULE
487			ECVS_LOCAL=$ECVS_LOCAL
488			ECVS_RUNAS=$ECVS_RUNAS
489			ECVS_LOCALNAME=$ECVS_LOCALNAME"
490	danarmak	1.36
491			[ -z "$ECVS_MODULE" ] && die "ERROR: CVS module not set, cannot continue."
492
493	coredumb	1.50	local ECVS_LOCALNAME="${ECVS_LOCALNAME}"
494
495	danarmak	1.44	if [ -z "$ECVS_LOCALNAME" ]; then
496	coredumb	1.47	ECVS_LOCALNAME="$ECVS_MODULE"
497	danarmak	1.44	fi
498
499	danarmak	1.36	if [ "$ECVS_SERVER" == "offline" ]; then
500	coredumb	1.50	# We're not required to fetch anything; the module already
501			# exists and shouldn't be updated.
502	danarmak	1.43	if [ -d "${ECVS_TOP_DIR}/${ECVS_LOCALNAME}" ]; then
503	danarmak	1.40	debug-print "$FUNCNAME: offline mode"
504	danarmak	1.36	else
505	coredumb	1.50	debug-print "$FUNCNAME: Offline mode specified but directory ${ECVS_TOP_DIR}/${ECVS_LOCALNAME} not found, exiting with error"
506			die "ERROR: Offline mode specified, but directory ${ECVS_TOP_DIR}/${ECVS_LOCALNAME} not found. Aborting."
507	danarmak	1.36	fi
508			elif [ -n "$ECVS_SERVER" ]; then # ECVS_SERVER!=offline --> real fetching mode
509	vapier	1.53	einfo "Fetching CVS module $ECVS_MODULE into $ECVS_TOP_DIR ..."
510	danarmak	1.36	cvs_fetch
511	coredumb	1.50	else # ECVS_SERVER not set
512			die "ERROR: CVS server not specified, cannot continue."
513	danarmak	1.36	fi
514
515	vapier	1.53	einfo "Copying $ECVS_MODULE from $ECVS_TOP_DIR ..."
516			debug-print "Copying module $ECVS_MODULE local_mode=$ECVS_LOCAL from $ECVS_TOP_DIR ..."
517	danarmak	1.36
518	coredumb	1.50	# This is probably redundant, but best to make sure.
519	danarmak	1.43	mkdir -p "$WORKDIR/$ECVS_LOCALNAME"
520	danarmak	1.36
521			if [ -n "$ECVS_LOCAL" ]; then
522	danarmak	1.43	cp -f "$ECVS_TOP_DIR/$ECVS_LOCALNAME"/* "$WORKDIR/$ECVS_LOCALNAME"
523	danarmak	1.7	else
524	danarmak	1.43	cp -Rf "$ECVS_TOP_DIR/$ECVS_LOCALNAME" "$WORKDIR/$ECVS_LOCALNAME/.."
525	danarmak	1.7	fi
526	danarmak	1.36
527	coredumb	1.50	# If the directory is empty, remove it; empty directories cannot
528			# exist in cvs. This happens when, for example, kde-source
529			# requests module/doc/subdir which doesn't exist. Still create
530			# the empty directory in workdir though.
531	danarmak	1.43	if [ "`ls -A \"${ECVS_TOP_DIR}/${ECVS_LOCALNAME}\"`" == "CVS" ]; then
532	coredumb	1.50	debug-print "$FUNCNAME: removing empty CVS directory $ECVS_LOCALNAME"
533	danarmak	1.43	rm -rf "${ECVS_TOP_DIR}/${ECVS_LOCALNAME}"
534	danarmak	1.10	fi
535	danarmak	1.36
536	coredumb	1.50	# Implement some of base_src_unpack's functionality; note however
537			# that base.eclass may not have been inherited!
538	danarmak	1.21	if [ -n "$PATCHES" ]; then
539			debug-print "$FUNCNAME: PATCHES=$PATCHES, S=$S, autopatching"
540	danarmak	1.26	cd "$S"
541	danarmak	1.21	for x in $PATCHES; do
542			debug-print "patching from $x"
543	danarmak	1.26	patch -p0 < "$x"
544	danarmak	1.21	done
545	coredumb	1.50	# Make sure we don't try to apply patches more than once,
546			# since cvs_src_unpack is usually called several times from
547			# e.g. kde-source_src_unpack
548	danarmak	1.21	export PATCHES=""
549	danarmak	1.44	fi
550
551	coredumb	1.50	einfo "CVS module ${ECVS_MODULE} is now in ${WORKDIR}"
552	danarmak	1.1	}
553
554			EXPORT_FUNCTIONS src_unpack