#

# Copyright (c) 2011, 2015, Oracle and/or its affiliates. All rights reserved.

# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

#

# This code is free software; you can redistribute it and/or modify it

# under the terms of the GNU General Public License version 2 only, as

# published by the Free Software Foundation.  Oracle designates this

# particular file as subject to the "Classpath" exception as provided

# by Oracle in the LICENSE file that accompanied this code.

#

# This code is distributed in the hope that it will be useful, but WITHOUT

# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

# FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License

# version 2 for more details (a copy is included in the LICENSE file that

# accompanied this code).

#

# You should have received a copy of the GNU General Public License version

# 2 along with this work; if not, write to the Free Software Foundation,

# Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

#

# Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA

# or visit www.oracle.com if you need additional information or have any

# questions.

#

################################################################

#

# Setup common utility functions.

#

################################################################

ifndef _MAKEBASE_GMK

_MAKEBASE_GMK := 1

ifeq ($(wildcard $(SPEC)),)

  $(error MakeBase.gmk needs SPEC set to a proper spec.gmk)

endif

# By defining this pseudo target, make will automatically remove targets

# if their recipe fails so that a rebuild is automatically triggered on the

# next make invocation.

.DELETE_ON_ERROR:

################################################################################

# Definitions for special characters

################################################################################

# When calling macros, the spaces between arguments are

# often semantically important! Sometimes we need to subst

# spaces and commas, therefore we need the following macros.

X:=

SPACE:=$(X) $(X)

COMMA:=,

DOLLAR:=$$

HASH:=\#

LEFT_PAREN:=(

RIGHT_PAREN:=)

SQUOTE:='

#'

DQUOTE:="

#"

define NEWLINE

endef

##############################

# Functions

##############################

### Debug functions

# Prints the name and value of a variable

PrintVar = \

    $(info $(strip $1) >$($(strip $1))<)

### Functions for timers

# Store the build times in this directory.

BUILDTIMESDIR=$(OUTPUT_ROOT)/make-support/build-times

# Record starting time for build of a sub repository.

define RecordStartTime

	$(MKDIR) -p $(BUILDTIMESDIR)

	$(DATE) '+%Y %m %d %H %M %S' | $(NAWK) '{ print $$1,$$2,$$3,$$4,$$5,$$6,($$4*3600+$$5*60+$$6) }' > $(BUILDTIMESDIR)/build_time_start_$(strip $1)

	$(DATE) '+%Y-%m-%d %H:%M:%S' > $(BUILDTIMESDIR)/build_time_start_$(strip $1)_human_readable

endef

# Record ending time and calculate the difference and store it in a

# easy to read format. Handles builds that cross midnight. Expects

# that a build will never take 24 hours or more.

define RecordEndTime

	$(DATE) '+%Y %m %d %H %M %S' | $(NAWK) '{ print $$1,$$2,$$3,$$4,$$5,$$6,($$4*3600+$$5*60+$$6) }' > $(BUILDTIMESDIR)/build_time_end_$(strip $1)

	$(DATE) '+%Y-%m-%d %H:%M:%S' > $(BUILDTIMESDIR)/build_time_end_$(strip $1)_human_readable

	$(ECHO) `$(CAT) $(BUILDTIMESDIR)/build_time_start_$(strip $1)` `$(CAT) $(BUILDTIMESDIR)/build_time_end_$(strip $1)` $1 | \

	    $(NAWK) '{ F=$$7; T=$$14; if (F > T) { T+=3600*24 }; D=T-F; H=int(D/3600); \

	    M=int((D-H*3600)/60); S=D-H*3600-M*60; printf("%02d:%02d:%02d %s\n",H,M,S,$$15); }' \

	    > $(BUILDTIMESDIR)/build_time_diff_$(strip $1)

endef

# Hook to be called when starting to execute a top-level target

define TargetEnter

	$(PRINTF) "## Starting $(patsubst %-only,%,$@)\n"

	$(call RecordStartTime,$(patsubst %-only,%,$@))

endef

# Hook to be called when finish executing a top-level target

define TargetExit

	$(call RecordEndTime,$(patsubst %-only,%,$@))

	$(PRINTF) "## Finished $(patsubst %-only,%,$@) (build time %s)\n\n" \

	    "`$(CAT) $(BUILDTIMESDIR)/build_time_diff_$(patsubst %-only,%,$@) | $(CUT) -f 1 -d ' '`"

