scrolllist 0.1

svn path=/trunk/externals/unauthorized/; revision=3969

1 files changed, 24 insertions, 0 deletions

diff --git a/scrolllist/tk2c.bash b/scrolllist/tk2c.bash
new file mode 100755
index 0000000..9dfeb03
--- /dev/null
+++ b/scrolllist/tk2c.bash
@@ -0,0 +1,24 @@
+#!/bin/bash
+
+#set -x
+
+while read line
+do
+  for word in $line
+  do
+    if [ "X"$word != "X"${word#\#} ]
+    then
+       echo // ${line#\#}
+       break
+    else
+       line=${line//\'/\\\'}
+#useless, slashes never gets in
+       line=${line//\\/\\\\}
+#this one's dirty, i know
+       line=${line//;/\\\\;}
+       line=${line//\"/\\\"}
+       echo 'sys_gui("'$line'\n");'
+       break
+    fi
+  done
+done