| #!/bin/bash |
| # |
| # Helper script to configure directories for binaries, scripts, libraries etc. |
| # Uses sed to make the necessary changes in the source. Comes with a couple of |
| # caveats: Compared to posix, the windows-version is a bit crippled in terms of |
| # flexibility. |
| # |
| # 1. Shared and arch-dependant libs must reside in the same directory, because |
| # of how Windows loads DLL's. |
| # 2. It's not enough to change config.gc; scripts get their values from this but |
| # binaries are compiled with hardcoded paths configured in win32/win32.c. |
| # Because... [reasons]. |
| |
| set -o errexit |
| set -o nounset |
| set -o errtrace |
| set -o pipefail |
| |
| progpath="$(realpath "$0")" |
| progdir="${progpath%/*}" |
| progname="${progpath##*/}" |
| |
| usage() { |
| echo "Usage: ${progname} [path to src tree root]" |
| } |
| |
| if [[ -z "${1:-}" || ! -d "${1}/win32" ]]; then |
| usage |
| exit 1 |
| fi |
| |
| srcdir="${1}" |
| |
| bin='\\bin' |
| scr='\\bin' |
| priv='\\lib\\perl5' # shared libs |
| arch='\\lib\\perl5' # arch-dependant libs |
| html='\\share\\doc\\perl5' |
| core='\\core_perl' |
| site='\\site_perl' |
| vend='\\vendor_perl' |
| |
| # If one want, for example perl.exe in $PREFIX/bin, set bin_core to "${bin}" |
| bin_core="${bin}" |
| bin_site="${bin}${site}" |
| bin_vend="${bin}${vend}" |
| scr_core="${scr}${core}" |
| scr_site="${scr}${site}" |
| scr_vend="${scr}${vend}" |
| priv_core="${priv}${core}" |
| priv_site="${priv}${site}" |
| priv_vend="${priv}${vend}" |
| arch_core="${arch}${core}" |
| arch_site="${arch}${site}" |
| arch_vend="${arch}${vend}" |
| html_core="${html}${core}" |
| html_site="${html}${site}" |
| html_vend="${html}${vend}" |
| |
| declare -i \ |
| CORE_VER=0 \ |
| SITE_VER=1 \ |
| VEND_VER=0 \ |
| ARCH=0 |
| |
| ### ### |
| ### No need to change anything below this line ### |
| ### ### |
| |
| null='' |
| |
| path() { |
| if (( $3 == 0 )); then |
| A='~' |
| B='~' |
| elif (( $3 == 1 )); then |
| A='$(' |
| B=')' |
| fi |
| if [[ "${!1}" != *perl* ]]; then |
| P='_PERL' |
| else |
| P='' |
| fi |
| printf "%s%s%s%s" \ |
| "$([[ "${4:-}" == "doc" ]] && printf "${A}INST_DOC${B}" || printf "${A}INST_TOP${B}")" \ |
| "${!1}" \ |
| "$(if (( $2 >= 1 )); then |
| if [[ "$1" == *site ]]; then printf "${A}INST_SITE_VER${P}${B}" |
| elif [[ "$1" == *vend ]]; then printf "${A}INST_VEND_VER${P}${B}" |
| else printf "${A}INST_CORE_VER${P}${B}" |
| fi |
| fi)" \ |
| "$( (( $2 >= 2 )) && printf "${A}INST_ARCH${B}")" |
| } |
| |
| sed -i -E \ |
| -e "/^d_((priv|arch)lib|(site|vendor)(arch|lib|bin|script))=/ s/=.*/='define'/" \ |
| -e "/^(install|site|vendor)?prefix(exp)?=/ s/=.*/='~INST_TOP~'/" \ |
| -e "/^libpth=/ s/=.*/=''/" \ |
| -e "/^installstyle=/ s/=.*/='lib\/perl5'/" \ |
| -e "/^perlpath=/ s/=.*/='$(path bin_core 2 0)"'\\perl.exe'"'/" \ |
| -e "/^(install)?script(dir)?(exp)?=/ s/=.*/='$(path scr_core 1 0)'/" \ |
| -e "/^(install)?bin(exp)?=/ s/=.*/='$(path bin_core 2 0)'/" \ |
| -e "/^(install)?sitescript(exp)?=/ s/=.*/='$(path scr_site 1 0)'/" \ |
| -e "/^(install)?sitebin(exp)?=/ s/=.*/='$(path bin_site 2 0)'/" \ |
| -e "/^(install)?vendorscript(exp)?=/ s/=.*/='$(path scr_vend 1 0)'/" \ |
| -e "/^(install)?vendorbin(exp)?=/ s/=.*/='$(path bin_vend 2 0)'/" \ |
| -e "/^(install)?privlib(exp)?=/ s/=.*/='$(path priv_core 1 0)'/" \ |
| -e "/^(install)?archlib(exp)?=/ s/=.*/='$(path arch_core 2 0)'/" \ |
| -e "/^(install)?sitelib_stem=/ s/=.*/='$(path priv_site 0 0)'/" \ |
| -e "/^(install)?sitelib(exp)?=/ s/=.*/='$(path priv_site 1 0)'/" \ |
| -e "/^(install)?sitearch(exp)?=/ s/=.*/='$(path arch_site 2 0)'/" \ |
| -e "/^(install)?vendorlib_stem=/ s/=.*/='$(path priv_vend 0 0)'/" \ |
| -e "/^(install)?vendorlib(exp)?=/ s/=.*/='$(path priv_vend 1 0)'/" \ |
| -e "/^(install)?vendorarch(exp)?=/ s/=.*/='$(path arch_vend 2 0)'/" \ |
| -e "/^(install)?htmldir(exp)?=/ s/=.*/='$(path html 1 0 doc)'/" \ |
| -e "/^(install)?htmlhelpdir(exp)?=/ s/=.*/='$(path html 1 0 doc)"'\\htmlhelp'"'/" \ |
| -e "/^(install)?html[13]dir(exp)?=/ s/=.*/='$(path html_core 1 0 doc)'/" \ |
| -e "/^(install)?sitehtml[13]dir(exp)?=/ s/=.*/='$(path html_site 1 0 doc)'/" \ |
| -e "/^(install)?vendorhtml[13]dir(exp)?=/ s/=.*/='$(path html_vend 1 0 doc)'/" \ |
| -e "/^(install)?(vendor)?man1dir(exp)?=/ s/=.*/='$(path null 0 0 doc)"'\\share\\man\\man1'"'/" \ |
| -e "/^(install)?(vendor)?man3dir(exp)?=/ s/=.*/='$(path null 0 0 doc)"'\\share\\man\\man3'"'/" \ |
| -e "/^(install)?siteman1dir(exp)?=/ s/=.*/='$(path null 0 0 doc)"'\\local\\man\\man1'"'/" \ |
| -e "/^(install)?siteman3dir(exp)?=/ s/=.*/='$(path null 0 0 doc)"'\\local\\man\\man3'"'/" \ |
| -e "/^man1ext=/ s/=.*/='1perl'/" \ |
| -e "/^man3ext=/ s/=.*/='3perl'/" \ |
| -e "/^usevendorprefix=/ s/=.*/='define'/" \ |
| -e "/^otherlibdirs=/ s/=.*/=' '/" \ |
| -e "/^d_perl_otherlibdirs=/ s/=.*/='undef'/" \ |
| -e "/^inc_version_list=/ s/=.*/=' '/" \ |
| -e "/^inc_version_list_init=/ s/=.*/='0'/" \ |
| -e "/^d_inc_version_list=/ s/=.*/='undef'/" \ |
| -e "/^cf_by=/ s/=.*/=' '/" \ |
| -e "/^cf_email=/ s/=.*/=' '/" \ |
| -e "/^perladmin=/ s/=.*/=' '/" \ |
| "${srcdir}"/win32/config.gc |
| |
| # We have no (site|vendor)man(1|3)ext, to get the same effect, change man(1|3)ext after make install |
| |
| sed -i -E \ |
| -e "/^INST_SCRIPT\s+=/ s/=.*/= $(path scr_core 1 1)/" \ |
| -e "/^INST_BIN\s+=/ s/=.*/= $(path bin_core 2 1)/" \ |
| -e "/^INST_LIB\s+=/ s/=.*/= $(path priv_core 1 1)/" \ |
| -e "/^INST_ARCHLIB\s+=/ s/=.*/= $(path arch_core 2 1)/" \ |
| -e "/^INST_HTML\s+=/ s/=.*/= $(path html 1 1 doc)/" \ |
| -e "s/^#?(INST_VER\s)/\1/" \ |
| -e "s/^#?(INST_CORE_VER\s)/$( ((CORE_VER)) || echo -n '#')\1/" \ |
| -e "s/^#?(INST_SITE_VER\s)/$( ((SITE_VER)) || echo -n '#')\1/" \ |
| -e "s/^#?(INST_VEND_VER\s)/$( ((VEND_VER)) || echo -n '#')\1/" \ |
| -e "s/^#?(INST_CORE_VER_PERL\s)/$( ((CORE_VER)) || echo -n '#')\1/" \ |
| -e "s/^#?(INST_SITE_VER_PERL\s)/$( ((SITE_VER)) || echo -n '#')\1/" \ |
| -e "s/^#?(INST_VEND_VER_PERL\s)/$( ((VEND_VER)) || echo -n '#')\1/" \ |
| -e "s/^#?(INST_ARCH\s)/$( ((ARCH)) || echo -n '#')\1/" \ |
| "${srcdir}"/win32/{GNUmakefile,makefile.mk} |
| |
| vendlib="${priv_vend//\\\\/\\\/}" |
| vendlib="${vendlib#\\\/}" |
| sitelib="${priv_site//\\\\/\\\/}" |
| sitelib="${sitelib#\\\/}" |
| privlib="${priv_core//\\\\/\\\/}" |
| privlib="${privlib#\\\/}" |
| |
| sed -i -E \ |
| -e "/^#\s*define\s+MSYS_PERL_VENDORLIB/ s/\".*\"/\"${vendlib}\"/" \ |
| -e "/^#\s*define\s+MSYS_SITELIB/ s/\".*\"/\"${sitelib}\"/" \ |
| -e "/^#\s*define\s+MSYS_PRIVLIB/ s/\".*\"/\"${privlib}\"/" \ |
| "${srcdir}"/win32/win32.c |
| |
| exit 0 |
| |
| # vim: set ts=4 sw=4 et ai: |
