2001-06-27 Arturo Espinosa Aldama <arturo@ximian.com>

	* memory-conf.in (xml_print): No prototypes, thank-you. Read
	http://www.perl.com/pub/language/misc/fmproto.html for enlightening.

	* x.pl.in: same. Prototypes were invented to allow people to
	call procedures as if they were Perl special functions. That's not
	what we want to do with these functions. Perl is ugly, let's choose
	"features" more carefuly. Same for shift and other abuses of the
	implicit variable, but I'll kill those on the run.

1 files changed, 2 insertions, 13 deletions

diff --git a/memory-conf.in b/memory-conf.in
index aa2675a..6b86382 100755
--- a/memory-conf.in
+++ b/memory-conf.in
@@ -181,14 +181,7 @@ sub xml_parse_swapinfo
 
 sub xml_print
 {
-  print "<?xml version='1.0' encoding='ISO-8859-1' standalone='yes'?>\n";
-  print "<!DOCTYPE memory []>\n\n";
-  print "<memory>\n";
-  &xst_xml_enter ();
-
-  &xst_xml_print_vspace ();
-  &xst_xml_print_line ("<!-- Configuration starts here -->\n");
-  &xst_xml_print_vspace ();
+  &xst_xml_print_begin ();
 
   foreach $entry (@cf_memory) {
     &xst_xml_print_line ("<memsize>$entry->{MemTotal}</memsize>\n");
@@ -227,11 +220,7 @@ sub xml_print
     &xst_xml_print_line ("</swapdev>\n\n");
   }
 
-  &xst_xml_print_line ("<!-- End of configuration -->\n");
-  &xst_xml_print_vspace ();
-
-  &xst_xml_leave ();
-  print "</memory>\n";
+  &xst_xml_print_end ();
 }