*operation* void create_schema(Cd_graph*& iCd_graph)
*traverse*
  *from*    Instantiation
  *through* -> *, schema_inst, *
  *to-stop* { Cd_graph, File_name }

*wrapper* Cd_graph
*prefix*
 (@
        iCd_graph = this;
 @)
*wrapper* File_name
*prefix*
 (@
        Cd_graph * r;
        Cd_graph * cdg = new Cd_graph();
        char buf[MAXDIRLEN];

        assert( (cdg != NULL) && (buf != NULL) );

        strcpy(buf,this->get_name()->get_val());
        if (buf[0] != '/')
           absolutename(buf);
        polishpath(buf);
        cout << toolname << ": parsing the schema object from "
             << buf <<  " ..." << endl;
        r = (Cd_graph*)cdg->g_parse(buf);
	if (r == NULL)
	   delete cdg;
        iCd_graph = r;
   @)