main

Abstract : TCL sample program generated by ISTHMUS

Comments : 
           


set Dem_input "demeter-input"

#------------------------------------
#Parsing an object
#------------------------------------
#puts "Parsing in object in: $Dem_input ."
set iGraph [Graph new:]
#$iGraph g_parse: $Dem_input
#------------------------------------
#Drawing an object
#------------------------------------
#puts "Drawing in the parsed object:"
#$iGraph g_draw:
#------------------------------------
#Copying an object
#------------------------------------
#puts "Copying in object."
#set nGraph [$iGraph g_copy:]
#------------------------------------
#Activating
#------------------------------------
#puts "Activating."
#activate $nGraph Graph 
#------------------------------------
#Displaying the copied object as a tree
#------------------------------------
#puts "Displaying the copied object as a tree:"
#$nGraph g_displayAsTree:
#------------------------------------
#Comparing the two objects
#------------------------------------
#puts "Comparing the two objects"
#set result1 [$iGraph g_equal: $nGraph ]
#if {$result1 == 1} { puts "copied and original objects are equal"
#} else {puts "copied and original objects are NOT equal" }
#------------------------------------
#Printing an object
#Not implemented because g_print is not taking filename
#as input
#------------------------------------
#puts "Pretty printing the parsed object:"
#$nGraph g_print: notmod/tmp/demeter_tcl_output
#------------------------------------
#Your code follows after this
#------------------------------------

source "$env(TCL_DIR)/mainapp.tcl"

#------------------------------------
#Deleting created objects
#------------------------------------
#delete $iGraph 
#delete $nGraph 
#**** FINISHED ******