diff options
Diffstat (limited to 'umbrello/umbrello/codeimport/adaimport.h')
-rw-r--r-- | umbrello/umbrello/codeimport/adaimport.h | 88 |
1 files changed, 88 insertions, 0 deletions
diff --git a/umbrello/umbrello/codeimport/adaimport.h b/umbrello/umbrello/codeimport/adaimport.h new file mode 100644 index 00000000..14e41926 --- /dev/null +++ b/umbrello/umbrello/codeimport/adaimport.h @@ -0,0 +1,88 @@ +/*************************************************************************** + * * + * 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) 2005-2007 * + * Umbrello UML Modeller Authors <uml-devel@uml.sf.net> * + ***************************************************************************/ + +#ifndef ADAIMPORT_H +#define ADAIMPORT_H + +#include <qmap.h> +#include <qstringlist.h> + +#include "nativeimportbase.h" +#include "../umlobjectlist.h" + +/** + * Ada code import + * @author Oliver Kellogg + * Bugs and comments to uml-devel@lists.sf.net or http://bugs.kde.org + */ +class AdaImport : public NativeImportBase { +public: + AdaImport(); + virtual ~AdaImport(); + +protected: + /** + * Reimplement operation from NativeImportBase. + */ + void initVars(); + + /** + * Implement abstract operation from NativeImportBase. + */ + bool parseStmt(); + + /** + * Split the line so that a string is returned as a single element of the list. + * When not in a string then split at white space. + * Reimplementation of method from NativeImportBase is required because of + * Ada's tic which is liable to be confused with the beginning of a character + * constant. + */ + QStringList split(const QString& line); + + /** + * Implement abstract operation from NativeImportBase. + */ + void fillSource(const QString& word); + + /** + * Apply package renamings to the given name. + * + * @return expanded name + */ + QString expand(const QString& name); + + /** + * Parse all files that can be formed by concatenation of the given stems. + */ + void parseStems(const QStringList& stems); + + bool m_inGenericFormalPart; ///< auxiliary variable + + /** + * List for keeping track of tagged objects declared in the current scope. + * This is required for distinguishing primitive from non primitive + * methods. + */ + UMLObjectList m_classesDefinedInThisScope; + + typedef QMap<QString, QString> StringMap; + + /** + * Map of package renamings. + * Keyed by the renaming. Value returns the expanded name. + */ + StringMap m_renaming; + +}; + +#endif + |