From cfa095b44a0dd27a308db4e0e4cfc2fbd53fe812 Mon Sep 17 00:00:00 2001
From: Gunnar Beutner <gunnar@beutner.name>
Date: Sun, 25 Apr 2021 09:42:02 +0200
Subject: Port: Add port for tcl

---
 Ports/tcl/package.sh         |  7 +++++++
 Ports/tcl/patches/ipv6.patch | 27 +++++++++++++++++++++++++++
 2 files changed, 34 insertions(+)
 create mode 100755 Ports/tcl/package.sh
 create mode 100644 Ports/tcl/patches/ipv6.patch

(limited to 'Ports/tcl')

diff --git a/Ports/tcl/package.sh b/Ports/tcl/package.sh
new file mode 100755
index 0000000000..fc8d0223aa
--- /dev/null
+++ b/Ports/tcl/package.sh
@@ -0,0 +1,7 @@
+#!/usr/bin/env -S bash ../.port_include.sh
+port=tcl
+version=8.6.11
+workdir=tcl${version}/unix
+useconfigure=true
+files="https://prdownloads.sourceforge.net/tcl/tcl${version}-src.tar.gz tcl${version}.tar.gz 8c0486668586672c5693d7d95817cb05a18c5ecca2f40e2836b9578064088258"
+auth_type=sha256
diff --git a/Ports/tcl/patches/ipv6.patch b/Ports/tcl/patches/ipv6.patch
new file mode 100644
index 0000000000..544c02cadb
--- /dev/null
+++ b/Ports/tcl/patches/ipv6.patch
@@ -0,0 +1,27 @@
+diff -Naur tcl8.6.11/unix/tclUnixSock.c tcl8.6.11.serenity/unix/tclUnixSock.c
+--- tcl8.6.11/unix/tclUnixSock.c	2020-09-21 17:15:49.000000000 +0200
++++ tcl8.6.11.serenity/unix/tclUnixSock.c	2021-04-25 09:39:28.224340150 +0200
+@@ -706,6 +706,7 @@
+ IPv6AddressNeedsNumericRendering(
+     struct in6_addr addr)
+ {
++#ifndef __serenity__
+     if (IN6_ARE_ADDR_EQUAL(&addr, &in6addr_any)) {
+         return 1;
+     }
+@@ -716,11 +717,15 @@
+      */
+ 
+     if (!IN6_IS_ADDR_V4MAPPED(&addr)) {
++#else
+         return 0;
++#endif
++#ifndef __serenity__
+     }
+ 
+     return (addr.s6_addr[12] == 0 && addr.s6_addr[13] == 0
+             && addr.s6_addr[14] == 0 && addr.s6_addr[15] == 0);
++#endif
+ }
+ #if defined (__clang__) || ((__GNUC__)  && ((__GNUC__ > 4) || ((__GNUC__ == 4) && (__GNUC_MINOR__ > 5))))
+ #pragma GCC diagnostic pop
-- 
cgit v1.2.3