File: cpp_cnvt.awk

package info (click to toggle)
guile-core 1%3A1.3-12
  • links: PTS
  • area: main
  • in suites: slink
  • size: 4,488 kB
  • ctags: 4,772
  • sloc: ansic: 40,294; lisp: 5,870; sh: 5,079; asm: 1,514; makefile: 397; awk: 162; csh: 50
file content (7 lines) | stat: -rw-r--r-- 179 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
 
# Converts a list of symbols into C expressions which define the symbols
# in Guile.
{
print "#ifdef " $0;
print "scm_sysintern (\""$0"\", SCM_MAKINUM ("$0"));";
print "#endif"
}