Add object-oriented keywords high-lighting

queries/highlights.scm

@@ -42,6 +42,11 @@
   "var"
   "while"
 
+  "class"
+  "extends"
+  "method"
+  "new"
+
   "_cast"
   "_chunks"
   "_exp"

test/highlight/object-oriented.tig

@@ -0,0 +1,24 @@
+let
+  class A extends Object {}
+  /* <- keyword */
+  /*      ^ keyword */
+  /*              ^ type */
+
+  type B = class extends A {
+  /*       ^ keyword */
+  /*             ^ keyword */
+  /*                     ^ type */
+
+    var a := 12
+
+    method meth() : int = self.a
+    /* <- keyword */
+    /*                    ^ variable */
+  }
+
+  var object := new B
+  /*            ^ keyword */
+in
+  object.a := 27;
+  /*     ^ property */
+end