From 6bbfaa80fc4088b5fbb36c01dab80fac2bb1e683 Mon Sep 17 00:00:00 2001
From: Thien-Thi Nguyen <ttn@glug.org>
Date: Mon, 28 Feb 2000 11:11:03 +0000
Subject: [PATCH] (GUILE::set_module, GUILE::set_init, GUILE::headers,
 GUILE::initialize, GUILE::close, GUILE::get_pointer, GUILE::create_function,
 GUILE::link_variable, GUILE::usage_var): Remove debugging output.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@281 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 SWIG/Source/Modules1.1/guile.cxx | 36 --------------------------------
 1 file changed, 36 deletions(-)

diff --git a/SWIG/Source/Modules1.1/guile.cxx b/SWIG/Source/Modules1.1/guile.cxx
index 744523841..6b2c202c4 100644
--- a/SWIG/Source/Modules1.1/guile.cxx
+++ b/SWIG/Source/Modules1.1/guile.cxx
@@ -158,9 +158,6 @@ GUILE::parse ()
 void
 GUILE::set_module (char *mod_name, char **)
 {
-  if (Verbose)
-    printf ("%s;mod_name=\"%s\"\n", __PRETTY_FUNCTION__, mod_name);
-
   if (module) {
     printf ("module already set (%s), returning\n", module);
     return;
@@ -182,9 +179,6 @@ void
 GUILE::set_init (char *iname)
 {
   abort ();                             // for now -ttn
-  if (Verbose)
-    printf ("%s;iname=\"%s\"\n", __PRETTY_FUNCTION__, iname);
-
   set_module (iname, 0);
 }
 
@@ -197,11 +191,6 @@ GUILE::set_init (char *iname)
 void
 GUILE::headers (void)
 {
-  if (Verbose) {
-    printf ("%s\n", __PRETTY_FUNCTION__);
-    fprintf (f_header, "/* %s */\n", __PRETTY_FUNCTION__);
-  }
-
   emit_banner (f_header);
 
   fprintf (f_header, "/* Implementation : GUILE */\n\n");
@@ -244,11 +233,6 @@ GUILE::initialize (void)
 {
   int i;
 
-  if (Verbose) {
-    printf ("%s\n", __PRETTY_FUNCTION__);
-    fprintf (f_header, "/* %s */\n", __PRETTY_FUNCTION__);
-  }
-
 #ifdef OLD_STYLE_WILL_GO_AWAY
   if (InitNames) {
     i = 0;
@@ -274,11 +258,6 @@ GUILE::close (void)
   String module_name;
   String module_func;
 
-  if (Verbose) {
-    printf ("%s\n", __PRETTY_FUNCTION__);
-    fprintf (f_init, "/* %s */\n", __PRETTY_FUNCTION__);
-  }
-
   emit_ptr_equivalence (f_init);
   fprintf (f_init, "}\n\n");
 
@@ -317,10 +296,6 @@ void
 GUILE::get_pointer (char *iname, int parm, DataType *t,
 		    WrapperFunction &f)
 {
-  if (Verbose)
-    printf ("%s;iname=\"%s\";parm=%d;t=%p\n",
-	    __PRETTY_FUNCTION__, iname, parm, t);
-
   // Pointers are read as hex-strings with encoded type information
   f.code << tab4 << "_tempc = gh_scm2newstr (s_" << parm << ", &_len);\n";
   f.code << tab4 << "if (SWIG_GetPtr (_tempc, (void **) &_arg" << parm;
@@ -399,10 +374,6 @@ GUILE::create_function (char *name, char *iname, DataType *d, ParmList *l)
   int have_build = 0;
   String build;
 
-  if (Verbose)
-    printf ("%s;name=\"%s\";iname=\"%s\",d=%p,l=%p\n",
-	    __PRETTY_FUNCTION__, name, iname, d, l);
-
   // Make a wrapper name for this
   char * wname = name_wrapper (iname, prefix);
 
@@ -608,10 +579,6 @@ GUILE::link_variable (char *name, char *iname, DataType *t)
   char  *tm;
   char  *tm2 = typemap_lookup ("varout", "guile", t, name, name, "scmresult");
 
-  if (Verbose)
-    printf ("%s;name=\"%s\";iname=\"%s\";t=%p\n",
-	    __PRETTY_FUNCTION__, name, iname, t);
-
   // evaluation function names
 
   sprintf (var_name, "_wrap_%svar_%s", prefix, iname);
@@ -902,9 +869,6 @@ GUILE::usage_var (char *iname, DataType *t, String &usage)
 {
   char temp[1024], *c;
 
-  if (Verbose)
-    printf ("%s;iname=\"%s\";t=%p\n", __PRETTY_FUNCTION__, iname, t);
-
   usage << "(" << iname << " [value])";
   if (!((t->type != T_USER) || (t->is_pointer))) {
     usage << " - unsupported";