#

# Copyright (c) 2011, 2012, 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.

#

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

#

# Check that GNU make and cygwin are recent enough.

# Setup common utility functions.

#

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

ifndef _MAKEBASE_GMK

_MAKEBASE_GMK := 1

# If the variable that you want to send to stdout for piping into a file or otherwise,

# is potentially long, for example the a list of file paths, eg a list of all package directories.

# Then you need to use ListPathsSafely, which optimistically splits the output into several shell

# calls as well as use compression on recurrent file paths segments, to get around the potential

# command line length problem that exists in cygwin and other shells.

compress_paths=$(compress_pre)\

$(subst $(SRC_ROOT),X97,\

$(subst $(OUTPUT_ROOT),X98,\

$(subst X,X00,\

$(subst $(SPACE),\n,$(strip $1)))))\

$(compress_post)

		     -e 's|X98|$(OUTPUT_ROOT)|g' -e 's|X97|$(SRC_ROOT)|g' \

		     -e 's|X00|X|g' | tr '\n' '$2'

define ListPathsSafely_If

    $(if $(word $3,$($1)),$(eval $1_LPS$3:=$(call compress_paths,$(wordlist $3,$4,$($1)))))

endef

define ListPathsSafely_Printf

    $(if $(strip $($1_LPS$4)),printf -- "$(strip $($1_LPS$4))\n" | $(decompress_paths) $3)

endef

# Receipt example:

#    rm -f thepaths

#    $(call ListPathsSafely,THEPATHS,\n, >> thepaths)

#    The \n argument means translate spaces into \n

#    if instead , , (a space) is supplied, then spaces remain spaces.

