Add OpenCL mime-type

https://bugs.freedesktop.org/show_bug.cgi?id=26913

freedesktop.org.xml.in

@@ -5939,6 +5939,13 @@ command to generate the output files.
     <glob pattern="*.ml"/>
     <glob pattern="*.mli"/>
   </mime-type>
+  <mime-type type="text/x-opencl-src">
+    <_comment>OpenCL source code</_comment>
+    <acronym>OpenCL</acronym>
+    <expanded-acronym>Open Computing Language</expanded-acronym>
+    <sub-class-of type="text/x-csrc"/>
+    <glob pattern="*.cl"/>
+  </mime-type>
   <mime-type type="text/x-matlab">
     <_comment>MATLAB script/function</_comment>
     <sub-class-of type="text/plain"/>

tests/list

@@ -285,6 +285,9 @@ test.mo text/x-modelica xoo
 bibtex.bib text/x-bibtex
 # hand-made
 simple-obj-c.m text/x-objcsrc
+# Copied from LLVM project test suite
+test.cl text/x-opencl-src ox
+
 # http://www.apps.ietf.org/rfc/rfc4716.html#sec-3.6
 ssh-public-key.txt text/plain
 # http://tools.ietf.org/html/draft-ietf-vcarddav-vcardrev-22

tests/test.cl

+// RUN: c-index-test -test-print-type %s | FileCheck %s
+
+#pragma OPENCL EXTENSION cl_khr_fp16 : enable
+#pragma OPENCL EXTENSION cl_khr_fp64 : enable
+
+typedef half half4 __attribute__((ext_vector_type(4)));
+typedef float float4 __attribute__((ext_vector_type(4)));
+typedef double double4 __attribute__((ext_vector_type(4)));
+
+void kernel testFloatTypes() {
+  half scalarHalf;
+  half4 vectorHalf;
+  float scalarFloat;
+  float4 vectorFloat;
+  double scalarDouble;
+  double4 vectorDouble;
+}
+
+// CHECK: VarDecl=scalarHalf:11:8 (Definition) [type=half] [typekind=Half] [isPOD=1]
+// CHECK: VarDecl=vectorHalf:12:9 (Definition) [type=half4] [typekind=Typedef] [canonicaltype=half __attribute__((ext_vector_type(4)))] [canonicaltypekind=Unexposed] [isPOD=1]
+// CHECK: VarDecl=scalarFloat:13:9 (Definition) [type=float] [typekind=Float] [isPOD=1]
+// CHECK: VarDecl=vectorFloat:14:10 (Definition) [type=float4] [typekind=Typedef] [canonicaltype=float __attribute__((ext_vector_type(4)))] [canonicaltypekind=Unexposed] [isPOD=1]
+// CHECK: VarDecl=scalarDouble:15:10 (Definition) [type=double] [typekind=Double] [isPOD=1]
+// CHECK: VarDecl=vectorDouble:16:11 (Definition) [type=double4] [typekind=Typedef] [canonicaltype=double __attribute__((ext_vector_type(4)))] [canonicaltypekind=Unexposed] [isPOD=1]