From baecc2dc2449d04b44917a5114bf71262d65da30 Mon Sep 17 00:00:00 2001 From: "Kjetil S. Matheussen" Date: Thu, 8 Jan 2004 14:55:24 +0000 Subject: First commit of k_vst~, k_guile and k_cext svn path=/trunk/externals/k_guile/; revision=1253 --- gen_c_scheme.py | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100755 gen_c_scheme.py (limited to 'gen_c_scheme.py') 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') + + + + -- cgit v1.2.1