|
|
|
/***************************************************************************
|
|
|
|
perlwriter.h - description
|
|
|
|
-------------------
|
|
|
|
begin : Wed Jan 22 2003
|
|
|
|
copyright : (C) 2003 by David Hugh-Jones
|
|
|
|
email : hughjonesd@yahoo.co.uk
|
|
|
|
***************************************************************************/
|
|
|
|
|
|
|
|
/***************************************************************************
|
|
|
|
* *
|
|
|
|
* 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. *
|
|
|
|
* *
|
|
|
|
***************************************************************************/
|
|
|
|
|
|
|
|
#ifndef PERLWRITER_H
|
|
|
|
#define PERLWRITER_H
|
|
|
|
|
|
|
|
#include "simplecodegenerator.h"
|
|
|
|
#include "../umlattributelist.h"
|
|
|
|
#include "../umloperationlist.h"
|
|
|
|
|
|
|
|
class UMLOperation;
|
|
|
|
class UMLAttribute;
|
|
|
|
class UMLClassifier;
|
|
|
|
|
|
|
|
/**
|
|
|
|
* class PerlWriter is a Perl code generator for UMLClassifier objects
|
|
|
|
* Just call writeClass and feed it a UMLClassifier;
|
|
|
|
*/
|
|
|
|
class PerlWriter : public SimpleCodeGenerator {
|
|
|
|
Q_OBJECT
|
|
|
|
|
|
|
|
public:
|
|
|
|
|
|
|
|
PerlWriter();
|
|
|
|
virtual ~PerlWriter();
|
|
|
|
|
|
|
|
/**
|
|
|
|
* call this method to generate Perl code for a UMLClassifier
|
|
|
|
* @param c the class you want to generate code for.
|
|
|
|
*/
|
|
|
|
virtual void writeClass(UMLClassifier *c);
|
|
|
|
|
|
|
|
/**
|
|
|
|
* returns "Perl"
|
|
|
|
*/
|
|
|
|
virtual Uml::Programming_Language getLanguage();
|
|
|
|
|
|
|
|
/**
|
|
|
|
* get list of reserved keywords
|
|
|
|
*/
|
|
|
|
virtual const TQStringList reservedKeywords() const;
|
|
|
|
|
|
|
|
TQStringList defaultDatatypes();
|
|
|
|
|
|
|
|
private:
|
|
|
|
|
|
|
|
/**
|
|
|
|
* we do not want to write the comment "Private methods" twice
|
|
|
|
* not sure whether this is php specific
|
|
|
|
*/
|
|
|
|
bool bPrivateSectionCommentIsWritten;
|
|
|
|
|
|
|
|
/**
|
|
|
|
* write all operations for a given class
|
|
|
|
*
|
|
|
|
* @param c the concept we are generating code for
|
|
|
|
* @param perl output stream for the Perl file
|
|
|
|
*/
|
|
|
|
void writeOperations(UMLClassifier *c, TQTextStream &perl);
|
|
|
|
|
|
|
|
/**
|
|
|
|
* write a list of class operations
|
|
|
|
*
|
|
|
|
* @param classname the name of the class
|
|
|
|
* @param opList the list of operations
|
|
|
|
* @param perl output stream for the Perl file
|
|
|
|
*/
|
|
|
|
void writeOperations(const TQString &classname, UMLOperationList &opList,
|
|
|
|
TQTextStream &perl);
|
|
|
|
|
|
|
|
/** write all the attributes of a class
|
|
|
|
* @param c the class we are generating code for
|
|
|
|
* @param perl output stream for the Perl file
|
|
|
|
*/
|
|
|
|
void writeAttributes(UMLClassifier *c, TQTextStream &perl);
|
|
|
|
|
|
|
|
/** write a list of class attributes
|
|
|
|
* @param atList the list of attributes
|
|
|
|
* @param perl output stream for the Perl file
|
|
|
|
*/
|
|
|
|
void writeAttributes(UMLAttributeList &atList, TQTextStream &perl);
|
|
|
|
|
|
|
|
bool GetUseStatements(UMLClassifier *c, TQString &Ret,
|
|
|
|
TQString &ThisPkgName);
|
|
|
|
|
|
|
|
};
|
|
|
|
|
|
|
|
#endif //PERLWRITER
|