//
// $Log: genCarryVarDefs.pp,v $
// Revision 5.5.1.1  1994/08/24  19:31:59  demeter
// *** empty log message ***
//
// Revision 5.5  1994/08/24  19:31:58  demeter
// *** empty log message ***
//
// Revision 5.4.1.2  1994/02/24  20:53:17  demeter
//  reimplement object transportation -- cun
//
// Revision 5.4.1.1  1994/02/20  19:53:04  demeter
// *** empty log message ***
//
// Revision 5.4  1994/02/20  19:53:02  demeter
// *** empty log message ***
//
// Revision 5.3.1.1  1994/01/26  20:07:43  demeter
// *** empty log message ***
//
// Revision 5.3  1994/01/26  20:07:42  demeter
// *** empty log message ***
//
// Revision 5.2.1.1  1994/01/25  17:25:13  demeter
// *** empty log message ***
//
// Revision 5.2  1994/01/25  17:25:12  demeter
// *** empty log message ***
//
// Revision 5.1.1.2  1993/11/16  23:30:14  demeter
// add "=" to fix the bug
//
//

*operation* void genCarryVarDefs(ofstream& strm)
  *wrapper* Param_decl_Commalist
    *prefix*
    (@
       Param_decl_list_iterator   next(*this);
       Param_decl*                each;

       while (each = next())
         each->genCarryVarDefs(strm);
    @)
  *wrapper* Param_decl
    *prefix*
    (@
       strm << "  ";
       this->get_param_type_spec()->printTypeDef(strm);
       strm << " " <<  this->get_param_name()->get_name();
       if (this->get_default_val())
         strm << "= " << this->get_default_val()->get_code()->get_val();
       else
         derror('w',1,form("line %d, variable '%s' is defined without an initial value.",
                           this->get_param_name()->get_name()->get_line_number(),
                           this->get_param_name()->get_name()->get_val()));
       strm << ";\n";
    @)


*operation* void printTypeDef(ofstream & strm)
  *wrapper* Type_spec
    *prefix*
    (@

    @)
  *wrapper* Void
    *prefix*
    (@
	strm << "void ";
    @)
  *wrapper* Nonvoid_type_spec
    *prefix*
    (@

    @)
  *wrapper* Type_without_attribute
    *prefix*
    (@
	param_type->printTypeDef(strm);
    @)
  *wrapper* Type_with_attribute
    *prefix*
    (@
	param_type->printTypeDef(strm);
	param_attribute->printTypeDef(strm);
    @)
  *wrapper* Param_attribute
    *prefix*
    (@

    @)
  *wrapper* In
    *prefix*
    (@

    @)
  *wrapper* Out
    *prefix*
    (@

    @)
  *wrapper* Inout
    *prefix*
    (@

    @)
  *wrapper* Type
    *prefix*
    (@
        if (type_qualifier)
	   type_qualifier->printTypeDef(strm);
	type_name->printVertex(strm);
        refs->printTypeDef(strm);
    @)
  *wrapper* Type_qualifier
    *prefix*
    (@

    @)
  *wrapper* Const
    *prefix*
    (@
	strm << "const ";
    @)
  *wrapper* Struct
    *prefix*
    (@
	strm << "struct ";

    @)
  *wrapper* Ref_Ptr_List
    *prefix*
    (@
	Ref_Ptr_list_iterator next(*this);
	Ref_Ptr		      *each;
	
	while (each = next())
          each->printTypeDef(strm);
    @)
  *wrapper* Ref_Ptr
    *prefix*
    (@

    @)
  *wrapper* Ref
    *prefix*
    (@
	strm << "& ";
    @)
  *wrapper* Ptr
    *prefix*
    (@
	strm << "* ";
    @)