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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
/***************************************************************************
* Copyright (C) 2003 Alexander Dymo *
* cloudtemple@mksat.net *
* *
* 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. *
* *
***************************************************************************/
#include <tqvbox.h>
#include <tdelocale.h>
#include <kgenericfactory.h>
#include "optiontabs.h"
#include "fpcoptionsplugin.h"
K_EXPORT_COMPONENT_FACTORY( libtdevfpcoptions, KGenericFactory<FpcOptionsPlugin>( "tdevfpcoptions" ) )
FpcOptionsPlugin::FpcOptionsPlugin(TQObject *parent, const char *name, const TQStringList& /*args*/)
: TDevCompilerOptions(parent, name)
{
}
FpcOptionsPlugin::~FpcOptionsPlugin()
{
}
TQString FpcOptionsPlugin::exec(TQWidget *parent, const TQString &flags)
{
FpcOptionsDialog *dlg = new FpcOptionsDialog(parent, "fpc options dialog");
TQString newFlags = flags;
dlg->setFlags(flags);
if (dlg->exec() == TQDialog::Accepted)
newFlags = dlg->flags();
delete dlg;
return newFlags;
}
FpcOptionsDialog::FpcOptionsDialog( TQWidget *parent, const char *name )
: KDialogBase(Tabbed, i18n("Free Pascal Compiler Options"), Ok|Cancel, Ok, parent, name, true)
{
TQVBox *vbox;
vbox = addVBoxPage(i18n("Language"));
language = new LanguageTab(vbox, "language tab");
vbox = addVBoxPage(i18n("Locations I"));
directories = new FilesAndDirectoriesTab(vbox, "directories tab");
vbox = addVBoxPage(i18n("Locations II"));
directories2 = new FilesAndDirectoriesTab2(vbox, "directories2 tab");
vbox = addVBoxPage(i18n("Debug && Optimization"));
debug_optim = new DebugOptimTab(vbox, "debug_optim tab");
vbox = addVBoxPage(i18n("Code Generation"));
codegen = new CodegenTab(vbox, "codegen tab");
vbox = addVBoxPage(i18n("Assembler"));
assembler = new AssemblerTab(vbox, "assembler tab");
vbox = addVBoxPage(i18n("Linker"));
linker = new LinkerTab(vbox, "linker tab");
vbox = addVBoxPage(i18n("Feedback"));
feedback = new FeedbackTab(vbox, "feedback tab");
vbox = addVBoxPage(i18n("Miscellaneous"));
misc = new MiscTab(vbox, "miscellaneous tab");
}
FpcOptionsDialog::~FpcOptionsDialog()
{
}
void FpcOptionsDialog::setFlags(const TQString &flags)
{
TQStringList flaglist = TQStringList::split(" ", flags);
feedback->readFlags(&flaglist);
language->readFlags(&flaglist);
assembler->readFlags(&flaglist);
linker->readFlags(&flaglist);
codegen->readFlags(&flaglist);
debug_optim->readFlags(&flaglist);
directories->readFlags(&flaglist);
directories2->readFlags(&flaglist);
misc->readFlags(&flaglist);
unrecognizedFlags = flaglist;
}
TQString FpcOptionsDialog::flags() const
{
TQStringList flaglist;
language->writeFlags(&flaglist);
directories->writeFlags(&flaglist);
directories2->writeFlags(&flaglist);
debug_optim->writeFlags(&flaglist);
codegen->writeFlags(&flaglist);
assembler->writeFlags(&flaglist);
linker->writeFlags(&flaglist);
feedback->writeFlags(&flaglist);
misc->writeFlags(&flaglist);
TQString flags;
TQStringList::ConstIterator li;
for (li = flaglist.begin(); li != flaglist.end(); ++li) {
flags += (*li);
flags += " ";
}
for (li = unrecognizedFlags.begin(); li != unrecognizedFlags.end(); ++li) {
flags += (*li);
flags += " ";
}
flags.truncate(flags.length()-1);
return flags;
}
#include "fpcoptionsplugin.moc"
|
