blob: 8c1dd67c6bb35317ab7f5822fa882b5bfe928e4b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
/***************************************************************************
* *
* 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 {
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
|