Main Page   Packages   Class Hierarchy   Alphabetical List   Compound List   File List   Compound Members  

DSpinTypeInit.java

00001 package edu.ksu.cis.bandera.dspin;
00002 
00003 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
00004  * Bandera, a Java(TM) analysis and transformation toolkit           *
00005  * Copyright (C) 1998, 1999   James Corbett (corbett@hawaii.edu)     *
00006  * All rights reserved.                                              *
00007  *                                                                   *
00008  * This work was done as a project in the SAnToS Laboratory,         *
00009  * Department of Computing and Information Sciences, Kansas State    *
00010  * University, USA (http://www.cis.ksu.edu/santos).                  *
00011  * It is understood that any modification not identified as such is  *
00012  * not covered by the preceding statement.                           *
00013  *                                                                   *
00014  * This work is free software; you can redistribute it and/or        *
00015  * modify it under the terms of the GNU Library General Public       *
00016  * License as published by the Free Software Foundation; either      *
00017  * version 2 of the License, or (at your option) any later version.  *
00018  *                                                                   *
00019  * This work is distributed in the hope that it will be useful,      *
00020  * but WITHOUT ANY WARRANTY; without even the implied warranty of    *
00021  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU *
00022  * Library General Public License for more details.                  *
00023  *                                                                   *
00024  * You should have received a copy of the GNU Library General Public *
00025  * License along with this toolkit; if not, write to the             *
00026  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,      *
00027  * Boston, MA  02111-1307, USA.                                      *
00028  *                                                                   *
00029  * Java is a trademark of Sun Microsystems, Inc.                     *
00030  *                                                                   *
00031  * To submit a bug report, send a comment, or get the latest news on *
00032  * this project and other SAnToS projects, please visit the web-site *
00033  *                http://www.cis.ksu.edu/santos                      *
00034  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
00035 import java.io.*;
00036 import java.util.*;
00037 import edu.ksu.cis.bandera.bir.Collection;
00038 
00039 import edu.ksu.cis.bandera.bir.*;
00040 import edu.ksu.cis.bandera.spin.*;
00041 
00042 /**
00043  * TypeSwitch to initialize a variable of a BIR type in PROMELA.
00044  */
00045 
00046 public class DSpinTypeInit extends AbstractTypeSwitch {
00047 
00048     DSpinTrans spinTrans;
00049     PrintWriter out;
00050 
00051     public DSpinTypeInit(DSpinTrans spinTrans, PrintWriter out) {
00052     this.spinTrans = spinTrans;
00053     this.out = out;
00054     }
00055     public void caseArray(Array type, Object o)
00056     {
00057     String name = varName(o);
00058     int size = type.getSize().getValue();
00059     spinTrans.println(name + ".length = " + size + ";");
00060     for (int i = 0; i < size; i++) 
00061         type.getBaseType().apply(this, name + ".element[" + i + "]");
00062     }
00063     public void caseBool(Bool type, Object o) 
00064     {
00065     simpleInit(type, o);
00066     }
00067     public void caseCollection(Collection type, Object o)
00068     {
00069     // Initialization handled on allocation
00070     }
00071     public void caseEnumerated(Enumerated type, Object o) 
00072     {
00073     simpleInit(type, o);
00074     }
00075     public void caseField(Field type, Object o)
00076     {
00077     type.getType().apply(this, varName(o) + "." + type.getName());
00078     }
00079     public void caseLock(Lock type, Object o)
00080     {   
00081     String name = varName(o);
00082     spinTrans.println(name + ".lock!LOCK;");
00083     // We'll trust SPIN to set vars to 0 initially
00084     // spinTrans.println(name + ".owner = 0;");
00085     // if (type.isWaiting())
00086     //    spinTrans.println(name + ".waiting = 0;");
00087     // if (type.isReentrant())
00088     //    spinTrans.println(name + ".count = 0;");
00089     }
00090     public void caseRange(Range type, Object o) 
00091     {
00092     simpleInit(type, o);
00093     }
00094     public void caseRecord(Record type, Object o)
00095     {
00096     // o should be StateVar (we're not called from a collection)
00097     int refIndex = spinTrans.refIndex((StateVar)o);
00098     spinTrans.println(varName(o) + ".refIndex = " + refIndex + ";");
00099     Vector fields = type.getFields();
00100     for (int i = 0; i < fields.size(); i++) 
00101         ((Field)fields.elementAt(i)).apply(this, o);
00102     }
00103     public void caseRef(Ref type, Object o)
00104     {
00105     String name = varName(o);
00106     // Refs in dSPIN automatically initialized to null
00107     // spinTrans.println(name + " = null;");
00108     }
00109     public void defaultCase(Object obj) {
00110     throw new RuntimeException("Construct not handled: " + obj);
00111     }
00112     Expr initValue(Type type, Object context) {
00113     return (context instanceof String) ?
00114         type.defaultVal() : ((StateVar)context).getInitVal();
00115     }
00116     void simpleInit(Type type, Object o) 
00117     {
00118     initValue(type,o).apply(spinTrans);
00119     CaseNode value = (CaseNode)spinTrans.getResult();
00120     ExprNode leaf = (ExprNode) value.getCase(DSpinTrans.normal);
00121     if (! leaf.expr1.equals("0"))
00122         spinTrans.println(varName(o) + " = " + leaf.expr1 + ";");
00123     }
00124     String varName(Object context) {
00125     return (context instanceof String) ? 
00126         (String) context : ((StateVar)context).getName();
00127     }
00128 }

Generated at Thu Feb 7 06:44:50 2002 for Bandera by doxygen1.2.10 written by Dimitri van Heesch, © 1997-2001