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

Added guile-names.x' here and a rule to make it from guile-names.c'

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

	* names/Makefile.am (BUILT_SOURCES, CLEANFILES): Added
 	`guile-names.x' here and a rule to make it from `guile-names.c'
 	using guile-snarf.

	* names/guile-names.awk: Use the SCM_GLOBAL_VCELL macros and
	guile-snarf here; declared all `glibtop_guile_*' functions static.
This commit is contained in:
Martin Baulig
1998-10-11 18:18:14 +00:00
committed by Martin Baulig
parent 691ce2b843
commit abf854c16a
3 changed files with 30 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
sysdeps/guile/names/guile-names.awk
View File

@@ -14,7 +14,7 @@ BEGIN {
}
function output(feature) {
print "SCM";
print "static SCM";
print "glibtop_guile_names_"feature" (void)";
print "{";
print "\tint i;";
@@ -33,7 +33,7 @@ function output(feature) {
print "";
print "SCM";
print "static SCM";
print "glibtop_guile_types_"feature" (void)";
print "{";
print "\tint i;";
@@ -52,7 +52,7 @@ function output(feature) {
print "";
print "SCM";
print "static SCM";
print "glibtop_guile_labels_"feature" (void)";
print "{";
print "\tint i;";
@@ -72,7 +72,7 @@ function output(feature) {
print "";
print "SCM";
print "static SCM";
print "glibtop_guile_descriptions_"feature" (void)";
print "{";
print "\tint i;";
@@ -109,22 +109,24 @@ END {
output(feature);
}
for (feature in features) {
feature_name = feature; sub(/_/, "-", feature_name);
print "SCM_GLOBAL_VCELL (s_names_"feature", \"glibtop-names-"feature_name"\");";
print "SCM_GLOBAL_VCELL (s_labels_"feature", \"glibtop-labels-"feature_name"\");";
print "SCM_GLOBAL_VCELL (s_types_"feature", \"glibtop-types-"feature_name"\");";
print "SCM_GLOBAL_VCELL (s_descriptions_"feature", \"glibtop-descriptions-"feature_name"\");";
}
print "";
print "void";
print "glibtop_boot_guile_names (void)";
print "{";
print "#include \"guile-names.x\"";
for (feature in features) {
print "\tgh_new_procedure0_0";
print "\t\t(\"glibtop-names-"feature"\", glibtop_guile_names_"feature");";
print "";
print "\tgh_new_procedure0_0";
print "\t\t(\"glibtop-types-"feature"\", glibtop_guile_types_"feature");";
print "";
print "\tgh_new_procedure0_0";
print "\t\t(\"glibtop-labels-"feature"\", glibtop_guile_labels_"feature");";
print "";
print "\tgh_new_procedure0_0";
print "\t\t(\"glibtop-descriptions-"feature"\", glibtop_guile_descriptions_"feature");";
print "SCM_SETCDR (s_names_"feature", glibtop_guile_names_"feature" ());";
print "SCM_SETCDR (s_labels_"feature", glibtop_guile_labels_"feature" ());";
print "SCM_SETCDR (s_types_"feature", glibtop_guile_types_"feature" ());";
print "SCM_SETCDR (s_descriptions_"feature", glibtop_guile_descriptions_"feature" ());";
}
print "}";
}