summaryrefslogtreecommitdiffstats
path: root/t/recipes/checks/documentation/manual/legacy-scripts/build-spec/orig/tkfoo
diff options
context:
space:
mode:
Diffstat (limited to 't/recipes/checks/documentation/manual/legacy-scripts/build-spec/orig/tkfoo')
-rwxr-xr-xt/recipes/checks/documentation/manual/legacy-scripts/build-spec/orig/tkfoo31
1 files changed, 31 insertions, 0 deletions
diff --git a/t/recipes/checks/documentation/manual/legacy-scripts/build-spec/orig/tkfoo b/t/recipes/checks/documentation/manual/legacy-scripts/build-spec/orig/tkfoo
new file mode 100755
index 0000000..533595a
--- /dev/null
+++ b/t/recipes/checks/documentation/manual/legacy-scripts/build-spec/orig/tkfoo
@@ -0,0 +1,31 @@
+#!/bin/sh
+#
+# Insane amount of empty lines and comments
+
+#
+#
+#
+#
+
+#
+#
+
+#
+#
+#
+
+#
+#
+
+#
+# This line makes the next one a comment in Tcl \
+exec wish "$0" -- ${1+"$@"}
+
+# lintian should not check the following for syntax
+# if it detects the line above correctly
+# Code snippet taken from eTkTab
+
+if { [array names prefs keybindings] != "" } {
+ # Read in the file
+ array set unparsed_bindings [ read_settings_file $prefs(keybindings)]
+}