Add support for Vala (finish work by Alberto Fanjul)

Units/parser-genie.r/simple.genie.b/args.ctags

@@ -0,0 +1,2 @@
+--sort=no
+--fields=+neKl

Units/parser-genie.r/simple.genie.b/expected.tags

@@ -0,0 +1 @@
+main	input.gs	1;"	method	line:1	language:Genie

Units/parser-genie.r/simple.genie.b/input.gs

@@ -0,0 +1,2 @@
+init
+	print "Hello World"

Units/parser-vala.r/attributes.vala.d/args.ctags

@@ -0,0 +1,2 @@
+--sort=no
+--fields=+neKl

Units/parser-vala.r/attributes.vala.d/expected.tags

@@ -0,0 +1 @@
+Delegate	input.vala	/^public delegate bool Delegate ();$/;"	method	line:2	language:Vala

Units/parser-vala.r/attributes.vala.d/input.vala

@@ -0,0 +1,2 @@
+[CCode (has_target="false")]
+public delegate bool Delegate ();

Units/parser-vala.r/class.vala.d/args.ctags

@@ -0,0 +1,2 @@
+--sort=no
+--fields=+neKl{signature}

Units/parser-vala.r/class.vala.d/expected.tags

@@ -0,0 +1,12 @@
+main	input.vala	/^void main(string[] args) {$/;"	method	line:8	language:Vala	signature:(string [] args)
+Address	input.vala	/^public class Address {$/;"	class	line:15	language:Vala
+country	input.vala	/^   string country;$/;"	field	line:16	language:Vala	class:Address	typeref:typename:string
+city	input.vala	/^   public string city;$/;"	field	line:17	language:Vala	class:Address	typeref:typename:string
+street	input.vala	/^   protected string street;$/;"	field	line:18	language:Vala	class:Address	typeref:typename:string
+building	input.vala	/^   internal int building;$/;"	field	line:19	language:Vala	class:Address	typeref:typename:int
+floor	input.vala	/^   private int floor;$/;"	field	line:20	language:Vala	class:Address	typeref:typename:int
+Person	input.vala	/^class Person {$/;"	class	line:23	language:Vala
+address	input.vala	/^   public Address address {get; set;}$/;"	property	line:24	language:Vala	class:Person	typeref:unknown:Address
+name	input.vala	/^   public string name {get; set;}$/;"	property	line:25	language:Vala	class:Person	typeref:typename:string
+d_age	input.vala	/^   private int d_age;$/;"	field	line:26	language:Vala	class:Person	typeref:typename:int
+age	input.vala	/^   public int age {$/;"	property	line:28	language:Vala	class:Person	typeref:typename:int

Units/parser-vala.r/class.vala.d/input.vala

@@ -0,0 +1,38 @@
+/*
+ * vala HelloWorld
+ *
+ * $ valac input.vala 
+ * $ ./input 
+ * Hello John, you're 21 years old
+ */
+void main(string[] args) {
+    var p = new Person();
+    p.name = "John";
+    p.age = 21;
+    print("Hello %s, you're %d years old\n", p.name, p.age);
+}
+
+public class Address {
+   string country;
+   public string city;
+   protected string street;
+   internal int building;
+   private int floor;
+}
+
+class Person {
+   public Address address {get; set;}
+   public string name {get; set;}
+   private int d_age;
+
+   public int age {
+      get { return d_age;}
+      set { 
+         if (value > 0) {
+            d_age = value;
+         } else {
+            d_age = 0;
+         }
+      }
+   }
+}

Units/parser-vala.r/comments.vala.d/args.ctags

@@ -0,0 +1,2 @@
+--sort=no
+--fields=+neKl

Units/parser-vala.r/comments.vala.d/expected.tags

@@ -0,0 +1,6 @@
+f1	input.vala	/^void f1 () {$/;"	method	line:1	language:Vala
+f2	input.vala	/^void f2 () {print ("hello");} \/\/ void g3 () {    print ("hello");}$/;"	method	line:7	language:Vala
+f3	input.vala	/^void f3 () {print ("hello");} void g4 () {    print ("hello");}$/;"	method	line:8	language:Vala
+g4	input.vala	/^void f3 () {print ("hello");} void g4 () {    print ("hello");}$/;"	method	line:8	language:Vala
+f4	input.vala	/^void f4 () {print ("hello"); \/\/ void g5 () {    print ("hello");}$/;"	method	line:9	language:Vala
+g7	input.vala	/^} void g7 () {    print ("hello");} \/\/ void g8 () {} ; void f5 () { print ("hello");} # void g/;"	method	line:11	language:Vala

Units/parser-vala.r/comments.vala.d/input.vala

@@ -0,0 +1,11 @@
+void f1 () {
+    print ("hello");
+}
+// void g0 () {    print ("hello");}
+    // void g1 () {    print ("hello");}
+
+void f2 () {print ("hello");} // void g3 () {    print ("hello");}
+void f3 () {print ("hello");} void g4 () {    print ("hello");}
+void f4 () {print ("hello"); // void g5 () {    print ("hello");}
+// void g6 () {    print ("hello");}
+} void g7 () {    print ("hello");} // void g8 () {} ; void f5 () { print ("hello");} # void g9 () {}

Units/parser-vala.r/functions.vala.d/args.ctags

@@ -0,0 +1,2 @@
+--sort=no
+--fields=+neKl{signature}

Units/parser-vala.r/functions.vala.d/expected.tags

@@ -0,0 +1,2 @@
+main	input.vala	/^void main(string[] args) {$/;"	method	line:4	language:Vala	signature:(string [] args)
+sum	input.vala	/^int sum(int sum1, int sum2) {$/;"	method	line:8	language:Vala	signature:(int sum1, int sum2)

Units/parser-vala.r/functions.vala.d/input.vala

@@ -0,0 +1,10 @@
+/*
+ * vala sum
+ */
+void main(string[] args) {
+    print("Sum is: %d\n", sum(1,2));
+}
+
+int sum(int sum1, int sum2) {
+   return sum1 + sum2;
+}

Units/parser-vala.r/namespace.vala.d/expected.tags

@@ -0,0 +1,19 @@
+Address	input.vala	/^   class Address {$/;"	c	namespace:Data
+Contact	input.vala	/^      class Contact {$/;"	c	namespace:Data.Private
+Data	input.vala	/^namespace Data {$/;"	n
+Person	input.vala	/^class Person {$/;"	c
+Private	input.vala	/^   namespace Private {$/;"	n	namespace:Data
+address	input.vala	/^   public Data.Address address {get; set;}$/;"	p	class:Person	typeref:class:Data.Address
+age	input.vala	/^   public int age {$/;"	p	class:Person	typeref:typename:int
+building	input.vala	/^      public int building;$/;"	f	class:Data.Address	typeref:typename:int
+city	input.vala	/^      public string city;$/;"	f	class:Data.Address	typeref:typename:string
+country	input.vala	/^      public string country;$/;"	f	class:Data.Address	typeref:typename:string
+d_age	input.vala	/^   private int d_age;$/;"	f	class:Person	typeref:typename:int
+d_street	input.vala	/^      public string d_street;$/;"	f	class:Data.Address	typeref:typename:string
+email	input.vala	/^         public string email;$/;"	f	class:Data.Private.Contact	typeref:typename:string
+floor	input.vala	/^      public int floor;$/;"	f	class:Data.Address	typeref:typename:int
+id	input.vala	/^         public string id;$/;"	f	class:Data.Private.Contact	typeref:typename:string
+main	input.vala	/^void main(string[] args) {$/;"	m
+name	input.vala	/^   public string name {get; set;}$/;"	p	class:Person	typeref:typename:string
+phone	input.vala	/^         public string phone;$/;"	f	class:Data.Private.Contact	typeref:typename:string
+street	input.vala	/^      public string street {$/;"	p	class:Data.Address	typeref:typename:string

Units/parser-vala.r/namespace.vala.d/input.vala

@@ -0,0 +1,55 @@
+using Data;
+
+void main(string[] args) {
+   var p = new Person();
+   var a = new Address();
+   a.street = "Oxford Street";
+   p.address = a;
+   p.name = "John";
+   p.age = 21;
+   print("Hello %s, you're %d years old\nliving in %s\n", p.name, p.age, p.address.street);
+}
+
+namespace Data {
+   class Address {
+      public string country;
+      public string city;
+      public string d_street;
+      public int building;
+      public int floor;
+
+      public string street {
+         owned get {
+            return d_street;
+         }
+         set {
+            d_street = value;
+         }
+      }
+   }
+
+   namespace Private {
+      class Contact {
+         public string email;
+         public string phone;
+         public string id;
+      }
+   }
+}
+
+class Person {
+   public Data.Address address {get; set;}
+   public string name {get; set;}
+   private int d_age;
+
+   public int age {
+      get { return d_age;}
+      set { 
+         if (value > 0) {
+            d_age = value;
+         } else {
+            d_age = 0;
+         }
+      }
+   }
+}

Units/parser-vala.r/simple.vala.d/args.ctags

@@ -0,0 +1,2 @@
+--sort=no
+--fields=+neKl

Units/parser-vala.r/simple.vala.d/expected.tags

@@ -0,0 +1 @@
+main	input.vala	/^void main(string[] args) {$/;"	method	line:4	language:Vala

Units/parser-vala.r/simple.vala.d/input.vala

@@ -0,0 +1,6 @@
+/*
+ * vala HelloWorld
+ */
+void main(string[] args) {
+    print("Hello, World\n");
+}

main/parsers_p.h

@@ -143,6 +143,7 @@
 	VeraParser, \
 	VerilogParser, \
 	SystemVerilogParser, \
+	ValaParser, \
 	VhdlParser, \
 	VimParser, \
 	WindResParser, \