Netbeans Support for Tcl

	private File currentFile;
	private int currentLineNumber;
	ClientToTclPart tclPart=null;
	private TclDebuggerEngineProvider engineProvider;
	private File tclPartFile=null;
	private final String tclPartFileName="debugServer.tcl";
	private int tclPartPortNumber=31337;
	private String variablesStringLocals="";
	private String variablesStringGlobals="";
	private ModelListener modelListener=null;

	public void addModelListener( ModelListener ml ) {
		//System.out.println("addModelListner inside TclDebuggerJavaPart : "+ml);
		this.modelListener = ml;
	}

			String fileName=tclPart.nextLineFromFromSocket();
			currentFile=new File( fileName );

			// get second line → line in file
			currentLineNumber=Integer.parseInt( tclPart.nextLineFromFromSocket() );
			programCounter.modify();

			// get third line → number of variablesStringLocals
			int numberOfVariables=Integer.parseInt( tclPart.nextLineFromFromSocket() );
			variablesStringLocals = "";

			// every following numberOfVariables line contains name nad value of variable
			for( int i=1; i <= numberOfVariables; i++ ) {
				variablesStringLocals += tclPart.nextLineFromFromSocket()+"\n";
			}

			// get next line → number of variablesStringGlobals
			numberOfVariables=Integer.parseInt( tclPart.nextLineFromFromSocket() );
			variablesStringGlobals = "";
			// every following numberOfVariables line contains name nad value of variable
			for( int i=1; i <= numberOfVariables; i++ ) {
				variablesStringGlobals += tclPart.nextLineFromFromSocket()+"\n";
			}
			
			updateTclVariablesModel();
			
		} catch( NoSuchElementException e ) {
			System.out.println( ">>> End of debugging…" );
			actionKill();
		}
		

		return currentFile;
	}

	public int getCurrentLineNumber() {
		return currentLineNumber;
	}

	public String getVariablesStringLocals() {
		return variablesStringLocals;
	}
	
	public String getVariablesStringGlobals() {
		return variablesStringGlobals;
	}

}

# other globals
  variable startLevel
  variable socketFd



