oxmc/libgtop
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added guile.x'. Added rule to make guile.x' from `guile.c' using

Browse Source 
1998-10-11  Martin Baulig  <martin@home-of-linux.org>

	* Makefile.am (BUILT_SOURCES, CLEANFILES): Added `guile.x'.
	Added rule to make `guile.x' from `guile.c' using guile-snarf.

	* guile.awk: Use the SCM_PROC macros and guile-snarf here.
This commit is contained in:
Martin Baulig
1998-10-11 16:22:28 +00:00
committed by Martin Baulig
parent 4aaa1f5356
commit ade863b5e3
3 changed files with 20 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
sysdeps/guile/ChangeLog Normal file
View File

@@ -0,0 +1,7 @@
1998-10-11 Martin Baulig <martin@home-of-linux.org>
* Makefile.am (BUILT_SOURCES, CLEANFILES): Added `guile.x'.
Added rule to make `guile.x' from `guile.c' using guile-snarf.
* guile.awk: Use the SCM_PROC macros and guile-snarf here.

7
sysdeps/guile/Makefile.am
View File

@@ -10,13 +10,16 @@ libgtop_guile_la_SOURCES = guile.c
libgtop_guile_la_LDFLAGS = $(LT_VERSION_INFO)
BUILT_SOURCES = guile.c
BUILT_SOURCES = guile.c guile.x
guile.c: guile.awk $(top_builddir)/config.h $(top_srcdir)/features.def
$(AWK) -f $(srcdir)/guile.awk < $(top_srcdir)/features.def > gnc-t
mv gnc-t guile.c
guile.x: guile.c
guile-snarf $(DEFS) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) $< > $@
EXTRA_DIST = guile.awk
CLEANFILES = guile.c
CLEANFILES = guile.c guile.x

15
sysdeps/guile/guile.awk
View File

@@ -63,8 +63,13 @@ function make_output(line) {
}
nr_params_field[feature] = total_nr_params;
feature_name = feature; sub(/_/,"-",feature_name);
output = "SCM_PROC (s_"feature", \"glibtop-get-"feature_name"\",";
output = output" "nr_params_field[feature]", 0, 0, ";
output = output"glibtop_guile_get_"feature");\n\n";
output = "SCM\nglibtop_guile_get_"feature" ("param_decl")\n{\n";
output = output"SCM\nglibtop_guile_get_"feature" ("param_decl")\n{\n";
output = output"\tglibtop_"feature" "feature";\n";
if (retval != "void")
@@ -121,11 +126,7 @@ END {
print "void";
print "glibtop_boot_guile (void)";
print "{";
for (feature in features) {
print "\tgh_new_procedure"nr_params_field[feature]"_0";
print "\t\t(\"glibtop-get-"feature"\", glibtop_guile_get_"feature");";
}
print "fprintf (stderr, \"glibtop_boot_guile ()\\n\");";
print "#include \"guile.x\"";
print "}";
}