head 1.5; access; symbols pkgsrc-2013Q2:1.5.0.8 pkgsrc-2013Q2-base:1.5 pkgsrc-2012Q4:1.5.0.6 pkgsrc-2012Q4-base:1.5 pkgsrc-2011Q4:1.5.0.4 pkgsrc-2011Q4-base:1.5 pkgsrc-2011Q2:1.5.0.2 pkgsrc-2011Q2-base:1.5 pkgsrc-2009Q4:1.4.0.2 pkgsrc-2009Q4-base:1.4 pkgsrc-2009Q3:1.3.0.36 pkgsrc-2009Q3-base:1.3 pkgsrc-2009Q2:1.3.0.34 pkgsrc-2009Q2-base:1.3 pkgsrc-2009Q1:1.3.0.32 pkgsrc-2009Q1-base:1.3 pkgsrc-2008Q4:1.3.0.30 pkgsrc-2008Q4-base:1.3 pkgsrc-2008Q3:1.3.0.28 pkgsrc-2008Q3-base:1.3 cube-native-xorg:1.3.0.26 cube-native-xorg-base:1.3 pkgsrc-2008Q2:1.3.0.24 pkgsrc-2008Q2-base:1.3 cwrapper:1.3.0.22 pkgsrc-2008Q1:1.3.0.20 pkgsrc-2008Q1-base:1.3 pkgsrc-2007Q4:1.3.0.18 pkgsrc-2007Q4-base:1.3 pkgsrc-2007Q3:1.3.0.16 pkgsrc-2007Q3-base:1.3 pkgsrc-2007Q2:1.3.0.14 pkgsrc-2007Q2-base:1.3 pkgsrc-2007Q1:1.3.0.12 pkgsrc-2007Q1-base:1.3 pkgsrc-2006Q4:1.3.0.10 pkgsrc-2006Q4-base:1.3 pkgsrc-2006Q3:1.3.0.8 pkgsrc-2006Q3-base:1.3 pkgsrc-2006Q2:1.3.0.6 pkgsrc-2006Q2-base:1.3 pkgsrc-2006Q1:1.3.0.4 pkgsrc-2006Q1-base:1.3 pkgsrc-2005Q4:1.3.0.2 pkgsrc-2005Q4-base:1.3 pkgsrc-2005Q3:1.2.0.2 pkgsrc-2005Q3-base:1.2 pkgsrc-2005Q2:1.1.1.1.0.12 pkgsrc-2005Q2-base:1.1.1.1 pkgsrc-2005Q1:1.1.1.1.0.10 pkgsrc-2005Q1-base:1.1.1.1 pkgsrc-2004Q4:1.1.1.1.0.8 pkgsrc-2004Q4-base:1.1.1.1 pkgsrc-2004Q3:1.1.1.1.0.6 pkgsrc-2004Q3-base:1.1.1.1 pkgsrc-2004Q2:1.1.1.1.0.4 pkgsrc-2004Q2-base:1.1.1.1 pkgsrc-2004Q1:1.1.1.1.0.2 pkgsrc-2004Q1-base:1.1.1.1 pkgsrc-base:1.1.1.1 TNF:1.1.1; locks; strict; comment @# @; 1.5 date 2010.02.10.18.17.11; author joerg; state dead; branches; next 1.4; 1.4 date 2009.12.17.18.35.27; author abs; state Exp; branches; next 1.3; 1.3 date 2005.11.04.09.56.09; author rillig; state Exp; branches; next 1.2; 1.2 date 2005.09.21.14.49.08; author joerg; state Exp; branches; next 1.1; 1.1 date 2004.03.08.19.22.27; author minskim; state Exp; branches 1.1.1.1; next ; 1.1.1.1 date 2004.03.08.19.22.27; author minskim; state Exp; branches; next ; desc @@ 1.5 log @Retire TCL 8.3 @ text @$NetBSD: patch-ac,v 1.4 2009/12/17 18:35:27 abs Exp $ --- unix/tclUnixInit.c.orig 2001-08-24 17:13:22.000000000 +0000 +++ unix/tclUnixInit.c @@@@ -13,7 +13,7 @@@@ #include "tclInt.h" #include "tclPort.h" #include -#if defined(__FreeBSD__) +#if defined(__FreeBSD__) || defined(__DragonFly__) # include #endif #if defined(__bsdi__) @@@@ -22,6 +22,11 @@@@ # include # endif #endif +#if defined(__NetBSD__) +#include +#include +#include +#endif /* * The Init script (common to Windows and Unix platforms) is @@@@ -132,7 +137,7 @@@@ TclpInitPlatform() (void) signal(SIGPIPE, SIG_IGN); #endif /* SIGPIPE */ -#ifdef __FreeBSD__ +#if defined(__FreeBSD__) || defined(__DragonFly__) fpsetround(FP_RN); fpsetmask(0L); #endif @@@@ -550,6 +555,11 @@@@ TclpSetVariables(interp) int unameOK; char *user; Tcl_DString ds; +#if defined(__NetBSD__) + char machine_arch[SYS_NMLN]; + int mib[2] = { CTL_HW, HW_MACHINE_ARCH }; + size_t len = sizeof(machine_arch); +#endif Tcl_SetVar(interp, "tclDefaultLibrary", defaultLibraryDir, TCL_GLOBAL_ONLY); Tcl_SetVar(interp, "tcl_pkgPath", pkgPath, TCL_GLOBAL_ONLY); @@@@ -585,8 +595,16 @@@@ TclpSetVariables(interp) Tcl_SetVar2(interp, "tcl_platform", "osVersion", name.release, TCL_GLOBAL_ONLY|TCL_APPEND_VALUE); } +#if defined(__NetBSD__) + if (sysctl(mib, sizeof(mib) / sizeof(int), machine_arch, &len, NULL, 0) < 0) + unameOK = 0; + else + Tcl_SetVar2(interp, "tcl_platform", "machine", machine_arch, + TCL_GLOBAL_ONLY); +#else Tcl_SetVar2(interp, "tcl_platform", "machine", name.machine, TCL_GLOBAL_ONLY); +#endif } #endif if (!unameOK) { @ 1.4 log @PKG_DESTDIR_SUPPORT @ text @d1 1 a1 1 $NetBSD: patch-ac,v 1.3 2005/11/04 09:56:09 rillig Exp $ @ 1.3 log @Fixed wrong use of WRKSRC. @ text @d1 1 a1 1 $NetBSD: patch-ac,v 1.2 2005/09/21 14:49:08 joerg Exp $ d3 1 a3 1 --- unix/tclUnixInit.c.orig Fri Aug 24 19:13:22 2001 @ 1.2 log @Ensure that errno really comes from errno.h and only define it as extern, if it's not a macro. Teach configure about DragonFly. OKed by maintainer. @ text @d1 1 a1 1 $NetBSD: patch-ac,v 1.1.1.1 2004/03/08 19:22:27 minskim Exp $ d3 2 a4 2 --- tclUnixInit.c.orig Fri Aug 24 19:13:22 2001 +++ tclUnixInit.c @ 1.1 log @Initial revision @ text @d1 1 a1 1 $NetBSD: patch-ac,v 1.2 2001/12/23 17:02:31 bjoern Exp $ d5 9 d26 10 a35 1 @@@@ -550,6 +555,11 @@@@ d47 1 a47 1 @@@@ -585,8 +595,16 @@@@ @ 1.1.1.1 log @Reimport tcl-8.3.4 into lang/tcl83 before updating Tcl/Tk to 8.4.5, because many packages still need 8.3. OK'ed by the maintainer (jwise@@). @ text @@