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

[brixxie at users.sourceforge.net]

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

Log Message:
-----------
graphviz format: don't show opcode value, show script offset instead

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:49
   + 489ca303-0d3d-4dc1-a57d-017c7912a06a:/local/gsoc2007-decompiler:51

Modified: tools/branches/gsoc2007-decompiler/graph.scm
===================================================================
--- tools/branches/gsoc2007-decompiler/graph.scm	2007-07-15 03:36:37 UTC (rev 28088)
+++ tools/branches/gsoc2007-decompiler/graph.scm	2007-07-15 03:41:29 UTC (rev 28089)
@@ -2,7 +2,7 @@
 
 ;;; Antipasto - Scumm Script Disassembler Prototype
 ;;; Copyright (C) 2007 Andreas Scholta
-;;; Time-stamp: <2007-07-15 05:27:08 brx>
+;;; Time-stamp: <2007-07-15 05:39:43 brx>
 
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License
@@ -29,13 +29,16 @@
                   (print* "    n"
                           n
                           " [label = \""
-                          (quote-string (format "~S"
-                                                (cdr (assq (car (bb-range block))
-                                                       disassembly)))))
+                          (quote-string (format "[~S] ~S"
+                                                (car (bb-range block))
+                                                (cddr (assq (car (bb-range block))
+                                                            disassembly)))))
                   (for-each
                    (lambda (in)
                      (print* "\\l"
-                             (quote-string (format "~S" (cdr (assq in disassembly))))))
+                             (quote-string (format "[~S] ~S"
+                                                   in
+                                                   (cddr (assq in disassembly))))))
                    (cdr (bb-range block)))
                   (print "\""
                          (cond ((zero? (car (bb-range block)))


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