[bpt/guile.git] / libguile / cpp_cnvt.awk

# Converts a list of symbols into C expressions which define the symbols
# in Guile.
{
print "#ifdef " $0;
print "scm_c_define (\""$0"\", SCM_MAKINUM ("$0"));";
print "#endif"
}
Commit	Line	Data
67ec3667 GH	1	# Converts a list of symbols into C expressions which define the symbols
	2	# in Guile.
	3	{
	4	print "#ifdef " $0;
86d31dfe	5	print "scm_c_define (\""$0"\", SCM_MAKINUM ("$0"));";
67ec3667 GH	6	print "#endif"
67ec3667 GH	7	}