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/pascalwriter.h

88 lines
2.4 KiB

/***************************************************************************
* *
* 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 *
* Umbrello UML Modeller Authors <uml-devel@uml.sf.net> *
***************************************************************************/
#ifndef PASCALWRITER_H
#define PASCALWRITER_H
#include "simplecodegenerator.h"
class UMLAssociation;
class UMLOperation;
/**
* Pascal class writer
* @author Oliver Kellogg
* Bugs and comments to uml-devel@lists.sf.net or http://bugs.kde.org
*/
class PascalWriter : public SimpleCodeGenerator {
Q_OBJECT
public:
/**
* Basic Constructor
*/
PascalWriter ();
/**
* Empty Destructor
*/
virtual ~PascalWriter ();
/**
* call this method to generate Ada code for a UMLClassifier
* @param c the class to generate code for
*/
virtual void writeClass (UMLClassifier *c);
/**
* returns "Pascal"
*/
virtual Uml::Programming_Language getLanguage();
TQStringList defaultDatatypes();
/**
* Check whether the given string is a reserved word for the
* language of this code generator
*
* @param rPossiblyReservedKeyword The string to check.
*/
virtual bool isReservedKeyword(const TQString & rPossiblyReservedKeyword);
/**
* get list of reserved keywords
*/
virtual const TQStringList reservedKeywords() const;
private:
/**
* write one operation
* @param op the class for which we are generating code
* @param ada the stream associated with the output file
*/
void writeOperation (UMLOperation *op, TQTextStream &ada, bool is_comment = false);
void computeAssocTypeAndRole (UMLAssociation *a, TQString& typeName, TQString& roleName);
bool isOOClass (UMLClassifier *c);
TQString qualifiedName
(UMLPackage *p, bool withType = false, bool byValue = false);
static const TQString defaultPackageSuffix;
};
#endif // PASCALWRITER_H