---

AOldPrimitiveTypeCastExp.java

package edu.ksu.cis.bandera.jjjc.node;

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 * Bandera, a Java(TM) analysis and transformation toolkit           *
 * Copyright (C) 1998-2001 SAnToS Laboratories (santos@cis.ksu.edu)  *

 * All rights reserved.                                              *
 *                                                                   *
 * This work was done as a project in the SAnToS Laboratory,         *
 * Department of Computing and Information Sciences, Kansas State    *
 * University, USA (http://www.cis.ksu.edu/santos).                  *
 * It is understood that any modification not identified as such is  *
 * not covered by the preceding statement.                           *
 *                                                                   *
 * This work is free software; you can redistribute it and/or        *
 * modify it under the terms of the GNU Library General Public       *
 * License as published by the Free Software Foundation; either      *
 * version 2 of the License, or (at your option) any later version.  *
 *                                                                   *
 * This work is distributed in the hope that it will be useful,      *
 * but WITHOUT ANY WARRANTY; without even the implied warranty of    *
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU *
 * Library General Public License for more details.                  *
 *                                                                   *
 * You should have received a copy of the GNU Library General Public *
 * License along with this toolkit; if not, write to the             *
 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,      *
 * Boston, MA  02111-1307, USA.                                      *
 *                                                                   *
 * Java is a trademark of Sun Microsystems, Inc.                     *
 *                                                                   *
 * To submit a bug report, send a comment, or get the latest news on *
 * this project and other SAnToS projects, please visit the web-site *
 *                http://www.cis.ksu.edu/santos                      *
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
import ca.mcgill.sable.util.*;
import edu.ksu.cis.bandera.jjjc.analysis.*;

public final class AOldPrimitiveTypeCastExp extends PCastExp
{
    private TLPar _lPar_;
    private PPrimitiveType _primitiveType_;
    private final LinkedList _dim_ = new TypedLinkedList(new Dim_Cast());
    private TRPar _rPar_;
    private PUnaryExp _unaryExp_;

    private class Dim_Cast implements Cast
    {
        public Object cast(Object o)
        {
            PDim node = (PDim) o;

            if((node.parent() != null) &&
                (node.parent() != AOldPrimitiveTypeCastExp.this))
            {
                node.parent().removeChild(node);
            }

            if((node.parent() == null) ||
                (node.parent() != AOldPrimitiveTypeCastExp.this))
            {
                node.parent(AOldPrimitiveTypeCastExp.this);
            }

            return node;
        }
    }
    public AOldPrimitiveTypeCastExp()
    {
    }
    public AOldPrimitiveTypeCastExp(
        TLPar _lPar_,
        PPrimitiveType _primitiveType_,
        List _dim_,
        TRPar _rPar_,
        PUnaryExp _unaryExp_)
    {
        setLPar(_lPar_);

        setPrimitiveType(_primitiveType_);

        {
            Object temp[] = _dim_.toArray();
            for(int i = 0; i < temp.length; i++)
            {
                this._dim_.add(temp[i]);
            }
        }

        setRPar(_rPar_);

        setUnaryExp(_unaryExp_);

    }
    public AOldPrimitiveTypeCastExp(
        TLPar _lPar_,
        PPrimitiveType _primitiveType_,
        XPDim _dim_,
        TRPar _rPar_,
        PUnaryExp _unaryExp_)
    {
        setLPar(_lPar_);

        setPrimitiveType(_primitiveType_);

        if(_dim_ != null)
        {
            while(_dim_ instanceof X1PDim)
            {
                this._dim_.addFirst(((X1PDim) _dim_).getPDim());
                _dim_ = ((X1PDim) _dim_).getXPDim();
            }
            this._dim_.addFirst(((X2PDim) _dim_).getPDim());
        }

        setRPar(_rPar_);

        setUnaryExp(_unaryExp_);

    }
    public void apply(Switch sw)
    {
        ((Analysis) sw).caseAOldPrimitiveTypeCastExp(this);
    }
    public Object clone()
    {
        return new AOldPrimitiveTypeCastExp(
            (TLPar) cloneNode(_lPar_),
            (PPrimitiveType) cloneNode(_primitiveType_),
            cloneList(_dim_),
            (TRPar) cloneNode(_rPar_),
            (PUnaryExp) cloneNode(_unaryExp_));
    }
    public LinkedList getDim()
    {
        return _dim_;
    }
    public TLPar getLPar()
    {
        return _lPar_;
    }
    public PPrimitiveType getPrimitiveType()
    {
        return _primitiveType_;
    }
    public TRPar getRPar()
    {
        return _rPar_;
    }
    public PUnaryExp getUnaryExp()
    {
        return _unaryExp_;
    }
    void removeChild(Node child)
    {
        if(_lPar_ == child)
        {
            _lPar_ = null;
            return;
        }

        if(_primitiveType_ == child)
        {
            _primitiveType_ = null;
            return;
        }

        if(_dim_.remove(child))
        {
            return;
        }

        if(_rPar_ == child)
        {
            _rPar_ = null;
            return;
        }

        if(_unaryExp_ == child)
        {
            _unaryExp_ = null;
            return;
        }

    }
    void replaceChild(Node oldChild, Node newChild)
    {
        if(_lPar_ == oldChild)
        {
            setLPar((TLPar) newChild);
            return;
        }

        if(_primitiveType_ == oldChild)
        {
            setPrimitiveType((PPrimitiveType) newChild);
            return;
        }

        for(ListIterator i = _dim_.listIterator(); i.hasNext();)
        {
            if(i.next() == oldChild)
            {
                if(newChild != null)
                {
                    i.set(newChild);
                    oldChild.parent(null);
                    return;
                }

                i.remove();
                oldChild.parent(null);
                return;
            }
        }

        if(_rPar_ == oldChild)
        {
            setRPar((TRPar) newChild);
            return;
        }

        if(_unaryExp_ == oldChild)
        {
            setUnaryExp((PUnaryExp) newChild);
            return;
        }

    }
    public void setDim(List list)
    {
        Object temp[] = list.toArray();
        for(int i = 0; i < temp.length; i++)
        {
            _dim_.add(temp[i]);
        }
    }
    public void setLPar(TLPar node)
    {
        if(_lPar_ != null)
        {
            _lPar_.parent(null);
        }

        if(node != null)
        {
            if(node.parent() != null)
            {
                node.parent().removeChild(node);
            }

            node.parent(this);
        }

        _lPar_ = node;
    }
    public void setPrimitiveType(PPrimitiveType node)
    {
        if(_primitiveType_ != null)
        {
            _primitiveType_.parent(null);
        }

        if(node != null)
        {
            if(node.parent() != null)
            {
                node.parent().removeChild(node);
            }

            node.parent(this);
        }

        _primitiveType_ = node;
    }
    public void setRPar(TRPar node)
    {
        if(_rPar_ != null)
        {
            _rPar_.parent(null);
        }

        if(node != null)
        {
            if(node.parent() != null)
            {
                node.parent().removeChild(node);
            }

            node.parent(this);
        }

        _rPar_ = node;
    }
    public void setUnaryExp(PUnaryExp node)
    {
        if(_unaryExp_ != null)
        {
            _unaryExp_.parent(null);
        }

        if(node != null)
        {
            if(node.parent() != null)
            {
                node.parent().removeChild(node);
            }

            node.parent(this);
        }

        _unaryExp_ = node;
    }
    public String toString()
    {
        return ""
            + toString(_lPar_)
            + toString(_primitiveType_)
            + toString(_dim_)
            + toString(_rPar_)
            + toString(_unaryExp_);
    }
}

---