Changeset 177 for trunk/thune/scripts

Timestamp:

06/09/06 04:19:52 (3 years ago)

Author:

krobillard

Message:

Thune - opcode_ratio.t improved.

Files:

• trunk/thune/scripts/opcode_ratio.t (modified) (2 diffs)

trunk/thune/scripts/opcode_ratio.t

@@ -1 @@
-; Calculates ratio of opcode to non-opcode values in files.
+; Calculates ratio of stack opcodes to total values in files.
 
 0 :total
 0 :ops
+0 :words
 0 :files
 
+[drop dup dup2 over swap nip tuck rot rot.r] :stack-ops
+
 [
-    dup length? inc total add :total 
+    dup length? total add :total 
     [
         first dup type?.word [
             block!  [calc-ratio]
             paren!  [calc-ratio]
-            opcode! [drop ops inc :ops]
+            word!   [drop words inc :words]
+            opcode! [stack-ops swap find dup
+                     ift (ops inc :ops)
+                     iff (words inc :words)
+                    ]
             [drop]
         ] case
-    ] iter    
+    ] iter
 ]
 proc :calc-ratio  ; (block -- )
@@ -24 +31 @@
 
 [
-      "Files:        " files
-    "^/Total values: " total
-    "^/Opcodes:      " ops
-    "^/Ratio:        " (ops total decimal! as div)
+      "Files:         " files
+    "^/Total values:  " total
+    "^/Word values:   " words
+    "^/Stack opcodes: " ops
+    "^/Ops/Values:    " (ops total decimal! as div)
+    "^/Ops/Words:     " (ops words decimal! as div)
     eol
 ]