cppInit

//***************************************************************************
//
// Date Created:	November 29, 1995
//
//***************************************************************************
//
// Changes:
// Date Changed:
//
//***************************************************************************
//
//  11/29/95 - Tom Kneeland (tomk@ccs.neu.edu)
//	Added the code to created empty Vertex and Edge lists.  This is 
//	needed because they are not created when tcl created a Graph 
// 	object.
//
//
//***************************************************************************


(@
#include <iostream.h>
#include <strstream.h>
// #include "tclexec.h"
@)

*operation* void cppInit()

*wrapper* Graph
(@ 	
this->set_vertices(new Vertex_List());
this->set_edges(new Edge_List());

defaultConstVertex = new ConstVertex();
defaultConstVertex->g_parse("ConstVert-input");


defaultAltVertex = new AltVertex();
defaultAltVertex->g_parse("AltVert-input");


defaultConstEdge = new ConstEdge();
defaultConstEdge->g_parse("ConstEdge-input");


defaultAltEdge = new AltEdge();
defaultAltEdge->g_parse("AltEdge-input"); @)