src/Boo.Lang.Extensions/Macros/AbstractPrintMacro.boo

   1 #region license
   2 // Copyright (c) 2004, Rodrigo B. de Oliveira (rbo@acm.org)
   3 // All rights reserved.
   4 //
   5 // Redistribution and use in source and binary forms, with or without modification,
   6 // are permitted provided that the following conditions are met:
   7 //
   8 //     * Redistributions of source code must retain the above copyright notice,
   9 //     this list of conditions and the following disclaimer.
  10 //     * Redistributions in binary form must reproduce the above copyright notice,
  11 //     this list of conditions and the following disclaimer in the documentation
  12 //     and/or other materials provided with the distribution.
  13 //     * Neither the name of Rodrigo B. de Oliveira nor the names of its
  14 //     contributors may be used to endorse or promote products derived from this
  15 //     software without specific prior written permission.
  16 //
  17 // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
  18 // ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
  19 // WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  20 // DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE
  21 // FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  22 // DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
  23 // SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
  24 // CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
  25 // OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  26 // THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  27 #endregion
  28
  29 namespace Boo.Lang.Extensions
  30
  31 import System
  32 import Boo.Lang.Compiler
  33 import Boo.Lang.Compiler.Ast
  34
  35
  36 public abstract class AbstractPrintMacro(AbstractAstMacro):
  37
  38         abstract def Expand(macro as MacroStatement) as Statement:
  39                 pass
  40
  41         protected def Expand(macro as MacroStatement, writePrototype as Expression, writeLinePrototype as Expression):
  42                 li = macro.LexicalInfo
  43
  44                 argc = macro.Arguments.Count
  45                 if argc < 2:
  46                         mie = MethodInvocationExpression(li, writeLinePrototype.CloneNode())
  47                         mie.Arguments = macro.Arguments
  48                         return ExpressionStatement(mie)
  49
  50                 block = Block()
  51                 for i in range(0, (argc - 1)):
  52                         block.Add(AstUtil.CreateMethodInvocationExpression(li, writePrototype.CloneNode(), macro.Arguments[i]))
  53                         block.Add(AstUtil.CreateMethodInvocationExpression(li, writePrototype.CloneNode(), StringLiteralExpression(' ')))
  54                 block.Add(AstUtil.CreateMethodInvocationExpression(li, writeLinePrototype.CloneNode(), macro.Arguments[(-1)]))
  55                 return block