You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdesdk/umbrello/umbrello/codegenerators/rubycodeaccessormethod.cpp

234 lines
8.5 KiB

/***************************************************************************
rubycodeaccessormethod.cpp
Derived from the Java code generator by thomas
begin : Thur Jul 21 2005
author : Richard Dale
***************************************************************************/
/***************************************************************************
* *
* This program is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
* copyright (C) 2006-2007 *
* Umbrello UML Modeller Authors <uml-devel@uml.sf.net> *
***************************************************************************/
// own header
#include "rubycodeaccessormethod.h"
// qt/kde includes
#include <tqregexp.h>
#include <kdebug.h>
// local includes
#include "../attribute.h"
#include "../codegenerator.h"
#include "../classifiercodedocument.h"
#include "../umlobject.h"
#include "../umlrole.h"
#include "../uml.h"
#include "codegen_utils.h"
#include "rubyclassifiercodedocument.h"
#include "rubycodegenerationpolicy.h"
#include "rubycodegenerator.h"
#include "rubycodeclassfield.h"
#include "rubycodedocumentation.h"
// Constructors/Destructors
//
RubyCodeAccessorMethod::RubyCodeAccessorMethod ( CodeClassField * field, CodeAccessorMethod::AccessorType type)
: CodeAccessorMethod ( field )
{
setType(type);
// lets use full-blown comment
RubyClassifierCodeDocument *rccd = dynamic_cast<RubyClassifierCodeDocument*>(field->getParentDocument());
setComment(new RubyCodeDocumentation(rccd));
}
RubyCodeAccessorMethod::~RubyCodeAccessorMethod ( ) { }
// Other methods
//
void RubyCodeAccessorMethod::setAttributesOnNode ( TQDomDocument & doc, TQDomElement & blockElement)
{
// set super-class attributes
CodeAccessorMethod::setAttributesOnNode(doc, blockElement);
// set local attributes now
}
void RubyCodeAccessorMethod::setAttributesFromNode( TQDomElement & root)
{
// set attributes from superclass method the XMI
CodeAccessorMethod::setAttributesFromNode(root);
// load local stuff
}
void RubyCodeAccessorMethod::updateContent( )
{
CodeClassField * parentField = getParentClassField();
RubyCodeClassField * rubyfield = dynamic_cast<RubyCodeClassField*>(parentField);
TQString fieldName = rubyfield->getFieldName();
TQString endLine = UMLApp::app()->getCommonPolicy()->getNewLineEndingChars();
TQString text = "";
switch(getType()) {
case CodeAccessorMethod::ADD:
{
int maxOccurs = rubyfield->maximumListOccurances();
TQString fieldType = rubyfield->getTypeName();
TQString indent = getIndentation();
if(maxOccurs > 0)
text += "if "+fieldName+".size() < "+ TQString::number(maxOccurs)+' '+endLine+indent;
text += fieldName+".push(value)";
if(maxOccurs > 0)
{
text += endLine+"else"+endLine;
text += indent + "puts(\"ERROR: Can't add"+fieldType+" to "+fieldName+", minimum number of items reached.\")"+endLine+"end"+endLine;
}
break;
}
case CodeAccessorMethod::GET:
// text = "return "+fieldName;
break;
case CodeAccessorMethod::LIST:
text = "return "+fieldName;
break;
case CodeAccessorMethod::REMOVE:
{
int minOccurs = rubyfield->minimumListOccurances();
RubyClassifierCodeDocument * rubydoc = dynamic_cast<RubyClassifierCodeDocument*>(rubyfield->getParentDocument());
TQString fieldType = rubyfield->getTypeName();
TQString indent = getIndentation();
if(minOccurs > 0)
text += "if "+fieldName+".size() >= "+ TQString::number(minOccurs)+endLine+indent;
text += fieldName+".delete(value)";
if(minOccurs > 0)
{
text += endLine+"else"+endLine;
text += indent + "puts(\"ERROR: Cant remove"+fieldType+" from "+fieldName+", minimum number of items reached.\")"+endLine+"end"+endLine;
}
break;
}
case CodeAccessorMethod::SET:
// text = fieldName+" = value";
break;
default:
// do nothing
break;
}
setText(text);
}
void RubyCodeAccessorMethod::updateMethodDeclaration()
{
RubyCodeClassField * rubyfield = dynamic_cast<RubyCodeClassField*>(getParentClassField());
RubyClassifierCodeDocument * rubydoc = dynamic_cast<RubyClassifierCodeDocument*>(rubyfield->getParentDocument());
// gather defs
CodeGenerationPolicy *p = UMLApp::app()->getCommonPolicy();
CodeGenerationPolicy::ScopePolicy scopePolicy = p->getAttributeAccessorScope();
TQString strVis = rubydoc->scopeToRubyDecl(rubyfield->getVisibility());
TQString fieldName = RubyCodeGenerator::cppToRubyName(rubyfield->getFieldName());
TQString fieldType = RubyCodeGenerator::cppToRubyType(rubyfield->getTypeName());
TQString objectType = rubyfield->getListObjectType();
if(objectType.isEmpty())
objectType = fieldName;
TQString endLine = p->getNewLineEndingChars();
TQString description = getParentObject()->getDoc();
description.replace(TQRegExp("m_[npb](?=[A-Z])"), "");
description.replace("m_", "");
description.replace(TQRegExp("[\\n\\r]+[\\t ]*"), endLine);
// set scope of this accessor appropriately..if its an attribute,
// we need to be more sophisticated
if(rubyfield->parentIsAttribute())
switch (scopePolicy) {
case CodeGenerationPolicy::Public:
case CodeGenerationPolicy::Private:
case CodeGenerationPolicy::Protected:
strVis = rubydoc->scopeToRubyDecl((Uml::Visibility::Value) scopePolicy);
break;
default:
case CodeGenerationPolicy::FromParent:
// do nothing..already have taken parent value
break;
}
// some variables we will need to populate
TQString headerText = "";
TQString methodReturnType = "";
TQString methodName = "";
TQString methodParams = "";
switch(getType()) {
case CodeAccessorMethod::ADD:
methodName = "add" + Codegen_Utils::capitalizeFirstLetter(fieldType);
methodReturnType = "";
methodParams = objectType+" value ";
headerText = "Add an object of type "+objectType+" to the Array "+fieldName+endLine+description+endLine+"@return nil";
setStartMethodText("def "+ methodName + '(' + methodParams + ')');
setEndMethodText("end");
break;
case CodeAccessorMethod::GET:
headerText = "Get the value of " + fieldName + endLine + description;
setStartMethodText(TQString("attr_reader :") + fieldName);
setEndMethodText("");
break;
case CodeAccessorMethod::LIST:
methodName = "get" + Codegen_Utils::capitalizeFirstLetter(fieldType)+"List";
methodReturnType = "";
headerText = "Get the list of "+fieldName+endLine+description+endLine+"_returns_ List of "+fieldName;
setStartMethodText("def "+ methodName + '(' + methodParams + ')');
setEndMethodText("end");
break;
case CodeAccessorMethod::REMOVE:
methodName = "remove" + Codegen_Utils::capitalizeFirstLetter(fieldType);
methodReturnType = "";
methodParams = objectType+" value ";
headerText = "Remove an object of type "+objectType+" from the List "+fieldName+endLine+description;
setStartMethodText("def "+ methodName + '(' + methodParams + ')');
setEndMethodText("end");
break;
case CodeAccessorMethod::SET:
headerText = "Set the value of " + fieldName + endLine + description;
setStartMethodText(TQString("attr_writer :") + fieldName);
setEndMethodText("");
break;
default:
// do nothing..no idea what this is
kWarning()<<"Warning: can't generate RubyCodeAccessorMethod for type: "<<getType()<<endl;
break;
}
// set header once.
if (getComment()->getText().isEmpty())
getComment()->setText(headerText);
}
void RubyCodeAccessorMethod::update()
{
updateMethodDeclaration();
updateContent();
}
#include "rubycodeaccessormethod.moc"