define ListPathsSafely

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

    $(call ListPathsSafely_If,$1,$2,1,250)

    $(call ListPathsSafely_If,$1,$2,251,500)

    $(call ListPathsSafely_If,$1,$2,501,750)

    $(call ListPathsSafely_If,$1,$2,751,1000)

    $(call ListPathsSafely_If,$1,$2,1001,1250)

    $(call ListPathsSafely_If,$1,$2,1251,1500)

    $(call ListPathsSafely_If,$1,$2,1501,1750)

    $(call ListPathsSafely_If,$1,$2,1751,2000)

    $(call ListPathsSafely_If,$1,$2,2001,2250)

    $(call ListPathsSafely_If,$1,$2,2251,2500)

    $(call ListPathsSafely_If,$1,$2,2501,2750)

    $(call ListPathsSafely_If,$1,$2,2751,3000)

    $(call ListPathsSafely_If,$1,$2,3001,3250)

    $(call ListPathsSafely_If,$1,$2,3251,3500)

    $(call ListPathsSafely_If,$1,$2,3501,3750)

    $(call ListPathsSafely_If,$1,$2,3751,4000)

    $(call ListPathsSafely_If,$1,$2,4001,4250)

    $(call ListPathsSafely_If,$1,$2,4251,4500)

    $(call ListPathsSafely_If,$1,$2,4501,4750)

    $(call ListPathsSafely_If,$1,$2,4751,5000)

    $(call ListPathsSafely_If,$1,$2,5001,5250)

    $(call ListPathsSafely_If,$1,$2,5251,5500)

    $(call ListPathsSafely_If,$1,$2,5501,5750)

    $(call ListPathsSafely_If,$1,$2,5751,6000)

    $(call ListPathsSafely_If,$1,$2,6001,6250)

    $(call ListPathsSafely_If,$1,$2,6251,6500)

    $(call ListPathsSafely_If,$1,$2,6501,6750)

    $(call ListPathsSafely_If,$1,$2,6751,7000)

    $(call ListPathsSafely_If,$1,$2,7001,7250)

    $(call ListPathsSafely_If,$1,$2,7251,7500)

    $(call ListPathsSafely_If,$1,$2,7501,7750)

    $(call ListPathsSafely_If,$1,$2,7751,8000)

    $(call ListPathsSafely_If,$1,$2,8001,8250)

    $(call ListPathsSafely_If,$1,$2,8251,8500)

    $(call ListPathsSafely_If,$1,$2,8501,8750)

    $(call ListPathsSafely_If,$1,$2,8751,9000)

    $(call ListPathsSafely_If,$1,$2,9001,9250)

    $(call ListPathsSafely_If,$1,$2,9251,9500)

    $(call ListPathsSafely_If,$1,$2,9501,9750)

    $(call ListPathsSafely_If,$1,$2,9751,10000)

    $(call ListPathsSafely_Printf,$1,$2,$3,1)

    $(call ListPathsSafely_Printf,$1,$2,$3,251)

    $(call ListPathsSafely_Printf,$1,$2,$3,501)

    $(call ListPathsSafely_Printf,$1,$2,$3,751)

    $(call ListPathsSafely_Printf,$1,$2,$3,1001)

    $(call ListPathsSafely_Printf,$1,$2,$3,1251)

    $(call ListPathsSafely_Printf,$1,$2,$3,1501)

    $(call ListPathsSafely_Printf,$1,$2,$3,1751)

    $(call ListPathsSafely_Printf,$1,$2,$3,2001)

    $(call ListPathsSafely_Printf,$1,$2,$3,2251)

    $(call ListPathsSafely_Printf,$1,$2,$3,2501)

    $(call ListPathsSafely_Printf,$1,$2,$3,2751)

    $(call ListPathsSafely_Printf,$1,$2,$3,3001)

    $(call ListPathsSafely_Printf,$1,$2,$3,3251)

    $(call ListPathsSafely_Printf,$1,$2,$3,3501)

    $(call ListPathsSafely_Printf,$1,$2,$3,3751)

    $(call ListPathsSafely_Printf,$1,$2,$3,4001)

    $(call ListPathsSafely_Printf,$1,$2,$3,4251)

    $(call ListPathsSafely_Printf,$1,$2,$3,4501)

    $(call ListPathsSafely_Printf,$1,$2,$3,4751)

    $(call ListPathsSafely_Printf,$1,$2,$3,5001)

    $(call ListPathsSafely_Printf,$1,$2,$3,5251)

    $(call ListPathsSafely_Printf,$1,$2,$3,5501)

    $(call ListPathsSafely_Printf,$1,$2,$3,5751)

    $(call ListPathsSafely_Printf,$1,$2,$3,6001)

    $(call ListPathsSafely_Printf,$1,$2,$3,6251)

    $(call ListPathsSafely_Printf,$1,$2,$3,6501)

    $(call ListPathsSafely_Printf,$1,$2,$3,6751)

    $(call ListPathsSafely_Printf,$1,$2,$3,7001)

    $(call ListPathsSafely_Printf,$1,$2,$3,7251)

    $(call ListPathsSafely_Printf,$1,$2,$3,7501)

    $(call ListPathsSafely_Printf,$1,$2,$3,7751)

    $(call ListPathsSafely_Printf,$1,$2,$3,8001)

    $(call ListPathsSafely_Printf,$1,$2,$3,8251)

    $(call ListPathsSafely_Printf,$1,$2,$3,8501)

    $(call ListPathsSafely_Printf,$1,$2,$3,8751)

    $(call ListPathsSafely_Printf,$1,$2,$3,9001)

    $(call ListPathsSafely_Printf,$1,$2,$3,9251)

    $(call ListPathsSafely_Printf,$1,$2,$3,9501)

    $(call ListPathsSafely_Printf,$1,$2,$3,9751)

endef

define ListPathsSafelyNow_IfPrintf

    ifneq (,$$(word $4,$$($1)))

        $$(eval $1_LPS$4:=$$(call compress_paths,$$(wordlist $4,$5,$$($1))))

        $$(shell printf -- "$$(strip $$($1_LPS$4))\n" | $(decompress_paths) $3)

    endif

endef

# And an non-receipt version:

define ListPathsSafelyNow

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

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

    endif

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,1,250)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,251,500)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,501,750)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,751,1000)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,1001,1250)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,1251,1500)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,1501,1750)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,1751,2000)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,2001,2250)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,2251,2500)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,2501,2750)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,2751,3000)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,3001,3250)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,3251,3500)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,3501,3750)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,3751,4000)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,4001,4250)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,4251,4500)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,4501,4750)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,4751,5000)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,5001,5250)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,5251,5500)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,5501,5750)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,5751,6000)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,6001,6250)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,6251,6500)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,6501,6750)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,6751,7000)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,7001,7250)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,7251,7500)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,7501,7750)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,7751,8000)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,8001,8250)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,8251,8500)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,8501,8750)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,8751,9000)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,9001,9250)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,9251,9500)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,9501,9750)

    $(call ListPathsSafelyNow_IfPrintf,$1,$2,$3,9751,10000)

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)) ; \

                                   $(LS)    $(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

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

        OLD_SHELL:=$$(SHELL)

    endif

endef

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

$(eval $(call SetupLogging))

endif # _MAKEBASE_GMK