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

Declared all `glibtop_guile_get_*' functions static.

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

	* guile.awk: Declared all `glibtop_guile_get_*' functions static.
This commit is contained in:
Martin Baulig
1998-10-11 18:15:45 +00:00
committed by Martin Baulig
parent 63e37821f3
commit 691ce2b843
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
sysdeps/guile/ChangeLog
View File

@@ -1,5 +1,7 @@
1998-10-11 Martin Baulig <martin@home-of-linux.org> 1998-10-11 Martin Baulig <martin@home-of-linux.org>
* guile.awk: Declared all `glibtop_guile_get_*' functions static.
* Makefile.am (BUILT_SOURCES, CLEANFILES): Added `guile.x'. * Makefile.am (BUILT_SOURCES, CLEANFILES): Added `guile.x'.
Added rule to make `guile.x' from `guile.c' using guile-snarf. Added rule to make `guile.x' from `guile.c' using guile-snarf.

3
sysdeps/guile/guile.awk
View File

@@ -69,7 +69,7 @@ function make_output(line) {
output = output" "nr_params_field[feature]", 0, 0, "; output = output" "nr_params_field[feature]", 0, 0, ";
output = output"glibtop_guile_get_"feature");\n\n"; output = output"glibtop_guile_get_"feature");\n\n";
output = output"SCM\nglibtop_guile_get_"feature" ("param_decl")\n{\n"; output = output"static SCM\nglibtop_guile_get_"feature" ("param_decl")\n{\n";
output = output"\tglibtop_"feature" "feature";\n"; output = output"\tglibtop_"feature" "feature";\n";
if (retval != "void") if (retval != "void")
@@ -126,7 +126,6 @@ END {
print "void"; print "void";
print "glibtop_boot_guile (void)"; print "glibtop_boot_guile (void)";
print "{"; print "{";
print "fprintf (stderr, \"glibtop_boot_guile ()\\n\");";
print "#include \"guile.x\""; print "#include \"guile.x\"";
print "}"; print "}";
} }