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.
88 lines
2.4 KiB
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.trinitydesktop.org
|
|
*/
|
|
class PascalWriter : public SimpleCodeGenerator {
|
|
TQ_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
|
|
|