*operation* void initPropCallGen()
  *wrapper* Cd_graph
    *prefix*
    (@
       adjacencies->initPropCallGen();
    @)
  *wrapper* Adjacency_Nlist
    *prefix*
    (@
      static DemString* nullstring = new DemString("");
      Adjacency_list_iterator  next(*this);
      Adjacency*               each;

      while (each = next())
         each->initPropCallGen(nullstring);
    @)

*operation* void initPropCallGen(DemString* nullstring)
  *wrapper* Adjacency
    *prefix*
    (@
       if (propagate)
         propagate->g_delete();
       if (generated)
         generated->g_delete();
       if (tempmark)
         tempmark->g_delete();
       propagate = (DemString*)nullstring->g_copy();
       generated = (DemString*)nullstring->g_copy();
       tempmark =  (DemString*)nullstring->g_copy();
       ns->initPropCallGen(nullstring);
       if (superclasses)
	 superclasses->initPropCallGen(nullstring);
    @)
  *wrapper* Vertex_List
    *prefix*
    (@
       Vertex_list_iterator next(*this);
       Vertex*              each;

       while (each = next())
         {
           if (each->get_call())
             each->get_call()->g_delete();
           each->set_call((DemString*)nullstring->g_copy());
         }
    @)
  *wrapper* Neighbors
    *prefix*
    (@
    @)
  *wrapper* Neighbors_wc
    *prefix*
    (@
    @)
  *wrapper* Construct_ns
    *prefix*
    (@
       this->get_construct_ns()->initPropCallGen(nullstring);
    @)
  *wrapper* Alternat_ns
    *prefix*
    (@
       if (this->get_alternat_ns())
         this->get_alternat_ns()->initPropCallGen(nullstring);
       this->get_construct_ns()->initPropCallGen(nullstring);
    @)
  *wrapper* Repetit_n
    *prefix*
    (@
       if (sandwiched)
         sandwiched->initPropCallGen(nullstring);
    @)
  *wrapper* Kernel_Sandwich
    *prefix*
    (@
       inner->initPropCallGen(nullstring);
    @)
  *wrapper* Kernel
    *prefix*
    (@
       repeated->initPropCallGen(nullstring);
    @)
  *wrapper* Any_vertex_List
    *prefix*
    (@
       Any_vertex_list_iterator next(*this);
       Any_vertex*              each;

       while (each = next())
         each->initPropCallGen(nullstring);
    @)
  *wrapper* Any_vertex
    *prefix*
    (@
       if (this->get_call())
         this->get_call()->g_delete();
       this->set_call((DemString*)nullstring->g_copy());
    @)
  *wrapper* Optional_term
    *prefix*
    (@
       opt->initPropCallGen(nullstring);
    @)
  *wrapper* Opt_labeled_term_Sandwich
    *prefix*
    (@
       inner->initPropCallGen(nullstring);
    @)
  *wrapper* Term_Barlist
    *prefix*
    (@
       Term_list_iterator   next(*this);
       Term_                each;

       while (each = next())
         {
           if (each->get_call())
             each->get_call()->g_delete();
           each->set_call((DemString*)nullstring->g_copy());
         }
    @)
  *wrapper* Term_Sandwich
    *prefix*
    (@
       if (inner->get_call())
         inner->get_call()->g_delete();
       inner->set_call((DemString*)nullstring->g_copy());
    @)