diff options
Diffstat (limited to 'sys-devel/gcc-config/files')
| -rw-r--r-- | sys-devel/gcc-config/files/gcc-config-1.4.1 | 801 | ||||
| -rwxr-xr-x | sys-devel/gcc-config/files/gcc-config-1.5 | 740 | ||||
| -rwxr-xr-x | sys-devel/gcc-config/files/gcc-config-1.5.1 | 763 | ||||
| -rw-r--r-- | sys-devel/gcc-config/files/gcc-config-kogaion-base-gcc-support-2.patch | 18 | ||||
| -rw-r--r-- | sys-devel/gcc-config/files/gcc-config-kogaion-base-gcc-support.patch | 30 | ||||
| -rw-r--r-- | sys-devel/gcc-config/files/gcc-config-systemd.patch | 13 | ||||
| -rw-r--r-- | sys-devel/gcc-config/files/wrapper-1.5.1.c | 372 | ||||
| -rw-r--r-- | sys-devel/gcc-config/files/wrapper-1.5.2.c | 315 |
8 files changed, 3052 insertions, 0 deletions
diff --git a/sys-devel/gcc-config/files/gcc-config-1.4.1 b/sys-devel/gcc-config/files/gcc-config-1.4.1 new file mode 100644 index 00000000..4d9d2524 --- /dev/null +++ b/sys-devel/gcc-config/files/gcc-config-1.4.1 @@ -0,0 +1,801 @@ +#!/bin/bash +# Copyright 1999-2011 Gentoo Foundation +# Distributed under the terms of the GNU General Public License v2 +# $Header: /var/cvsroot/gentoo-x86/sys-devel/gcc-config/files/gcc-config-1.4.1,v 1.12 2011/12/07 05:42:19 vapier Exp $ + +trap ":" INT QUIT TSTP + +argv0=${0##*/} +source /etc/init.d/functions.sh || { + echo "${argv0}: Could not source /etc/init.d/functions.sh!" + exit 1 +} +esyslog() { :; } +umask 022 + +# *BSD are plain stupid ... copy a GNU extension but don't just copy it, +# change it so it works differently. Wish Darwin did selective evolution +# on software developers. +SED=$(type -P gsed) +SED=${SED:-$(type -P sed)} + +GENTOO_LIBDIR="@GENTOO_LIBDIR@" +[[ ${GENTOO_LIBDIR} == @*@ ]] && GENTOO_LIBDIR="lib" + +usage() { +cat << "USAGE_END" +Usage: gcc-config [options] [CC Profile] +Change the current cc/gcc profile, or give info about profiles. + +Options: + -C, --nocolor Disable color output + -O, --use-old Use the old profile if one was selected. + -f, --force Make sure all config files are regenerated. + -P, --use-portage-chost Only set to given profile if its CHOST is the + same as that set for portage in /etc/make.conf + (or one of other portage config files...). + -c, --get-current-profile Print current used gcc profile. + -l, --list-profiles Print a list of available profiles. + -S, --split-profile Split profiles into their components + -E, --print-environ Print environment that can be used to setup the + current gcc profile, or a specified one. + -B, --get-bin-path Print path where binaries of the given/current + profile are located. + -L, --get-lib-path Print path where libraries of the given/current + profile are located. + -X, --get-stdcxx-incdir Print path where g++ include files of the + given/current profile are located. + +Profile names are of the form: <CHOST>-<gcc version> +For example: i686-pc-linux-gnu-3.2.1 +USAGE_END + exit $1 +} +[[ $# -lt 1 ]] && usage 1 + +try_real_hard_to_find_CHOST() { + # + # First we read make.conf + # + + local varname=${1:-CHOST} + local conf=${ROOT}/etc/make.conf + local ret=$(source "${conf}" 2>/dev/null ; echo ${!varname}) + if [[ -z ${ret} ]] ; then + # newer portage supports spaces between the var and = + # CHOST = "this-is-retarded" + ret=$(eval $( + sed -n \ + -e 's:[[:space:]]::g' \ + -e "/^${varname}=/p" \ + "${conf}" + ) ; echo ${!varname} + ) + fi + + if [[ -n ${ret} ]] ; then + echo ${ret} + return 0 + fi + + # + # Then we try /etc/env.d/gcc/config-${CTARGET} + # + if [[ -s ${ROOT}/etc/env.d/gcc/config-${CTARGET} ]] ; then + ret=$(split_gcc_ver $(eval $(<"${ROOT}"/etc/env.d/gcc/config-${CTARGET}) ; echo ${CURRENT})) + echo ${ret% *} + fi +} + +get_real_chost() { + [[ -n ${REAL_CHOST} ]] && return 0 + + # shortcut for switching compilers in a cross chroot + if [[ -n ${CHOST} && ${ROOT} != "/" ]] ; then + REAL_CHOST=${CHOST} + return 0 + fi + + # make sure portage isnt broken + if python -V &>/dev/null ; then + export REAL_CHOST=$(env -i portageq envvar CHOST 2>/dev/null) + else + ewarn "Python seems to be broken, attempting to locate CHOST ourselves ..." + export REAL_CHOST=$(try_real_hard_to_find_CHOST) + fi + + if [[ -z ${REAL_CHOST} ]] ; then + eerror "${argv0}: Could not get portage CHOST!" + eerror "${argv0}: You should verify that CHOST is set in one of these places:" + eerror "${argv0}: - ${ROOT}/etc/make.conf" + eerror "${argv0}: - active environment" + exit 1 + fi +} + +is_cross_compiler() { + get_real_chost + [[ ${CC_COMP/${REAL_CHOST}} == ${CC_COMP} ]] +} + +# bool files_exists(search_path, files) +# Return shell true if the specified files exist. +# Files with relative paths are searched for in search_path. +# Both lists are : delimited. +files_exist() { + local p f ret old_IFS + local paths=$1 files=$2 + + old_IFS=${IFS} + export IFS=":" + + ret=0 + for f in ${files} ; do + if [[ ${f} == /* ]] ; then + [[ ! -f ${f} ]] && ret=1 && break + else + # make sure the file exists in at least + # one of the specified paths + ret=1 + for p in ${paths} ; do + [[ -f ${p}/${f} ]] && ret=0 && break + done + [[ ${ret} == 1 ]] && break + fi + done + + export IFS=${old_IFS} + if [[ ${ret} == 1 ]] ; then + ewarn "Could not locate '${f}' in '${paths}'" + fi + return ${ret} +} + +switch_profile() { + local MY_LDPATH= + local GCC_PROFILES= + local OLD_CC_COMP= + local GCC_PATH= + + if [[ $(id -u) != "0" ]] ; then + eerror "${argv0}: Must be root." + exit 1 + fi + + if is_cross_compiler ; then + ebegin "Switching cross-compiler to ${CC_COMP}" + else + ebegin "Switching native-compiler to ${CC_COMP}" + fi + + if ! is_cross_compiler ; then + # Order our profiles to have the default first ... + # We do this so that we can have them ordered with default + # first in /etc/ld.so.conf, as the logical is that all + # compilers for default CHOST will be used to compile stuff, + # and thus we want all their lib paths in /etc/ld.so.conf ... + get_real_chost + GCC_PROFILES=$(LC_ALL="C" ls -r ${GCC_ENV_D}/${REAL_CHOST}-*) + GCC_PROFILES="${GCC_ENV_D}/${CC_COMP} ${GCC_PROFILES}" + + # Extract all LDPATH's for our CHOST + MY_LDPATH="" + for x in ${GCC_PROFILES} ; do + if [[ -f ${x} ]] ; then + LDPATH=$(source "${x}"; echo ${LDPATH}) + + # Handle LDPATH's that have multiple directories + local old_IFS=${IFS} + export IFS=":" + local sub_ldpath= + for sub_ldpath in ${LDPATH} ; do + if [[ -d ${sub_ldpath} ]] ; then + if [[ ${MY_LDPATH/:${sub_ldpath}} == ${MY_LDPATH} ]] ; then + MY_LDPATH="${MY_LDPATH}:${sub_ldpath}" + fi + fi + done + export IFS=${old_IFS} + fi + done + MY_LDPATH="${MY_LDPATH:1}" # trim leading : + fi + + # Translate old PATH/ROOTPATH to GCC_PATH + cp -p "${GCC_ENV_D}/${CC_COMP}" "${GCC_ENV_D}/${CC_COMP}.gcc-config-ref" || return 1 + GCC_PATH=$( + unset GCC_PATH PATH ROOTPATH + source "${GCC_ENV_D}/${CC_COMP}" + echo ${GCC_PATH:-${PATH:-${ROOTPATH}}} + ) + ${SED} -i \ + -e '/^PATH=/d' \ + -e '/^ROOTPATH=/d' \ + -e '/^GCC_PATH=/d' \ + "${GCC_ENV_D}/${CC_COMP}" || return 1 + echo "GCC_PATH=\"${GCC_PATH}\"" >> "${GCC_ENV_D}/${CC_COMP}" || return 1 + touch -r "${GCC_ENV_D}/${CC_COMP}.gcc-config-ref" "${GCC_ENV_D}/${CC_COMP}" || return 1 + rm -f "${GCC_ENV_D}/${CC_COMP}.gcc-config-ref" || return 1 + + # Setup things properly again for this profile + unset GCC_SPECS LDPATH + source "${GCC_ENV_D}/${CC_COMP}" + OLD_CC_COMP=$(get_current_profile) + + # What kind of env.d entry are we going to generate ? + if is_cross_compiler ; then + echo "PATH=\"${GCC_PATH}\"" > "${ENV_D}/05gcc-${CTARGET}" + echo "ROOTPATH=\"${GCC_PATH}\"" >> "${ENV_D}/05gcc-${CTARGET}" + echo "CURRENT=${CC_COMP}" > "${GCC_ENV_D}/config-${CTARGET}" + else + # Pass all by default + awk '!/^(STDCXX_INCDIR|LDPATH|CC|CXX|CTARGET|GCCBITS|GCC_SPECS|GCC_PATH)=/ {print $0}' \ + "${GCC_ENV_D}/${CC_COMP}" > "${ENV_D}/05gcc-${CTARGET}" + echo "LDPATH=\"${MY_LDPATH}\"" >> "${ENV_D}/05gcc-${CTARGET}" + echo "PATH=\"${GCC_PATH}\"" >> "${ENV_D}/05gcc-${CTARGET}" + echo "ROOTPATH=\"${GCC_PATH}\"" >> "${ENV_D}/05gcc-${CTARGET}" + if [[ -n ${GCC_SPECS} ]] ; then + if files_exist ${MY_LDPATH} ${GCC_SPECS} ; then + echo "GCC_SPECS=\"${GCC_SPECS}\"" >> "${ENV_D}/05gcc-${CTARGET}" + else + echo + ewarn "Your GCC spec configurations are broken." + ewarn "Please re-emerge gcc." + echo + fi + else + # People need to rebuild their gcc or setting GCC_SPECS to + # "" will cause issues again :( + if [[ ${ROOT} != "/" ]] ; then + echo "GCC_SPECS=\"\"" >> "${ENV_D}/05gcc-${CTARGET}" + else + if ! GCC_SPECS="" /usr/bin/gcc -v &>/dev/null ; then + echo + ewarn "Your gcc has a bug with GCC_SPECS." + ewarn "Please re-emerge gcc." + ewarn "http://bugs.gentoo.org/68395" + echo + else + echo "GCC_SPECS=\"\"" >> "${ENV_D}/05gcc-${CTARGET}" + fi + fi + fi + + echo "CURRENT=${CC_COMP}" > "${GCC_ENV_D}/config-${CTARGET}" + + # Help out the gcc wrapper + rm -f "${GCC_ENV_D}/NATIVE" "${GCC_ENV_D}/.NATIVE" + ln -sf ${CC_COMP} "${GCC_ENV_D}/.NATIVE" + + # Punt old files + rm -f "${ENV_D}/05gcc" + rm -f "${ENV_D}/05gcc-${CTARGET}"-* + rm -f "${GCC_ENV_D}/config" + rm -f "${GCC_ENV_D}/config-${CTARGET}"-* + fi + + # Find the bin wrapper + local wrapper + for wrapper in ${GENTOO_LIBDIR} lib lib64 lib32 lib ; do + wrapper="${ROOT}usr/${wrapper}/misc/gcc-config" + [[ -e ${wrapper} ]] && break + done + + # Update the wrappers for this profile + for x in {,${CTARGET}-}{cpp,cc,gcc,c++,g++,f77,g77,gcj,gcjh,gcov,gdc,gdmd,gfortran} ; do + # Obviously don't want to touch native stuff for cross-compilers + [[ ${x} != ${CTARGET}-* ]] && is_cross_compiler && continue + + # Make sure we have no stale wrappers + rm -f "${ROOT}/usr/bin/${x}" + [[ ${x:${#x}-3} == "gcc" || ${x:${#x}-3} == "g++" ]] \ + && rm -f "${ROOT}/usr/bin/${x}"{32,64} + + # Only install a wrapper if the binary exists ... + # We want to figure out the 'reference file' for each + # wrapper (the binary we're 'wrapping') so that we can + # sync mtimes together. This makes things like ccache + # happy. See Bug #70548 for more info. + local ref + case ${x} in + cc) ref=${ROOT}/${GCC_PATH}/gcc;; + f77) ref=${ROOT}/${GCC_PATH}/g77;; + *) ref=${ROOT}/${GCC_PATH}/${x};; + esac + if [[ -x ${ref} ]] ; then + cp -f "${wrapper}" "${ROOT}/usr/bin/${x}" + touch -r "${ref}" "${ROOT}/usr/bin/${x}" + + # Install 32bit and 64bit wrappers if need be + # This should probably get folded back into the wrapper ... + if [[ ${x:${#x}-3} == "gcc" ]] || [[ ${x:${#x}-3} == "g++" ]] ; then + for bits in ${GCCBITS} ; do + cp -f "${wrapper}" "${ROOT}/usr/bin/${x}${bits}" + done + fi + fi + done + # legacy cruft, make sure we dont leave it laying around #143205 + rm -f "${ROOT}/usr/bin/${CTARGET}-cc" + # Only install cpp if switching to a native one + if ! is_cross_compiler && [[ ${CTARGET} != *-solaris* ]] ; then + rm -f "${ROOT}/lib/cpp" + cp -f "${wrapper}" "${ROOT}/lib/cpp" + fi + + # Relocate random crap + if ! is_cross_compiler ; then + if [[ -e ${ROOT}/usr/${GENTOO_LIBDIR}/pkgconfig/libgcj-${CC_COMP_VERSION}.pc ]] ; then + local mver=${CC_COMP_VERSION:0:3} + for x in "" "-${mver}" ; do + x="${ROOT}/usr/lib/pkgconfig/libgcj${x}.pc" + rm -f "${x}" + ln -s libgcj-${CC_COMP_VERSION}.pc "${x}" + done + fi + fi + + # We need to make sure that libgcc_s.so / libunwind.so make it into /lib. + # On many systems (x86/amd64/etc...), this will probably never matter, + # but on other systems (arm/mips/etc...), this is quite critical. + # http://bugs.gentoo.org/60190 + # + # The funky move magic is required for proper updating of in-use files. + if ! is_cross_compiler ; then + # Need to cut out extra paths in multilib case and pray the first path + # is the "root" multilib path ... maybe some day change this to use + # `gcc -print-file-name` ... + LDPATH=${LDPATH%%:*} + for multilib in $("${ROOT}/${GCC_PATH}"/gcc -print-multi-lib); do + multiarg=${multilib#*;} + multiarg=${multiarg/@/-} + multilibdir=${multilib%;*} + libdir="lib/"$("${ROOT}/${GCC_PATH}"/gcc ${multiarg} -print-multi-os-directory) + if mkdir -p "${ROOT}/${libdir}"/.gcc.config.new ; then + for gcclib in gcc_s unwind ; do + if [[ -n $(ls "${ROOT}/${LDPATH}/${multilibdir}"/lib${gcclib}.so.* 2>/dev/null) ]]; then + cp -pP "${ROOT}/${LDPATH}/${multilibdir}"/lib${gcclib}.so.* "${ROOT}/${libdir}"/.gcc.config.new/ + # no need to sanity remove this as the `mv` should take + # care of it. we also need this step to be completly atomic + # for systems that have even `mv` linked against libgcc_s.so. + # http://bugs.gentoo.org/150257 + #rm -f "${ROOT}/${libdir}"/lib${gcclib}.so* + mv -f "${ROOT}/${libdir}"/.gcc.config.new/* "${ROOT}/${libdir}"/ + fi + done + rmdir "${ROOT}/${libdir}"/.gcc.config.new + fi + done + unset multilib + unset multilibdir + unset multiarg + unset libdir + fi + + if [[ ${ROOT} == "/" ]] && [[ ${OLD_CC_COMP} != ${CC_COMP} || ${FORCE} == "yes" ]] ; then + # in case python is broken ... + if ! env-update ; then + echo "" + ewarn "env-update failed to work properly; making sure ld.so.conf paths" + ewarn "are setup properly. Please rerun gcc-config with the -f option." + echo "" + grep -h ^LDPATH= "${ROOT}"/etc/env.d/05gcc-${CTARGET} \ + | sed -e 's:^LDPATH=::' -e 's:"::g' -e 's|:|\n|g' \ + >> /etc/ld.so.conf + ldconfig + fi + fi + + eend 0 + + if [[ ${ROOT} == "/" ]] && [[ ${OLD_CC_COMP} != ${CC_COMP} ]] ; then + echo + ewarn "If you intend to use the gcc from the new profile in an already" + ewarn "running shell, please remember to do:" + echo + ewarn " . /etc/profile" + echo + fi + + return 0 +} + +get_current_profile() { + local conf="${GCC_ENV_D}/config" + if [[ ! -f ${conf} ]] ; then + conf="${GCC_ENV_D}/config-${CTARGET}" + elif [[ -n ${CC_COMP} ]] && is_cross_compiler ; then + conf="${conf}-${CC_COMP}" + fi + + if [[ ! -f ${conf} ]] ; then + eerror "${argv0}: No gcc profile is active!" + return 1 + fi + + CURRENT=$(source "${conf}"; echo ${CURRENT}) + + if [[ -z ${CURRENT} ]] ; then + eerror "${argv0}: No gcc profile is active!" + return 1 + elif [[ ! -f ${GCC_ENV_D}/${CURRENT} ]] ; then + eerror "${argv0}: Active gcc profile is invalid!" + return 1 + fi + + echo "${CURRENT}" + + return 0 +} + +list_profiles() { + local i=0 + local filter= + + if [[ ${ROOT} != "/" ]] ; then + echo "Using gcc-config info in ${ROOT}" + fi + + if [[ ! -f ${GCC_ENV_D}/config-${CTARGET} ]] ; then + if ! is_cross_compiler && [[ -e ${GCC_ENV_D}/config ]] ; then + [[ -w ${GCC_ENV_D}/config ]] && mv ${GCC_ENV_D}/config ${GCC_ENV_D}/config-${CTARGET} + else + eerror "${argv0}: No gcc profile is active; please select one!" + filter=${CTARGET} + fi + fi + + eval $(grep -s ^CURRENT= "${GCC_ENV_D}"/config-${CTARGET}) + CURRENT_NATIVE=${CURRENT} + local target= + for x in "${GCC_ENV_D}"/* ; do + if [[ -f ${x} ]] && [[ ${x/\/config} == ${x} ]] ; then + CTARGET=$(unset CTARGET; source "${x}"; echo ${CTARGET}) + + ((++i)) + + [[ -n ${filter} ]] && [[ ${filter} != ${CTARGET:-${REAL_CHOST}} ]] && continue + + if [[ ${target} != ${CTARGET} ]] ; then + [[ -n ${target} ]] && echo + target=${CTARGET} + CTARGET="" + fi + + x=${x##*/} + if [[ ${x} == ${CURRENT_NATIVE} ]] ; then + x="${x} ${GOOD}*${NORMAL}" + elif [[ -e ${GCC_ENV_D}/config-${target} ]] ; then + source "${GCC_ENV_D}/config-${target}" + [[ ${x} == ${CURRENT} ]] && x="${x} ${HILITE}*${NORMAL}" + fi + echo " [${i}] ${x}" + fi + done +} + +print_environ() { + local GCC_PATH= + local ENV_CMD= + local SET_ELEMENT= + + GCC_PATH=$(source "${GCC_ENV_D}/${CC_COMP}"; echo ${GCC_PATH:-${PATH}}) + + case ${SHELL} in + */csh|*/tcsh) + ENV_CMD="setenv" + SET_ELEMENT=" " + ;; + *) + ENV_CMD="export" + SET_ELEMENT="=" + ;; + esac + + ( + PATH=${GCC_PATH}:${PATH} + for var in PATH GCC_SPECS ; do + echo "${ENV_CMD} ${var}${SET_ELEMENT}\"${!var}\"" + done + ) +} + +get_bin_path() { + if [[ -e ${GCC_ENV_D}/${CC_COMP} ]] ; then + ( + unset PATH GCC_PATH + source "${GCC_ENV_D}/${CC_COMP}" + echo "${GCC_PATH:-${PATH}}" + ) + else + echo "no-config" + echo "${GCC_ENV_D}/${CC_COMP} doesnt exist" 1>&2 + fi + + return 0 +} + +get_lib_path() { + if [[ -e ${GCC_ENV_D}/${CC_COMP} ]] ; then + ( + unset LDPATH + source "${GCC_ENV_D}/${CC_COMP}" + echo "${LDPATH}" + ) + else + echo "no-config" + echo "${GCC_ENV_D}/${CC_COMP} doesnt exist" 1>&2 + fi + + return 0 +} + +get_stdcxx_incdir() { + # XXX: we should prob scrub this ... + if [[ -e ${GCC_ENV_D}/${CC_COMP} ]] ; then + ( + unset LDPATH STDCXX_INCDIR + source "${GCC_ENV_D}/${CC_COMP}" + echo "${LDPATH}/include/${STDCXX_INCDIR}" + ) + else + echo "no-config" + echo "${GCC_ENV_D}/${CC_COMP} doesnt exist" 1>&2 + fi + + return 0 +} + +split_gcc_ver() { + # Split up the gcc profile into components: + # TARGET-VER[-specs] -> TARGET VER [specs] + # arm-linux-3.3.6 -> arm-linux 3.3.6 + # x86_64-linux-4.0.1-pre1234 -> x86_64-linux 4.0.1-pre1234 + # sh-linux-3.4.4-hardened -> sh-linux 3.4.4 hardened + # + # So below we will start at the end and run a small state machine ... + # specs [3] + # accept everything + # specs -> version transition [3->2] + # when we find a version component + # version [2] + # accept only version components (see the regex) + # version -> target transition [2->1] + # when we hit a non version component + # target [1] + # accept everything we have left + # + echo "$@" | awk -F- ' + function pushit(onme, pushee) { + return (onme == "" ? pushee : pushee"-"onme); + } + { + state=3 + targ="" + ver="" + spec="" + for (i=NF; i > 0; --i) { + if (state >= 2) { + if ($i ~ /^(alpha|beta|pre|rc|p)?[[:digit:].]+$/) { + ver=pushit(ver, $i) + state=2 + } else if (state == 3) + spec=pushit(spec, $i) + else + state=1 + } + if (state == 1) + targ = pushit(targ, $i) + } + + if (targ == "") { + if (ver == "") { + ver=spec + spec="" + } + targ=ver + ver="" + } + print targ " " ver (spec != "" ? " " spec : "") + }' +} +chop_gcc_ver_spec() { + local splitTED=$(split_gcc_ver $@) # target ver spec + splitTED=${splitTED#* } # ver spec + echo ${splitTED/ /-} # ver-spec +} + +SET_X=false +NEED_ACTION="yes" +DOIT="switch_profile" +CHECK_CHOST="no" +FORCE="no" + +CC_COMP= +[[ -z ${ROOT} ]] && ROOT="/" +[[ ${ROOT:0-1} != "/" ]] && ROOT="${ROOT}/" +ENV_D="${ROOT}etc/env.d" +GCC_ENV_D="${ENV_D}/gcc" + +for x in "$@" ; do + case "${x}" in + # Only use specified compiler if one is not already selected. + -O|--use-old) + CTARGET=${CTARGET:-$(try_real_hard_to_find_CHOST)} + if get_current_profile &>/dev/null ; then + CC_COMP=$(get_current_profile) + else + eerror "No profile selected, unable to utilize --use-old" + exit 1 + fi + ;; + -f|--force) + FORCE="yes" + ;; + -P|--use-portage-chost) + CHECK_CHOST="yes" + ;; + -c|--get-current-profile) + if [[ ${NEED_ACTION} == "yes" ]] ; then + NEED_ACTION="no" + DOIT="get_current_profile" + fi + ;; + -l|--list-profiles) + if [[ ${NEED_ACTION} == "yes" ]] ; then + NEED_ACTION="no" + DOIT="list_profiles" + fi + ;; + -S|--split-profile) + if [[ ( $1 != "-S" && $1 != "--split-profile" ) || $# -eq 1 ]] ; then + usage 1 + fi + shift # push -S out + for x in "$@" ; do + split_gcc_ver ${x} + done + exit 0 + ;; + -E|--print-environ) + if [[ ${NEED_ACTION} == "yes" ]] ; then + NEED_ACTION="no" + DOIT="print_environ" + fi + ;; + -B|--get-bin-path) + if [[ ${NEED_ACTION} == "yes" ]] ; then + NEED_ACTION="no" + DOIT="get_bin_path" + fi + ;; + -L|--get-lib-path) + if [[ ${NEED_ACTION} == "yes" ]] ; then + NEED_ACTION="no" + DOIT="get_lib_path" + fi + ;; + -X|--get-stdcxx-incdir) + if [[ ${NEED_ACTION} == "yes" ]] ; then + NEED_ACTION="no" + DOIT="get_stdcxx_incdir" + fi + ;; + -x|--debug) + SET_X=true + ;; + -C|--nocolor) + # nothing to do; functions.sh parsed this for us + ;; + -h|--help) + usage 0 + ;; + -V|--version) + rcsfile="$RCSfile: gcc-config-1.4.1,v $" + rcsfile=${rcsfile#: } + rcsfile=${rcsfile%,v*} + cvsrev="$Revision: 1.12 $" + cvsrev=${cvsrev#: } + cvsdate="$Date: 2011/12/07 05:42:19 $" + cvsdate=${cvsdate#: } + echo "${rcsfile} (r${cvsrev% *} @ ${cvsdate% *})" + exit 0 + ;; + -*) + eerror "${argv0}: Invalid switch! Run ${argv0} without parameters for help." + exit 1 + ;; + *) + ${SET_X} && set -x + if [[ -z ${CC_COMP} ]] ; then + if [[ -z $(echo ${x} | tr -d '[:digit:]') ]] ; then + # User gave us a # representing the profile + i=1 + for y in "${GCC_ENV_D}"/* ; do + [[ -f ${y} ]] || continue + [[ ${y/\/config} != ${y} ]] && continue + + if [[ -f ${y} ]] && [[ ${x} == ${i} ]] ; then + CC_COMP=${y##*/} + break + fi + ((++i)) + done + else + # User gave us a full HOST-gccver + x=${x##*/} + if [[ ${DOIT} == "get_current_profile" && -z $(ls "${GCC_ENV_D}"/${x}-* 2>/dev/null) ]] || \ + [[ ${DOIT} != "get_current_profile" && ! -f ${GCC_ENV_D}/${x} ]] + then + # Maybe they just gave us a gccver ... + get_real_chost + if [[ -f ${GCC_ENV_D}/${REAL_CHOST}-${x} ]] ; then + x=${REAL_CHOST}-${x} + else + eerror "${argv0}: Could not locate '$x' in '${GCC_ENV_D}/' !" + exit 1 + fi + fi + CC_COMP=${x} + fi + else + eerror "${argv0}: Too many arguments! Run ${argv0} without parameters for help." + exit 1 + fi + ;; + esac +done + +${SET_X} && set -x + +get_real_chost +[[ ${DOIT} == "get_current_profile" ]] \ + && CTARGET=${CTARGET:-${CC_COMP:-${REAL_CHOST}}} \ + || CTARGET=${CTARGET:-${REAL_CHOST}} + +if [[ ${DOIT} == "switch_profile" ]] && [[ -z ${CC_COMP} ]] ; then + usage 1 +fi + +if [[ -z ${CC_COMP} ]] ; then + CC_COMP=$(get_current_profile) + if [[ $? -ne 0 ]] ; then + echo "${CC_COMP}" + list_profiles + exit 1 + fi +fi + +if [[ ${DOIT} != "get_current_profile" ]] ; then + GCC_LIB=$( + LDPATH=$(source "${GCC_ENV_D}/${CC_COMP}"; echo ${LDPATH}) + echo ${LDPATH} | awk -F/ '{ print "/"$2"/"$3"/"$4"/" }' + ) + + CC_COMP_VERSION=$(chop_gcc_ver_spec ${CC_COMP}) + CC_COMP_TARGET=${CC_COMP%-${CC_COMP_VERSION}*} + + if [[ ! -d ${ROOT}/${GCC_LIB}/${CC_COMP_TARGET}/${CC_COMP_VERSION} ]]; then + CC_COMP_VERSION=${CC_COMP_VERSION%-*} + fi + + if [[ ! -d ${ROOT}/${GCC_LIB}/${CC_COMP_TARGET}/${CC_COMP_VERSION} ]] || \ + [[ ! -f ${GCC_ENV_D}/${CC_COMP} ]] + then + eerror "${argv0}: Profile does not exist or invalid setting for ${GCC_ENV_D}/${CC_COMP}" 1>&2 + #exit 1 + fi +fi + +if [[ ${CHECK_CHOST} == "yes" ]] ; then + # Chosen CHOST are not the same as the real CHOST according to + # make.conf, and --use-portage-chost option was given, so do nothing + get_real_chost + CC_COMP_VERSION=$(chop_gcc_ver_spec ${CC_COMP}) + CC_COMP_TARGET=${CC_COMP:0:${#CC_COMP}-${#CC_COMP_VERSION}-1} + [[ ${CC_COMP_TARGET} != ${REAL_CHOST} ]] && exit 0 +fi + +eval ${DOIT} + +# vim:ts=4 diff --git a/sys-devel/gcc-config/files/gcc-config-1.5 b/sys-devel/gcc-config/files/gcc-config-1.5 new file mode 100755 index 00000000..64eb6473 --- /dev/null +++ b/sys-devel/gcc-config/files/gcc-config-1.5 @@ -0,0 +1,740 @@ +#!/bin/bash +# Copyright 1999-2011 Gentoo Foundation +# Distributed under the terms of the GNU General Public License v2 +# $Header: /var/cvsroot/gentoo-x86/sys-devel/gcc-config/files/gcc-config-1.5,v 1.7 2011/12/07 05:42:19 vapier Exp $ + +# Format of /etc/env.d/gcc/: +# config-TARGET: CURRENT=version for TARGET +# TARGET-VER: has a TARGET and VER variable + +: ${ROOT:=/} +[[ ${ROOT} != */ ]] && ROOT="${ROOT}/" +[[ ${ROOT} != /* ]] && ROOT="${PWD}${ROOT}" + +cd / + +trap ":" INT QUIT TSTP + +argv0=${0##*/} +source /etc/init.d/functions.sh || { + echo "${argv0}: Could not source /etc/init.d/functions.sh!" 1>&2 + exit 1 +} +esyslog() { :; } +umask 022 + +die_eerror() { + eerror "${argv0}: $*" + exit 1 +} + +# *BSD are plain stupid ... copy a GNU extension but don't just copy it, +# change it so it works differently. Wish Darwin did selective evolution +# on software developers. +SED=$(type -P gsed) +: ${SED:=$(type -P sed)} + +# Further pain: `tac` is not available everywhere #390179 +if ! type -P tac >/dev/null ; then + tac() { ${SED} -e '1!G;h;$!d' "$@" ; } +fi + +GENTOO_LIBDIR="@GENTOO_LIBDIR@" +[[ ${GENTOO_LIBDIR} == @*@ ]] && GENTOO_LIBDIR="lib" + +usage() { +cat << "USAGE_END" +Usage: gcc-config [options] [CC Profile] +Change the current cc/gcc profile, or give info about profiles. + +Options: + -C, --nocolor Disable color output + -O, --use-old Use the old profile if one was selected. + -f, --force Make sure all config files are regenerated. + -P, --use-portage-chost Only set to given profile if its CHOST is the + same as that set in /etc/portage/make.conf + (or one of other portage config files...). + -c, --get-current-profile Print current used gcc profile. + -l, --list-profiles Print a list of available profiles. + -S, --split-profile Split profiles into their components + -E, --print-environ Print environment that can be used to setup the + current gcc profile, or a specified one. + -B, --get-bin-path Print path where binaries of the given/current + profile are located. + -L, --get-lib-path Print path where libraries of the given/current + profile are located. + +Profile names are of the form: <CHOST>-<gcc version> +For example: i686-pc-linux-gnu-3.2.1 +USAGE_END + exit ${1:-1} +} +[[ $# -lt 1 ]] && usage 1 + +# Usage: source_var <var> <file> [default value] +source_var() { + unset $1 + local val=$(source "$2"; echo ${!1}) + : ${val:=$3} + eval $1=\"${val}\" +} +show_var() { + source_var "$@" + echo "${!1}" +} + +try_real_hard_to_find_CHOST() { + # + # First we read make.conf + # + + local varname=${1:-CHOST} + local conf=${ROOT}/etc/portage/make.conf + if [[ ! -e ${conf} && -e ${ROOT}/etc/make.conf ]] ; then + conf=${ROOT}/etc/make.conf + fi + local ret=$(source "${conf}" 2>/dev/null ; echo ${!varname}) + if [[ -z ${ret} ]] ; then + # newer portage supports spaces between the var and = + # CHOST = "this-is-retarded" + ret=$(eval $( + sed -n \ + -e 's:[[:space:]]::g' \ + -e "/^${varname}=/p" \ + "${conf}" + ) ; echo ${!varname} + ) + fi + + if [[ -n ${ret} ]] ; then + echo ${ret} + return 0 + fi + + # + # Then we try /etc/env.d/gcc/config-${CTARGET} + # + if [[ -s ${ROOT}/etc/env.d/gcc/config-${CTARGET} ]] ; then + ret=$(split_gcc_ver $(show_var CURRENT "${ROOT}"/etc/env.d/gcc/config-${CTARGET})) + echo ${ret% *} + fi +} + +get_real_chost() { + [[ -n ${REAL_CHOST} ]] && return 0 + + # shortcut for switching compilers in a cross chroot + if [[ -n ${CHOST} && ${ROOT} != "/" ]] ; then + REAL_CHOST=${CHOST} + return 0 + fi + + # make sure portage isnt broken + if python -V &>/dev/null ; then + export REAL_CHOST=$(env -i portageq envvar CHOST 2>/dev/null) + else + ewarn "Python seems to be broken, attempting to locate CHOST ourselves ..." + export REAL_CHOST=$(try_real_hard_to_find_CHOST) + fi + + if [[ -z ${REAL_CHOST} ]] ; then + eerror "${argv0}: Could not get portage CHOST!" + eerror "${argv0}: You should verify that CHOST is set in one of these places:" + eerror "${argv0}: - ${ROOT}/etc/portage/make.conf" + eerror "${argv0}: - active environment" + exit 1 + fi +} + +is_cross_compiler() { + get_real_chost + [[ ${CC_COMP/${REAL_CHOST}} == ${CC_COMP} ]] +} + +convert_profile_paths() { + # Older gcc's used PATH= and ROOTPATH= in the env.d files. + # Newer one's only use GCC_PATH=. Convert old to new here. + cp -p "${GCC_ENV_D}/${CC_COMP}" "${GCC_ENV_D}/${CC_COMP}.gcc-config-ref" || return 1 + GCC_PATH=$( + unset GCC_PATH PATH ROOTPATH + source "${GCC_ENV_D}/${CC_COMP}" + echo ${GCC_PATH:-${PATH:-${ROOTPATH}}} + ) + ${SED} -i \ + -e '/^PATH=/d' \ + -e '/^ROOTPATH=/d' \ + -e '/^GCC_PATH=/d' \ + "${GCC_ENV_D}/${CC_COMP}" || return 1 + echo "GCC_PATH=\"${GCC_PATH}\"" >> "${GCC_ENV_D}/${CC_COMP}" || return 1 + touch -r "${GCC_ENV_D}/${CC_COMP}.gcc-config-ref" "${GCC_ENV_D}/${CC_COMP}" || return 1 + rm -f "${GCC_ENV_D}/${CC_COMP}.gcc-config-ref" || return 1 + return 0 +} + +update_wrappers() { + local CTARGET=$1 + + # Find the bin wrapper + local wrapper + for wrapper in ${GENTOO_LIBDIR} lib lib64 lib32 lib ; do + wrapper="${ROOT}usr/${wrapper}/misc/gcc-config" + [[ -e ${wrapper} ]] && break + done + + # Update the wrappers for this profile. We maintain this list + # by hand as the tools that are available can come & go if the + # user re-emerges gcc with dif USE flags. We need to clean out + # the old wrappers if the functionality no longer exists. + # XXX: Future work: save the list of wrappers we generated in + # the generated env.d file so we can scrub things better. + # After that, we can use a dynamic list based on what tools are + # actually available in ${GCC_PATH}/. + for x in {,${CTARGET}-}{cpp,cc,gcc,c++,g++,f77,g77,gcj,gcjh,gcov,gdc,gdmd,gfortran,gccgo} ; do + # Obviously don't want to touch native stuff for cross-compilers + [[ ${x} != ${CTARGET}-* ]] && is_cross_compiler && continue + + # Make sure we have no stale wrappers + rm -f "${ROOT}/usr/bin/${x}" + [[ ${x:${#x}-3} == "gcc" || ${x:${#x}-3} == "g++" ]] \ + && rm -f "${ROOT}/usr/bin/${x}"{32,64} + + # Only install a wrapper if the binary exists ... + # We want to figure out the 'reference file' for each + # wrapper (the binary we're 'wrapping') so that we can + # sync mtimes together. This makes things like ccache + # happy. See Bug #70548 for more info. + local ref + case ${x} in + cc) ref=gcc;; + f77) ref=g77;; + *) ref=${x};; + esac + ref="${ROOT}/${GCC_PATH}/${ref}" + if [[ -x ${ref} ]] ; then + cp -f "${wrapper}" "${ROOT}/usr/bin/${x}" + touch -r "${ref}" "${ROOT}/usr/bin/${x}" + fi + done + # legacy cruft, make sure we dont leave it laying around #143205 + rm -f "${ROOT}/usr/bin/${CTARGET}-cc" + + # install the canonical cpp wrapper + [[ ${CTARGET} == *-solaris* ]] && return 0 + if ! is_cross_compiler ; then + cp -f "${wrapper}" "${ROOT}/lib/cpp" + touch -r "${ROOT}/usr/bin/${CTARGET}-cpp" "${ROOT}/lib/cpp" + fi +} + +mv_if_diff() { + if cmp -s "$1" "$2" ; then + rm -f "$1" + return 0 + else + mv -f "$1" "$2" + return 1 + fi +} + +switch_profile() { + local MY_LDPATH= + local GCC_PROFILES= + local OLD_CC_COMP= + local GCC_PATH= + + [[ $(id -u) != "0" ]] && die_eerror "Must be root" + + if is_cross_compiler ; then + ebegin "Switching cross-compiler to ${CC_COMP}" + else + ebegin "Switching native-compiler to ${CC_COMP}" + fi + + if egrep -q '^(PATH|ROOTPATH)=' "${GCC_ENV_D}/${CC_COMP}" ; then + convert_profile_paths "${GCC_ENV_D}/${CC_COMP}" || return 1 + fi + source_var GCC_PATH "${GCC_ENV_D}/${CC_COMP}" + + # Setup things properly again for this profile + unset GCC_SPECS LDPATH + source "${GCC_ENV_D}/${CC_COMP}" + # Ignore active profile errors here since we're switching away + OLD_CC_COMP=$(get_current_profile 2>/dev/null) + + # GCC_SPECS have long been stable, and people messing with + # them know better than to install bad paths, so don't bother + # with sanity checks. + local envd="${ENV_D}/05gcc-${CTARGET}" + cat <<-EOF > "${envd}.tmp" + PATH="${GCC_PATH}" + ROOTPATH="${GCC_PATH}" + GCC_SPECS="${GCC_SPECS}" + EOF + echo "CURRENT=${CC_COMP}" > "${GCC_ENV_D}/config-${CTARGET}" + if ! is_cross_compiler ; then + # Order our profiles to have the default first ... + # We do this so that we can have them ordered with default + # first in /etc/ld.so.conf, as the logical is that all + # compilers for default CHOST will be used to compile stuff, + # and thus we want all their lib paths in /etc/ld.so.conf ... + get_real_chost + MY_LDPATH=$(${SED} -n \ + -e '/^LDPATH=/{s|LDPATH=||;s|"||g;s|:|\n|g;p}' \ + "${GCC_ENV_D}"/${REAL_CHOST}-* \ + "${GCC_ENV_D}"/${CC_COMP} | tac + ) + + # Pass all by default + awk '!/^(STDCXX_INCDIR|LDPATH|CC|CXX|CTARGET|GCCBITS|GCC_SPECS|GCC_PATH)=/ {print $0}' \ + "${GCC_ENV_D}/${CC_COMP}" >> "${envd}.tmp" + if [[ -d ${ROOT}/etc/ld.so.conf.d ]] ; then + echo "${MY_LDPATH}" > "${ROOT}"/etc/ld.so.conf.d/05gcc-${CTARGET}.conf + else + echo "LDPATH=\"${MY_LDPATH}\"" >> "${envd}.tmp" + fi + + # Punt old files; maybe globs too much, but oh well + rm -f \ + "${GCC_ENV_D}/NATIVE" "${GCC_ENV_D}/.NATIVE" \ + "${ENV_D}/05gcc" "${GCC_ENV_D}/config" \ + "${ENV_D}/05gcc-${CTARGET}"-* "${GCC_ENV_D}/config-${CTARGET}"-* + + # Help out the gcc wrapper + ln -sf ${CC_COMP} "${GCC_ENV_D}/.NATIVE" + + + # Relocate random crap + if [[ -e ${ROOT}/usr/${GENTOO_LIBDIR}/pkgconfig/libgcj-${CC_COMP_VERSION}.pc ]] ; then + local mver=${CC_COMP_VERSION:0:3} + for x in "" "-${mver}" ; do + x="${ROOT}/usr/lib/pkgconfig/libgcj${x}.pc" + rm -f "${x}" + ln -s libgcj-${CC_COMP_VERSION}.pc "${x}" + done + fi + + # We need to make sure that libgcc_s.so / libunwind.so make it into /lib. + # On many systems (x86/amd64/etc...), this will probably never matter, + # but on other systems (arm/mips/etc...), this is quite critical. + # http://bugs.gentoo.org/60190 + # + # The funky move magic is required for proper updating of in-use files. + # + # Need to cut out extra paths in multilib case and pray the first path + # is the "root" multilib path ... maybe some day change this to use + # `gcc -print-file-name` ... + LDPATH=${LDPATH%%:*} + for multilib in $("${ROOT}/${GCC_PATH}"/gcc -print-multi-lib); do + multiarg=${multilib#*;} + multiarg=${multiarg/@/-} + multilibdir=${multilib%;*} + libdir="lib/"$("${ROOT}/${GCC_PATH}"/gcc ${multiarg} -print-multi-os-directory) + if mkdir -p "${ROOT}/${libdir}"/.gcc.config.new ; then + for gcclib in gcc_s unwind ; do + if [[ -n $(ls "${ROOT}/${LDPATH}/${multilibdir}"/lib${gcclib}.so.* 2>/dev/null) ]]; then + cp -pP "${ROOT}/${LDPATH}/${multilibdir}"/lib${gcclib}.so.* "${ROOT}/${libdir}"/.gcc.config.new/ + # no need to sanity remove this as the `mv` should take + # care of it. we also need this step to be completly atomic + # for systems that have even `mv` linked against libgcc_s.so. + # http://bugs.gentoo.org/150257 + #rm -f "${ROOT}/${libdir}"/lib${gcclib}.so* + mv -f "${ROOT}/${libdir}"/.gcc.config.new/* "${ROOT}/${libdir}"/ + fi + done + rmdir "${ROOT}/${libdir}"/.gcc.config.new + fi + done + unset multilib + unset multilibdir + unset multiarg + unset libdir + fi + mv_if_diff "${envd}.tmp" "${envd}" + local envd_changed=$? + + update_wrappers ${CTARGET} + + if [[ ${ROOT} == "/" ]] && \ + [[ ${OLD_CC_COMP} != ${CC_COMP} || ${FORCE} == "yes" ]] && \ + [[ ${envd_changed} -eq 1 ]] + then + # in case python is broken ... + if ! env-update ; then + echo "" + ewarn "env-update failed to work properly; making sure ld.so.conf paths" + ewarn "are setup properly. Please rerun gcc-config with the -f option." + echo "" + if [[ ! -d /etc/ld.so.conf.d ]] ; then + show_var LDPATH "${ROOT}"/etc/env.d/05gcc-${CTARGET} \ + | sed -e 's|:|\n|g' >> /etc/ld.so.conf + fi + ldconfig + fi + else + envd_changed=0 + fi + + eend 0 + + if [[ ${envd_changed} -ne 0 ]] ; then + echo + ewarn "If you intend to use the gcc from the new profile in an already" + ewarn "running shell, please remember to do:" + echo + ewarn " . /etc/profile" + echo + fi + + return 0 +} + +get_current_profile() { + local conf="${GCC_ENV_D}/config-${CTARGET}" + if [[ ! -f ${conf} ]] ; then + conf="${GCC_ENV_D}/config" # old name + elif [[ -n ${CC_COMP} ]] && is_cross_compiler ; then + conf="${conf}-${CC_COMP}" + fi + + if [[ ! -f ${conf} ]] ; then + eerror "${argv0}: No gcc profile is active!" + return 1 + fi + + source_var CURRENT "${conf}" + + if [[ -z ${CURRENT} ]] ; then + eerror "${argv0}: No gcc profile is active!" + return 1 + elif [[ ! -f ${GCC_ENV_D}/${CURRENT} ]] ; then + eerror "${argv0}: Active gcc profile is invalid!" + return 1 + fi + + echo "${CURRENT}" + + return 0 +} + +list_profiles() { + local i=0 + local filter= + + if [[ ${ROOT} != "/" ]] ; then + echo "Using gcc-config info in ${ROOT}" + fi + + if [[ ! -f ${GCC_ENV_D}/config-${CTARGET} ]] ; then + if ! is_cross_compiler && [[ -e ${GCC_ENV_D}/config ]] ; then + [[ -w ${GCC_ENV_D}/config ]] && mv ${GCC_ENV_D}/config ${GCC_ENV_D}/config-${CTARGET} + else + # get_current_profile already warns + #eerror "${argv0}: No gcc profile is active; please select one!" + filter=${CTARGET} + fi + fi + + source_var CURRENT "${GCC_ENV_D}"/config-${CTARGET} + CURRENT_NATIVE=${CURRENT} + local target= + for x in "${GCC_ENV_D}"/* ; do + [[ -f ${x} ]] || continue + [[ ${x} == */config* ]] && continue + + source_var CTARGET "${x}" + + ((++i)) + + [[ -n ${filter} ]] && [[ ${filter} != ${CTARGET} ]] && continue + + if [[ ${target} != ${CTARGET} ]] ; then + [[ ${i} -gt 1 ]] && echo + target=${CTARGET} + CTARGET="" + fi + + x=${x##*/} + if [[ ${x} == ${CURRENT_NATIVE} ]] ; then + x="${x} ${GOOD}*${NORMAL}" + elif [[ -e ${GCC_ENV_D}/config-${target} ]] ; then + source "${GCC_ENV_D}/config-${target}" + [[ ${x} == ${CURRENT} ]] && x="${x} ${HILITE}*${NORMAL}" + fi + echo " [${i}] ${x}" + done +} + +print_environ() { + local GCC_PATH= + local ENV_CMD= + local SET_ELEMENT= + + source_var GCC_PATH "${GCC_ENV_D}/${CC_COMP}" "${PATH}" + + case ${SHELL} in + */csh|*/tcsh) + ENV_CMD="setenv" + SET_ELEMENT=" " + ;; + *) + ENV_CMD="export" + SET_ELEMENT="=" + ;; + esac + + ( + PATH=${GCC_PATH}:${PATH} + for var in PATH GCC_SPECS ; do + echo "${ENV_CMD} ${var}${SET_ELEMENT}\"${!var}\"" + done + ) +} + +get_bin_path() { show_var GCC_PATH "${GCC_ENV_D}/${CC_COMP}" ; } +get_lib_path() { show_var LDPATH "${GCC_ENV_D}/${CC_COMP}" ; } + +split_gcc_ver() { + # Split up the gcc profile into components: + # TARGET-VER[-specs] -> TARGET VER [specs] + # arm-linux-3.3.6 -> arm-linux 3.3.6 + # x86_64-linux-4.0.1-pre1234 -> x86_64-linux 4.0.1-pre1234 + # sh-linux-3.4.4-hardened -> sh-linux 3.4.4 hardened + # + # So below we will start at the end and run a small state machine ... + # specs [3] + # accept everything + # specs -> version transition [3->2] + # when we find a version component + # version [2] + # accept only version components (see the regex) + # version -> target transition [2->1] + # when we hit a non version component + # target [1] + # accept everything we have left + # + echo "$@" | awk -F- ' + function pushit(onme, pushee) { + return (onme == "" ? pushee : pushee"-"onme); + } + { + state=3 + targ="" + ver="" + spec="" + for (i=NF; i > 0; --i) { + if (state >= 2) { + if ($i ~ /^(alpha|beta|pre|rc|p)?[[:digit:].]+$/) { + ver=pushit(ver, $i) + state=2 + } else if (state == 3) + spec=pushit(spec, $i) + else + state=1 + } + if (state == 1) + targ = pushit(targ, $i) + } + + if (targ == "") { + if (ver == "") { + ver=spec + spec="" + } + targ=ver + ver="" + } + print targ " " ver (spec != "" ? " " spec : "") + }' +} +chop_gcc_ver_spec() { + local splitTED=$(split_gcc_ver $@) # target ver spec + splitTED=${splitTED#* } # ver spec + echo ${splitTED/ /-} # ver-spec +} + +SET_X=false +NEED_ACTION="yes" +DOIT="switch_profile" +CHECK_CHOST="no" +FORCE="no" + +CC_COMP= +ENV_D="${ROOT}etc/env.d" +GCC_ENV_D="${ENV_D}/gcc" + +for x in "$@" ; do + case "${x}" in + # Only use specified compiler if one is not already selected. + -O|--use-old) + : ${CTARGET:=$(try_real_hard_to_find_CHOST)} + if get_current_profile &>/dev/null ; then + CC_COMP=$(get_current_profile) + else + die_eerror "No profile selected, unable to utilize --use-old" + fi + ;; + -f|--force) + FORCE="yes" + ;; + -P|--use-portage-chost) + CHECK_CHOST="yes" + ;; + -c|--get-current-profile) + if [[ ${NEED_ACTION} == "yes" ]] ; then + NEED_ACTION="no" + DOIT="get_current_profile" + fi + ;; + -l|--list-profiles) + if [[ ${NEED_ACTION} == "yes" ]] ; then + NEED_ACTION="no" + DOIT="list_profiles" + fi + ;; + -S|--split-profile) + if [[ ( $1 != "-S" && $1 != "--split-profile" ) || $# -eq 1 ]] ; then + usage 1 + fi + shift # push -S out + for x in "$@" ; do + split_gcc_ver ${x} + done + exit 0 + ;; + -E|--print-environ) + if [[ ${NEED_ACTION} == "yes" ]] ; then + NEED_ACTION="no" + DOIT="print_environ" + fi + ;; + -B|--get-bin-path) + if [[ ${NEED_ACTION} == "yes" ]] ; then + NEED_ACTION="no" + DOIT="get_bin_path" + fi + ;; + -L|--get-lib-path) + if [[ ${NEED_ACTION} == "yes" ]] ; then + NEED_ACTION="no" + DOIT="get_lib_path" + fi + ;; + -x|--debug) + SET_X=true + ;; + -C|--nocolor) + # nothing to do; functions.sh parsed this for us + ;; + -h|--help) + usage 0 + ;; + -V|--version) + unset RCSfile Revision Date + rcsfile="$RCSfile: gcc-config-1.5,v $" + rcsfile=${rcsfile#: } + rcsfile=${rcsfile%,v*} + cvsrev="$Revision: 1.7 $" + cvsrev=${cvsrev#: } + cvsdate="$Date: 2011/12/07 05:42:19 $" + cvsdate=${cvsdate#: } + echo "${rcsfile} (r${cvsrev% *} @ ${cvsdate% *})" + exit 0 + ;; + -*) + die_eerror "Invalid switch! Run ${argv0} without parameters for help." + ;; + *) + ${SET_X} && set -x + if [[ -z ${CC_COMP} ]] ; then + if [[ -z $(echo ${x} | tr -d '[:digit:]') ]] ; then + # User gave us a # representing the profile + i=1 + for y in "${GCC_ENV_D}"/* ; do + [[ -f ${y} ]] || continue + [[ ${y} == */config* ]] && continue + + if [[ -f ${y} ]] && [[ ${x} == ${i} ]] ; then + CC_COMP=${y##*/} + break + fi + ((++i)) + done + if [[ -z ${CC_COMP} ]] ; then + die_eerror "Could not locate profile #$x !" + fi + else + # User gave us a full HOST-gccver + x=${x##*/} + if [[ ${DOIT} == "get_current_profile" && -z $(ls "${GCC_ENV_D}"/${x}-* 2>/dev/null) ]] || \ + [[ ${DOIT} != "get_current_profile" && ! -f ${GCC_ENV_D}/${x} ]] + then + # Maybe they just gave us a gccver ... + get_real_chost + if [[ -f ${GCC_ENV_D}/${REAL_CHOST}-${x} ]] ; then + x=${REAL_CHOST}-${x} + else + die_eerror "Could not locate '$x' in '${GCC_ENV_D}/' !" + fi + fi + CC_COMP=${x} + fi + else + die_eerror "Too many arguments! Run ${argv0} without parameters for help." + fi + ;; + esac +done + +${SET_X} && set -x + +if [[ ${DOIT} == "switch_profile" ]] && [[ -z ${CC_COMP} ]] ; then + usage 1 +fi + +get_real_chost +[[ ${DOIT} == "get_current_profile" ]] \ + && : ${CTARGET:=${CC_COMP:-${REAL_CHOST}}} \ + || : ${CTARGET:=${REAL_CHOST}} + +if [[ -z ${CC_COMP} ]] ; then + CC_COMP=$(get_current_profile) + if [[ $? -ne 0 ]] ; then + echo "${CC_COMP}" + list_profiles + exit 1 + fi +fi + +if [[ ${DOIT} != "get_current_profile" ]] ; then + GCC_LIB=$( + show_var LDPATH "${GCC_ENV_D}/${CC_COMP}" | \ + awk -F/ '{ print "/"$2"/"$3"/"$4"/" }' + ) + + CC_COMP_VERSION=$(chop_gcc_ver_spec ${CC_COMP}) + CC_COMP_TARGET=${CC_COMP%-${CC_COMP_VERSION}*} + + if [[ ! -d ${ROOT}/${GCC_LIB}/${CC_COMP_TARGET}/${CC_COMP_VERSION} ]]; then + CC_COMP_VERSION=${CC_COMP_VERSION%-*} + fi + + if [[ ! -d ${ROOT}/${GCC_LIB}/${CC_COMP_TARGET}/${CC_COMP_VERSION} ]] || \ + [[ ! -f ${GCC_ENV_D}/${CC_COMP} ]] + then + eerror "${argv0}: Profile does not exist or invalid setting for ${GCC_ENV_D}/${CC_COMP}" 1>&2 + #exit 1 + fi +fi + +if [[ ${CHECK_CHOST} == "yes" ]] ; then + # Chosen CHOST are not the same as the real CHOST according to + # make.conf, and --use-portage-chost option was given, so do nothing + get_real_chost + CC_COMP_VERSION=$(chop_gcc_ver_spec ${CC_COMP}) + CC_COMP_TARGET=${CC_COMP:0:${#CC_COMP}-${#CC_COMP_VERSION}-1} + [[ ${CC_COMP_TARGET} != ${REAL_CHOST} ]] && exit 0 +fi + +${DOIT} + +# vim:ts=4 diff --git a/sys-devel/gcc-config/files/gcc-config-1.5.1 b/sys-devel/gcc-config/files/gcc-config-1.5.1 new file mode 100755 index 00000000..e295ce3c --- /dev/null +++ b/sys-devel/gcc-config/files/gcc-config-1.5.1 @@ -0,0 +1,763 @@ +#!/bin/bash +# Copyright 1999-2012 Gentoo Foundation +# Distributed under the terms of the GNU General Public License v2 +# $Header: /var/cvsroot/gentoo-x86/sys-devel/gcc-config/files/gcc-config-1.5.1,v 1.2 2012/03/15 01:16:44 vapier Exp $ + +# Format of /etc/env.d/gcc/: +# config-TARGET: CURRENT=version for TARGET +# TARGET-VER: has a TARGET and VER variable + +: ${ROOT:=/} +[[ ${ROOT} != */ ]] && ROOT="${ROOT}/" +[[ ${ROOT} != /* ]] && ROOT="${PWD}${ROOT}" + +cd / + +trap ":" INT QUIT TSTP + +argv0=${0##*/} +source /etc/init.d/functions.sh || { + echo "${argv0}: Could not source /etc/init.d/functions.sh!" 1>&2 + exit 1 +} +esyslog() { :; } +umask 022 + +die_eerror() { + eerror "${argv0}: $*" + exit 1 +} + +# *BSD are plain stupid ... copy a GNU extension but don't just copy it, +# change it so it works differently. Wish Darwin did selective evolution +# on software developers. +SED=$(type -P gsed) +: ${SED:=$(type -P sed)} + +# Further pain: `tac` is not available everywhere #390179 +if ! type -P tac >/dev/null ; then + tac() { ${SED} -e '1!G;h;$!d' "$@" ; } +fi + +GENTOO_LIBDIR="@GENTOO_LIBDIR@" +[[ ${GENTOO_LIBDIR} == @*@ ]] && GENTOO_LIBDIR="lib" + +usage() { +cat << "USAGE_END" +Usage: gcc-config [options] [CC Profile] +Change the current cc/gcc profile, or give info about profiles. + +Options: + -C, --nocolor Disable color output + -O, --use-old Use the old profile if one was selected. + -f, --force Make sure all config files are regenerated. + -P, --use-portage-chost Only set to given profile if its CHOST is the + same as that set in /etc/portage/make.conf + (or one of other portage config files...). + -c, --get-current-profile Print current used gcc profile. + -l, --list-profiles Print a list of available profiles. + -S, --split-profile Split profiles into their components + -E, --print-environ Print environment that can be used to setup the + current gcc profile, or a specified one. + -B, --get-bin-path Print path where binaries of the given/current + profile are located. + -L, --get-lib-path Print path where libraries of the given/current + profile are located. + +Profile names are of the form: <CHOST>-<gcc version> +For example: i686-pc-linux-gnu-3.2.1 +USAGE_END + exit ${1:-1} +} +[[ $# -lt 1 ]] && usage 1 + +# Usage: source_var <var> <file> [default value] +source_var() { + unset $1 + local val=$(source "$2"; echo "${!1}") + : ${val:=$3} + eval $1=\"${val}\" +} +show_var() { + source_var "$@" + echo "${!1}" +} + +try_real_hard_to_find_CHOST() { + # + # First we read make.conf + # + + local varname=${1:-CHOST} + local conf=${ROOT}/etc/portage/make.conf + if [[ ! -e ${conf} && -e ${ROOT}/etc/make.conf ]] ; then + conf=${ROOT}/etc/make.conf + fi + local ret=$(source "${conf}" 2>/dev/null ; echo ${!varname}) + if [[ -z ${ret} ]] ; then + # newer portage supports spaces between the var and = + # CHOST = "this-is-retarded" + ret=$(eval $( + sed -n \ + -e 's:[[:space:]]::g' \ + -e "/^${varname}=/p" \ + "${conf}" + ) ; echo ${!varname} + ) + fi + + if [[ -n ${ret} ]] ; then + echo ${ret} + return 0 + fi + + # + # Then we try /etc/env.d/gcc/config-${CTARGET} + # + if [[ -s ${ROOT}/etc/env.d/gcc/config-${CTARGET} ]] ; then + ret=$(split_gcc_ver $(show_var CURRENT "${ROOT}"/etc/env.d/gcc/config-${CTARGET})) + echo ${ret% *} + fi +} + +get_real_chost() { + [[ -n ${REAL_CHOST} ]] && return 0 + + # shortcut for switching compilers in a cross chroot + if [[ -n ${CHOST} && ${ROOT} != "/" ]] ; then + REAL_CHOST=${CHOST} + return 0 + fi + + # make sure portage isnt broken + if python -V &>/dev/null ; then + export REAL_CHOST=$(env -i portageq envvar CHOST 2>/dev/null) + else + ewarn "Python seems to be broken, attempting to locate CHOST ourselves ..." + export REAL_CHOST=$(try_real_hard_to_find_CHOST) + fi + + if [[ -z ${REAL_CHOST} ]] ; then + eerror "${argv0}: Could not get portage CHOST!" + eerror "${argv0}: You should verify that CHOST is set in one of these places:" + eerror "${argv0}: - ${ROOT}/etc/portage/make.conf" + eerror "${argv0}: - active environment" + exit 1 + fi +} + +is_cross_compiler() { + get_real_chost + [[ ${CC_COMP/${REAL_CHOST}} == ${CC_COMP} ]] +} + +convert_profile_paths() { + # Older gcc's used PATH= and ROOTPATH= in the env.d files. + # Newer one's only use GCC_PATH=. Convert old to new here. + cp -p "${GCC_ENV_D}/${CC_COMP}" "${GCC_ENV_D}/${CC_COMP}.gcc-config-ref" || return 1 + GCC_PATH=$( + unset GCC_PATH PATH ROOTPATH + source "${GCC_ENV_D}/${CC_COMP}" + echo ${GCC_PATH:-${PATH:-${ROOTPATH}}} + ) + ${SED} -i \ + -e '/^PATH=/d' \ + -e '/^ROOTPATH=/d' \ + -e '/^GCC_PATH=/d' \ + "${GCC_ENV_D}/${CC_COMP}" || return 1 + echo "GCC_PATH=\"${GCC_PATH}\"" >> "${GCC_ENV_D}/${CC_COMP}" || return 1 + touch -r "${GCC_ENV_D}/${CC_COMP}.gcc-config-ref" "${GCC_ENV_D}/${CC_COMP}" || return 1 + rm -f "${GCC_ENV_D}/${CC_COMP}.gcc-config-ref" || return 1 + return 0 +} + +update_wrappers() { + local CTARGET=$1 + + # Find the bin wrapper + local wrapper + for wrapper in ${GENTOO_LIBDIR} lib lib64 lib32 lib ; do + wrapper="${ROOT}usr/${wrapper}/misc/gcc-config" + [[ -e ${wrapper} ]] && break + done + + # Update the wrappers for this profile. We maintain this list + # by hand as the tools that are available can come & go if the + # user re-emerges gcc with dif USE flags. We need to clean out + # the old wrappers if the functionality no longer exists. + # XXX: Future work: save the list of wrappers we generated in + # the generated env.d file so we can scrub things better. + # After that, we can use a dynamic list based on what tools are + # actually available in ${GCC_PATH}/. + for x in {,${CTARGET}-}{cpp,cc,gcc,c++,g++,f77,g77,gcj,gcjh,gcov,gdc,gdmd,gfortran,gccgo} ; do + # Obviously don't want to touch native stuff for cross-compilers + [[ ${x} != ${CTARGET}-* ]] && is_cross_compiler && continue + + # Make sure we have no stale wrappers + rm -f "${ROOT}/usr/bin/${x}" + [[ ${x:${#x}-3} == "gcc" || ${x:${#x}-3} == "g++" ]] \ + && rm -f "${ROOT}/usr/bin/${x}"{32,64} + + # Only install a wrapper if the binary exists ... + # We want to figure out the 'reference file' for each + # wrapper (the binary we're 'wrapping') so that we can + # sync mtimes together. This makes things like ccache + # happy. See Bug #70548 for more info. + local ref + case ${x} in + cc) ref=gcc;; + f77) ref=g77;; + *) ref=${x};; + esac + ref="${ROOT}/${GCC_PATH}/${ref}" + if [[ -x ${ref} ]] ; then + cp -f "${wrapper}" "${ROOT}/usr/bin/${x}" + touch -r "${ref}" "${ROOT}/usr/bin/${x}" + fi + done + # legacy cruft, make sure we dont leave it laying around #143205 + rm -f "${ROOT}/usr/bin/${CTARGET}-cc" + + # install the canonical cpp wrapper + [[ ${CTARGET} == *-solaris* ]] && return 0 + if ! is_cross_compiler ; then + cp -f "${wrapper}" "${ROOT}/lib/cpp" + touch -r "${ROOT}/usr/bin/${CTARGET}-cpp" "${ROOT}/lib/cpp" + fi +} + +mv_if_diff() { + if cmp -s "$1" "$2" ; then + rm -f "$1" + return 0 + else + mv -f "$1" "$2" + return 1 + fi +} + +switch_profile() { + local GCC_PROFILES= + local OLD_CC_COMP= + local GCC_PATH= + + [[ $(id -u) != "0" ]] && die_eerror "Must be root" + + if is_cross_compiler ; then + ebegin "Switching cross-compiler to ${CC_COMP}" + else + ebegin "Switching native-compiler to ${CC_COMP}" + fi + + if egrep -q '^(PATH|ROOTPATH)=' "${GCC_ENV_D}/${CC_COMP}" ; then + convert_profile_paths "${GCC_ENV_D}/${CC_COMP}" || return 1 + fi + source_var GCC_PATH "${GCC_ENV_D}/${CC_COMP}" + + # Setup things properly again for this profile + unset GCC_SPECS LDPATH + source "${GCC_ENV_D}/${CC_COMP}" + # Ignore active profile errors here since we're switching away + OLD_CC_COMP=$(get_current_profile 2>/dev/null) + + # GCC_SPECS have long been stable, and people messing with + # them know better than to install bad paths, so don't bother + # with sanity checks. + local envd="${ENV_D}/05gcc-${CTARGET}" + cat <<-EOF > "${envd}.tmp" + PATH="${GCC_PATH}" + ROOTPATH="${GCC_PATH}" + GCC_SPECS="${GCC_SPECS}" + EOF + echo "CURRENT=${CC_COMP}" > "${GCC_ENV_D}/config-${CTARGET}" + if ! is_cross_compiler ; then + # Regardless of the profile selected, keep the runtime lookup + # paths stable. Otherwise, all the apps that were built with + # a new compiler will start trying to use older versions of + # the libs, and life gets sad. We work off the assumption + # that every shared library gcc ships is ABI compatible (as + # is the point of SONAMEs). We don't have to worry about + # static libraries here as gcc itself will take care of + # linking against its own internal paths first. #297685 + local MY_LDPATH + get_real_chost + MY_LDPATH=$(${SED} -n \ + -e '/^LDPATH=/{s|LDPATH=||;s|"||g;s|:|\n|g;p}' \ + "${GCC_ENV_D}"/${REAL_CHOST}-* | tac + ) + + # Pass all by default + awk '!/^(STDCXX_INCDIR|LDPATH|CC|CXX|CTARGET|GCCBITS|GCC_SPECS|GCC_PATH)=/ {print $0}' \ + "${GCC_ENV_D}/${CC_COMP}" >> "${envd}.tmp" + if [[ -d ${ROOT}/etc/ld.so.conf.d ]] ; then + echo "${MY_LDPATH}" > "${ROOT}"/etc/ld.so.conf.d/05gcc-${CTARGET}.conf + else + echo "LDPATH=\"${MY_LDPATH}\"" >> "${envd}.tmp" + fi + + # Punt old files; maybe globs too much, but oh well + rm -f \ + "${GCC_ENV_D}/NATIVE" "${GCC_ENV_D}/.NATIVE" \ + "${ENV_D}/05gcc" "${GCC_ENV_D}/config" \ + "${ENV_D}/05gcc-${CTARGET}"-* "${GCC_ENV_D}/config-${CTARGET}"-* + + # Help out the gcc wrapper + ln -sf ${CC_COMP} "${GCC_ENV_D}/.NATIVE" + + # Relocate random crap + if [[ -e ${ROOT}/usr/${GENTOO_LIBDIR}/pkgconfig/libgcj-${CC_COMP_VERSION}.pc ]] ; then + local mver=${CC_COMP_VERSION:0:3} + for x in "" "-${mver}" ; do + x="${ROOT}/usr/lib/pkgconfig/libgcj${x}.pc" + rm -f "${x}" + ln -s libgcj-${CC_COMP_VERSION}.pc "${x}" + done + fi + + # We need to make sure that libgcc_s.so / libunwind.so make it into /lib. + # On many systems (x86/amd64/etc...), this will probably never matter, + # but on other systems (arm/mips/etc...), this is quite critical. + # http://bugs.gentoo.org/60190 + # + # The funky move magic is required for proper updating of in-use files. + # + # XXX: This fails when configuring the native target in a cross-compiled + # ROOT. Only way around that is to store the multilib configuration + # in the gcc profile when we compiled it and then read that instead + # of executing the gcc. Some day. + # + # We use the same ordering logic as mentioned in the MY_LDPATH setup. + # We get the libs from the latest version available. + local LATEST_GCC_PATH gcc LATEST_GCC_LDPATH + + LATEST_GCC_PATH=$(gawk -F= ' + $1 == "GCC_PATH" { + p = gensub("\"","","g",$2) + } + END { print p } + ' "${GCC_ENV_D}"/${REAL_CHOST}-* + ) + gcc="${ROOT}${LATEST_GCC_PATH}/gcc" + + local multilib + for multilib in $("${gcc}" -print-multi-lib); do + local multiarg=${multilib#*;} + multiarg=${multiarg/@/-} + local multilibdir=${multilib%;*} + local libdir="${ROOT}lib/"$("${gcc}" ${multiarg} -print-multi-os-directory) + + mkdir -p "${libdir}"/.gcc.config.new || continue # !?!?! + + local gcclib + for gcclib in gcc_s unwind ; do + # This assumes that we always have the .so symlink, + # but for now, that should be safe ... + gcclib=$("${gcc}" -print-file-name="lib${gcclib}.so") + if [[ ${gcclib} == */* ]] ; then + cp -pP "${ROOT}${gcclib}".* "${libdir}"/.gcc.config.new/ + # no need to sanity remove this as the `mv` should take + # care of it. we also need this step to be completly atomic + # for systems that have even `mv` linked against libgcc_s.so. + # http://bugs.gentoo.org/150257 + #rm -f "${libdir}"/lib${gcclib}.so* + mv -f "${libdir}"/.gcc.config.new/* "${libdir}"/ + fi + done + rmdir "${libdir}"/.gcc.config.new + done + fi + mv_if_diff "${envd}.tmp" "${envd}" + local envd_changed=$? + + update_wrappers ${CTARGET} + + if [[ ${ROOT} == "/" ]] && \ + [[ ${OLD_CC_COMP} != ${CC_COMP} || ${FORCE} == "yes" ]] && \ + [[ ${envd_changed} -eq 1 ]] + then + # in case python is broken ... + if ! env-update ; then + echo "" + ewarn "env-update failed to work properly; making sure ld.so.conf paths" + ewarn "are setup properly. Please rerun gcc-config with the -f option." + echo "" + if [[ ! -d /etc/ld.so.conf.d ]] ; then + show_var LDPATH "${ROOT}"/etc/env.d/05gcc-${CTARGET} \ + | sed -e 's|:|\n|g' >> /etc/ld.so.conf + fi + ldconfig + fi + else + envd_changed=0 + fi + + eend 0 + + if [[ ${envd_changed} -ne 0 ]] ; then + echo + ewarn "If you intend to use the gcc from the new profile in an already" + ewarn "running shell, please remember to do:" + echo + ewarn " . /etc/profile" + echo + fi + + return 0 +} + +get_current_profile() { + local conf="${GCC_ENV_D}/config-${CTARGET}" + if [[ ! -f ${conf} ]] ; then + conf="${GCC_ENV_D}/config" # old name + elif [[ -n ${CC_COMP} ]] && is_cross_compiler ; then + conf="${conf}-${CC_COMP}" + fi + + if [[ ! -f ${conf} ]] ; then + eerror "${argv0}: No gcc profile is active!" + return 1 + fi + + source_var CURRENT "${conf}" + + if [[ -z ${CURRENT} ]] ; then + eerror "${argv0}: No gcc profile is active!" + return 1 + elif [[ ! -f ${GCC_ENV_D}/${CURRENT} ]] ; then + eerror "${argv0}: Active gcc profile is invalid!" + return 1 + fi + + echo "${CURRENT}" + + return 0 +} + +list_profiles() { + local i=0 + local filter= + + if [[ ${ROOT} != "/" ]] ; then + echo "Using gcc-config info in ${ROOT}" + fi + + if [[ ! -f ${GCC_ENV_D}/config-${CTARGET} ]] ; then + if ! is_cross_compiler && [[ -e ${GCC_ENV_D}/config ]] ; then + [[ -w ${GCC_ENV_D}/config ]] && mv ${GCC_ENV_D}/config ${GCC_ENV_D}/config-${CTARGET} + else + # get_current_profile already warns + #eerror "${argv0}: No gcc profile is active; please select one!" + filter=${CTARGET} + fi + fi + + source_var CURRENT "${GCC_ENV_D}"/config-${CTARGET} + CURRENT_NATIVE=${CURRENT} + local target= + for x in "${GCC_ENV_D}"/* ; do + [[ -f ${x} ]] || continue + [[ ${x} == */config* ]] && continue + + source_var CTARGET "${x}" + + ((++i)) + + [[ -n ${filter} ]] && [[ ${filter} != ${CTARGET} ]] && continue + + if [[ ${target} != ${CTARGET} ]] ; then + [[ ${i} -gt 1 ]] && echo + target=${CTARGET} + CTARGET="" + fi + + x=${x##*/} + if [[ ${x} == ${CURRENT_NATIVE} ]] ; then + x="${x} ${GOOD}*${NORMAL}" + elif [[ -e ${GCC_ENV_D}/config-${target} ]] ; then + source "${GCC_ENV_D}/config-${target}" + [[ ${x} == ${CURRENT} ]] && x="${x} ${HILITE}*${NORMAL}" + fi + echo " [${i}] ${x}" + done +} + +print_environ() { + local ENV_CMD SET_ELEMENT + case ${SHELL} in + */csh|*/tcsh) + ENV_CMD="setenv" + SET_ELEMENT=" " + ;; + *) + ENV_CMD="export" + SET_ELEMENT="=" + ;; + esac + + local var + for var in GCC_SPECS GCC_PATH ; do + local ${var} + source_var ${var} "${GCC_ENV_D}/${CC_COMP}" + done + + ( + [[ -n ${GCC_PATH} ]] && PATH=${GCC_PATH}:${PATH} + for var in PATH GCC_SPECS ; do + echo "${ENV_CMD} ${var}${SET_ELEMENT}\"${!var}\"" + done + ) +} + +get_bin_path() { show_var GCC_PATH "${GCC_ENV_D}/${CC_COMP}" ; } +get_lib_path() { show_var LDPATH "${GCC_ENV_D}/${CC_COMP}" ; } + +split_gcc_ver() { + # Split up the gcc profile into components: + # TARGET-VER[-specs] -> TARGET VER [specs] + # arm-linux-3.3.6 -> arm-linux 3.3.6 + # x86_64-linux-4.0.1-pre1234 -> x86_64-linux 4.0.1-pre1234 + # sh-linux-3.4.4-hardened -> sh-linux 3.4.4 hardened + # + # So below we will start at the end and run a small state machine ... + # specs [3] + # accept everything + # specs -> version transition [3->2] + # when we find a version component + # version [2] + # accept only version components (see the regex) + # version -> target transition [2->1] + # when we hit a non version component + # target [1] + # accept everything we have left + # + echo "$@" | awk -F- ' + function pushit(onme, pushee) { + return (onme == "" ? pushee : pushee"-"onme); + } + { + state=3 + targ="" + ver="" + spec="" + for (i=NF; i > 0; --i) { + if (state >= 2) { + if ($i ~ /^(alpha|beta|pre|rc|p)?[[:digit:].]+$/) { + ver=pushit(ver, $i) + state=2 + } else if (state == 3) + spec=pushit(spec, $i) + else + state=1 + } + if (state == 1) + targ = pushit(targ, $i) + } + + if (targ == "") { + if (ver == "") { + ver=spec + spec="" + } + targ=ver + ver="" + } + print targ " " ver (spec != "" ? " " spec : "") + }' +} +chop_gcc_ver_spec() { + local splitTED=$(split_gcc_ver "$@") # target ver spec + splitTED=${splitTED#* } # ver spec + echo ${splitTED/ /-} # ver-spec +} + +SET_X=false +NEED_ACTION="yes" +DOIT="switch_profile" +CHECK_CHOST="no" +FORCE="no" + +CC_COMP= +ENV_D="${ROOT}etc/env.d" +GCC_ENV_D="${ENV_D}/gcc" + +for x in "$@" ; do + case "${x}" in + # Only use specified compiler if one is not already selected. + -O|--use-old) + : ${CTARGET:=$(try_real_hard_to_find_CHOST)} + if get_current_profile &>/dev/null ; then + CC_COMP=$(get_current_profile) + else + die_eerror "No profile selected, unable to utilize --use-old" + fi + ;; + -f|--force) + FORCE="yes" + ;; + -P|--use-portage-chost) + CHECK_CHOST="yes" + ;; + -c|--get-current-profile) + if [[ ${NEED_ACTION} == "yes" ]] ; then + NEED_ACTION="no" + DOIT="get_current_profile" + fi + ;; + -l|--list-profiles) + if [[ ${NEED_ACTION} == "yes" ]] ; then + NEED_ACTION="no" + DOIT="list_profiles" + fi + ;; + -S|--split-profile) + if [[ ( $1 != "-S" && $1 != "--split-profile" ) || $# -eq 1 ]] ; then + usage 1 + fi + shift # push -S out + for x in "$@" ; do + split_gcc_ver ${x} + done + exit 0 + ;; + -E|--print-environ) + if [[ ${NEED_ACTION} == "yes" ]] ; then + NEED_ACTION="no" + DOIT="print_environ" + fi + ;; + -B|--get-bin-path) + if [[ ${NEED_ACTION} == "yes" ]] ; then + NEED_ACTION="no" + DOIT="get_bin_path" + fi + ;; + -L|--get-lib-path) + if [[ ${NEED_ACTION} == "yes" ]] ; then + NEED_ACTION="no" + DOIT="get_lib_path" + fi + ;; + -x|--debug) + SET_X=true + ;; + -C|--nocolor) + # nothing to do; functions.sh parsed this for us + ;; + -h|--help) + usage 0 + ;; + -V|--version) + unset RCSfile Revision Date + rcsfile="$RCSfile: gcc-config-1.5.1,v $" + rcsfile=${rcsfile#: } + rcsfile=${rcsfile%,v*} + cvsrev="$Revision: 1.2 $" + cvsrev=${cvsrev#: } + cvsdate="$Date: 2012/03/15 01:16:44 $" + cvsdate=${cvsdate#: } + echo "${rcsfile} (r${cvsrev% *} @ ${cvsdate% *})" + exit 0 + ;; + -*) + die_eerror "Invalid switch! Run ${argv0} without parameters for help." + ;; + *) + ${SET_X} && set -x + if [[ -z ${CC_COMP} ]] ; then + if [[ -z $(echo ${x} | tr -d '[:digit:]') ]] ; then + # User gave us a # representing the profile + i=1 + for y in "${GCC_ENV_D}"/* ; do + [[ -f ${y} ]] || continue + [[ ${y} == */config* ]] && continue + + if [[ -f ${y} ]] && [[ ${x} == ${i} ]] ; then + CC_COMP=${y##*/} + break + fi + ((++i)) + done + if [[ -z ${CC_COMP} ]] ; then + die_eerror "Could not locate profile #$x !" + fi + else + # User gave us a full HOST-gccver + x=${x##*/} + if [[ ${DOIT} == "get_current_profile" && -z $(ls "${GCC_ENV_D}"/${x}-* 2>/dev/null) ]] || \ + [[ ${DOIT} != "get_current_profile" && ! -f ${GCC_ENV_D}/${x} ]] + then + # Maybe they just gave us a gccver ... + get_real_chost + if [[ -f ${GCC_ENV_D}/${REAL_CHOST}-${x} ]] ; then + x=${REAL_CHOST}-${x} + else + die_eerror "Could not locate '$x' in '${GCC_ENV_D}/' !" + fi + fi + CC_COMP=${x} + fi + else + die_eerror "Too many arguments! Run ${argv0} without parameters for help." + fi + ;; + esac +done + +${SET_X} && set -x + +if [[ ${DOIT} == "switch_profile" ]] && [[ -z ${CC_COMP} ]] ; then + usage 1 +fi + +get_real_chost +[[ ${DOIT} == "get_current_profile" ]] \ + && : ${CTARGET:=${CC_COMP:-${REAL_CHOST}}} \ + || : ${CTARGET:=${REAL_CHOST}} + +if [[ -z ${CC_COMP} ]] ; then + CC_COMP=$(get_current_profile) + if [[ $? -ne 0 ]] ; then + echo "${CC_COMP}" + list_profiles + exit 1 + fi +fi + +if [[ ${DOIT} != "get_current_profile" ]] ; then + GCC_LIB=$(get_lib_path | awk -F/ '{ print "/"$2"/"$3"/"$4"/" }') + + # For people who insist on using funky version strings ("4.6.x" + # rather than "4.6.2"), allow them to manually specify it. + source_var GCC_VER "${GCC_ENV_D}/${CC_COMP}" + + CC_COMP_VERSION=${GCC_VER:-$(chop_gcc_ver_spec ${CC_COMP})} + CC_COMP_TARGET=$(show_var CTARGET "${GCC_ENV_D}/${CC_COMP}") + if [[ -z ${CC_COMP_TARGET} ]] ; then + # Native configs don't have CTARGET in there. + CC_COMP_TARGET=${CC_COMP%-${CC_COMP_VERSION}*} + fi + + if [[ ! -d ${ROOT}/${GCC_LIB}/${CC_COMP_TARGET}/${CC_COMP_VERSION} ]]; then + CC_COMP_VERSION=${CC_COMP_VERSION%-*} + fi + + if [[ ! -d ${ROOT}/${GCC_LIB}/${CC_COMP_TARGET}/${CC_COMP_VERSION} ]] || \ + [[ ! -f ${GCC_ENV_D}/${CC_COMP} ]] + then + eerror "${argv0}: Profile does not exist or invalid setting for ${GCC_ENV_D}/${CC_COMP}" 1>&2 + #exit 1 + fi +fi + +if [[ ${CHECK_CHOST} == "yes" ]] ; then + # Chosen CHOST are not the same as the real CHOST according to + # make.conf, and --use-portage-chost option was given, so do nothing + get_real_chost + CC_COMP_VERSION=$(chop_gcc_ver_spec ${CC_COMP}) + CC_COMP_TARGET=${CC_COMP:0:${#CC_COMP}-${#CC_COMP_VERSION}-1} + [[ ${CC_COMP_TARGET} != ${REAL_CHOST} ]] && exit 0 +fi + +${DOIT} + +# vim:ts=4 diff --git a/sys-devel/gcc-config/files/gcc-config-kogaion-base-gcc-support-2.patch b/sys-devel/gcc-config/files/gcc-config-kogaion-base-gcc-support-2.patch new file mode 100644 index 00000000..35c38d4e --- /dev/null +++ b/sys-devel/gcc-config/files/gcc-config-kogaion-base-gcc-support-2.patch @@ -0,0 +1,18 @@ +diff -Nurp gcc-config-1.8.orig/gcc-config gcc-config-1.8/gcc-config +--- gcc-config-1.8.orig/gcc-config 2012-11-19 04:11:11.000000000 +0100 ++++ gcc-config-1.8/gcc-config 2013-05-22 22:22:06.187665419 +0200 +@@ -209,6 +209,14 @@ update_wrappers() { + ) + ) ) + ++ # Kogaion: base-gcc does not bring any gcc executables. Return 1 ++ # if ${ROOT}${GCC_PATH} does not exist without even trying to ++ # `cd` it. ++ if [[ ! -d "${ROOT}${GCC_PATH}" ]]; then ++ ewarn "The GCC compiler for ${CTARGET} is not installed." ++ return 1 ++ fi ++ + # See what new stuff we need to wrap up. + local new_wrappers=( $( + uniq_wrapper_list "${CC_COMP_VERSION}" $( diff --git a/sys-devel/gcc-config/files/gcc-config-kogaion-base-gcc-support.patch b/sys-devel/gcc-config/files/gcc-config-kogaion-base-gcc-support.patch new file mode 100644 index 00000000..4b61c6cd --- /dev/null +++ b/sys-devel/gcc-config/files/gcc-config-kogaion-base-gcc-support.patch @@ -0,0 +1,30 @@ +--- a/gcc-config ++++ b/gcc-config +@@ -209,6 +209,14 @@ update_wrappers() { + ) + ) ) + ++ # Kogaion: base-gcc does not bring any gcc executables. Return 1 ++ # if ${ROOT}${GCC_PATH} does not exist without even trying to ++ # `cd` it. ++ if [[ ! -d "${ROOT}${GCC_PATH}" ]]; then ++ ewarn "The GCC compiler for ${CTARGET} is not installed." ++ return 1 ++ fi ++ + # See what new stuff we need to wrap up. + local new_wrappers=( $( + uniq_wrapper_list "${CC_COMP_VERSION}" $( +@@ -331,6 +339,12 @@ handle_split_usr() { + + gcc="${ROOT}${LATEST_GCC_PATH}/gcc" + ++ # Kogaion: base-gcc does not carry the GCC executable, so ++ # skip this part ++ if [[ ! -x "${gcc}" ]]; then ++ return 0 ++ fi ++ + local multilib + for multilib in $("${gcc}" -print-multi-lib); do + local multiarg=${multilib#*;} diff --git a/sys-devel/gcc-config/files/gcc-config-systemd.patch b/sys-devel/gcc-config/files/gcc-config-systemd.patch new file mode 100644 index 00000000..dbb7c280 --- /dev/null +++ b/sys-devel/gcc-config/files/gcc-config-systemd.patch @@ -0,0 +1,13 @@ +--- gcc-config-1.7.3.old/gcc-config 2015-03-30 13:34:12.258805571 +0300 ++++ gcc-config-1.7.3/gcc-config 2015-03-30 13:36:14.432808842 +0300 +@@ -15,8 +15,8 @@ + trap ":" INT QUIT TSTP + + argv0=${0##*/} +-source /etc/init.d/functions.sh || { +- echo "${argv0}: Could not source /etc/init.d/functions.sh!" 1>&2 ++source /lib/gentoo/functions.sh || { ++ echo "${argv0}: Could not source /lib/gentoo/functions.sh!" 1>&2 + exit 1 + } + esyslog() { :; } diff --git a/sys-devel/gcc-config/files/wrapper-1.5.1.c b/sys-devel/gcc-config/files/wrapper-1.5.1.c new file mode 100644 index 00000000..055594b5 --- /dev/null +++ b/sys-devel/gcc-config/files/wrapper-1.5.1.c @@ -0,0 +1,372 @@ +/* + * Copyright 1999-2008 Gentoo Foundation + * Distributed under the terms of the GNU General Public License v2 + * $Header: /var/cvsroot/gentoo-x86/sys-devel/gcc-config/files/wrapper-1.5.1.c,v 1.2 2009/01/02 00:43:32 vapier Exp $ + * Author: Martin Schlemmer <azarah@gentoo.org> + * az's lackey: Mike Frysinger <vapier@gentoo.org> + */ + +#ifdef DEBUG +# define USE_DEBUG 1 +#else +# define USE_DEBUG 0 +#endif + +#include <errno.h> +#include <libgen.h> +#include <limits.h> +#include <stdio.h> +#include <stdlib.h> +#include <string.h> +#include <unistd.h> +#include <sys/stat.h> +#include <sys/types.h> + +#define GCC_CONFIG "/usr/bin/gcc-config" +#define ENVD_BASE "/etc/env.d/05gcc" + +#define ARRAY_SIZE(arr) (sizeof(arr)/sizeof(arr[0])) + +/* basename(3) is allowed to modify memory */ +#undef basename +#define basename(path) \ +({ \ + char *__path = path; \ + char *__ret = strrchr(__path, '/'); \ + __ret ? __ret + 1 : __path; \ +}) + +struct wrapper_data { + char *name, *fullname, *bin, *path; +}; + +static const struct { + char *alias; + char *target; +} wrapper_aliases[] = { + { "cc", "gcc" }, + { "f77", "g77" }, +}; + +#define wrapper_warn(fmt, ...) fprintf(stderr, "%s" fmt "\n", "gcc-config: ", ## __VA_ARGS__) +#define wrapper_err(fmt, ...) ({ wrapper_warn("%s" fmt, "error: ", ## __VA_ARGS__); exit(1); }) +#define wrapper_errp(fmt, ...) wrapper_err(fmt ": %s", ## __VA_ARGS__, strerror(errno)) +#define wrapper_dbg(fmt, ...) ({ if (USE_DEBUG) wrapper_warn(fmt, ## __VA_ARGS__); }) + +#define xmemwrap(func, proto, use) \ +static void *x ## func proto \ +{ \ + void *ret = func use; \ + if (!ret) \ + wrapper_err(#func "%s", ": out of memory"); \ + return ret; \ +} +xmemwrap(malloc, (size_t size), (size)) +xmemwrap(calloc, (size_t nemb, size_t size), (nemb, size)) +xmemwrap(strdup, (const char *s), (s)) + +/* check_for_target checks in path for the file we are seeking + * it returns 1 if found (with data->bin setup), 0 if not and + * negative on error + */ +static int check_for_target(char *path, struct wrapper_data *data) +{ + struct stat sbuf; + char str[PATH_MAX + 1]; + size_t path_len = strlen(path); + size_t len = path_len + strlen(data->name) + 2; + + if (sizeof(str) < len) + wrapper_warn("path too long: %s", path); + + strcpy(str, path); + str[path_len] = '/'; + str[path_len+1] = '\0'; + strcat(str, data->name); + + /* Stat possible file to check that + * 1) it exist and is a regular file, and + * 2) it is not the wrapper itself, and + * 3) it is in a /gcc-bin/ directory tree + */ + if (strcmp(str, data->fullname) != 0 && + strstr(str, "/gcc-bin/") != NULL && + stat(str, &sbuf) == 0 && + (S_ISREG(sbuf.st_mode) || S_ISLNK(sbuf.st_mode))) + { + wrapper_dbg("%s: found in %s", data->name, path); + data->bin = xstrdup(str); + return 1; + } + + wrapper_dbg("%s: did not find in %s", data->name, path); + return 0; +} + +static int find_target_in_path(struct wrapper_data *data) +{ + char *token = NULL, *state; + char *str; + + if (data->path == NULL) + return 0; + + /* Make a copy since strtok_r will modify path */ + str = xstrdup(data->path); + + /* Find the first file with suitable name in PATH. The idea here is + * that we do not want to bind ourselfs to something static like the + * default profile, or some odd environment variable, but want to be + * able to build something with a non default gcc by just tweaking + * the PATH ... */ + token = strtok_r(str, ":", &state); + while (token != NULL) { + if (check_for_target(token, data)) + return 1; + token = strtok_r(NULL, ":", &state); + } + + wrapper_dbg("%s: did not find in PATH", data->name); + return 0; +} + +/* find_target_in_envd parses /etc/env.d/05gcc, and tries to + * extract PATH, which is set to the current profile's bin + * directory ... + */ +static int find_target_in_envd(struct wrapper_data *data, int cross_compile) +{ + FILE *envfile = NULL; + char *token = NULL, *state; + char str[PATH_MAX + 1]; + char *strp = str; + char envd_file[PATH_MAX + 1]; + + if (!cross_compile) { + /* for the sake of speed, we'll keep a symlink around for + * the native compiler. #190260 + */ + snprintf(envd_file, sizeof(envd_file)-1, "/etc/env.d/gcc/.NATIVE"); + } else { + char *ctarget, *end = strrchr(data->name, '-'); + if (end == NULL) + return 0; + ctarget = xstrdup(data->name); + ctarget[end - data->name] = '\0'; + snprintf(envd_file, PATH_MAX, "%s-%s", ENVD_BASE, ctarget); + free(ctarget); + } + + envfile = fopen(envd_file, "r"); + if (envfile == NULL) + return 0; + + while (fgets(strp, PATH_MAX, envfile) != NULL) { + /* Keep reading ENVD_FILE until we get a line that + * starts with 'GCC_PATH=' ... keep 'PATH=' around + * for older gcc versions. + */ + if (strncmp(strp, "GCC_PATH=", strlen("GCC_PATH=")) && + strncmp(strp, "PATH=", strlen("PATH="))) + continue; + + token = strtok_r(strp, "=", &state); + if ((token != NULL) && token[0]) + /* The second token should be the value of PATH .. */ + token = strtok_r(NULL, "=", &state); + else + goto bail; + + if ((token != NULL) && token[0]) { + strp = token; + /* A bash variable may be unquoted, quoted with " or + * quoted with ', so extract the value without those .. + */ + token = strtok(strp, "\n\"\'"); + + while (token != NULL) { + if (check_for_target(token, data)) { + fclose(envfile); + return 1; + } + + token = strtok(NULL, "\n\"\'"); + } + } + + strp = str; + } + + bail: + fclose(envfile); + return (cross_compile ? 0 : find_target_in_envd(data, 1)); +} + +static void find_wrapper_target(struct wrapper_data *data) +{ + if (find_target_in_path(data)) + return; + + if (find_target_in_envd(data, 0)) + return; + + /* Only our wrapper is in PATH, so get the CC path using + * gcc-config and execute the real binary in there ... + */ + FILE *inpipe = popen(GCC_CONFIG " --get-bin-path", "r"); + if (inpipe == NULL) + wrapper_errp("could not open pipe"); + + char str[PATH_MAX + 1]; + if (fgets(str, PATH_MAX, inpipe) == 0) + wrapper_errp("could not get compiler binary path"); + + /* chomp! */ + size_t plen = strlen(str); + if (str[plen-1] == '\n') + str[plen-1] = '\0'; + + data->bin = xmalloc(plen + 1 + strlen(data->name) + 1); + sprintf(data->bin, "%s/%s", str, data->name); + + pclose(inpipe); +} + +/* This function modifies PATH to have gcc's bin path appended */ +static void modify_path(struct wrapper_data *data) +{ + char *newpath = NULL, *token = NULL, *state; + char dname_data[PATH_MAX + 1], str[PATH_MAX + 1]; + char *str2 = dname_data, *dname = dname_data; + size_t len = 0; + + if (data->bin == NULL) + return; + + if (data->path == NULL) + return; + + snprintf(str2, PATH_MAX + 1, "%s", data->bin); + + if ((dname = dirname(str2)) == NULL) + return; + + /* Make a copy since strtok_r will modify path */ + snprintf(str, PATH_MAX + 1, "%s", data->path); + + token = strtok_r(str, ":", &state); + + /* Check if we already appended our bin location to PATH */ + if ((token != NULL) && token[0]) + if (!strcmp(token, dname)) + return; + + len = strlen(dname) + strlen(data->path) + 2 + strlen("PATH") + 1; + + newpath = xmalloc(len); + memset(newpath, 0, len); + + snprintf(newpath, len, "PATH=%s:%s", dname, data->path); + putenv(newpath); +} + +static char *abi_flags[] = { + "-m32", "-m64", "-mabi", +}; +static char **build_new_argv(char **argv, const char *newflags_str) +{ +#define MAX_NEWFLAGS 32 + char *newflags[MAX_NEWFLAGS]; + char **retargv; + unsigned int argc, i; + char *state, *flags_tokenized; + + retargv = argv; + + /* make sure user hasn't specified any ABI flags already ... + * if they have, lets just get out of here ... this of course + * is by no means complete, it's merely a hack that works most + * of the time ... + */ + for (argc = 0; argv[argc]; ++argc) + for (i = 0; i < ARRAY_SIZE(abi_flags); ++i) + if (!strncmp(argv[argc], abi_flags[i], strlen(abi_flags[i]))) + return retargv; + + /* Tokenize the flag list and put it into newflags array */ + flags_tokenized = xstrdup(newflags_str); + i = 0; + newflags[i] = strtok_r(flags_tokenized, " \t\n", &state); + while (newflags[i] != NULL && i < MAX_NEWFLAGS-1) + newflags[++i] = strtok_r(NULL, " \t\n", &state); + + /* allocate memory for our spiffy new argv */ + retargv = xcalloc(argc + i + 1, sizeof(char*)); + /* start building retargv */ + retargv[0] = argv[0]; + /* insert the ABI flags first so cmdline always overrides ABI flags */ + memcpy(retargv+1, newflags, i * sizeof(char*)); + /* copy over the old argv */ + if (argc > 1) + memcpy(retargv+1+i, argv+1, (argc-1) * sizeof(char*)); + + return retargv; +} + +int main(int argc, char *argv[]) +{ + struct wrapper_data data; + + memset(&data, 0, sizeof(data)); + + if (getenv("PATH")) + data.path = xstrdup(getenv("PATH")); + + /* What should we find ? */ + data.name = basename(argv[0]); + + /* Allow for common compiler names like cc->gcc */ + size_t i; + for (i = 0; i < ARRAY_SIZE(wrapper_aliases); ++i) + if (!strcmp(data.name, wrapper_aliases[i].alias)) + data.name = wrapper_aliases[i].target; + + /* What is the full name of our wrapper? */ + data.fullname = xmalloc(strlen(data.name) + sizeof("/usr/bin/") + 1); + sprintf(data.fullname, "/usr/bin/%s", data.name); + + find_wrapper_target(&data); + + modify_path(&data); + + free(data.path); + data.path = NULL; + + /* Set argv[0] to the correct binary, else gcc can't find internal headers + * http://bugs.gentoo.org/8132 + */ + argv[0] = data.bin; + + /* If $ABI is in env, add appropriate env flags */ + char **newargv = argv; + if (getenv("ABI")) { + char envvar[50]; + + /* We use CFLAGS_${ABI} for gcc, g++, g77, etc as the flags that would + * be in there are the same no matter which compiler we are using. + */ + snprintf(envvar, sizeof(envvar), "CFLAGS_%s", getenv("ABI")); + envvar[sizeof(envvar)-1] = '\0'; + + if (getenv(envvar)) + newargv = build_new_argv(argv, getenv(envvar)); + } + + /* Ok, lets do it one more time ... */ + execv(data.bin, newargv); + + /* shouldn't have made it here if things worked ... */ + wrapper_err("could not run/locate '%s'", data.name); + + return 123; +} diff --git a/sys-devel/gcc-config/files/wrapper-1.5.2.c b/sys-devel/gcc-config/files/wrapper-1.5.2.c new file mode 100644 index 00000000..ca1e84fb --- /dev/null +++ b/sys-devel/gcc-config/files/wrapper-1.5.2.c @@ -0,0 +1,315 @@ +/* + * Copyright 1999-2011 Gentoo Foundation + * Distributed under the terms of the GNU General Public License v2 + * $Header: /var/cvsroot/gentoo-x86/sys-devel/gcc-config/files/wrapper-1.5.2.c,v 1.2 2011/06/18 18:46:23 vapier Exp $ + * Author: Martin Schlemmer <azarah@gentoo.org> + * az's lackey: Mike Frysinger <vapier@gentoo.org> + */ + +#ifdef DEBUG +# define USE_DEBUG 1 +#else +# define USE_DEBUG 0 +#endif + +#include <errno.h> +#include <libgen.h> +#include <limits.h> +#include <stdio.h> +#include <stdlib.h> +#include <string.h> +#include <unistd.h> +#include <sys/stat.h> +#include <sys/types.h> + +#define GCC_CONFIG "/usr/bin/gcc-config" +#define ENVD_BASE "/etc/env.d/05gcc" + +#define ARRAY_SIZE(arr) (sizeof(arr)/sizeof(arr[0])) + +/* basename(3) is allowed to modify memory */ +#undef basename +#define basename(path) \ +({ \ + char *__path = path; \ + char *__ret = strrchr(__path, '/'); \ + __ret ? __ret + 1 : __path; \ +}) + +struct wrapper_data { + const char *name; + char *fullname, *bin, *path; +}; + +static const struct { + const char *alias; + const char *target; +} wrapper_aliases[] = { + { "cc", "gcc" }, + { "f77", "gfortran" }, + { "f95", "gfortran" }, +}; + +#define wrapper_warn(fmt, ...) fprintf(stderr, "%s" fmt "\n", "gcc-config: ", ## __VA_ARGS__) +#define wrapper_err(fmt, ...) ({ wrapper_warn("%s" fmt, "error: ", ## __VA_ARGS__); exit(1); }) +#define wrapper_errp(fmt, ...) wrapper_err(fmt ": %s", ## __VA_ARGS__, strerror(errno)) +#define wrapper_dbg(fmt, ...) ({ if (USE_DEBUG) wrapper_warn(fmt, ## __VA_ARGS__); }) + +#define xmemwrap(func, proto, use) \ +static void *x ## func proto \ +{ \ + void *ret = func use; \ + if (!ret) \ + wrapper_err(#func "%s", ": out of memory"); \ + return ret; \ +} +xmemwrap(malloc, (size_t size), (size)) +xmemwrap(strdup, (const char *s), (s)) + +/* check_for_target checks in path for the file we are seeking + * it returns 1 if found (with data->bin setup), 0 if not and + * negative on error + */ +static int check_for_target(char *path, struct wrapper_data *data) +{ + struct stat sbuf; + char str[PATH_MAX + 1]; + size_t path_len = strlen(path); + size_t len = path_len + strlen(data->name) + 2; + + if (sizeof(str) < len) + wrapper_warn("path too long: %s", path); + + strcpy(str, path); + str[path_len] = '/'; + str[path_len+1] = '\0'; + strcat(str, data->name); + + /* Stat possible file to check that + * 1) it exist and is a regular file, and + * 2) it is not the wrapper itself, and + * 3) it is in a /gcc-bin/ directory tree + */ + if (strcmp(str, data->fullname) != 0 && + strstr(str, "/gcc-bin/") != NULL && + stat(str, &sbuf) == 0 && + (S_ISREG(sbuf.st_mode) || S_ISLNK(sbuf.st_mode))) + { + wrapper_dbg("%s: found in %s", data->name, path); + data->bin = xstrdup(str); + return 1; + } + + wrapper_dbg("%s: did not find in %s", data->name, path); + return 0; +} + +static int find_target_in_path(struct wrapper_data *data) +{ + char *token = NULL, *state = NULL; + char *str; + + if (data->path == NULL) + return 0; + + /* Make a copy since strtok_r will modify path */ + str = xstrdup(data->path); + + /* Find the first file with suitable name in PATH. The idea here is + * that we do not want to bind ourselfs to something static like the + * default profile, or some odd environment variable, but want to be + * able to build something with a non default gcc by just tweaking + * the PATH ... */ + token = strtok_r(str, ":", &state); + while (token != NULL) { + if (check_for_target(token, data)) + return 1; + token = strtok_r(NULL, ":", &state); + } + + wrapper_dbg("%s: did not find in PATH", data->name); + return 0; +} + +/* find_target_in_envd parses /etc/env.d/05gcc, and tries to + * extract PATH, which is set to the current profile's bin + * directory ... + */ +static int find_target_in_envd(struct wrapper_data *data, int cross_compile) +{ + FILE *envfile = NULL; + char *token = NULL, *state; + char str[PATH_MAX + 1]; + char *strp = str; + char envd_file[PATH_MAX + 1]; + + if (!cross_compile) { + /* for the sake of speed, we'll keep a symlink around for + * the native compiler. #190260 + */ + snprintf(envd_file, sizeof(envd_file)-1, "/etc/env.d/gcc/.NATIVE"); + } else { + char *ctarget, *end = strrchr(data->name, '-'); + if (end == NULL) + return 0; + ctarget = xstrdup(data->name); + ctarget[end - data->name] = '\0'; + snprintf(envd_file, PATH_MAX, "%s-%s", ENVD_BASE, ctarget); + free(ctarget); + } + + envfile = fopen(envd_file, "r"); + if (envfile == NULL) + return 0; + + while (fgets(strp, PATH_MAX, envfile) != NULL) { + /* Keep reading ENVD_FILE until we get a line that + * starts with 'GCC_PATH=' ... keep 'PATH=' around + * for older gcc versions. + */ + if (strncmp(strp, "GCC_PATH=", strlen("GCC_PATH=")) && + strncmp(strp, "PATH=", strlen("PATH="))) + continue; + + token = strtok_r(strp, "=", &state); + if ((token != NULL) && token[0]) + /* The second token should be the value of PATH .. */ + token = strtok_r(NULL, "=", &state); + else + goto bail; + + if ((token != NULL) && token[0]) { + strp = token; + /* A bash variable may be unquoted, quoted with " or + * quoted with ', so extract the value without those .. + */ + token = strtok(strp, "\n\"\'"); + + while (token != NULL) { + if (check_for_target(token, data)) { + fclose(envfile); + return 1; + } + + token = strtok(NULL, "\n\"\'"); + } + } + + strp = str; + } + + bail: + fclose(envfile); + return (cross_compile ? 0 : find_target_in_envd(data, 1)); +} + +static void find_wrapper_target(struct wrapper_data *data) +{ + if (find_target_in_path(data)) + return; + + if (find_target_in_envd(data, 0)) + return; + + /* Only our wrapper is in PATH, so get the CC path using + * gcc-config and execute the real binary in there ... + */ + FILE *inpipe = popen(GCC_CONFIG " --get-bin-path", "r"); + if (inpipe == NULL) + wrapper_errp("could not open pipe"); + + char str[PATH_MAX + 1]; + if (fgets(str, PATH_MAX, inpipe) == 0) + wrapper_errp("could not get compiler binary path"); + + /* chomp! */ + size_t plen = strlen(str); + if (str[plen-1] == '\n') + str[plen-1] = '\0'; + + data->bin = xmalloc(plen + 1 + strlen(data->name) + 1); + sprintf(data->bin, "%s/%s", str, data->name); + + pclose(inpipe); +} + +/* This function modifies PATH to have gcc's bin path appended */ +static void modify_path(struct wrapper_data *data) +{ + char *newpath = NULL, *token = NULL, *state; + char dname_data[PATH_MAX + 1], str[PATH_MAX + 1]; + char *str2 = dname_data, *dname = dname_data; + size_t len = 0; + + if (data->bin == NULL) + return; + + if (data->path == NULL) + return; + + snprintf(str2, PATH_MAX + 1, "%s", data->bin); + + if ((dname = dirname(str2)) == NULL) + return; + + /* Make a copy since strtok_r will modify path */ + snprintf(str, PATH_MAX + 1, "%s", data->path); + + token = strtok_r(str, ":", &state); + + /* Check if we already appended our bin location to PATH */ + if ((token != NULL) && token[0]) + if (!strcmp(token, dname)) + return; + + len = strlen(dname) + strlen(data->path) + 2 + strlen("PATH") + 1; + + newpath = xmalloc(len); + memset(newpath, 0, len); + + snprintf(newpath, len, "PATH=%s:%s", dname, data->path); + putenv(newpath); +} + +int main(int argc, char *argv[]) +{ + struct wrapper_data data; + + memset(&data, 0, sizeof(data)); + + if (getenv("PATH")) + data.path = xstrdup(getenv("PATH")); + + /* What should we find ? */ + data.name = basename(argv[0]); + + /* Allow for common compiler names like cc->gcc */ + size_t i; + for (i = 0; i < ARRAY_SIZE(wrapper_aliases); ++i) + if (!strcmp(data.name, wrapper_aliases[i].alias)) + data.name = wrapper_aliases[i].target; + + /* What is the full name of our wrapper? */ + data.fullname = xmalloc(strlen(data.name) + sizeof("/usr/bin/") + 1); + sprintf(data.fullname, "/usr/bin/%s", data.name); + + find_wrapper_target(&data); + + modify_path(&data); + + free(data.path); + data.path = NULL; + + /* Set argv[0] to the correct binary, else gcc can't find internal headers + * http://bugs.gentoo.org/8132 + */ + argv[0] = data.bin; + + /* Ok, lets do it one more time ... */ + execv(data.bin, argv); + + /* shouldn't have made it here if things worked ... */ + wrapper_err("could not run/locate '%s'", data.name); + + return 123; +} |