[jsk_unitree_startup/cross] Install tcl

jsk_unitree_robot/cross/repos/ros1_dependencies.repos

@@ -209,6 +209,12 @@ repositories:
   mailutils/debian:
     type: tar
     url: http://archive.ubuntu.com/ubuntu/pool/universe/m/mailutils/mailutils_3.4-1.debian.tar.xz
+  tcl:
+    type: tar
+    url: http://archive.ubuntu.com/ubuntu/pool/universe/t/tcl8.5/tcl8.5_8.5.19.orig.tar.gz
+  tcl/debian:
+    type: tar
+    url: http://archive.ubuntu.com/ubuntu/pool/universe/t/tcl8.5/tcl8.5_8.5.19-4.debian.tar.xz
   expect:
     type: tar
     url: http://archive.ubuntu.com/ubuntu/pool/universe/e/expect/expect_5.45.4.orig.tar.gz

jsk_unitree_robot/cross/ros1_dependencies_build_scripts/1038-tcl

@@ -0,0 +1,19 @@
+#!/bin/bash
+set -xeu -o pipefail
+
+DEBIAN_DIR=/home/user/ros1_dependencies_sources/src/tcl/debian/debian
+SOURCE_DIR=/home/user/ros1_dependencies_sources/src/tcl/tcl8.5.19/unix
+
+#
+# constantly does not have patches
+#
+cd ${DEBIAN_DIR}/patches
+for patch_file in $(grep -v ^# series); do
+OUT="$(patch -p1 --forward --directory ${SOURCE_DIR} < ${patch_file} | tee /dev/tty)" || echo "${OUT}" | grep "Skipping patch" -q || (echo "$OUT" && false) || echo "OK"
+done
+
+cd ${SOURCE_DIR}
+
+./configure --prefix=/opt/jsk/${INSTALL_ROOT}/ros1_dependencies
+
+make install