vala/valatuple.vala

   1 /* valatuple.vala
   2  *
   3  * Copyright (C) 2006-2010  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.1 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 fixed-length sequence of expressions in the source code.
  27  */
  28 public class Vala.Tuple : Expression {
  29         private List<Expression> expression_list = new ArrayList<Expression> ();
  30
  31         public Tuple (SourceReference? source_reference = null) {
  32                 this.source_reference = source_reference;
  33         }
  34
  35         public override void accept_children (CodeVisitor visitor) {
  36                 foreach (Expression expr in expression_list) {
  37                         expr.accept (visitor);
  38                 }
  39         }
  40
  41         public override void accept (CodeVisitor visitor) {
  42                 visitor.visit_tuple (this);
  43
  44                 visitor.visit_expression (this);
  45         }
  46
  47         public void add_expression (Expression expr) {
  48                 expression_list.add (expr);
  49         }
  50
  51         public List<Expression> get_expressions () {
  52                 return expression_list;
  53         }
  54
  55         public override bool is_pure () {
  56                 return false;
  57         }
  58
  59         public override void replace_expression (Expression old_node, Expression new_node) {
  60                 for (int i = 0; i < expression_list.size; i++) {
  61                         if (expression_list[i] == old_node) {
  62                                 expression_list[i] = new_node;
  63                         }
  64                 }
  65         }
  66
  67         public override bool check (CodeContext context) {
  68                 if (checked) {
  69                         return !error;
  70                 }
  71
  72                 checked = true;
  73
  74                 if (context.profile != Profile.DOVA) {
  75                         Report.error (source_reference, "tuples are not supported");
  76                         error = true;
  77                         return false;
  78                 }
  79
  80                 value_type = new ObjectType ((Class) context.root.scope.lookup ("Dova").scope.lookup ("Tuple"));
  81                 value_type.value_owned = true;
  82
  83                 foreach (var expr in expression_list) {
  84                         if (!expr.check (context)) {
  85                                 return false;
  86                         }
  87                         value_type.add_type_argument (expr.value_type.copy ());
  88                 }
  89
  90                 return !error;
  91         }
  92
  93         public override void emit (CodeGenerator codegen) {
  94                 foreach (Expression expr in expression_list) {
  95                         expr.emit (codegen);
  96                 }
  97
  98                 codegen.visit_tuple (this);
  99
 100                 codegen.visit_expression (this);
 101         }
 102 }