SHBuild-YSLib-common.txt

"#", "(C) 2014-2018 FrankHB.",
"NPLA1 script as common library.";

"XXX", "'SHBuild_2*' depend on 'cygpath' optionally.";
"XXX", "'SHBuild_CheckUName_*' depend on 'uname'.";

$import! std.strings regex-match? string->regex ++ symbol->string string-empty?
	string<- string-contains-ci?,
$import! std.environments $binds1? value-of,
$import! std.io puts,
$import! std.system system env-get system-get system-quote env-set env-empty?,
$import! env_SHBuild_ SHBuild_String_absolute_path?_ SHBuild_QuoteS_
	SHBuild_RaiseError_ SHBuild_EchoVar SHBuild_SDot_ SHBuild_BuildGCH_existed_
	SHBuild_BuildGCH_mkpdirp_;

$def! $redef! $def!;
$defl! rmatch? (x r) regex-match? x (string->regex r);
$defl! putss (.xs) puts (apply ++ xs);
$defl! cmd-error-msg_ (cmd) ++ "Failed to call command: " cmd ".";
$defl! system-ok (cmd) eqv? (system cmd) 0;
$defl! system-check (cmd)
	$unless (system-ok cmd) (SHBuild_RaiseError_ (cmd-error-msg_ cmd));
$defv! $set-if-empty! (var .vexpr) env $if (string-empty? (eval var env))
	(eval (list $set! env var vexpr) env);
$defv! $env-de! (var .vexpr) env
	$let ((t env-get (symbol->string var)))
		eval (list $def! var
			($if (string-empty? t) (list (unwrap eval) vexpr env) t)) env;
$defv! $set-system-var! (var arg) env $unless (eval (list $binds1? env var) env)
	($let* ((cmd eval arg env) ((rstr code .) system-get cmd)) $if (eqv? code 0)
		(eval (list $def! var rstr) env)
		(SHBuild_RaiseError_ (cmd-error-msg_ cmd)));
$defv! $assert (var pred? msg) env $unless
	($and? (eval (list $binds1? env var) env)
		(pred? (eval var env)))
	(SHBuild_RaiseError_ (++ "Variable " (SHBuild_QuoteS_
		(symbol->string var)) " shall " msg "."));
"TODO", "Use 'string?'.";
$defv! $assert-nonempty (var) env
	eval (list $assert var ($lambda (str) not? (string-empty? str))
		"be a string of nonempty value") env;
$defv! $assert-absolute-path (var) env
	eval (list $assert var SHBuild_String_absolute_path?_
		"be a string of absolute path") env;
