From d8e4c552f0e58ddb76dc3991c37ce13557eb8a2e Mon Sep 17 00:00:00 2001
From: "N.N." <sevyves@users.sourceforge.net>
Date: Tue, 30 Mar 2004 04:25:10 +0000
Subject: cooled~ 0.12

svn path=/trunk/externals/unauthorized/; revision=1516
---
 cooled~/tk2c.bash | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100755 cooled~/tk2c.bash

(limited to 'cooled~/tk2c.bash')

diff --git a/cooled~/tk2c.bash b/cooled~/tk2c.bash
new file mode 100755
index 0000000..9dfeb03
--- /dev/null
+++ b/cooled~/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
-- 
cgit v1.2.1