/* SCCS  %W% --- %G% -- %U% */

// Copyright: Copyright (c) 1997 University of Southern California Brain Project.
// Copyright: This software may be freely copied provided the toplevel
// Copyright: COPYRIGHT file is included with each such copy.
// Copyright: Email nsl@java.usc.edu.

package nslj.src.nsls.struct;


import tcl.lang.*;
import java.util.*;
import nslj.src.lang.*;
import nslj.src.system.NslSystem;

public abstract class NslCommand implements Command  {

    private Interp nslInterp;
    TclObject argv[];
    protected String nslArgv[]; 
    
    protected NslSystem system;
    
    NslModule _model;
    
    public NslCommand(String name, NslHierarchy module) {
    	system = Executive.system;
        _model = system.nslGetModelRef();
    }
    
    public NslModule nslGetModule(String name) {
    	if (_model != null) {
    	    name = name.substring(1);
    	    System.out.println("Model name: "+_model.nslGetRealName());
            NslModule temp = _model.nslGetModuleRefByName(name);
            return temp;
    	}
    	return null;
    }
   
    public void cmdProc(Interp interp, TclObject arg[]) {

        nslInterp = interp;
        argv = arg;
	nslArgv = new String[argv.length];
        for (int i=0; i<argv.length; i++) {
            nslArgv[i] = argv[i].toString();
        }

        try {
        	nslCmdProc();
        } catch(TclException e) {
        	String error="";
		int code = e.getCompletionCode();
    		if (code == TCL.ERROR) {
    			error = nslInterp.getResult().toString();			
    		}        
  		
  		nslSetResult(error);
    	}
       
    }
    
    public int nslInteger(String value) {

	int temp2=0;

        try {
	     	TclObject temp = TclString.newInstance(value);
	     	temp2 = TclInteger.get(nslInterp, temp);
        } catch(TclException e) {
        	String error="";
		int code = e.getCompletionCode();
    		if (code == TCL.ERROR) {
    			error = nslInterp.getResult().toString();			
    		} 
    		
    		nslSetResult(error);      
    	}    		
    	
    	return temp2;

    }
    
    public boolean nslBoolean(String value) {

	boolean temp2=false;

        try {
	     TclObject temp = TclString.newInstance(value);
	     temp2 = TclBoolean.get(nslInterp, temp);
        } catch(TclException e) {
        	String error="";
		int code = e.getCompletionCode();
    		if (code == TCL.ERROR) {
    			error = nslInterp.getResult().toString();			
    		} 
    		
    		nslSetResult(error);      
    	} 
    	
 	return temp2;
    }
    
    public double nslDouble(String value) {

	double temp2=0;

        try {   
             TclObject temp = TclString.newInstance(value);
             temp2 = TclDouble.get(nslInterp, temp);
        } catch(TclException e) {
        	String error="";
		int code = e.getCompletionCode();
    		if (code == TCL.ERROR) {
    			error = nslInterp.getResult().toString();			
    		} 
    		
    		nslSetResult(error);      
    	} 
    	
 	return temp2;
    }
    
    public void nslSetResult(String msg) {
	nslInterp.setResult(msg);	      
    }    
    
    public void nslReturnError(String msg) {
	nslInterp.setResult(msg);
    }    
    
    public int nslGetNumberOfParameters() {
    	return argv.length;
    }
    
    public int nslGetCmdIndex(String parameter, String opts[], String msgLabel) {
        int result = -1;
        try {
    	    TclObject temp = TclString.newInstance(parameter);    	
    	    result = TclIndex.get(nslInterp, temp, opts, msgLabel, 0);
    	} catch (TclException e) {
    	} finally {
    	    return result;
    	}
    	
    }
    
    public abstract void nslCmdProc() throws TclException ;
    
}