$defl! cons-cmd (.xs) apply ++ (map1 ($lambda (s) ++ s " ") xs);
$defl! SHBuild_CheckUName_Case_ (x) $cond
	((rmatch? x ".*Darwin.*") "OS_X")
	(($or? (rmatch? x ".*MSYS.*") (rmatch? x ".*MINGW.*")) "Win32")
	((rmatch? x ".*Linux.*") "Linux")
	(#t "unknown");
$defl! SHBuild_CheckUNameM_Case_ (x) $cond
	((rmatch? x "x86_64|i.*86-64") x)
	((rmatch? x "i.*86") x)
	(#t "unknown");
$defl! SHBuild_GetLangFlags_
	(var flags-pic flags-common flags-impl flags-dbg)
	$let ((val env-get var))
		SHBuild_TrimOptions_ ($if (string-empty? val)
			(cons-cmd flags-pic flags-common flags-impl flags-dbg) val);
$defl! compile-ok (src compile out opt err-out)
(
	$unless (string-empty? (env-get "SHELL"))
		(string<- src (system-quote src));
	system-ok (cons-cmd "echo" src "|" (system-quote compile) "-xc++" "-o"
		(system-quote out) opt "- 2>" err-out)
);
$defl! get-thread-option (cxx err-out)
(
	"TODO", "Impl without pthread?";
	$defl! dmp-test (name) (system-ok (cons-cmd (system-quote cxx)
		"-dumpspecs 2>& 1 | grep" name ">" err-out));
	$if (dmp-test "no-pthread:")
		($if (dmp-test "mthreads:") "-mthreads" "") "-pthread"
);
$defl! win32? (env-os) eqv? env-os "Win32";
$defl! get-nul-dev (env-os) $if (win32? env-os) "NUL" "/dev/null";
$defl! get-tmp-dir (env-os) $if (win32? env-os) "%TEMP%" "/tmp";
$defl! get-tmp-nul (env-os) ++ (get-tmp-dir env-os) "/null";
$defl! system-or-puts (env-os cmd pth) $let (((rstr code .)
	system-get (cons-cmd cmd (system-quote pth) "2>" (get-nul-dev env-os))))
	$if (eqv? code 0) rstr pth;
$defl! SHBuild_2m (env-os pth) system-or-puts env-os "cygpath -m" pth;
$defl! SHBuild_2u (env-os pth) system-or-puts env-os "cygpath -au" pth;
$defl! SHBuild_2w (env-os pth) system-or-puts env-os "cygpath -w" pth;
$defl! compile-ok-silent (env-os src compile opt)
	compile-ok src compile (get-tmp-nul env-os) opt (get-nul-dev env-os);
$defl! get-thread-option-silent (env-os cxx)
	get-thread-option cxx (get-nul-dev env-os);
$defl! get-SHBOPT_ (outdir shbopt-ext use-ld)
(
	$def! opt cons-cmd (++ "-xd," outdir) shbopt-ext;
	$if use-ld (cons-cmd opt "-xmode,2") opt
);
$defl! SHB_SetupPlatformVars_ (e env-os)
(
	$def! LIBPFX env-get "LIBPFX";
	$def! DSOSFX env-get "DSOSFX";
	$def! EXESFX env-get "EXESFX";
	$if (win32? env-os)
	(
		$set-if-empty! DSOSFX ".dll";
		$set-if-empty! EXESFX ".exe"
	)
	(
		$set-if-empty! LIBPFX "lib";
		$set-if-empty! DSOSFX ".so";
	);
	$set! e (LIBPFX DSOSFX EXESFX) (list LIBPFX DSOSFX EXESFX)
);
$defl! ld-ext-noadjust_ #ignore "";
$defl! ld-ext-adjust_win32_subsystem_ (env-os)
(
	"TODO", "Allow disabling 'puts' output.";
	$if ($and? (win32? env-os)
		(string-empty? (env-get "SHBuild_NoAdjustSubsystem")))
		(puts "Added \"-mwindows\" to LDFLAGS."; "-mwindows")
		""
);
$defl! build-with-conf-opt (outdir env-os debug dynamic shbopt-ext app
	do-ld-ext do-build)
(
	$def! CXXFLAGS_OPT_DBG
		$if debug ("-O0 -g -D_GLIBCXX_DEBUG -D_GLIBCXX_DEBUG_PEDANTIC") "";
	($env-de! CXX "g++"; env-set "CXX" CXX),
	($env-de! AR "ar"; env-set "AR" AR),
	($env-de! ARFLAGS "rcs"; env-set "ARFLAGS" ARFLAGS),
	($env-de! LD "g++"; env-set "LD" LD);
	"TODO", "Add sanity checks.";
	$env-de! C_CXXFLAGS_GC "-fdata-sections -ffunction-sections";
	$env-de! LDFLAGS_GC
		($if (eqv? env-os "OS_X") "-Wl,--dead-strip" "-Wl,--gc-sections");
	$env-de! C_CXXFLAGS_STRIP "-s";
	$env-de! LDFLAGS_STRIP "-s";
	"#", "-Wl,--print-gc-sections";
	$unless (compile-ok-silent env-os "int main(){}" CXX
		(cons-cmd C_CXXFLAGS_GC LDFLAGS_GC))
	(
		$redef! C_CXXFLAGS_GC "",
		$redef! LDFLAGS_GC ""
	);
	$env-de! C_CXXFLAGS_PIC $if (win32? env-os) "" "-fPIC";
	$env-de! C_CXXFLAGS_COMMON cons-cmd "-pipe" C_CXXFLAGS_GC C_CXXFLAGS_STRIP
		(env-get "C_CXXFLAGS_ARCH") "-pedantic-errors";
	$env-de! C_CXXFLAGS_OPT_LV "-O3";
	$env-de! C_CXXFLAGS_WARNING cons-cmd "-Wall" "-Wcast-align" "-Wdeprecated"
		"-Wdeprecated-declarations" "-Wextra" "-Wfloat-equal" "-Wformat=2"
		"-Winvalid-pch" "-Wmissing-declarations" "-Wmissing-include-dirs"
		"-Wmultichar" "-Wno-format-nonliteral" "-Wredundant-decls" "-Wshadow"
		"-Wsign-conversion";
	$def! cxxflags_impl_common_thrd_ get-thread-option-silent env-os CXX;
	$env-de! CXXFLAGS_IMPL_WARNING "";
	$env-de! C_CXXFLAGS_COMMON_IMPL_ "";
	$env-de! CXXFLAGS_IMPL_OPT "";
	$env-de! C_CXXFLAGS_IMPL_WARNING "";
	$env-de! LDFLAGS_IMPL_OPT "";
	$cond
	(
		(string-contains-ci? CXX "clang++")
		$set-if-empty! C_CXXFLAGS_COMMON_IMPL_ "-fno-merge-all-constants";
		$set-if-empty! CXXFLAGS_IMPL_WARNING cons-cmd "-Wno-deprecated-register"
			"-Wno-mismatched-tags" "-Wno-missing-braces" "-Wshorten-64-to-32"
			"-Wweak-vtables";
		"#", "CXXFLAGS_IMPL_OPT -flto";
		$set-if-empty! LDFLAGS_IMPL_OPT CXXFLAGS_IMPL_OPT
	)
	(
		(string-contains-ci? CXX "g++")
		$set-if-empty! C_CXXFLAGS_IMPL_WARNING cons-cmd "-Wdouble-promotion"
			"-Wlogical-op" "-Wtrampolines";
		$set-if-empty! CXXFLAGS_IMPL_WARNING cons-cmd
			"-Wconditionally-supported" "-Wno-noexcept-type"
			"-Wstrict-null-sentinel" "-Wzero-as-null-pointer-constant";
		$set-if-empty! CXXFLAGS_IMPL_OPT
			"-fexpensive-optimizations -flto=jobserver";
		$set-if-empty! LDFLAGS_IMPL_OPT "-fexpensive-optimizations -flto"
	);
	$env-de! CFLAGS_STD "-std=c11";
	$env-de! CFLAGS_WARNING cons-cmd C_CXXFLAGS_WARNING C_CXXFLAGS_IMPL_WARNING;
	$env-de! CFLAGS_COMMON cons-cmd C_CXXFLAGS_COMMON CFLAGS_STD CFLAGS_WARNING;
	$env-de! CXXFLAGS_IMPL_COMMON cxxflags_impl_common_thrd_;
	$env-de! CXXFLAGS_STD "-std=c++11";
	$env-de! CXXFLAGS_WARNING cons-cmd CFLAGS_WARNING "-Wctor-dtor-privacy"
		"-Wnon-virtual-dtor" "-Woverloaded-virtual" "-Wsign-promo"
		CXXFLAGS_IMPL_WARNING;
	$env-de! CXXFLAGS_COMMON cons-cmd CXXFLAGS_STD
		C_CXXFLAGS_COMMON CXXFLAGS_WARNING CXXFLAGS_IMPL_COMMON;
	$set-if-empty! CXXFLAGS_OPT_DBG cons-cmd C_CXXFLAGS_OPT_LV
		($if (env-empty? "CXXFLAGS_OPT_UseAssert") "-DNDEBUG" "")
		CXXFLAGS_IMPL_OPT "-fomit-frame-pointer";
	"XXX", "Rename %CXXFLAGS_OPT_DBG -> CFLAGS_OPT_DBG/C_CXXFLAGS_OPT_DBG?";
	$defl! get-lang-flags (var flags-common)
		(SHBuild_GetLangFlags_ var C_CXXFLAGS_PIC flags-common
				C_CXXFLAGS_COMMON_IMPL_ CXXFLAGS_OPT_DBG);
	$def! CFLAGS get-lang-flags "CFLAGS" CFLAGS_COMMON;
	$def! CXXFLAGS get-lang-flags "CXXFLAGS" CXXFLAGS_COMMON;
	$env-de! LDFLAGS_OPT_DBG cons-cmd LDFLAGS_STRIP LDFLAGS_IMPL_OPT LDFLAGS_GC;
	$def! LDFLAGS_DYN_BASE env-get "LDFLAGS_DYN_BASE";
	$def! LIBS_RPATH env-get "LIBS_RPATH";
	$if (win32? env-os) ($set-if-empty! LDFLAGS_DYN_BASE "-shared -Wl,--dll")
	(
		$set-if-empty! LDFLAGS_DYN_BASE "-shared";
		$set-if-empty! LIBS_RPATH ++ "-Wl,-rpath,"
			(SHBuild_QuoteS_ "\\$ORIGIN:\\$ORIGIN/../lib")
	);
	SHB_SetupPlatformVars_ (() get-current-environment) env-os;
	$env-de! LDFLAGS_DYN_EXTRA cons-cmd "-Wl,--no-undefined"
		(++ "-Wl,--dynamic-list-data,--dynamic-list-cpp-new,"
		"--dynamic-list-cpp-typeinfo");
	$env-de! LDFLAGS_DYN cons-cmd LDFLAGS_DYN_BASE LDFLAGS_DYN_EXTRA;
	"#", "Forced setting %LDFLAGS for debug configurations?";
	$def! LDFLAGS $if debug
		(cons-cmd C_CXXFLAGS_PIC cxxflags_impl_common_thrd_)
		(cons-cmd C_CXXFLAGS_PIC cxxflags_impl_common_thrd_ LDFLAGS_OPT_DBG);
	$redef! LDFLAGS SHBuild_TrimOptions_ (cons-cmd
		(SHBuild_TrimOptions_ LDFLAGS) ($if app (do-ld-ext env-os)
		($if dynamic LDFLAGS_DYN "-Wl,--dn")));
	env-set "LDFLAGS" LDFLAGS;
	$def! SHBOPT get-SHBOPT_ outdir shbopt-ext ($or? dynamic app);
	$defl! echo-var (var) SHBuild_EchoVar var (value-of var);
	echo-var "CXXFLAGS";
	echo-var "LDFLAGS";
	echo-var "SHBOPT";
	do-build CXX CXXFLAGS SHBOPT LIBPFX
);
$defl! SHBuild_EchoVar_N (var) SHBuild_EchoVar var
	(env-get (SHBuild_SDot_ var));
$defl! SHBuild_GetPlatformStrings ()
(
	"XXX", "'SHBuild_CheckUName_*' depend on 'uname'";
	$env-de! SHBuild_Env_OS ($set-system-var! SHBuild_Env_uname "uname";
		SHBuild_CheckUName_Case_ SHBuild_Env_uname),
	$env-de! SHBuild_Env_Arch ($set-system-var! SHBuild_Env_uname_m "uname -m";
		SHBuild_CheckUNameM_Case_ SHBuild_Env_uname_m);
	list SHBuild_Env_OS SHBuild_Env_Arch
);

$defl! get_env_SHB_ (env-os)
(
	SHB_SetupPlatformVars_ (() get-current-environment) env-os;

	$def! cmd_noerr_ ++ "2>" (get-nul-dev env-os);
	"#", "Following private environment variables are used: SHBuild.",
		" This is expected to be stage 1";
	$def! e_S1_SHBuild_ () system-quote (env-get "SHBuild");
	$defl! e_rm_ (pth)
	(
		"TODO", "Avoid deletion if possible?";
		"XXX", "This relies on 'rm'", "Error is ignored.";
		system (cons-cmd "rm" (system-quote pth) cmd_noerr_)
	);
	$defl! InstSHBuild (type dst src)
	(
		$assert-nonempty dst,
		$assert-nonempty src;
		"TODO",
			"More specific error handling in system-check and SHBuld command?";
		$cond
		((eqv? type "Link") (
			e_rm_ dst;
			$unless (system-ok (cons-cmd e_S1_SHBuild_
				"-xcmd,InstallSymbolicLink" dst src cmd_noerr_)) InstSHBuild
				"File" dst src
		))
		((eqv? type "HardLink") (
			e_rm_ dst;
			$unless (system-ok (cons-cmd e_S1_SHBuild_ "-xcmd,InstallHardLink"
				dst src cmd_noerr_)) InstSHBuild "File" dst src
		))
		(#t system-check
			(cons-cmd e_S1_SHBuild_ (++ "-xcmd,Install" type) dst src));
	);
	"NOTE",
		"This is basically same to %SHBuild_BuildGCH in %SHBuild-common.sh.",
		"Except the input path cannot have quotes and the function would",
		" always fail despite 'set -e' setting in shell scripts,",
		" and the tool would be quoted in the call.",
		"Params of %BuildGCH_:", "header = path of header to be copied",
		"inc = path of header to be included", "tool = tool to build header",
		"cmd = options for the tool";
	$defl! BuildGCH_ (header inc tool tool-opts)
	(
		$def! pch ++ inc ".gch";
		$def! qpch system-quote pch;
		$if (SHBuild_BuildGCH_existed_ pch)
			(putss "PCH file " qpch " exists, skipped building.")
			(
				SHBuild_BuildGCH_mkpdirp_ pch;
				putss "Building precompiled file " qpch " ...";
				InstSHBuild "HardLink" inc header;
				system-check (cons-cmd (system-quote tool) (SHBuild_TrimOptions_
					(cons-cmd tool-opts (system-quote header) (++ "-o" qpch))));
				putss "Building precompiled file " qpch " done."
			)
	);
	$defl! InstLibS (from-dir to-dir name)
	(
		$assert-nonempty from-dir,
		$assert-nonempty to-dir,
		$assert-nonempty name;
		InstSHBuild "HardLink" (++ to-dir "/lib" name ".a")
			(++ from-dir "/" LIBPFX name ".a")
	);
	$defl! InstLibD (from-dir name to-dir SR_DSO_Dest SR_DSO_Imp)
	(
		$assert-nonempty from-dir,
		$assert-nonempty SR_DSO_Dest,
		$assert-nonempty name;
		$def! target ++ LIBPFX name DSOSFX;
		$def! dest ++ SR_DSO_Dest "/" target;
		InstSHBuild "HardLink" dest (++ from-dir "/" target);
		$unless (string-empty? SR_DSO_Imp) ($assert-nonempty to-dir)
			(InstSHBuild "Link" (++ to-dir "/" target SR_DSO_Imp) dest)
	);
	$defl! InstInc (from-dir to-dir)
	(
		$assert-nonempty from-dir,
		$assert-nonempty to-dir;
		InstSHBuild "Directory" to-dir from-dir
	);
	$defl! InstHardLinkExe (from-dir to-dir name)
	(
		$assert-nonempty name;
		$def! dst ++ to-dir "/" name EXESFX;
		$def! src ++ from-dir "/" name ".exe";
		InstSHBuild "HardLink" dst src;
		"XXX", "This relies on 'rm'", "Error is ignored.";
		system-check (cons-cmd "chmod" "+x" dst)
	);
	$defl! InstNPLA1Module_ (from-dir to-dir name)
	(
		"TODO", "Use other location for NPLA1 library?";
		$assert-nonempty name,
		$assert-nonempty to-dir,
		$assert-nonempty from-dir;
		InstSHBuild "File" (++ to-dir "/" name) (++ from-dir "/" name)
	);
	$defl! InstTool (from-dir to-dir name)
	(
		$assert-nonempty name,
		$assert-nonempty to-dir,
		$assert-nonempty from-dir;
		InstSHBuild "Executable" (++ to-dir "/" name) (++ from-dir "/" name)
	);
	$if (win32? env-os)
	(
		$defl! InstUACManifestForExe (from to-dir name)
			InstSHBuild "HardLink" (++ to-dir "/" name EXESFX ".manifest") from
	);

	() lock-current-environment
);