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

Replaced call to gh_append2 ()' with gh_append ()'.

Browse Source 
1998-06-12  Martin Baulig  <baulig@taurus.uni-trier.de>

	* sysdeps/guile/proclist.c: Replaced call to
	`gh_append2 ()' with `gh_append ()'.

	* sysdeps/guile/names/*.c: dito.
This commit is contained in:
Martin Baulig
1998-06-11 23:03:07 +00:00
committed by Martin Baulig
parent 2408a0731c
commit aff6786e71
18 changed files with 219 additions and 127 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
ChangeLog
View File

@@ -1,3 +1,10 @@
1998-06-12 Martin Baulig <baulig@taurus.uni-trier.de>
* sysdeps/guile/proclist.c: Replaced call to
`gh_append2 ()' with `gh_append ()'.
* sysdeps/guile/names/*.c: dito.
1998-06-08 Martin Baulig <martin@home-of-linux.org> 1998-06-08 Martin Baulig <martin@home-of-linux.org>
* support: Added again. * support: Added again.

20
sysdeps/guile/names/cpu.c
View File

@@ -33,10 +33,11 @@ glibtop_guile_names_cpu (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_CPU; i++) for (i = 0; i < GLIBTOP_MAX_CPU; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_names_cpu [i]), (gh_str02scm (glibtop_names_cpu [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -50,10 +51,11 @@ glibtop_guile_types_cpu (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_CPU; i++) for (i = 0; i < GLIBTOP_MAX_CPU; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_types_cpu [i]), (gh_str02scm (glibtop_types_cpu [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -67,11 +69,12 @@ glibtop_guile_labels_cpu (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_CPU; i++) for (i = 0; i < GLIBTOP_MAX_CPU; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_labels_cpu [i])), (glibtop_labels_cpu [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -85,11 +88,12 @@ glibtop_guile_descriptions_cpu (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_CPU; i++) for (i = 0; i < GLIBTOP_MAX_CPU; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_descriptions_cpu [i])), (glibtop_descriptions_cpu [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }

20
sysdeps/guile/names/loadavg.c
View File

@@ -33,10 +33,11 @@ glibtop_guile_names_loadavg (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_LOADAVG; i++) for (i = 0; i < GLIBTOP_MAX_LOADAVG; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_names_loadavg [i]), (gh_str02scm (glibtop_names_loadavg [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -50,10 +51,11 @@ glibtop_guile_types_loadavg (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_LOADAVG; i++) for (i = 0; i < GLIBTOP_MAX_LOADAVG; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_types_loadavg [i]), (gh_str02scm (glibtop_types_loadavg [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -67,11 +69,12 @@ glibtop_guile_labels_loadavg (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_LOADAVG; i++) for (i = 0; i < GLIBTOP_MAX_LOADAVG; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_labels_loadavg [i])), (glibtop_labels_loadavg [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -85,11 +88,12 @@ glibtop_guile_descriptions_loadavg (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_LOADAVG; i++) for (i = 0; i < GLIBTOP_MAX_LOADAVG; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_descriptions_loadavg [i])), (glibtop_descriptions_loadavg [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }

20
sysdeps/guile/names/mem.c
View File

@@ -33,10 +33,11 @@ glibtop_guile_names_mem (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_MEM; i++) for (i = 0; i < GLIBTOP_MAX_MEM; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_names_mem [i]), (gh_str02scm (glibtop_names_mem [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -50,10 +51,11 @@ glibtop_guile_types_mem (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_MEM; i++) for (i = 0; i < GLIBTOP_MAX_MEM; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_types_mem [i]), (gh_str02scm (glibtop_types_mem [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -67,11 +69,12 @@ glibtop_guile_labels_mem (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_MEM; i++) for (i = 0; i < GLIBTOP_MAX_MEM; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_labels_mem [i])), (glibtop_labels_mem [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -85,11 +88,12 @@ glibtop_guile_descriptions_mem (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_MEM; i++) for (i = 0; i < GLIBTOP_MAX_MEM; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_descriptions_mem [i])), (glibtop_descriptions_mem [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }

20
sysdeps/guile/names/msg_limits.c
View File

@@ -33,10 +33,11 @@ glibtop_guile_names_msg_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++) for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_names_msg_limits [i]), (gh_str02scm (glibtop_names_msg_limits [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -50,10 +51,11 @@ glibtop_guile_types_msg_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++) for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_types_msg_limits [i]), (gh_str02scm (glibtop_types_msg_limits [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -67,11 +69,12 @@ glibtop_guile_labels_msg_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++) for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_labels_msg_limits [i])), (glibtop_labels_msg_limits [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -85,11 +88,12 @@ glibtop_guile_descriptions_msg_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++) for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_descriptions_msg_limits [i])), (glibtop_descriptions_msg_limits [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }

20
sysdeps/guile/names/prockernel.c
View File

@@ -33,10 +33,11 @@ glibtop_guile_names_proc_kernel (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++) for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_names_proc_kernel [i]), (gh_str02scm (glibtop_names_proc_kernel [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -50,10 +51,11 @@ glibtop_guile_types_proc_kernel (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++) for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_types_proc_kernel [i]), (gh_str02scm (glibtop_types_proc_kernel [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -67,11 +69,12 @@ glibtop_guile_labels_proc_kernel (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++) for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_labels_proc_kernel [i])), (glibtop_labels_proc_kernel [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -85,11 +88,12 @@ glibtop_guile_descriptions_proc_kernel (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++) for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_descriptions_proc_kernel [i])), (glibtop_descriptions_proc_kernel [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }

20
sysdeps/guile/names/proclist.c
View File

@@ -34,10 +34,11 @@ glibtop_guile_names_proclist (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++) for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_names_proclist [i]), (gh_str02scm (glibtop_names_proclist [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -51,10 +52,11 @@ glibtop_guile_types_proclist (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++) for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_types_proclist [i]), (gh_str02scm (glibtop_types_proclist [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -68,11 +70,12 @@ glibtop_guile_labels_proclist (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++) for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_labels_proclist [i])), (glibtop_labels_proclist [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -86,11 +89,12 @@ glibtop_guile_descriptions_proclist (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++) for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_descriptions_proclist [i])), (glibtop_descriptions_proclist [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }

20
sysdeps/guile/names/procmem.c
View File

@@ -33,10 +33,11 @@ glibtop_guile_names_proc_mem (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_MEM; i++) for (i = 0; i < GLIBTOP_MAX_PROC_MEM; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_names_proc_mem [i]), (gh_str02scm (glibtop_names_proc_mem [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -50,10 +51,11 @@ glibtop_guile_types_proc_mem (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_MEM; i++) for (i = 0; i < GLIBTOP_MAX_PROC_MEM; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_types_proc_mem [i]), (gh_str02scm (glibtop_types_proc_mem [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -67,11 +69,12 @@ glibtop_guile_labels_proc_mem (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_MEM; i++) for (i = 0; i < GLIBTOP_MAX_PROC_MEM; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_labels_proc_mem [i])), (glibtop_labels_proc_mem [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -85,11 +88,12 @@ glibtop_guile_descriptions_proc_mem (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_MEM; i++) for (i = 0; i < GLIBTOP_MAX_PROC_MEM; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_descriptions_proc_mem [i])), (glibtop_descriptions_proc_mem [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }

20
sysdeps/guile/names/procsegment.c
View File

@@ -33,10 +33,11 @@ glibtop_guile_names_proc_segment (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++) for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_names_proc_segment [i]), (gh_str02scm (glibtop_names_proc_segment [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -50,10 +51,11 @@ glibtop_guile_types_proc_segment (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++) for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_types_proc_segment [i]), (gh_str02scm (glibtop_types_proc_segment [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -67,11 +69,12 @@ glibtop_guile_labels_proc_segment (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++) for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_labels_proc_segment [i])), (glibtop_labels_proc_segment [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -85,11 +88,12 @@ glibtop_guile_descriptions_proc_segment (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++) for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_descriptions_proc_segment [i])), (glibtop_descriptions_proc_segment [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }

20
sysdeps/guile/names/procsignal.c
View File

@@ -33,10 +33,11 @@ glibtop_guile_names_proc_signal (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_SIGNAL; i++) for (i = 0; i < GLIBTOP_MAX_PROC_SIGNAL; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_names_proc_signal [i]), (gh_str02scm (glibtop_names_proc_signal [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -50,10 +51,11 @@ glibtop_guile_types_proc_signal (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_SIGNAL; i++) for (i = 0; i < GLIBTOP_MAX_PROC_SIGNAL; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_types_proc_signal [i]), (gh_str02scm (glibtop_types_proc_signal [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -67,11 +69,12 @@ glibtop_guile_labels_proc_signal (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_SIGNAL; i++) for (i = 0; i < GLIBTOP_MAX_PROC_SIGNAL; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_labels_proc_signal [i])), (glibtop_labels_proc_signal [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -85,11 +88,12 @@ glibtop_guile_descriptions_proc_signal (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_SIGNAL; i++) for (i = 0; i < GLIBTOP_MAX_PROC_SIGNAL; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_descriptions_proc_signal [i])), (glibtop_descriptions_proc_signal [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }

20
sysdeps/guile/names/procstate.c
View File

@@ -33,10 +33,11 @@ glibtop_guile_names_proc_state (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_STATE; i++) for (i = 0; i < GLIBTOP_MAX_PROC_STATE; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_names_proc_state [i]), (gh_str02scm (glibtop_names_proc_state [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -50,10 +51,11 @@ glibtop_guile_types_proc_state (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_STATE; i++) for (i = 0; i < GLIBTOP_MAX_PROC_STATE; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_types_proc_state [i]), (gh_str02scm (glibtop_types_proc_state [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -67,11 +69,12 @@ glibtop_guile_labels_proc_state (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_STATE; i++) for (i = 0; i < GLIBTOP_MAX_PROC_STATE; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_labels_proc_state [i])), (glibtop_labels_proc_state [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -85,11 +88,12 @@ glibtop_guile_descriptions_proc_state (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_STATE; i++) for (i = 0; i < GLIBTOP_MAX_PROC_STATE; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_descriptions_proc_state [i])), (glibtop_descriptions_proc_state [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }

20
sysdeps/guile/names/proctime.c
View File

@@ -33,10 +33,11 @@ glibtop_guile_names_proc_time (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_TIME; i++) for (i = 0; i < GLIBTOP_MAX_PROC_TIME; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_names_proc_time [i]), (gh_str02scm (glibtop_names_proc_time [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -50,10 +51,11 @@ glibtop_guile_types_proc_time (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_TIME; i++) for (i = 0; i < GLIBTOP_MAX_PROC_TIME; i++)
list = gh_append2 list = gh_appen
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_types_proc_time [i]), (gh_str02scm (glibtop_types_proc_time [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -67,11 +69,12 @@ glibtop_guile_labels_proc_time (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_TIME; i++) for (i = 0; i < GLIBTOP_MAX_PROC_TIME; i++)
list = gh_append2 list = gh_appen
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_labels_proc_time [i])), (glibtop_labels_proc_time [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -85,11 +88,12 @@ glibtop_guile_descriptions_proc_time (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_TIME; i++) for (i = 0; i < GLIBTOP_MAX_PROC_TIME; i++)
list = gh_append2 list = gh_appen
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_descriptions_proc_time [i])), (glibtop_descriptions_proc_time [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }

20
sysdeps/guile/names/procuid.c
View File

@@ -33,10 +33,11 @@ glibtop_guile_names_proc_uid (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_UID; i++) for (i = 0; i < GLIBTOP_MAX_PROC_UID; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_names_proc_uid [i]), (gh_str02scm (glibtop_names_proc_uid [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -50,10 +51,11 @@ glibtop_guile_types_proc_uid (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_UID; i++) for (i = 0; i < GLIBTOP_MAX_PROC_UID; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (glibtop_types_proc_uid [i]), (gh_str02scm (glibtop_types_proc_uid [i]),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -67,11 +69,12 @@ glibtop_guile_labels_proc_uid (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_UID; i++) for (i = 0; i < GLIBTOP_MAX_PROC_UID; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_labels_proc_uid [i])), (glibtop_labels_proc_uid [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -85,11 +88,12 @@ glibtop_guile_descriptions_proc_uid (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_UID; i++) for (i = 0; i < GLIBTOP_MAX_PROC_UID; i++)
list = gh_append2 list = gh_append
(list, gh_list (list, gh_list
(gh_str02scm (gettext (gh_str02scm (gettext
(glibtop_descriptions_proc_uid [i])), (glibtop_descriptions_proc_uid [i])),
SCM_UNDEFINED)); SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }

24
sysdeps/guile/names/sem_limits.c
View File

@@ -33,8 +33,10 @@ glibtop_guile_names_sem_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SEM_LIMITS; i++) for (i = 0; i < GLIBTOP_MAX_SEM_LIMITS; i++)
list = gh_append2 (list, gh_list (gh_str02scm (glibtop_names_sem_limits [i]), list = gh_append (list, gh_list
SCM_UNDEFINED)); (gh_str02scm (glibtop_names_sem_limits [i]),
SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -48,8 +50,10 @@ glibtop_guile_types_sem_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SEM_LIMITS; i++) for (i = 0; i < GLIBTOP_MAX_SEM_LIMITS; i++)
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_types_sem_limits [i])), list = gh_append (list, gh_list
SCM_UNDEFINED)); (gh_str02scm (gettext (glibtop_types_sem_limits [i])),
SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -63,8 +67,10 @@ glibtop_guile_labels_sem_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SEM_LIMITS; i++) for (i = 0; i < GLIBTOP_MAX_SEM_LIMITS; i++)
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_labels_sem_limits [i])), list = gh_append (list, gh_list
SCM_UNDEFINED)); (gh_str02scm (gettext (glibtop_labels_sem_limits [i])),
SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -78,8 +84,10 @@ glibtop_guile_descriptions_sem_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SEM_LIMITS; i++) for (i = 0; i < GLIBTOP_MAX_SEM_LIMITS; i++)
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_descriptions_sem_limits [i])), list = gh_append (list, gh_list
SCM_UNDEFINED)); (gh_str02scm (gettext (glibtop_descriptions_sem_limits [i])),
SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }

24
sysdeps/guile/names/shm_limits.c
View File

@@ -33,8 +33,10 @@ glibtop_guile_names_shm_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SHM_LIMITS; i++) for (i = 0; i < GLIBTOP_MAX_SHM_LIMITS; i++)
list = gh_append2 (list, gh_list (gh_str02scm (glibtop_names_shm_limits [i]), list = gh_append (list, gh_list
SCM_UNDEFINED)); (gh_str02scm (glibtop_names_shm_limits [i]),
SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -48,8 +50,10 @@ glibtop_guile_types_shm_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SHM_LIMITS; i++) for (i = 0; i < GLIBTOP_MAX_SHM_LIMITS; i++)
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_types_shm_limits [i])), list = gh_append (list, gh_list
SCM_UNDEFINED)); (gh_str02scm (gettext (glibtop_types_shm_limits [i])),
SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -63,8 +67,10 @@ glibtop_guile_labels_shm_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SHM_LIMITS; i++) for (i = 0; i < GLIBTOP_MAX_SHM_LIMITS; i++)
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_labels_shm_limits [i])), list = gh_append (list, gh_list
SCM_UNDEFINED)); (gh_str02scm (gettext (glibtop_labels_shm_limits [i])),
SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -78,8 +84,10 @@ glibtop_guile_descriptions_shm_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SHM_LIMITS; i++) for (i = 0; i < GLIBTOP_MAX_SHM_LIMITS; i++)
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_descriptions_shm_limits [i])), list = gh_append (list, gh_list
SCM_UNDEFINED)); (gh_str02scm (gettext (glibtop_descriptions_shm_limits [i])),
SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }

23
sysdeps/guile/names/swap.c
View File

@@ -33,7 +33,10 @@ glibtop_guile_names_swap (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SWAP; i++) for (i = 0; i < GLIBTOP_MAX_SWAP; i++)
list = gh_append2 (list, gh_list (gh_str02scm (glibtop_names_swap [i]), SCM_UNDEFINED)); list = gh_append (list, gh_list
(gh_str02scm (glibtop_names_swap [i]),
SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -47,8 +50,10 @@ glibtop_guile_types_swap (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SWAP; i++) for (i = 0; i < GLIBTOP_MAX_SWAP; i++)
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_types_swap [i])), list = gh_append (list, gh_list
SCM_UNDEFINED)); (gh_str02scm (gettext (glibtop_types_swap [i])),
SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -62,8 +67,10 @@ glibtop_guile_labels_swap (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SWAP; i++) for (i = 0; i < GLIBTOP_MAX_SWAP; i++)
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_labels_swap [i])), list = gh_append (list, gh_list
SCM_UNDEFINED)); (gh_str02scm (gettext (glibtop_labels_swap [i])),
SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -77,8 +84,10 @@ glibtop_guile_descriptions_swap (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SWAP; i++) for (i = 0; i < GLIBTOP_MAX_SWAP; i++)
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_descriptions_swap [i])), list = gh_append (list, gh_list
SCM_UNDEFINED)); (gh_str02scm (gettext (glibtop_descriptions_swap [i])),
SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }

23
sysdeps/guile/names/uptime.c
View File

@@ -33,7 +33,10 @@ glibtop_guile_names_uptime (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_UPTIME; i++) for (i = 0; i < GLIBTOP_MAX_UPTIME; i++)
list = gh_append2 (list, gh_list (gh_str02scm (glibtop_names_uptime [i]), SCM_UNDEFINED)); list = gh_append (list, gh_list
(gh_str02scm (glibtop_names_uptime [i]),
SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -47,8 +50,10 @@ glibtop_guile_types_uptime (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_UPTIME; i++) for (i = 0; i < GLIBTOP_MAX_UPTIME; i++)
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_types_uptime [i])), list = gh_append (list, gh_list
SCM_UNDEFINED)); (gh_str02scm (gettext (glibtop_types_uptime [i])),
SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -62,8 +67,10 @@ glibtop_guile_labels_uptime (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_UPTIME; i++) for (i = 0; i < GLIBTOP_MAX_UPTIME; i++)
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_labels_uptime [i])), list = gh_append (list, gh_list
SCM_UNDEFINED)); (gh_str02scm (gettext (glibtop_labels_uptime [i])),
SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }
@@ -77,8 +84,10 @@ glibtop_guile_descriptions_uptime (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_UPTIME; i++) for (i = 0; i < GLIBTOP_MAX_UPTIME; i++)
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_descriptions_uptime [i])), list = gh_append (list, gh_list
SCM_UNDEFINED)); (gh_str02scm (gettext (glibtop_descriptions_uptime [i])),
SCM_UNDEFINED),
SCM_UNDEFINED);
return list; return list;
} }

5
sysdeps/guile/proclist.c
View File

@@ -43,7 +43,10 @@ glibtop_guile_get_proclist (void)
if (ptr) { if (ptr) {
for (i = 0; i < proclist.number; i++) for (i = 0; i < proclist.number; i++)
list = gh_append2 (list, gh_list (gh_ulong2scm ((unsigned long) ptr [i]), SCM_UNDEFINED)); list = gh_append (list,
gh_list (gh_ulong2scm ((unsigned long) ptr [i]),
SCM_UNDEFINED),
SCM_UNDEFINED);
} }
glibtop_free (ptr); glibtop_free (ptr);