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

Make a gh_list for each map entry and append all of them to the returned

Browse Source 
1998-12-08  Martin Baulig  <martin@home-of-linux.org>

	* guile.awk (glibtop_get_proc_map): Make a gh_list for each map
	entry and append all of them to the returned list.
This commit is contained in:
Martin Baulig
1998-12-08 19:11:36 +00:00
committed by Martin Baulig
parent 2795790ab6
commit 25a6834aae
2 changed files with 28 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
sysdeps/guile/ChangeLog
View File

@@ -1,3 +1,8 @@
1998-12-08 Martin Baulig <martin@home-of-linux.org>
* guile.awk (glibtop_get_proc_map): Make a gh_list for each map
entry and append all of them to the returned list.
1998-10-20 Martin Baulig <martin@home-of-linux.org> 1998-10-20 Martin Baulig <martin@home-of-linux.org>
* guile.awk: If the features.def contains something like * guile.awk: If the features.def contains something like

24
sysdeps/guile/guile.awk
View File

@@ -74,7 +74,7 @@ function make_output(line) {
output = output"\tglibtop_"feature" "feature";\n"; output = output"\tglibtop_"feature" "feature";\n";
if (retval != "void") if (retval != "void")
output = output"\t"retval" retval;\n"; output = output"\t"retval" retval;\n";
if (feature ~ /^proclist$/) if (feature ~ /^proc(list|_map)$/)
output = output"\tunsigned i;\n"; output = output"\tunsigned i;\n";
output = output"\tSCM list;\n\n"; output = output"\tSCM list;\n\n";
@@ -125,6 +125,28 @@ function make_output(line) {
print "\tglibtop_free (retval);\n"; print "\tglibtop_free (retval);\n";
} }
if (feature ~ /^proc_map$/) {
print "\tif (retval == NULL)";
print "\t\treturn list;";
print "";
print "\tfor (i = 0; i < proc_map.number; i++) {";
print "\t\tglibtop_map_entry *entry = &(retval [i]);";
print "\t\tSCM scm_entry = gh_list";
print "\t\t\t(gh_ulong2scm ((unsigned long) entry->flags),";
print "\t\t\t gh_ulong2scm ((unsigned long) entry->start),";
print "\t\t\t gh_ulong2scm ((unsigned long) entry->end),";
print "\t\t\t gh_ulong2scm ((unsigned long) entry->offset),";
print "\t\t\t gh_ulong2scm ((unsigned long) entry->perm),";
print "\t\t\t gh_ulong2scm ((unsigned long) entry->inode),";
print "\t\t\t gh_ulong2scm ((unsigned long) entry->device),";
print "\t\t\t gh_str02scm (entry->filename), SCM_UNDEFINED);";
print "\t\tSCM entry_list = gh_list (scm_entry, SCM_UNDEFINED);\n";
print "\t\tlist = scm_append (gh_list (list, entry_list, SCM_UNDEFINED));";
print "\t};\n";
print "\tglibtop_free (retval);\n";
};
print "\treturn list;"; print "\treturn list;";
print "}"; print "}";
print ""; print "";