vala/valapointer.vala

   1 /* valapointer.vala
   2  *
   3  * Copyright (C) 2007  Jürg Billeter
   4  *
   5  * This library is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU Lesser General Public
   7  * License as published by the Free Software Foundation; either
   8  * version 2 of the License, or (at your option) any later version.
   9
  10  * This library is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * Lesser General Public License for more details.
  14
  15  * You should have received a copy of the GNU Lesser General Public
  16  * License along with this library; if not, write to the Free Software
  17  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301  USA
  18  *
  19  * Author:
  20  *      Jürg Billeter <j@bitron.ch>
  21  */
  22
  23 using GLib;
  24
  25 /**
  26  * Represents a pointer-type.
  27  */
  28 public class Vala.Pointer : DataType {
  29         /**
  30          * The type to which this pointer type points.
  31          */
  32         public DataType! referent_type { get; set construct; }
  33
  34         private string cname;
  35
  36         public Pointer (construct DataType! referent_type, construct SourceReference source_reference = null) {
  37         }
  38
  39         construct {
  40                 name = referent_type.name + "*";
  41         }
  42
  43         public override string get_cname (bool const_type = false) {
  44                 if (cname == null) {
  45                         if (referent_type.is_reference_type ()) {
  46                                 cname = "%s**".printf (referent_type.get_cname ());
  47                         } else {
  48                                 cname = "%s*".printf (referent_type.get_cname ());
  49                         }
  50                 }
  51
  52                 return cname;
  53         }
  54
  55         public override bool is_reference_type () {
  56                 return false;
  57         }
  58
  59         public override string get_upper_case_cname (string infix) {
  60                 return null;
  61         }
  62
  63         public override string get_lower_case_cname (string infix) {
  64                 return null;
  65         }
  66
  67         public override string get_free_function () {
  68                 return null;
  69         }
  70
  71         public override List<string> get_cheader_filenames () {
  72                 return referent_type.get_cheader_filenames ();
  73         }
  74
  75         public override string get_type_id () {
  76                 return "G_TYPE_POINTER";
  77         }
  78
  79         public override string get_marshaller_type_name () {
  80                 return "POINTER";
  81         }
  82
  83         public override string get_get_value_function () {
  84                 return "g_value_get_pointer";
  85         }
  86
  87         public override string get_set_value_function () {
  88                 return "g_value_set_pointer";
  89         }
  90 }