From 8044db29b369fc421bd0caed487442fe7e52593e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Matthias=20K=C3=B6ppe?= <mkoeppe@mail.math.uni-magdeburg.de>
Date: Tue, 9 Sep 2003 12:38:16 +0000
Subject: [PATCH] Print Doh List objects readably.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5096 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 SWIG/Source/Modules/s-exp.cxx | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/SWIG/Source/Modules/s-exp.cxx b/SWIG/Source/Modules/s-exp.cxx
index 3316f1994..2a2edd3ee 100644
--- a/SWIG/Source/Modules/s-exp.cxx
+++ b/SWIG/Source/Modules/s-exp.cxx
@@ -17,6 +17,7 @@ S-Exp Options (available with -sexp)\n\
      -typemaplang <lang> - Typemap language\n\n";
 
 #include "swigmod.h"
+#include "dohint.h"
 
 //static Node *view_top = 0;
 static File *out = 0;
@@ -309,9 +310,18 @@ public:
 	  }
 	  close_paren();
 	}
+	else if (strcmp(ObjType(obj)->objname, "List") == 0) {
+	  int i;
+	  open_paren(NIL);
+	  for (i = 0; i<Len(obj); i++) {
+	    DOH *item = Getitem(obj, i);
+	    Sexp_print_doh(item);
+	  }
+	  close_paren();
+	}
 	else {
 	  // What is it?
-	  Printf(out,"#<DOH %x>", obj);
+	  Printf(out,"#<DOH %s %x>", ObjType(obj)->objname, obj);
 	}
       }
     }