Initial work on getting MoarVM op information

Changes

@@ -2,6 +2,9 @@ Revision history for MoarVM::Bytecode
 
 {{$NEXT}}
     - Make sure all classes have at least a rudimentary "gist" method
+    - Add "Op" class to obtain bytecode operation information, including
+      a helper script "makeOPS.raku" to cull that information from the
+      MoarVM oplist
 
 0.0.8  2024-04-18T22:56:28+02:00
     - Only add "Statement" objects if the bytecode offset is different

META6.json

@@ -15,7 +15,8 @@
   "name": "MoarVM::Bytecode",
   "perl": "6.d",
   "provides": {
-    "MoarVM::Bytecode": "lib/MoarVM/Bytecode.rakumod"
+    "MoarVM::Bytecode": "lib/MoarVM/Bytecode.rakumod",
+    "MoarVM::Ops": "lib/MoarVM/Ops.rakumod"
   },
   "resources": [
   ],

doc/MoarVM/Bytecode.rakudoc

@@ -303,6 +303,8 @@ C<deserialization-frame-index>
 
 =head1 SUBCLASSES
 
+Instances of these classes are usually created automatically.
+
 =head2 Argument
 
 The C<Argument> class provides these methods:
@@ -479,6 +481,32 @@ The line number of this statement.
 
 The bytecode offset of this statement.
 
+=head2 Op
+
+=head attributes
+
+A C<Map> of additional attribute strings.
+
+=head3 index
+
+The numerical index of this operation.
+
+=head3 name
+
+The name of this operation.
+
+=head3 type
+
+The (special) type of this operation.  Currently recognized are:
+
+=item dispatch
+=item jump
+=item parameter
+=item return
+=item spesh
+
+If this is not a special operation, the type will be the empty string.
+
 =head1 AUTHOR
 
 Elizabeth Mattijsen <liz@raku.rocks>

lib/MoarVM/Bytecode.rakumod

@@ -1,5 +1,6 @@
 # An attempt at providing introspection into the MoarVM bytecode format
 
+use MoarVM::Ops;
 use List::Agnostic:ver<0.0.1>:auth<zef:lizmat>;
 use paths:ver<10.0.9>:auth<zef:lizmat>;
 
@@ -625,15 +626,6 @@ class MoarVM::Bytecode {
         paths(self.rootdir, :file(*.ends-with(".moarvm"))).sort
     }
 
-    method ops() {
-        Map.new: self.rootdir.add("nqp/MoarVM/src/core/oplist").lines.map({
-            if $_ && !.starts-with("#") {
-                my @parts = .words;
-                @parts.shift => @parts
-            }
-        })
-    }
-
     multi method gist(MoarVM::Bytecode:D:) {
         my str $head  = $!path ?? "File: $!path" !! "Created from a Blob";
         my str @parts = "$head ($!bytecode.elems() bytes)";