*operation* void set_parsed_schema(Cd_graph *iCd_graph)
  *wrapper* Instantiation
  *prefix*
   (@
       int r = 0;
       schema_inst ->is_schema_location(r);

       if (r)
       {
          Schema *new_schema_inst = new Schema();
          new_schema_inst->set_schema(iCd_graph);
          delete schema_inst;
          schema_inst = new_schema_inst;
       }
    @)

*operation* void is_schema_location(int &r)
*traverse*
  *from*     Schema_instance *to-stop*  Schema_location
*wrapper*  Schema_location
  *prefix*
   (@
       r = 1;
   @)