mcs/class/Microsoft.JScript/Microsoft.JScript/Block.cs

   1 //
   2 // Block.cs:
   3 //
   4 // Author: Cesar Octavio Lopez Nataren
   5 //
   6 // (C) 2003, Cesar Octavio Lopez Nataren, <cesar@ciencias.unam.mx>
   7 //
   8
   9 //
  10 // Permission is hereby granted, free of charge, to any person obtaining
  11 // a copy of this software and associated documentation files (the
  12 // "Software"), to deal in the Software without restriction, including
  13 // without limitation the rights to use, copy, modify, merge, publish,
  14 // distribute, sublicense, and/or sell copies of the Software, and to
  15 // permit persons to whom the Software is furnished to do so, subject to
  16 // the following conditions:
  17 //
  18 // The above copyright notice and this permission notice shall be
  19 // included in all copies or substantial portions of the Software.
  20 //
  21 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  22 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  23 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  24 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
  25 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
  26 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
  27 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  28 //
  29
  30 using System.Collections;
  31 using System.Text;
  32 using System;
  33
  34 namespace Microsoft.JScript {
  35
  36         public class Block : AST {
  37
  38                 internal ArrayList elems;
  39
  40                 Block ()
  41                 {
  42                         elems = new ArrayList ();
  43                 }
  44
  45                 internal Block (int line_number)
  46                         : this ()
  47                 {
  48                         this.line_number = line_number;
  49                 }
  50
  51                 internal Block (AST parent)
  52                         : this ()
  53                 {
  54                         this.parent = parent;
  55                 }
  56
  57                 internal void Add (AST e)
  58                 {
  59                         if (e != null)
  60                                 elems.Add (e);
  61                 }
  62
  63                 public override string ToString ()
  64                 {
  65                         StringBuilder sb = new StringBuilder ();
  66
  67                         foreach (AST a in elems)
  68                                 if (a != null)
  69                                         sb.Append (a.ToString () + " ");
  70
  71                         return sb.ToString ();
  72                 }
  73
  74                 internal override void Emit (EmitContext ec)
  75                 {
  76                         int i, n = elems.Count;
  77                         object e;
  78
  79                         for (i = 0; i < n; i++) {
  80                                 e = elems [i];
  81                                 if (e is FunctionDeclaration)
  82                                         ((FunctionDeclaration) e).Emit (ec);
  83                         }
  84                         for (i = 0; i < n; i++) {
  85                                 e = elems [i];
  86                                 if (!(e is FunctionDeclaration))
  87                                         ((AST) e).Emit (ec);
  88                         }
  89                 }
  90
  91                 internal override bool Resolve (IdentificationTable context)
  92                 {
  93                         AST e;
  94                         bool no_effect;
  95                         bool r = true;
  96                         int i, n = elems.Count;
  97
  98                         if (parent == null || parent is FunctionDeclaration)
  99                                 no_effect = true;
 100                         else
 101                                 no_effect = false;
 102
 103                         for (i = 0; i < n; i++) {
 104                                 e = (AST) elems [i];
 105                                 if (e is Exp)
 106                                         r &= ((Exp) e).Resolve (context, no_effect);
 107                                 else
 108                                         r &= e.Resolve (context);
 109                         }
 110                         return r;
 111                 }
 112         }
 113 }
 114