mcs/class/Microsoft.JScript/Microsoft.JScript/StringLiteral.cs

   1 //
   2 // StringLiteral.cs:
   3 //
   4 // Author:
   5 //      Cesar Lopez Nataren (cesar@ciencias.unam.mx)
   6 //
   7 // (C) 2003, Cesar Lopez Nataren
   8 //
   9
  10 //
  11 // Permission is hereby granted, free of charge, to any person obtaining
  12 // a copy of this software and associated documentation files (the
  13 // "Software"), to deal in the Software without restriction, including
  14 // without limitation the rights to use, copy, modify, merge, publish,
  15 // distribute, sublicense, and/or sell copies of the Software, and to
  16 // permit persons to whom the Software is furnished to do so, subject to
  17 // the following conditions:
  18 //
  19 // The above copyright notice and this permission notice shall be
  20 // included in all copies or substantial portions of the Software.
  21 //
  22 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  23 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  24 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  25 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
  26 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
  27 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
  28 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  29 //
  30
  31 using System;
  32 using System.Reflection.Emit;
  33
  34 namespace Microsoft.JScript {
  35
  36         internal class StringLiteral : Exp {
  37
  38                 internal string str;
  39
  40                 internal StringLiteral (AST parent, string s)
  41                 {
  42                         this.parent = parent;
  43                         str = s;
  44                 }
  45
  46                 public override string ToString ()
  47                 {
  48                         return str;
  49                 }
  50
  51                 internal override bool Resolve (IdentificationTable context)
  52                 {
  53                         return true;
  54                 }
  55
  56                 internal override bool Resolve (IdentificationTable context, bool no_effect)
  57                 {
  58                         this.no_effect = no_effect;
  59                         return true;
  60                 }
  61
  62                 internal override void Emit (EmitContext ec)
  63                 {
  64                         ILGenerator ig = ec.ig;
  65                         ig.Emit (OpCodes.Ldstr, str);
  66                         if (no_effect)
  67                                 ig.Emit (OpCodes.Pop);
  68                 }
  69         }
  70 }