[Scummvm-cvs-logs] SF.net SVN: scummvm: [28093] tools/branches/gsoc2007-decompiler

[brixxie at users.sourceforge.net]

Revision: 28093
          http://scummvm.svn.sourceforge.net/scummvm/?rev=28093&view=rev
Author:   brixxie
Date:     2007-07-14 21:20:22 -0700 (Sat, 14 Jul 2007)

Log Message:
-----------
simpler and better graphviz format generation

Modified Paths:
--------------
    tools/branches/gsoc2007-decompiler/graph.scm

Property Changed:
----------------
    tools/branches/gsoc2007-decompiler/


Property changes on: tools/branches/gsoc2007-decompiler
___________________________________________________________________
Name: svk:merge
   - 489ca303-0d3d-4dc1-a57d-017c7912a06a:/local/gsoc2007-decompiler:55
   + 489ca303-0d3d-4dc1-a57d-017c7912a06a:/local/gsoc2007-decompiler:57

Modified: tools/branches/gsoc2007-decompiler/graph.scm
===================================================================
--- tools/branches/gsoc2007-decompiler/graph.scm	2007-07-15 03:56:04 UTC (rev 28092)
+++ tools/branches/gsoc2007-decompiler/graph.scm	2007-07-15 04:20:22 UTC (rev 28093)
@@ -2,7 +2,7 @@
 
 ;;; Antipasto - Scumm Script Disassembler Prototype
 ;;; Copyright (C) 2007 Andreas Scholta
-;;; Time-stamp: <2007-07-15 05:39:43 brx>
+;;; Time-stamp: <2007-07-15 06:16:24 brx>
 
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License
@@ -48,32 +48,30 @@
                                (else "]")))))
               nodes)
     (newline)
-    (if intervals
-        (for-each
-         (lambda (interval iter)
-           (let ((extern '()))
-             (print "subgraph cluster" (car interval) " {")
-             (print "    label = \"I(" iter ")\"")
-             (for-each
-              (lambda (i)
-                (receive (intern ext)
-                    (partition (cut member <> interval)
-                               (map second ((g 'out-edges) i)))
-                  (for-each (lambda (ij)
-                              (print "    n" i " -> n" ij))
-                            intern)
-                  (set! extern (append extern (map (cut cons i <>) ext)))))
-              interval)
-             (print "}")
-             (for-each (lambda (e)
-                         (print "    n" (car e) " -> n" (cdr e)))
-                       extern)))
+    (when intervals
+      (for-each
+       (lambda (interval iter)
+         (print "subgraph cluster" (car interval) " {")
+         (print "    label = \"I(" iter ")\"")
+         (for-each
+          (lambda (i)
+            (print "    n" i)
+            #;
+            (receive (intern ext)
+            (partition (cut member <> interval)
+            (map second ((g 'out-edges) i)))
+            (for-each (lambda (ij)
+            (print "    n" i " -> n" ij))
+            intern)
+            (set! extern (append extern (map (cut cons i <>) ext)))))
+            interval)
+          (print "}"))
          intervals
-         (list-tabulate (length intervals) identity))
-        (for-each (lambda (e)
-                    (match-let (((i j _) e))
-                      (print "    n" i " -> n" j)))
-                  ((g 'edges)))))
+         (list-tabulate (length intervals) identity))))
+  (for-each (lambda (e)
+              (match-let (((i j _) e))
+                (print "    n" i " -> n" j)))
+            ((g 'edges)))
   (print "}"))
 
 (define (remove-isolated! g)


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.