proc listVars {type level} {

#	set level [expr [info level] - 2]
	set listVars [uplevel $level info $type]
	set formatted ""
	set count 0
	foreach var $listVars {
			set isArray [uplevel $level array exists $var]
			if { $isArray } {
				set names [uplevel $level array names $var]

				#puts "$var = ARRAY"
				set toAppend "$var = <ARRAY>\n"
				append formatted $toAppend
				incr count

				#puts "[set var]KEYS = $names"
				set toAppend "[set var]_KEYS = $names\n"
				append formatted $toAppend
				incr count

}


proc setData args {
	set debug::infoFrame [info frame]
	set infoDict [info frame [expr $debug::infoFrame - $debug::startLevel]]

	if { [dict exists $infoDict line] } {
		set debug::lineNumber [dict get $infoDict line]
	}

	if { [dict exists $infoDict file] } {
		set debug::fileName [dict get $infoDict file]
	}
}

proc sendData args {
 	puts $debug::socketFd $debug::fileName
	puts $debug::socketFd $debug::lineNumber

	set flist [listVars locals [expr [info level] - 1]]
	puts -nonewline $debug::socketFd $flist

	set flist [listVars globals #0]
	puts -nonewline $debug::socketFd $flist

	flush $debug::socketFd
}

proc serverProc {channel clientaddr clientport} {
	set debug::socketFd $channel
	puts stderr ">>> connection from $clientaddr:$clientport"

 */
public class TclVariable {

	private String name;
	private String value;
	private String type;

	public TclVariable( String name, String type, String value ) {
		this.name=name;
		this.type=type;
		this.value=value;
	}

	public String getName() {
		return name;
	}

 */
public class TclVariablesModel implements TreeModel, NodeModel, TableModel {

	private static final String VARROOT="ROOT";
	private ArrayList<ModelListener> listeners=new ArrayList<ModelListener>();
//	private final ContextProvider lookupProvider;
	private TclDebuggerJavaPart tclDebugger;
	private Properties variablePropertiesLocals;
	private Properties variablePropertiesGlobals;

	public TclVariablesModel( ContextProvider lookupProvider ) {
		TclDebuggerActionsProvider tclDebuggerActionsProvider=( TclDebuggerActionsProvider )lookupProvider.lookupFirst( null, TclDebuggerActionsProvider.class );
		tclDebugger=tclDebuggerActionsProvider.getTclDebuggerJavaPart();
		//this.lookupProvider=lookupProvider;
	}

	@Override
	public boolean isReadOnly( Object o, String string ) throws UnknownTypeException {
		return true;
	}

	@Override
	public Object[] getChildren( Object o, int i, int i1 ) throws UnknownTypeException {

		ArrayList<Object> kids=new ArrayList<Object>();

		if( o == VARROOT ) {
			// Locals
			variablePropertiesLocals=transformVariablesStringToProperties( kids, tclDebugger.getVariablesStringLocals(), "local" );
			// Globals
			variablePropertiesGlobals=transformVariablesStringToProperties( kids, tclDebugger.getVariablesStringGlobals(), "global" );
		}

		if( o instanceof TclVariable ) {
			TclVariable var=( TclVariable )o;
			if( var.getType().equals( "local" ) ) {
				childrenOfArray( var.getName(), kids, variablePropertiesLocals, "local" );
			} else if( var.getType().equals( "global" ) ) {
				childrenOfArray( var.getName(), kids, variablePropertiesGlobals, "global" );
			}
		}

		return kids.toArray();
	}

	private void childrenOfArray( String arrayName, ArrayList<Object> kids, Properties vProperties, String type ) {

		String keys, value;
		String arrayKeys=arrayName + "_KEYS";
		
		keys=vProperties.getProperty( arrayKeys );
		
		for( String s:keys.split( " " ) ) {
			value = vProperties.getProperty( arrayName + "(" + s + ")");
			kids.add( new TclVariable( s, type, value ));
		}

	}

	private Properties transformVariablesStringToProperties( ArrayList<Object> kids, String vString, String type ) {

		String name;
		String value;
		Properties vProperties=new Properties();
		if( !vString.isEmpty() ) {
			StringReader sr=new StringReader( vString );

			try {
				vProperties.load( sr );

				for( Object object:vProperties.keySet() ) {
					name=( String )object;
					value=vProperties.getProperty( name );
					if( !name.contains( "(" ) && !name.contains( "_KEYS" ) ) { // Ommit arrays and *_KEYS
						kids.add( new TclVariable( name, type, value ) );
					}
				}
			} catch( IOException ex ) {
				Exceptions.printStackTrace( ex );
			}
		}

		return vProperties;

	}

	@Override
	public boolean isLeaf( Object o ) throws UnknownTypeException {
		if( o instanceof String ) {
			String s=( String )o;
			if( s.compareTo( VARROOT ) == 0 ) {
				return false;
			}
		}
		if( o instanceof TclVariable ) {
			TclVariable v=( TclVariable )o;
			if( "<ARRAY>".equals( v.getValue() ) ) {
				return false;
			}
		}
		return true;
	}

	@Override
	public int getChildrenCount( Object o ) throws UnknownTypeException {
		return 2;

	public Object getValueAt( Object o, String string ) throws UnknownTypeException {
		if( o instanceof TclVariable ) {
			TclVariable var=( TclVariable )o;
			if( string.compareTo( Constants.LOCALS_VALUE_COLUMN_ID ) == 0 ) {
				return var.getValue();
			}
			if( string.compareTo( Constants.LOCALS_TYPE_COLUMN_ID ) == 0 ) {
				return var.getType();
			}
			if( string.compareTo( Constants.LOCALS_TO_STRING_COLUMN_ID ) == 0 ) {
				return var.getValue();
			}
		}
		return "";
	}

}