scripts/functions
author "Yann E. MORIN" <yann.morin.1998@anciens.enib.fr>
Sat Jul 26 15:12:33 2008 +0000 (2008-07-26)
branch1.2
changeset 730 823ac8f8e9fd
parent 668 65e27c3bcf99
child 712 32ad25a4765e
child 731 65614732cfe7
permissions -rw-r--r--
Backport #849 from trunk:
Remove garbage files left behind by downloads from sourceforge.net.

/branches/1.2/scripts/build/debug/500-strace.sh | 4 4 0 0 ++++
/branches/1.2/scripts/build/debug/200-duma.sh | 5 4 1 0 ++++-
2 files changed, 8 insertions(+), 1 deletion(-)
     1 # This file contains some usefull common functions
     2 # Copyright 2007 Yann E. MORIN
     3 # Licensed under the GPL v2. See COPYING in the root of this package
     4 
     5 # Prepare the fault handler
     6 CT_OnError() {
     7     ret=$?
     8     CT_DoLog ERROR "Build failed in step '${CT_STEP_MESSAGE[${CT_STEP_COUNT}]}'"
     9     for((step=(CT_STEP_COUNT-1); step>1; step--)); do
    10         CT_DoLog ERROR "      called in step '${CT_STEP_MESSAGE[${step}]}'"
    11     done
    12     CT_DoLog ERROR "Error happened in '${BASH_SOURCE[1]}' in function '${FUNCNAME[1]}' (line unknown, sorry)"
    13     for((depth=2; ${BASH_LINENO[$((${depth}-1))]}>0; depth++)); do
    14         CT_DoLog ERROR "      called from '${BASH_SOURCE[${depth}]}' at line # ${BASH_LINENO[${depth}-1]} in function '${FUNCNAME[${depth}]}'"
    15     done
    16     [ "${CT_LOG_TO_FILE}" = "y" ] && CT_DoLog ERROR "Look at '${CT_LOG_FILE}' for more info on this error."
    17     CT_STEP_COUNT=1
    18     CT_DoEnd ERROR
    19     exit $ret
    20 }
    21 
    22 # Install the fault handler
    23 trap CT_OnError ERR
    24 
    25 # Inherit the fault handler in subshells and functions
    26 set -E
    27 
    28 # Make pipes fail on the _first_ failed command
    29 # Not supported on bash < 3.x, but we need it, so drop the obsoleting bash-2.x
    30 set -o pipefail
    31 
    32 # Don't hash commands' locations, and search every time it is requested.
    33 # This is slow, but needed because of the static/shared core gcc which shall
    34 # always match to shared if it exists, and only fallback to static if the
    35 # shared is not found
    36 set +o hashall
    37 
    38 # Log policy:
    39 #  - first of all, save stdout so we can see the live logs: fd #6
    40 exec 6>&1
    41 #  - then point stdout to the log file (temporary for now)
    42 tmp_log_file="${CT_TOP_DIR}/log.$$"
    43 exec >>"${tmp_log_file}"
    44 
    45 # The different log levels:
    46 CT_LOG_LEVEL_ERROR=0
    47 CT_LOG_LEVEL_WARN=1
    48 CT_LOG_LEVEL_INFO=2
    49 CT_LOG_LEVEL_EXTRA=3
    50 CT_LOG_LEVEL_DEBUG=4
    51 CT_LOG_LEVEL_ALL=5
    52 
    53 # A function to log what is happening
    54 # Different log level are available:
    55 #   - ERROR:   A serious, fatal error occurred
    56 #   - WARN:    A non fatal, non serious error occurred, take your responsbility with the generated build
    57 #   - INFO:    Informational messages
    58 #   - EXTRA:   Extra informational messages
    59 #   - DEBUG:   Debug messages
    60 #   - ALL:     Component's build messages
    61 # Usage: CT_DoLog <level> [message]
    62 # If message is empty, then stdin will be logged.
    63 CT_DoLog() {
    64     local max_level LEVEL level cur_l cur_L
    65     local l
    66     eval max_level="\${CT_LOG_LEVEL_${CT_LOG_LEVEL_MAX}}"
    67     # Set the maximum log level to DEBUG if we have none
    68     [ -z "${max_level}" ] && max_level=${CT_LOG_LEVEL_DEBUG}
    69 
    70     LEVEL="$1"; shift
    71     eval level="\${CT_LOG_LEVEL_${LEVEL}}"
    72 
    73     if [ $# -eq 0 ]; then
    74         cat -
    75     else
    76         echo "${@}"
    77     fi |( IFS="\n" # We want the full lines, even leading spaces
    78           _prog_bar_cpt=0
    79           _prog_bar[0]='/'
    80           _prog_bar[1]='-'
    81           _prog_bar[2]='\'
    82           _prog_bar[3]='|'
    83           indent=$((2*CT_STEP_COUNT))
    84           while read line; do
    85               case "${CT_LOG_SEE_TOOLS_WARN},${line}" in
    86                 y,*"warning:"*)         cur_L=WARN; cur_l=${CT_LOG_LEVEL_WARN};;
    87                 y,*"WARNING:"*)         cur_L=WARN; cur_l=${CT_LOG_LEVEL_WARN};;
    88                 *"error:"*)             cur_L=ERROR; cur_l=${CT_LOG_LEVEL_ERROR};;
    89                 *"make["?*"]:"*"Stop.") cur_L=ERROR; cur_l=${CT_LOG_LEVEL_ERROR};;
    90                 *)                      cur_L="${LEVEL}"; cur_l="${level}";;
    91               esac
    92               # There will always be a log file (stdout, fd #1), be it /dev/null
    93               printf "[%-5s]%*s%s%s\n" "${cur_L}" "${indent}" " " "${line}"
    94               if [ ${cur_l} -le ${max_level} ]; then
    95                   # Only print to console (fd #6) if log level is high enough.
    96                   printf "\r[%-5s]%*s%s%s\n" "${cur_L}" "${indent}" " " "${line}" >&6
    97               fi
    98               if [ "${CT_LOG_PROGRESS_BAR}" = "y" ]; then
    99                   printf "\r[%02d:%02d] %s " $((SECONDS/60)) $((SECONDS%60)) "${_prog_bar[$((_prog_bar_cpt/10))]}" >&6
   100                   _prog_bar_cpt=$(((_prog_bar_cpt+1)%40))
   101               fi
   102           done
   103         )
   104 
   105     return 0
   106 }
   107 
   108 # Execute an action, and log its messages
   109 # Usage: CT_DoExecLog <level> <[VAR=val...] command [parameters...]>
   110 CT_DoExecLog() {
   111     local level="$1"
   112     shift
   113     CT_DoLog DEBUG "==> Executing: '${@}'"
   114     "${@}" 2>&1 |CT_DoLog "${level}"
   115 }
   116 
   117 # Tail message to be logged whatever happens
   118 # Usage: CT_DoEnd <level>
   119 CT_DoEnd()
   120 {
   121     local level="$1"
   122     CT_STOP_DATE=$(CT_DoDate +%s%N)
   123     CT_STOP_DATE_HUMAN=$(CT_DoDate +%Y%m%d.%H%M%S)
   124     if [ "${level}" != "ERROR" ]; then
   125         CT_DoLog "${level:-INFO}" "Build completed at ${CT_STOP_DATE_HUMAN}"
   126     fi
   127     elapsed=$((CT_STOP_DATE-CT_STAR_DATE))
   128     elapsed_min=$((elapsed/(60*1000*1000*1000)))
   129     elapsed_sec=$(printf "%02d" $(((elapsed%(60*1000*1000*1000))/(1000*1000*1000))))
   130     elapsed_csec=$(printf "%02d" $(((elapsed%(1000*1000*1000))/(10*1000*1000))))
   131     CT_DoLog ${level:-INFO} "(elapsed: ${elapsed_min}:${elapsed_sec}.${elapsed_csec})"
   132 }
   133 
   134 # Abort the execution with an error message
   135 # Usage: CT_Abort <message>
   136 CT_Abort() {
   137     CT_DoLog ERROR "$1"
   138     exit 1
   139 }
   140 
   141 # Test a condition, and print a message if satisfied
   142 # Usage: CT_Test <message> <tests>
   143 CT_Test() {
   144     local ret
   145     local m="$1"
   146     shift
   147     test "$@" && CT_DoLog WARN "$m"
   148     return 0
   149 }
   150 
   151 # Test a condition, and abort with an error message if satisfied
   152 # Usage: CT_TestAndAbort <message> <tests>
   153 CT_TestAndAbort() {
   154     local m="$1"
   155     shift
   156     test "$@" && CT_Abort "$m"
   157     return 0
   158 }
   159 
   160 # Test a condition, and abort with an error message if not satisfied
   161 # Usage: CT_TestAndAbort <message> <tests>
   162 CT_TestOrAbort() {
   163     local m="$1"
   164     shift
   165     test "$@" || CT_Abort "$m"
   166     return 0
   167 }
   168 
   169 # Test the presence of a tool, or abort if not found
   170 # Usage: CT_HasOrAbort <tool>
   171 CT_HasOrAbort() {
   172     CT_TestAndAbort "'${1}' not found and needed for successful toolchain build." -z ""$(CT_Which "${1}")
   173     return 0
   174 }
   175 
   176 # Search a program: wrap "which" for those system where
   177 # "which" verbosely says there is no match (Mdk are such
   178 # suckers...)
   179 # Usage: CT_Which <filename>
   180 CT_Which() {
   181   which "$1" 2>/dev/null || true
   182 }
   183 
   184 # Get current date with nanosecond precision
   185 # On those system not supporting nanosecond precision, faked with rounding down
   186 # to the highest entire second
   187 # Usage: CT_DoDate <fmt>
   188 CT_DoDate() {
   189     date "$1" |sed -r -e 's/%N$/000000000/;'
   190 }
   191 
   192 CT_STEP_COUNT=1
   193 CT_STEP_MESSAGE[${CT_STEP_COUNT}]="<none>"
   194 # Memorise a step being done so that any error is caught
   195 # Usage: CT_DoStep <loglevel> <message>
   196 CT_DoStep() {
   197     local start=$(CT_DoDate +%s%N)
   198     CT_DoLog "$1" "================================================================="
   199     CT_DoLog "$1" "$2"
   200     CT_STEP_COUNT=$((CT_STEP_COUNT+1))
   201     CT_STEP_LEVEL[${CT_STEP_COUNT}]="$1"; shift
   202     CT_STEP_START[${CT_STEP_COUNT}]="${start}"
   203     CT_STEP_MESSAGE[${CT_STEP_COUNT}]="$1"
   204     return 0
   205 }
   206 
   207 # End the step just being done
   208 # Usage: CT_EndStep
   209 CT_EndStep() {
   210     local stop=$(CT_DoDate +%s%N)
   211     local duration=$(printf "%032d" $((stop-${CT_STEP_START[${CT_STEP_COUNT}]})) |sed -r -e 's/([[:digit:]]{2})[[:digit:]]{7}$/\.\1/; s/^0+//; s/^\./0\./;')
   212     local elapsed=$(printf "%02d:%02d" $((SECONDS/60)) $((SECONDS%60)))
   213     local level="${CT_STEP_LEVEL[${CT_STEP_COUNT}]}"
   214     local message="${CT_STEP_MESSAGE[${CT_STEP_COUNT}]}"
   215     CT_STEP_COUNT=$((CT_STEP_COUNT-1))
   216     CT_DoLog "${level}" "${message}: done in ${duration}s (at ${elapsed})"
   217     return 0
   218 }
   219 
   220 # Pushes into a directory, and pops back
   221 CT_Pushd() {
   222     pushd "$1" >/dev/null 2>&1
   223 }
   224 CT_Popd() {
   225     popd >/dev/null 2>&1
   226 }
   227 
   228 # Makes a path absolute
   229 # Usage: CT_MakeAbsolutePath path
   230 CT_MakeAbsolutePath() {
   231     # Try to cd in that directory
   232     if [ -d "$1" ]; then
   233         CT_Pushd "$1"
   234         pwd
   235         CT_Popd
   236     else
   237         # No such directory, fail back to guessing
   238         case "$1" in
   239             /*)  echo "$1";;
   240             *)   echo "$(pwd)/$1";;
   241         esac
   242     fi
   243     
   244     return 0
   245 }
   246 
   247 # Creates a temporary directory
   248 # $1: variable to assign to
   249 # Usage: CT_MktempDir foo
   250 CT_MktempDir() {
   251     # Some mktemp do not allow more than 6 Xs
   252     eval "$1"=$(mktemp -q -d "${CT_BUILD_DIR}/.XXXXXX")
   253     CT_TestOrAbort "Could not make temporary directory" -n "${!1}" -a -d "${!1}"
   254 }
   255 
   256 # Echoes the specified string on stdout until the pipe breaks.
   257 # Doesn't fail
   258 # $1: string to echo
   259 # Usage: CT_DoYes "" |make oldconfig
   260 CT_DoYes() {
   261     yes "$1" || true
   262 }
   263 
   264 # Get the file name extension of a component
   265 # Usage: CT_GetFileExtension <component_name-component_version>
   266 # If found, echoes the extension to stdout
   267 # If not found, echoes nothing on stdout.
   268 CT_GetFileExtension() {
   269     local ext
   270     local file="$1"
   271 
   272     CT_Pushd "${CT_TARBALLS_DIR}"
   273     # we need to also check for an empty extension for those very
   274     # peculiar components that don't have one (such as sstrip from
   275     # buildroot).
   276     for ext in .tar.gz .tar.bz2 .tgz .tar ''; do
   277         if [ -f "${file}${ext}" ]; then
   278             echo "${ext}"
   279             break
   280         fi
   281     done
   282     CT_Popd
   283 
   284     return 0
   285 }
   286 
   287 # Download an URL using wget
   288 # Usage: CT_DoGetFileWget <URL>
   289 CT_DoGetFileWget() {
   290     # Need to return true because it is legitimate to not find the tarball at
   291     # some of the provided URLs (think about snapshots, different layouts for
   292     # different gcc versions, etc...)
   293     # Some (very old!) FTP server might not support the passive mode, thus
   294     # retry without
   295     # With automated download as we are doing, it can be very dangerous to use
   296     # -c to continue the downloads. It's far better to simply overwrite the
   297     # destination file
   298     # Some company networks have firewalls to connect to the internet, but it's
   299     # not easy to detect them, and wget does not timeout by default  while
   300     # connecting, so force a global ${CT_CONNECT_TIMEOUT}-second timeout.
   301     wget -T ${CT_CONNECT_TIMEOUT} -nc --progress=dot:binary --tries=3 --passive-ftp "$1"    \
   302     || wget -T ${CT_CONNECT_TIMEOUT} -nc --progress=dot:binary --tries=3 "$1"               \
   303     || true
   304 }
   305 
   306 # Download an URL using curl
   307 # Usage: CT_DoGetFileCurl <URL>
   308 CT_DoGetFileCurl() {
   309     # Note: comments about wget method (above) are also valid here
   310     # Plus: no good progress indicator is available with curl,
   311     #       so output is consigned to oblivion
   312     curl --ftp-pasv -O --retry 3 "$1" --connect-timeout ${CT_CONNECT_TIMEOUT} >/dev/null    \
   313     || curl -O --retry 3 "$1" --connect-timeout ${CT_CONNECT_TIMEOUT} >/dev/null            \
   314     || true
   315 }
   316 
   317 _wget=$(CT_Which wget)
   318 _curl=$(CT_Which curl)
   319 # Wrapper function to call one of curl or wget
   320 # Usage: CT_DoGetFile <URL>
   321 CT_DoGetFile() {
   322     case "${_wget},${_curl}" in
   323         ,)  CT_DoError "Could find neither wget nor curl";;
   324         ,*) CT_DoGetFileCurl "$1" 2>&1 |CT_DoLog ALL;;
   325         *)  CT_DoGetFileWget "$1" 2>&1 |CT_DoLog ALL;;
   326     esac
   327 }
   328 
   329 # Download the file from one of the URLs passed as argument
   330 # Usage: CT_GetFile <filename> [extension] <url> [url ...]
   331 CT_GetFile() {
   332     local ext
   333     local url
   334     local file="$1"
   335     local first_ext=""
   336     shift
   337     case "$1" in
   338         .tar.bz2|.tar.gz|.tgz|.tar)
   339             first_ext="$1"
   340             shift
   341             ;;
   342     esac
   343 
   344     # Do we already have it?
   345     ext=$(CT_GetFileExtension "${file}")
   346     if [ -n "${ext}" ]; then
   347         CT_DoLog DEBUG "Already have '${file}'"
   348         return 0
   349     fi
   350 
   351     CT_Pushd "${CT_TARBALLS_DIR}"
   352     # We'd rather have a bzip2'ed tarball, then gzipped tarball, plain tarball,
   353     # or, as a failover, a file without extension.
   354     # Try local copy first, if it exists
   355     for ext in ${first_ext} .tar.bz2 .tar.gz .tgz .tar ''; do
   356         CT_DoLog DEBUG "Trying '${CT_LOCAL_TARBALLS_DIR}/${file}${ext}'"
   357         if [ -r "${CT_LOCAL_TARBALLS_DIR}/${file}${ext}" -a \
   358              "${CT_FORCE_DOWNLOAD}" != "y" ]; then
   359             CT_DoLog EXTRA "Using '${file}' from local storage"
   360             ln -sv "${CT_LOCAL_TARBALLS_DIR}/${file}${ext}" "${file}${ext}" |CT_DoLog ALL
   361             return 0
   362         fi
   363     done
   364 
   365     # Not found locally, try from the network
   366     CT_DoLog EXTRA "Retrieving '${file}' from network"
   367 
   368     # Start with LAN mirror
   369     if [ "${CT_USE_LAN_MIRROR}" = "y" ]; then
   370         LAN_URLs=
   371         for pat in ${CT_LAN_MIRROR_PATTERNS}; do
   372             # Please note: we just have the file's basename in a single piece.
   373             # So we have to just try and split it back into name and version... :-(
   374             pat="${pat//\%pkg/${file%-*}}"
   375             pat="${pat//\%ver/${file##*-}}"
   376             LAN_URLs="${LAN_URLs} ${CT_LAN_MIRROR_SCHEME}://${CT_LAN_MIRROR_HOSTNAME}/${pat}"
   377         done
   378         for ext in ${first_ext} .tar.bz2 .tar.gz .tgz .tar ''; do
   379             for url in ${LAN_URLs}; do
   380                 CT_DoLog DEBUG "Trying '${url}/${file}${ext}'"
   381                 CT_DoGetFile "${url}/${file}${ext}"
   382                 if [ -f "${file}${ext}" ]; then
   383                     if [ "${CT_SAVE_TARBALLS}" = "y" ]; then
   384                         # No need to test if the file already exists because
   385                         # it does NOT. If it did exist, we'd have been stopped
   386                         # above, when looking for local copies.
   387                         CT_DoLog EXTRA "Saving '${file}' to local storage"
   388                         mv "${file}${ext}" "${CT_LOCAL_TARBALLS_DIR}" |CT_DoLog ALL
   389                         ln -sv "${CT_LOCAL_TARBALLS_DIR}/${file}${ext}" "${file}${ext}" |CT_DoLog ALL
   390                     fi
   391                     return 0
   392                 fi
   393             done
   394         done
   395     fi
   396 
   397     # OK, available neither localy, nor from the LAN mirror (if any).
   398     for ext in ${first_ext} .tar.bz2 .tar.gz .tgz .tar ''; do
   399         # Try all urls in turn
   400         for url in "$@"; do
   401             CT_DoLog DEBUG "Trying '${url}/${file}${ext}'"
   402             CT_DoGetFile "${url}/${file}${ext}"
   403             if [ -f "${file}${ext}" ]; then
   404                 if [ "${CT_SAVE_TARBALLS}" = "y" ]; then
   405                     # No need to test if the file already exists because
   406                     # it does NOT. If it did exist, we'd have been stopped
   407                     # above, when looking for local copies.
   408                     CT_DoLog EXTRA "Saving '${file}' to local storage"
   409                     mv "${file}${ext}" "${CT_LOCAL_TARBALLS_DIR}" |CT_DoLog ALL
   410                     ln -sv "${CT_LOCAL_TARBALLS_DIR}/${file}${ext}" "${file}${ext}" |CT_DoLog ALL
   411                 fi
   412                 return 0
   413             fi
   414         done
   415     done
   416     CT_Popd
   417 
   418     CT_Abort "Could not download '${file}', and not present in '${CT_LOCAL_TARBALLS_DIR}'"
   419 }
   420 
   421 # Extract a tarball and patch the resulting sources if necessary.
   422 # Some tarballs need to be extracted in specific places. Eg.: glibc addons
   423 # must be extracted in the glibc directory; uCLibc locales must be extracted
   424 # in the extra/locale sub-directory of uClibc.
   425 CT_ExtractAndPatch() {
   426     local file="$1"
   427     local base_file=$(echo "${file}" |cut -d - -f 1)
   428     local ver_file=$(echo "${file}" |cut -d - -f 2-)
   429     local official_patch_dir
   430     local custom_patch_dir
   431     local libc_addon
   432     local ext=$(CT_GetFileExtension "${file}")
   433     CT_TestAndAbort "'${file}' not found in '${CT_TARBALLS_DIR}'" -z "${ext}"
   434     local full_file="${CT_TARBALLS_DIR}/${file}${ext}"
   435 
   436     CT_Pushd "${CT_SRC_DIR}"
   437 
   438     # Add-ons need a little love, really.
   439     case "${file}" in
   440         glibc-[a-z]*-*)
   441             CT_TestAndAbort "Trying to extract the C-library addon/locales '${file}' when C-library not yet extracted" ! -d "${CT_LIBC_FILE}"
   442             cd "${CT_LIBC_FILE}"
   443             libc_addon=y
   444             [ -f ".${file}.extracted" ] && return 0
   445             touch ".${file}.extracted"
   446             ;;
   447         uClibc-locale-*)
   448             CT_TestAndAbort "Trying to extract the C-library addon/locales '${file}' when C-library not yet extracted" ! -d "${CT_LIBC_FILE}"
   449             cd "${CT_LIBC_FILE}/extra/locale"
   450             libc_addon=y
   451             [ -f ".${file}.extracted" ] && return 0
   452             touch ".${file}.extracted"
   453             ;;
   454     esac
   455 
   456     # If the directory exists, then consider extraction and patching done
   457     if [ -d "${file}" ]; then
   458         CT_DoLog DEBUG "Already extracted '${file}'"
   459         return 0
   460     fi
   461 
   462     CT_DoLog EXTRA "Extracting '${file}'"
   463     case "${ext}" in
   464         .tar.bz2)     tar xvjf "${full_file}" |CT_DoLog ALL;;
   465         .tar.gz|.tgz) tar xvzf "${full_file}" |CT_DoLog ALL;;
   466         .tar)         tar xvf  "${full_file}" |CT_DoLog ALL;;
   467         *)            CT_Abort "Don't know how to handle '${file}': unknown extension" ;;
   468     esac
   469 
   470     # Snapshots might not have the version number in the extracted directory
   471     # name. This is also the case for some (odd) packages, such as D.U.M.A.
   472     # Overcome this issue by symlink'ing the directory.
   473     if [ ! -d "${file}" -a "${libc_addon}" != "y" ]; then
   474         case "${ext}" in
   475             .tar.bz2)     base=$(tar tjf "${full_file}" |head -n 1 |cut -d / -f 1 || true);;
   476             .tar.gz|.tgz) base=$(tar tzf "${full_file}" |head -n 1 |cut -d / -f 1 || true);;
   477             .tar)         base=$(tar tf  "${full_file}" |head -n 1 |cut -d / -f 1 || true);;
   478         esac
   479         CT_TestOrAbort "There was a problem when extracting '${file}'" -d "${base}" -o "${base}" != "${file}"
   480         ln -s "${base}" "${file}"
   481     fi
   482 
   483     # Kludge: outside this function, we wouldn't know if we had just extracted
   484     # a libc addon, or a plain package. Apply patches now.
   485     CT_DoLog EXTRA "Patching '${file}'"
   486 
   487     if [ "${libc_addon}" = "y" ]; then
   488         # Some addon tarballs directly contain the correct addon directory,
   489         # while others have the addon directory named after the tarball.
   490         # Fix that by always using the short name (eg: linuxthreads, ports, etc...)
   491         addon_short_name=$(echo "${file}" |sed -r -e 's/^[^-]+-//; s/-[^-]+$//;')
   492         [ -d "${addon_short_name}" ] || ln -s "${file}" "${addon_short_name}"
   493         # If libc addon, we're already in the correct place
   494     else
   495         cd "${file}"
   496     fi
   497 
   498     official_patch_dir=
   499     custom_patch_dir=
   500     [ "${CUSTOM_PATCH_ONLY}" = "y" ] || official_patch_dir="${CT_LIB_DIR}/patches/${base_file}/${ver_file}"
   501     [ "${CT_CUSTOM_PATCH}" = "y" ] && custom_patch_dir="${CT_CUSTOM_PATCH_DIR}/${base_file}/${ver_file}"
   502     for patch_dir in "${official_patch_dir}" "${custom_patch_dir}"; do
   503         if [ -n "${patch_dir}" -a -d "${patch_dir}" ]; then
   504             for p in "${patch_dir}"/*.patch; do
   505                 if [ -f "${p}" ]; then
   506                     CT_DoLog DEBUG "Applying patch '${p}'"
   507                     patch -g0 -F1 -p1 -f <"${p}" |CT_DoLog ALL
   508                     CT_TestAndAbort "Failed while applying patch file '${p}'" ${PIPESTATUS[0]} -ne 0
   509                 fi
   510             done
   511         fi
   512     done
   513 
   514     if [ "${CT_OVERIDE_CONFIG_GUESS_SUB}" = "y" ]; then
   515         CT_DoLog ALL "Overiding config.guess and config.sub"
   516         for cfg in config_guess config_sub; do
   517             eval ${cfg}="${CT_LIB_DIR}/tools/${cfg/_/.}"
   518             [ -e "${CT_TOP_DIR}/tools/${cfg/_/.}" ] && eval ${cfg}="${CT_TOP_DIR}/tools/${cfg/_/.}"
   519             find . -type f -name "${cfg/_/.}" -exec cp -v "${!cfg}" {} \; |CT_DoLog ALL
   520         done
   521     fi
   522 
   523     CT_Popd
   524 }
   525 
   526 # Two wrappers to call config.(guess|sub) either from CT_TOP_DIR or CT_LIB_DIR.
   527 # Those from CT_TOP_DIR, if they exist, will be be more recent than those from CT_LIB_DIR.
   528 CT_DoConfigGuess() {
   529     if [ -x "${CT_TOP_DIR}/tools/config.guess" ]; then
   530         "${CT_TOP_DIR}/tools/config.guess"
   531     else
   532         "${CT_LIB_DIR}/tools/config.guess"
   533     fi
   534 }
   535 
   536 CT_DoConfigSub() {
   537     if [ -x "${CT_TOP_DIR}/tools/config.sub" ]; then
   538         "${CT_TOP_DIR}/tools/config.sub" "$@"
   539     else
   540         "${CT_LIB_DIR}/tools/config.sub" "$@"
   541     fi
   542 }
   543 
   544 # Compute the target tuple from what is provided by the user
   545 # Usage: CT_DoBuildTargetTuple
   546 # In fact this function takes the environment variables to build the target
   547 # tuple. It is needed both by the normal build sequence, as well as the
   548 # sample saving sequence.
   549 CT_DoBuildTargetTuple() {
   550     # Set the endianness suffix, and the default endianness gcc option
   551     case "${CT_ARCH_BE},${CT_ARCH_LE}" in
   552         y,) target_endian_eb=eb
   553             target_endian_el=
   554             CT_ARCH_ENDIAN_CFLAG="-mbig-endian"
   555             CT_ARCH_ENDIAN_LDFLAG="-EB"
   556             ;;
   557         ,y) target_endian_eb=
   558             target_endian_el=el
   559             CT_ARCH_ENDIAN_CFLAG="-mlittle-endian"
   560             CT_ARCH_ENDIAN_LDFLAG="-EL"
   561             ;;
   562     esac
   563 
   564     # Set defaults for the system part of the tuple. Can be overriden
   565     # by architecture-specific values.
   566     case "${CT_LIBC}" in
   567         glibc)  CT_TARGET_SYS=gnu;;
   568         uClibc) CT_TARGET_SYS=uclibc;;
   569     esac
   570 
   571     # Transform the ARCH into a kernel-understandable ARCH
   572     CT_KERNEL_ARCH="${CT_ARCH}"
   573 
   574     # Set the default values for ARCH, ABI, CPU, TUNE, FPU and FLOAT
   575     unset CT_ARCH_ARCH_CFLAG CT_ARCH_ABI_CFLAG CT_ARCH_CPU_CFLAG CT_ARCH_TUNE_CFLAG CT_ARCH_FPU_CFLAG CT_ARCH_FLOAT_CFLAG
   576     unset CT_ARCH_WITH_ARCH CT_ARCH_WITH_ABI CT_ARCH_WITH_CPU CT_ARCH_WITH_TUNE CT_ARCH_WITH_FPU CT_ARCH_WITH_FLOAT
   577     [ "${CT_ARCH_ARCH}"     ] && { CT_ARCH_ARCH_CFLAG="-march=${CT_ARCH_ARCH}";  CT_ARCH_WITH_ARCH="--with-arch=${CT_ARCH_ARCH}"; }
   578     [ "${CT_ARCH_ABI}"      ] && { CT_ARCH_ABI_CFLAG="-mabi=${CT_ARCH_ABI}";     CT_ARCH_WITH_ABI="--with-abi=${CT_ARCH_ABI}";    }
   579     [ "${CT_ARCH_CPU}"      ] && { CT_ARCH_CPU_CFLAG="-mcpu=${CT_ARCH_CPU}";     CT_ARCH_WITH_CPU="--with-cpu=${CT_ARCH_CPU}";    }
   580     [ "${CT_ARCH_TUNE}"     ] && { CT_ARCH_TUNE_CFLAG="-mtune=${CT_ARCH_TUNE}";  CT_ARCH_WITH_TUNE="--with-tune=${CT_ARCH_TUNE}"; }
   581     [ "${CT_ARCH_FPU}"      ] && { CT_ARCH_FPU_CFLAG="-mfpu=${CT_ARCH_FPU}";     CT_ARCH_WITH_FPU="--with-fpu=${CT_ARCH_FPU}";    }
   582     [ "${CT_ARCH_FLOAT_SW}" ] && { CT_ARCH_FLOAT_CFLAG="-msoft-float";           CT_ARCH_WITH_FLOAT="--with-float=soft";          }
   583 
   584     # Call the architecture specific settings
   585     CT_DoArchValues
   586 
   587     # Finish the target tuple construction
   588     case "${CT_KERNEL}" in
   589         linux*)  CT_TARGET_KERNEL=linux;;
   590     esac
   591     CT_TARGET=$(CT_DoConfigSub "${CT_TARGET_ARCH}-${CT_TARGET_VENDOR:-unknown}-${CT_TARGET_KERNEL}-${CT_TARGET_SYS}")
   592 
   593     # Prepare the target CFLAGS
   594     CT_ARCH_TARGET_CFLAGS="${CT_ARCH_ENDIAN_CFLAG}"
   595     CT_ARCH_TARGET_CFLAGS="${CT_ARCH_TARGET_CFLAGS} ${CT_ARCH_ARCH_CFLAG}"
   596     CT_ARCH_TARGET_CFLAGS="${CT_ARCH_TARGET_CFLAGS} ${CT_ARCH_ABI_CFLAG}"
   597     CT_ARCH_TARGET_CFLAGS="${CT_ARCH_TARGET_CFLAGS} ${CT_ARCH_CPU_CFLAG}"
   598     CT_ARCH_TARGET_CFLAGS="${CT_ARCH_TARGET_CFLAGS} ${CT_ARCH_TUNE_CFLAG}"
   599     CT_ARCH_TARGET_CFLAGS="${CT_ARCH_TARGET_CFLAGS} ${CT_ARCH_FPU_CFLAG}"
   600     CT_ARCH_TARGET_CFLAGS="${CT_ARCH_TARGET_CFLAGS} ${CT_ARCH_FLOAT_CFLAG}"
   601 
   602     # Now on for the target LDFLAGS
   603     CT_ARCH_TARGET_LDFLAGS="${CT_ARCH_ENDIAN_LDFLAG}"
   604 }
   605 
   606 # This function does pause the build until the user strikes "Return"
   607 # Usage: CT_DoPause [optional_message]
   608 CT_DoPause() {
   609     local foo
   610     local message="${1:-Pausing for your pleasure}"
   611     CT_DoLog INFO "${message}"
   612     read -p "Press 'Enter' to continue, or Ctrl-C to stop..." foo >&6
   613     return 0
   614 }
   615 
   616 # This function saves the state of the toolchain to be able to restart
   617 # at any one point
   618 # Usage: CT_DoSaveState <next_step_name>
   619 CT_DoSaveState() {
   620 	[ "${CT_DEBUG_CT_SAVE_STEPS}" = "y" ] || return 0
   621     local state_name="$1"
   622     local state_dir="${CT_STATE_DIR}/${state_name}"
   623 
   624     CT_DoLog DEBUG "Saving state to restart at step '${state_name}'..."
   625     rm -rf "${state_dir}"
   626     mkdir -p "${state_dir}"
   627 
   628     case "${CT_DEBUG_CT_SAVE_STEPS_GZIP}" in
   629         y)  tar_opt=z; tar_ext=.gz;;
   630         *)  tar_opt=;  tar_ext=;;
   631     esac
   632 
   633     CT_DoLog DEBUG "  Saving environment and aliases"
   634     # We must omit shell functions
   635     set |awk '
   636          BEGIN { _p = 1; }
   637          $0~/^[^ ]+ \(\)/ { _p = 0; }
   638          _p == 1
   639          $0 == "}" { _p = 1; }
   640          ' >"${state_dir}/env.sh"
   641 
   642     CT_DoLog DEBUG "  Saving CT_CC_CORE_STATIC_PREFIX_DIR='${CT_CC_CORE_STATIC_PREFIX_DIR}'"
   643     CT_Pushd "${CT_CC_CORE_STATIC_PREFIX_DIR}"
   644     tar cv${tar_opt}f "${state_dir}/cc_core_static_prefix_dir.tar${tar_ext}" . |CT_DoLog DEBUG
   645     CT_Popd
   646 
   647     CT_DoLog DEBUG "  Saving CT_CC_CORE_SHARED_PREFIX_DIR='${CT_CC_CORE_SHARED_PREFIX_DIR}'"
   648     CT_Pushd "${CT_CC_CORE_SHARED_PREFIX_DIR}"
   649     tar cv${tar_opt}f "${state_dir}/cc_core_shared_prefix_dir.tar${tar_ext}" . |CT_DoLog DEBUG
   650     CT_Popd
   651 
   652     CT_DoLog DEBUG "  Saving CT_PREFIX_DIR='${CT_PREFIX_DIR}'"
   653     CT_Pushd "${CT_PREFIX_DIR}"
   654     tar cv${tar_opt}f "${state_dir}/prefix_dir.tar${tar_ext}" --exclude '*.log' . |CT_DoLog DEBUG
   655     CT_Popd
   656 
   657     if [ "${CT_LOG_TO_FILE}" = "y" ]; then
   658         CT_DoLog DEBUG "  Saving log file"
   659         exec >/dev/null
   660         case "${CT_DEBUG_CT_SAVE_STEPS_GZIP}" in
   661             y)  gzip -3 -c "${CT_LOG_FILE}"  >"${state_dir}/log.gz";;
   662             *)  cat "${CT_LOG_FILE}" >"${state_dir}/log";;
   663         esac
   664         exec >>"${CT_LOG_FILE}"
   665     fi
   666 }
   667 
   668 # This function restores a previously saved state
   669 # Usage: CT_DoLoadState <state_name>
   670 CT_DoLoadState(){
   671     local state_name="$1"
   672     local state_dir="${CT_STATE_DIR}/${state_name}"
   673     local old_RESTART="${CT_RESTART}"
   674     local old_STOP="${CT_STOP}"
   675 
   676     CT_TestOrAbort "The previous build did not reach the point where it could be restarted at '${CT_RESTART}'" -d "${state_dir}"
   677 
   678     # We need to do something special with the log file!
   679     if [ "${CT_LOG_TO_FILE}" = "y" ]; then
   680         exec >"${state_dir}/tail.log"
   681     fi
   682     CT_DoLog INFO "Restoring state at step '${state_name}', as requested."
   683 
   684     case "${CT_DEBUG_CT_SAVE_STEPS_GZIP}" in
   685         y)  tar_opt=z; tar_ext=.gz;;
   686         *)  tar_opt=;  tar_ext=;;
   687     esac
   688 
   689     CT_DoLog DEBUG "  Removing previous build directories"
   690     chmod -R u+rwX "${CT_PREFIX_DIR}" "${CT_CC_CORE_SHARED_PREFIX_DIR}" "${CT_CC_CORE_STATIC_PREFIX_DIR}"
   691     rm -rf         "${CT_PREFIX_DIR}" "${CT_CC_CORE_SHARED_PREFIX_DIR}" "${CT_CC_CORE_STATIC_PREFIX_DIR}"
   692     mkdir -p       "${CT_PREFIX_DIR}" "${CT_CC_CORE_SHARED_PREFIX_DIR}" "${CT_CC_CORE_STATIC_PREFIX_DIR}"
   693 
   694     CT_DoLog DEBUG "  Restoring CT_PREFIX_DIR='${CT_PREFIX_DIR}'"
   695     CT_Pushd "${CT_PREFIX_DIR}"
   696     tar xv${tar_opt}f "${state_dir}/prefix_dir.tar${tar_ext}" |CT_DoLog DEBUG
   697     CT_Popd
   698 
   699     CT_DoLog DEBUG "  Restoring CT_CC_CORE_SHARED_PREFIX_DIR='${CT_CC_CORE_SHARED_PREFIX_DIR}'"
   700     CT_Pushd "${CT_CC_CORE_SHARED_PREFIX_DIR}"
   701     tar xv${tar_opt}f "${state_dir}/cc_core_shared_prefix_dir.tar${tar_ext}" |CT_DoLog DEBUG
   702     CT_Popd
   703 
   704     CT_DoLog DEBUG "  Restoring CT_CC_CORE_STATIC_PREFIX_DIR='${CT_CC_CORE_STATIC_PREFIX_DIR}'"
   705     CT_Pushd "${CT_CC_CORE_STATIC_PREFIX_DIR}"
   706     tar xv${tar_opt}f "${state_dir}/cc_core_static_prefix_dir.tar${tar_ext}" |CT_DoLog DEBUG
   707     CT_Popd
   708 
   709     # Restore the environment, discarding any error message
   710     # (for example, read-only bash internals)
   711     CT_DoLog DEBUG "  Restoring environment"
   712     . "${state_dir}/env.sh" >/dev/null 2>&1 || true
   713 
   714     # Restore the new RESTART and STOP steps
   715     CT_RESTART="${old_RESTART}"
   716     CT_STOP="${old_STOP}"
   717     unset old_stop old_restart
   718 
   719     if [ "${CT_LOG_TO_FILE}" = "y" ]; then
   720         CT_DoLog DEBUG "  Restoring log file"
   721         exec >/dev/null
   722         case "${CT_DEBUG_CT_SAVE_STEPS_GZIP}" in
   723             y)  zcat "${state_dir}/log.gz" >"${CT_LOG_FILE}";;
   724             *)  cat "${state_dir}/log" >"${CT_LOG_FILE}";;
   725         esac
   726         cat "${state_dir}/tail.log" >>"${CT_LOG_FILE}"
   727         exec >>"${CT_LOG_FILE}"
   728         rm -f "${state_dir}/tail.log"
   729     fi
   730 }