Ruby: upgrade/downgrade scripts

Author: aibaars

ruby/downgrades/3595c826de6db850f16b9da265a54dbf24dd3126/old.dbscheme

@@ -0,0 +1,28 @@
+class AstNode extends @ruby_ast_node_parent {
+  string toString() { none() }
+}
+
+class Location extends @location {
+  string toString() { none() }
+}
+
+class Wrapper = @ruby_body_statement or @ruby_block_body;
+
+predicate astNodeInfo(AstNode child, AstNode parent, int primaryIndex, int secondaryIndex) {
+  not parent instanceof Wrapper and
+  exists(AstNode node, Location l |
+    ruby_ast_node_info(node, parent, primaryIndex, _) and
+    (
+      not node instanceof Wrapper and secondaryIndex = 0 and child = node
+      or
+      node instanceof Wrapper and ruby_ast_node_info(child, node, secondaryIndex, _)
+    )
+  )
+}
+
+from AstNode node, AstNode parent, int parent_index, Location loc
+where
+  node =
+    rank[parent_index + 1](AstNode n, int i, int j | astNodeInfo(n, parent, i, j) | n order by i, j) and
+  ruby_ast_node_info(node, _, _, loc)
+select node, parent, parent_index, loc

ruby/downgrades/3595c826de6db850f16b9da265a54dbf24dd3126/ruby.dbscheme

@@ -0,0 +1,7 @@
+class AstNode extends @ruby_ast_node {
+  string toString() { none() }
+}
+
+from AstNode ruby_block, AstNode body, int index, AstNode child
+where ruby_block_body(ruby_block, body) and ruby_block_body_child(body, index, child)
+select ruby_block, index, child

ruby/downgrades/3595c826de6db850f16b9da265a54dbf24dd3126/ruby_ast_node_info.ql

@@ -0,0 +1,7 @@
+class AstNode extends @ruby_ast_node {
+  string toString() { none() }
+}
+
+from AstNode ruby_class, AstNode body, int index, AstNode child
+where ruby_class_body(ruby_class, body) and ruby_body_statement_child(body, index, child)
+select ruby_class, index, child

ruby/downgrades/3595c826de6db850f16b9da265a54dbf24dd3126/ruby_block_child.ql

@@ -0,0 +1,8 @@
+class AstNode extends @ruby_ast_node {
+  string toString() { none() }
+}
+
+from AstNode ruby_do_block, AstNode body, int index, AstNode child
+where ruby_do_block_body(ruby_do_block, body) and ruby_body_statement_child(body, index, child)
+select ruby_do_block, index, child
+

ruby/downgrades/3595c826de6db850f16b9da265a54dbf24dd3126/ruby_class_child.ql

@@ -0,0 +1,14 @@
+class AstNode extends @ruby_ast_node {
+  string toString() { none() }
+}
+
+from AstNode ruby_method, int index, AstNode child
+where
+  exists(AstNode body |
+    ruby_method_body(ruby_method, body) and ruby_body_statement_child(body, index, child)
+  )
+  or
+  ruby_method_body(ruby_method, child) and
+  not child instanceof @ruby_body_statement and
+  index = 0
+select ruby_method, index, child

ruby/downgrades/3595c826de6db850f16b9da265a54dbf24dd3126/ruby_do_block_child.ql

@@ -0,0 +1,8 @@
+class AstNode extends @ruby_ast_node {
+  string toString() { none() }
+}
+
+from AstNode ruby_module, AstNode body, int index, AstNode child
+where ruby_module_body(ruby_module, body) and ruby_body_statement_child(body, index, child)
+select ruby_module, index, child
+

ruby/downgrades/3595c826de6db850f16b9da265a54dbf24dd3126/ruby_method_child.ql

@@ -0,0 +1,8 @@
+class AstNode extends @ruby_ast_node {
+  string toString() { none() }
+}
+
+from AstNode ruby_singleton_class, AstNode body, int index, AstNode child
+where ruby_singleton_class_body(ruby_singleton_class, body) and ruby_body_statement_child(body, index, child)
+select ruby_singleton_class, index, child
+

ruby/downgrades/3595c826de6db850f16b9da265a54dbf24dd3126/ruby_module_child.ql

@@ -0,0 +1,15 @@
+class AstNode extends @ruby_ast_node {
+  string toString() { none() }
+}
+
+from AstNode ruby_singleton_method, int index, AstNode child
+where
+  exists(AstNode body |
+    ruby_singleton_method_body(ruby_singleton_method, body) and
+    ruby_body_statement_child(body, index, child)
+  )
+  or
+  ruby_singleton_method_body(ruby_singleton_method, child) and
+  not child instanceof @ruby_body_statement and
+  index = 0
+select ruby_singleton_method, index, child