endef

################################################################################

# This macro translates $ into \$ to protect the $ from expansion in the shell.

# To make this macro resilient against already escaped strings, first remove

# any present escapes before escaping so that no double escapes are added.

EscapeDollar = $(subst $$,\$$,$(subst \$$,$$,$(strip $1)))

################################################################################

# This macro translates $ into $$ to protect the string from make itself.

DoubleDollar = $(subst $$,$$$$,$(strip $1))

################################################################################

$(subst $(SRC_ROOT),X97,\

$(subst $(OUTPUT_ROOT),X98,\

$(subst X,X00,\

  ifneq (,$$(word 10001,$$($1)))

    $$(error Cannot list safely more than 10000 paths. $1 has $$(words $$($1)) paths!)

  endif

endef

# The source tips can come from the Mercurial repository, or in the files

# $(HGTIP_FILENAME) which contains the tip but is also positioned in the same

# directory as the original $(HGDIR) directory.

# These should not be := assignments, only used from the root Makefile.

HG_VERSION = $(shell $(HG) version 2> /dev/null)

HG_DIRECTORY=.hg

HGTIP_FILENAME=.hgtip

HG_SEARCH = ./REPO ./*/REPO ./*/*/REPO ./*/*/*/REPO

REPO_LIST = $(patsubst ./%,%,$(patsubst %/,%,$(sort $(dir \

    $(shell $(CD) $(SRC_ROOT) ; \

        $(LS) -d $(HG_SEARCH:%/REPO=%/$(HG_DIRECTORY)) \

            $(HG_SEARCH:%/REPO=%/$(HGTIP_FILENAME)) \

        2> /dev/null)))))

# Emit the repo:tip pairs to $@

define GetSourceTips

	$(CD) $(SRC_ROOT) ; \

	for i in $(REPO_LIST) IGNORE ; do \

	  if [ "$${i}" = "IGNORE" ] ; then \

	    continue; \

	  elif [ -d $${i}/$(HG_DIRECTORY) -a "$(HG_VERSION)" != "" ] ; then \

	    $(PRINTF) " %s:%s" \

	        "$${i}" `$(HG) tip --repository $${i} --template '{node|short}\n'` ; \

	  elif [ -f $${i}/$(HGTIP_FILENAME) ] ; then \

	    $(PRINTF) " %s:%s" \

	        "$${i}" `$(CAT) $${i}/$(HGTIP_FILENAME)` ; \

	  fi; \

	done >> $@

	$(PRINTF) "\n" >> $@

endef

# Create the HGTIP_FILENAME file. Called from jdk/make/closed/bundles.gmk

define CreateHgTip

	$(HG) tip --repository $1 --template '{node|short}\n' > $1/$(HGTIP_FILENAME); \

	$(ECHO) $1/$(HGTIP_FILENAME)

endef

define SetupLogging

  ifeq ($$(LOG_LEVEL), trace)

    # Shell redefinition trick inspired by http://www.cmcrossroads.com/ask-mr-make/6535-tracing-rule-execution-in-gnu-make

    # For each target executed, will print

    # Building <TARGET> (from <FIRST PREREQUISITE>) (<ALL NEWER PREREQUISITES> newer)

    # but with a limit of 20 on <ALL NEWER PREREQUISITES>, to avoid cluttering logs too much

    # (and causing a crash on Cygwin).

    # Default shell seems to always be /bin/sh. Must override with bash to get this to work on Solaris.

    # Only use time if it's GNU time which supports format and output file.

    WRAPPER_SHELL := $$(BASH) $$(SRC_ROOT)/common/bin/shell-tracer.sh $$(if $$(findstring yes,$$(IS_GNU_TIME)),$$(TIME),-) $$(OUTPUT_ROOT)/build-trace-time.log $$(SHELL)

    SHELL := $$(warning $$(if $$@,Building $$@,Running shell command) $$(if $$<, (from $$<))$$(if $$?, ($$(wordlist 1, 20, $$?) $$(if $$(wordlist 21, 22, $$?), ... [in total $$(words $$?) files]) newer)))$$(WRAPPER_SHELL)

  endif

  # Never remove warning messages; this is just for completeness

  LOG_WARN :=

  ifneq ($$(findstring $$(LOG_LEVEL), info debug trace),)

    LOG_INFO :=

  else

    LOG_INFO := > /dev/null

  endif

  ifneq ($$(findstring $$(LOG_LEVEL), debug trace),)

    LOG_DEBUG :=

  else

    LOG_DEBUG := > /dev/null

  endif

  ifneq ($$(findstring $$(LOG_LEVEL), trace),)

    LOG_TRACE :=

  else

    LOG_TRACE := > /dev/null

  endif

endef

# Make sure logging is setup for everyone that includes MakeBase.gmk.

$(eval $(call SetupLogging))

################################################################################

# Creates a sequence of increasing numbers (inclusive).

# Param 1 - starting number

# Param 2 - ending number

sequence = \

    $(wordlist $1, $2, $(strip \

        $(eval SEQUENCE_COUNT :=) \

        $(call _sequence-do,$(strip $2))))

_sequence-do = \

    $(if $(word $1, $(SEQUENCE_COUNT)),, \

      $(eval SEQUENCE_COUNT += .) \

      $(words $(SEQUENCE_COUNT)) \

      $(call _sequence-do,$1))

################################################################################

MAX_PARAMS := 30

PARAM_SEQUENCE := $(call sequence, 2, $(MAX_PARAMS))

# Template for creating a macro taking named parameters. To use it, assign the

# template to a variable with the name you want for your macro, using '='

# assignment. Then define a macro body with the suffix "Body". The Body macro

# should take 1 parameter which should be a unique string for that invocation

# of the macro.

# Ex:

# SetupFoo = $(NamedParamsMacroTemplate)

# define SetupFooBody

#   # do something

#   # access parameters as $$($1_BAR)

# endef

# Call it like this

# $(eval $(call SetupFoo, BUILD_SOMETHING, \

#     BAR := some parameter value, \

# ))

define NamedParamsMacroTemplate

  $(if $($(MAX_PARAMS)),$(error Internal makefile error: \

      Too many named arguments to macro, please update MAX_PARAMS in MakeBase.gmk))

  # Iterate over 2 3 4... and evaluate the named parameters with $1_ as prefix

  $(foreach i,$(PARAM_SEQUENCE), $(if $(strip $($i)),\

    $(strip $1)_$(strip $($i)))$(NEWLINE))

  # Debug print all named parameter names and values

  $(if $(findstring $(LOG_LEVEL),debug trace), \

    $(info $0 $(strip $1) $(foreach i,$(PARAM_SEQUENCE), \

      $(if $(strip $($i)),$(NEWLINE) $(strip [$i] $(if $(filter $(LOG_LEVEL), trace), \

        $($i), $(wordlist 1, 20, $($(i))) $(if $(word 21, $($(i))), ...)))))))

  $(if $(DEBUG_$(strip $1)),

    $(info -------- <<< Begin expansion of $(strip $1)) \

    $(info $(call $(0)Body,$(strip $1))) \

    $(info -------- >>> End expansion of $(strip $1)) \

  )

  $(call $(0)Body,$(strip $1))

endef

################################################################################

# Make directory without forking mkdir if not needed

MakeDir = \

    $(strip $(if $(subst $(wildcard $1 $2 $3 $4 $5 $6 $7 $8 $9),,$(strip $1 $2 $3 $4 $5 $6 $7 $8 $9)),\

      $(shell $(MKDIR) -p $1 $2 $3 $4 $5 $6 $7 $8 $9)))

################################################################################

# Assign a variable only if it is empty

# Param 1 - Variable to assign

# Param 2 - Value to assign

SetIfEmpty = \

    $(if $($(strip $1)),,$(eval $(strip $1) := $2))

################################################################################

ifeq ($(OPENJDK_TARGET_OS),solaris)

  # On Solaris, if the target is a symlink and exists, cp won't overwrite.

  # Cp has to operate in recursive mode to allow for -P flag, to preserve soft links. If the

  # name of the target file differs from the source file, rename after copy.

  # If the source and target parent directories are the same, recursive copy doesn't work

  # so we fall back on regular copy, which isn't preserving symlinks.

  define install-file

	$(MKDIR) -p '$(@D)'

	$(RM) '$@'

	if [ "$(@D)" != "$(<D)" ]; then \

	  $(CP) -f -r -P '$<' '$(@D)'; \

	  if [ "$(@F)" != "$(<F)" ]; then \

	    $(MV) '$(@D)/$(<F)' '$@'; \

	  fi; \

	else \

	  if [ -L '$<' ]; then \

	    $(ECHO) "Source file is a symlink and target is in the same directory: $< $@" ; \

	    exit 1; \

	  fi; \

	  $(CP) -f '$<' '$@'; \

	fi

  endef

else ifeq ($(OPENJDK_TARGET_OS),macosx)

  # On mac, extended attributes sometimes creep into the source files, which may later

  # cause the creation of ._* files which confuses testing. Clear these with xattr if

  # set. Some files get their write permissions removed after being copied to the

  # output dir. When these are copied again to images, xattr would fail. By only clearing

  # attributes when they are present, failing on this is avoided.

  define install-file

	$(MKDIR) -p '$(@D)'

	$(CP) -fRP '$<' '$@'

	if [ -n "`$(XATTR) -l '$@'`" ]; then $(XATTR) -c '$@'; fi

  endef

else

  # Running mkdir and cp in the same shell speeds up copy intensive tasks in Cygwin

  # significantly.

  define install-file

	$(MKDIR) -p '$(@D)' && $(CP) -fP '$<' '$@'

  endef

endif

################################################################################

# Filter out duplicate sub strings while preserving order. Keeps the first occurance.

uniq = \

    $(if $1,$(firstword $1) $(call uniq,$(filter-out $(firstword $1),$1)))

# Returns all whitespace-separated words in $2 where at least one of the

# whitespace-separated words in $1 is a substring.

containing = \

    $(strip \

        $(foreach v,$(strip $2),\

          $(call uniq,$(foreach p,$(strip $1),$(if $(findstring $p,$v),$v)))))

# Returns all whitespace-separated words in $2 where none of the

# whitespace-separated words in $1 is a substring.

not-containing = \

    $(strip $(filter-out $(call containing,$1,$2),$2))

# Return a list of all string elements that are duplicated in $1.

dups = \

    $(strip $(foreach v, $(sort $1), $(if $(filter-out 1, \

        $(words $(filter $v, $1))), $v)))

# String equals

equals = \

    $(and $(findstring $(strip $1),$(strip $2)),\

        $(findstring $(strip $2),$(strip $1)))

# Remove a whole list of prefixes

# $1 - List of prefixes

# $2 - List of elements to process

remove-prefixes = \

    $(strip $(if $1,$(patsubst $(firstword $1)%,%,\

      $(call remove-prefixes,$(filter-out $(firstword $1),$1),$2)),$2))

################################################################################

ifneq ($(DISABLE_CACHE_FIND), true)

  # In Cygwin, finds are very costly, both because of expensive forks and because

  # of bad file system caching. Find is used extensively in $(shell) commands to

  # find source files. This makes rerunning make with no or few changes rather

  # expensive. To speed this up, these two macros are used to cache the results

  # of simple find commands for reuse.

  #

  # Runs a find and stores both the directories where it was run and the results.

  # This macro can be called multiple times to add to the cache. Only finds files

  # with no filters.

  #

  # Needs to be called with $(eval )

  #

  # Even if the performance benifit is negligible on other platforms, keep the

  # functionality active unless explicitly disabled to exercise it more.

  #

  # Initialize FIND_CACHE_DIRS with := to make it a non recursively-expanded variable

  FIND_CACHE_DIRS :=

  # Param 1 - Dirs to find in

  # Param 2 - (optional) specialization. Normally "-a \( ... \)" expression.

  define FillCacheFind

    # Filter out already cached dirs. The - is needed when FIND_CACHE_DIRS is empty

    # since filter out will then return empty.

    FIND_CACHE_NEW_DIRS := $$(filter-out $$(addsuffix /%,\

        - $(FIND_CACHE_DIRS)) $(FIND_CACHE_DIRS), $1)

    ifneq ($$(FIND_CACHE_NEW_DIRS), )

      # Remove any trailing slash from dirs in the cache dir list

      FIND_CACHE_DIRS += $$(patsubst %/,%, $$(FIND_CACHE_NEW_DIRS))

      FIND_CACHE := $$(sort $$(FIND_CACHE) $$(shell $(FIND) $$(FIND_CACHE_NEW_DIRS) \( -type f -o -type l \) $2))

    endif

  endef

  # Mimics find by looking in the cache if all of the directories have been cached.

  # Otherwise reverts to shell find. This is safe to call on all platforms, even if

  # cache is deactivated.

  #

  # $1 can be either a directory or a file. If it's a directory, make