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