[wrap.tcl-in-progress
strick**20120227085733
 Ignore-this: 48510a42087d7bd5faf5e1b3512e99ca
] addfile ./terse-vm/src/terse/vm/wrap.tcl
hunk ./terse-vm/src/terse/vm/wrap.tcl 1
+
+
+proc wrap {file} {
+  set f [open $file]
+  while {[gets $f line] >= 0} {
+    if [regexp {^// =(.*)} [string trim $line] - cmd] {
+      while {[gets $f line2] >= 0} {
+        if [regexp {^//(.*)} [string trim $line2] - cmd2] {
+	  append cmd " $cmd2"
+	} else {
+	  break
+	}
+      }
+
+      while 1 {
+        gets $f line3
+        gets $f line4
+        set decl "$line2 $line3 $line4"
+	if [regexp {\s*public\s+(\w+)\s+(\w+)\s*[(]([^{}]*)[)]} $decl - type name params] {
+	   set pp [split $params ","]
+	   zzzzzzzzzzzz
+	} else {
+	  error "Dont understand method decl <$decl> after <$cmd>"
+	}
+      }
+    }
+  }
+}
+
+wrap Pro.java