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.expr;
22
23 import org.millscript.millscript.vm.Ref;
24
25 public class LocalIdent extends Ident {
26 private boolean isLocal = true;
27
28 public LocalIdent( final String s, final Ref r ) {
29 super( s );
30 setRef( r );
31 }
32
33 /**
34 * This routine is introduced in preparation for the addition of an
35 * "ident"-like construct. In Pop11, the ident keyword allows the
36 * programmer access to the reference at run-time.
37 *
38 * @see org.millscript.millscript.expr.Ident#isAlien()
39 */
40 @Override
41 public boolean isAlien() {
42 /*
43 System.out.println( "alien " + sym + "? " + ( !isLocal && !isConst ? "y" : "n" ) );
44 System.out.println( " const = " + ( isConst ? "y" : "n" ) );
45 System.out.println( " local = " + ( isLocal ? "y" : "n" ) );
46 */
47 return !isLocal && !isConst;
48 }
49
50 public void markAsOuter() {
51 isLocal = false;
52 }
53
54 public boolean isOuter() {
55 return !isLocal;
56 }
57
58 public boolean isLocal() {
59 return isLocal;
60 }
61
62 /**
63 * @see java.lang.Object#toString()
64 */
65 @Override
66 public String toString() {
67 return "L( " + sym + ", " + ref + " )";
68 }
69
70 }