First commit of k_vst~, k_guile and k_cextsvn2git-root

svn path=/trunk/externals/k_guile/; revision=1253

1 files changed, 19 insertions, 0 deletions

diff --git a/gen_c_scheme.py b/gen_c_scheme.py
new file mode 100755
index 0000000..58c2dcc
--- /dev/null
+++ b/gen_c_scheme.py
@@ -0,0 +1,19 @@
+#!/usr/bin/env python
+
+import sys,string
+
+file=open(sys.argv[1],"r")
+
+while 1:
+    line=""
+    while line=="" or line=="\n" or line[0:1]==";":
+        line=file.readline()
+        if line=="":
+            file.close()
+            sys.exit(0)
+    line=string.replace(line[:-1],'\\','\\\\')
+    sys.stdout.write('"'+string.replace(line,'"','\\"')+'\\n"\n')
+
+
+
+