Import guile-1.8 as multiple upstream tarball component

[lilypond.git] / guile18 / libguile / cpp_cnvt.awk

diff --git a/guile18/libguile/cpp_cnvt.awk b/guile18/libguile/cpp_cnvt.awk
new file mode 100644 (file)
index 0000000..1e6c094
--- /dev/null
+++ b/guile18/libguile/cpp_cnvt.awk
@@ -0,0 +1,7 @@
+# Converts a list of symbols into C expressions which define the symbols
+# in Guile.
+{
+print "#ifdef " $0;
+print "scm_c_define (\""$0"\", scm_from_int ("$0"));";
+print "#endif"
+}