001: /***** BEGIN LICENSE BLOCK *****
002: * Version: CPL 1.0/GPL 2.0/LGPL 2.1
003: *
004: * The contents of this file are subject to the Common Public
005: * License Version 1.0 (the "License"); you may not use this file
006: * except in compliance with the License. You may obtain a copy of
007: * the License at http://www.eclipse.org/legal/cpl-v10.html
008: *
009: * Software distributed under the License is distributed on an "AS
010: * IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
011: * implied. See the License for the specific language governing
012: * rights and limitations under the License.
013: *
014: * Copyright (C) 2002-2004 Anders Bengtsson <ndrsbngtssn@yahoo.se>
015: * Copyright (C) 2002-2004 Jan Arne Petersen <jpetersen@uni-bonn.de>
016: * Copyright (C) 2004 Stefan Matthias Aust <sma@3plus4.de>
017: *
018: * Alternatively, the contents of this file may be used under the terms of
019: * either of the GNU General Public License Version 2 or later (the "GPL"),
020: * or the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
021: * in which case the provisions of the GPL or the LGPL are applicable instead
022: * of those above. If you wish to allow use of your version of this file only
023: * under the terms of either the GPL or the LGPL, and not to allow others to
024: * use your version of this file under the terms of the CPL, indicate your
025: * decision by deleting the provisions above and replace them with the notice
026: * and other provisions required by the GPL or the LGPL. If you do not delete
027: * the provisions above, a recipient may use your version of this file under
028: * the terms of any one of the CPL, the GPL or the LGPL.
029: ***** END LICENSE BLOCK *****/package org.jruby.internal.runtime;
030:
031: import java.util.ArrayList;
032:
033: import org.jruby.Ruby;
034: import org.jruby.RubyProc;
035: import org.jruby.runtime.IAccessor;
036: import org.jruby.runtime.ThreadContext;
037: import org.jruby.runtime.builtin.IRubyObject;
038:
039: /**
040: *
041: * @author jpetersen
042: */
043: public final class GlobalVariable {
044: private IAccessor accessor;
045: private ArrayList traces = null;
046: private boolean tracing;
047:
048: public GlobalVariable(IAccessor accessor) {
049: this .accessor = accessor;
050: }
051:
052: public static GlobalVariable newUndefined(Ruby runtime, String name) {
053: GlobalVariable variable = new GlobalVariable(null);
054: variable.setAccessor(new UndefinedAccessor(runtime, variable,
055: name));
056: return variable;
057: }
058:
059: public IAccessor getAccessor() {
060: return accessor;
061: }
062:
063: public ArrayList getTraces() {
064: return traces;
065: }
066:
067: public void addTrace(RubyProc command) {
068: if (traces == null) {
069: traces = new ArrayList();
070: }
071: traces.add(command);
072: }
073:
074: public boolean removeTrace(IRubyObject command) {
075: if (traces == null || !traces.contains(command)) {
076: return false;
077: }
078: traces.remove(command);
079: return true;
080: }
081:
082: public void removeTraces() {
083: traces = null;
084: }
085:
086: public void setAccessor(IAccessor accessor) {
087: this .accessor = accessor;
088: }
089:
090: public boolean isTracing() {
091: return tracing;
092: }
093:
094: public void trace(IRubyObject value) {
095: if (traces == null)
096: return;
097:
098: ThreadContext context = value.getRuntime().getCurrentContext();
099:
100: if (context.isWithinTrace())
101: return;
102:
103: try {
104: context.setWithinTrace(true);
105:
106: for (int i = 0; i < traces.size(); i++) {
107: ((RubyProc) traces.get(i))
108: .call(new IRubyObject[] { value });
109: }
110: } finally {
111: context.setWithinTrace(false);
112: }
113: }
114:
115: }
|