1 ////////////////////////////////////////////////////////////////////////////////
2 // MillScript: an Open Spice interpreter and batch website creation tool
3 // Copyright (C) 2001-2004 Open World Ltd
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.action;
22
23 import org.millscript.millscript.vm.Machine;
24
25 /**
26 * This class represents a for loop where condition action. A where condition
27 * does not lead to termination of the loop, it simply skips to the next loop
28 * iteration.
29 */
30 public final class ForConditionWhereAction extends ForConditionAction {
31
32 /**
33 * The where condition action.
34 */
35 Action whereAct;
36
37 /**
38 * Constructs a new where condition action, with the supplied condition
39 * action.
40 *
41 * @param a the where condition action
42 */
43 public ForConditionWhereAction( final Action a ) {
44 whereAct = a;
45 }
46
47 /**
48 * @see org.millscript.millscript.action.ForConditionAction#getForIterator(org.millscript.millscript.vm.Machine)
49 */
50 @Override
51 ForIterator getForIterator( final Machine mc ) {
52 return new ForIterator() {
53 @Override
54 public void bindAction( final Machine mc2 ) {
55 // This is a condition, not a binding.
56 }
57 @Override
58 public boolean hasNext() {
59 // Execute the where condition action
60 return whereAct.predAct( mc );
61 }
62 @Override
63 public boolean terminatesLoop() {
64 // The where condition doesn't cause loop termination.
65 return false;
66 }
67 };
68 }
69
70 }