70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
echo '' > "${TCLPRIVATE}/win/tclWinReg.c"
## Long-standing bug in Tcl
echo '#undef strtod' > "${TCLPRIVATE}/compat/strtod.c.new"
cat "${TCLPRIVATE}/compat/strtod.c" >> "${TCLPRIVATE}/compat/strtod.c.new"
cat "${TCLPRIVATE}/compat/strtod.c.new" > "${TCLPRIVATE}/compat/strtod.c"
rm -f "${TCLPRIVATE}/compat/strtod.c.new"
tcl_platform_dir='unix win macosx'
case "${CC}" in
*mingw*)
# If the compiler looks like Mingw, use Windows
tcl_platform_dir='win'
|
>
>
>
>
>
>
>
>
>
>
|
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
echo '' > "${TCLPRIVATE}/win/tclWinReg.c"
## Long-standing bug in Tcl
echo '#undef strtod' > "${TCLPRIVATE}/compat/strtod.c.new"
cat "${TCLPRIVATE}/compat/strtod.c" >> "${TCLPRIVATE}/compat/strtod.c.new"
cat "${TCLPRIVATE}/compat/strtod.c.new" > "${TCLPRIVATE}/compat/strtod.c"
rm -f "${TCLPRIVATE}/compat/strtod.c.new"
## Update to call fake "uname" since Tcl insists on
## using "uname" to determine HOST information
case "${CC}" in
*-*-*)
sed 's|`uname |`'"${PROJROOTDIR}"'/fake-uname |g' "${TCLPRIVATE}/unix/configure" > "${TCLPRIVATE}/unix/configure.new"
cat "${TCLPRIVATE}/unix/configure.new" > "${TCLPRIVATE}/unix/configure"
rm -f "${TCLPRIVATE}/unix/configure.new"
;;
esac
tcl_platform_dir='unix win macosx'
case "${CC}" in
*mingw*)
# If the compiler looks like Mingw, use Windows
tcl_platform_dir='win'
|