View Javadoc

1   ////////////////////////////////////////////////////////////////////////////////
2   // MillScript: an Open Spice interpreter and batch website creation tool
3   // Copyright (C) 2005 Kevin Rogers
4   //
5   // This file is part of MillScript.
6   //
7   // MillScript is free software; you can redistribute it and/or modify it under
8   // the terms of the GNU General Public License as published by the Free
9   // Software Foundation; either version 2 of the License, or (at your option)
10  // any later version.
11  //
12  // MillScript is distributed in the hope that it will be useful, but WITHOUT
13  // ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
14  // FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
15  // more details.
16  //
17  // You should have received a copy of the GNU General Public License along with
18  // MillScript; if not, write to the Free Software Foundation, Inc., 59 Temple
19  // Place, Suite 330, Boston, MA  02111-1307  USA
20  ////////////////////////////////////////////////////////////////////////////////
21  package org.millscript.millscript.syntax;
22  
23  import org.millscript.millscript.expr.CheckNoneExpr;
24  import org.millscript.millscript.expr.Expr;
25  import org.millscript.millscript.expr.LambdaExpr;
26  import org.millscript.millscript.expr.NameExpr;
27  import org.millscript.millscript.expr.SpiceClassInitExpr;
28  import org.millscript.millscript.expr.VarExpr;
29  
30  /**
31   * This class implements the syntax for an <code>init</code>.
32   */
33  public final class SpiceClassInitSyntax extends ProcedureSyntax {
34  
35      /**
36       * Constructs a new init syntax parser instance, with the specified closing
37       * character sequence.
38       *
39       * @param x the closing character sequence for this init syntax parser
40       * instance
41       */
42      public SpiceClassInitSyntax( final String x ) {
43          super( x, true );
44      }
45  
46      /**
47       * @see org.millscript.millscript.syntax.ProcedureSyntax#procedure(org.millscript.millscript.syntax.FunctionHeader, org.millscript.millscript.expr.Expr, org.millscript.millscript.syntax.Parser)
48       */
49      @Override
50      public VarExpr procedure( final FunctionHeader header, final Expr body, final Parser parser ) {
51          // Push the this parameter as the last argument
52          header.getArglist().addLast( new NameExpr( "this" ) );
53          return new VarExpr(
54              false,
55              header.getName(),
56              new SpiceClassInitExpr(
57                  parser.getEnclosingClass(),
58                  new LambdaExpr(
59                      header.getSymbol(),
60                      header.getArglist(),
61                      null,
62                      CheckNoneExpr.make( body )
63                  )
64              )
65          );
66      }
67  
68  }