Changeset 77 for trunk


Ignore:
Timestamp:
Jun 4, 2024, 9:53:17 PM (6 months ago)
Author:
chronos
Message:
  • Modified: Compiler targets moved into modules.
Location:
trunk
Files:
13 added
1 deleted
11 edited

Legend:

Unmodified
Added
Removed

  • trunk/Compiler/Compiler.pas

    r75 r77  
    193193  FreeAndNil(Executors);
    194194  FreeAndNil(Convertors);
     195  inherited;
    195196end;
    196197
    … …  
    223224    Analyzer.OnGetSource(ExtractFileName(Analyzer.FileName), Analyzer.SourceCode2);
    224225    Analyzer.Process;
    225     //ShowMessage(IntToHex(Integer(Addr(Analyzer.OnGetSource)), 8));
    226226    Analyzer.ParseModule(AbstractCode);
    227227  end else raise Exception.Create(SNothingToAnalyze);

  • trunk/Compiler/Modules/ASM8051/ProducerASM8051.pas

    r75 r77  
    4545implementation
    4646
    47 
    4847{ TAssemblerLine }
    4948
    … …  
    7170  NewLine.Operand2 := Operand2;
    7271end;
    73 
    7472
    7573(*
    … …  
    113111destructor TProducerAsm8051.Destroy;
    114112begin
    115   AssemblyCode.Free;
     113  FreeAndNil(AssemblyCode);
    116114  inherited;
    117115end;

  • trunk/Compiler/Modules/GCC/ModuleGCC.pas

    r75 r77  
    3636destructor TModuleGCC.Destroy;
    3737begin
    38   inherited Destroy;
     38  inherited;
    3939end;
    4040

  • trunk/Compiler/Modules/GCC/ProducerGCC.pas

    r75 r77  
    44
    55uses
    6   SysUtils, Variants, Classes, Graphics, Controls, Forms,
    7   Dialogs, StdCtrls, SourceCodePascal, Producer, StrUtils;
     6  SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
     7  SourceCodePascal, Producer, StrUtils;
    88
    99type
    … …  
    4646  end;
    4747
     48
    4849implementation
    4950
    … …  
    6465destructor TProducerGCCC.Destroy;
    6566begin
    66   TextSource.Free;
     67  FreeAndNil(TextSource);
    6768  inherited;
    6869end;
    … …  
    153154end;
    154155
    155 procedure TProducerGCCC.GenerateFunctions(Functions: TFunctions; Prefix: string
    156   );
     156procedure TProducerGCCC.GenerateFunctions(Functions: TFunctions;
     157  Prefix: string = '');
    157158var
    158159  I: Integer;

  • trunk/Compiler/Modules/Java/ModuleJava.pas

    r75 r77  
    44
    55uses
    6   Classes, SysUtils, ModularSystem, SourceConvertor;
     6  Classes, SysUtils, ModularSystem, SourceConvertor, TargetJava;
    77
    88type
    … …  
    1010
    1111  TModuleJava = class(TModule)
     12    Target: TTargetJava;
    1213    constructor Create(AOwner: TComponent); override;
    1314    procedure DoInstall; override;
    … …  
    3536procedure TModuleJava.DoInstall;
    3637begin
     38  Target := TTargetJava.Create;
     39  with TCompilerAPI(API) do begin
     40    RegisterTarget(TTargetJava);
     41  end;
    3742  inherited;
    3843end;
    … …  
    4045procedure TModuleJava.DoUninstall;
    4146begin
     47  with TCompilerAPI(API) do begin
     48    UnregisterTarget(TTargetJava);
     49  end;
    4250  inherited;
    4351end;

  • trunk/Compiler/TranspascalCompiler.lpk

    r75 r77  
    1010      <PathDelim Value="\"/>
    1111      <SearchPaths>
    12         <OtherUnitFiles Value="Analyze;Target;Target\Interpretter;Target\ASM8051;Target\Java;Target\GCC;Target\PHP;Target\Delphi;Target\Dynamic C;Target\XML;Target\NASM;Modules\Pascal;Modules\GCC;Modules\ASM8051;Modules\Brainfuck;Modules\Interpretter;Modules\Delphi;Modules\PHP;Modules\Java"/>
     12        <OtherUnitFiles Value="Analyze;Target;Target\Interpretter;Target\ASM8051;Target\Java;Target\GCC;Target\PHP;Target\Delphi;Target\Dynamic C;Target\XML;Target\NASM;Modules\Pascal;Modules\GCC;Modules\ASM8051;Modules\Brainfuck;Modules\Interpretter;Modules\Delphi;Modules\PHP;Modules\Java;Modules\XML;Modules\DynamicC;Modules\NASM"/>
    1313        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
    1414      </SearchPaths>
    … …  
    2525    </CompilerOptions>
    2626    <Version Minor="1"/>
    27     <Files Count="28">
     27    <Files Count="31">
    2828      <Item1>
    2929        <Filename Value="Compiler.pas"/>
    … …  
    5555      </Item7>
    5656      <Item8>
    57         <Filename Value="Target\Dynamic C\ProducerDynamicC.pas"/>
    58         <UnitName Value="ProducerDynamicC"/>
     57        <Filename Value="Modules\ASM8051\ProducerASM8051.pas"/>
     58        <UnitName Value="ProducerASM8051"/>
    5959      </Item8>
    6060      <Item9>
    61         <Filename Value="Modules\ASM8051\ProducerASM8051.pas"/>
    62         <UnitName Value="ProducerASM8051"/>
     61        <Filename Value="Modules\ASM8051\TargetASM8051.pas"/>
     62        <UnitName Value="TargetASM8051"/>
    6363      </Item9>
    6464      <Item10>
    65         <Filename Value="Modules\ASM8051\TargetASM8051.pas"/>
    66         <UnitName Value="TargetASM8051"/>
     65        <Filename Value="Modules\GCC\TargetGCC.pas"/>
     66        <UnitName Value="TargetGCC"/>
    6767      </Item10>
    6868      <Item11>
    69         <Filename Value="Modules\GCC\TargetGCC.pas"/>
    70         <UnitName Value="TargetGCC"/>
     69        <Filename Value="Modules\GCC\ProducerGCC.pas"/>
     70        <UnitName Value="ProducerGCC"/>
    7171      </Item11>
    7272      <Item12>
    73         <Filename Value="Modules\GCC\ProducerGCC.pas"/>
    74         <UnitName Value="ProducerGCC"/>
     73        <Filename Value="Modules\Delphi\ProducerDelphi.pas"/>
     74        <UnitName Value="ProducerDelphi"/>
    7575      </Item12>
    7676      <Item13>
    77         <Filename Value="Modules\Delphi\ProducerDelphi.pas"/>
    78         <UnitName Value="ProducerDelphi"/>
     77        <Filename Value="Modules\Delphi\ModuleDelphi.pas"/>
     78        <UnitName Value="ModuleDelphi"/>
    7979      </Item13>
    8080      <Item14>
    81         <Filename Value="Modules\Delphi\ModuleDelphi.pas"/>
    82         <UnitName Value="ModuleDelphi"/>
     81        <Filename Value="Modules\Interpretter\ModuleInterpretter.pas"/>
     82        <UnitName Value="ModuleInterpretter"/>
    8383      </Item14>
    8484      <Item15>
    85         <Filename Value="Target\PHP\TargetPHP.pas"/>
    86         <UnitName Value="TargetPHP"/>
     85        <Filename Value="Modules\Pascal\ModulePascal.pas"/>
     86        <UnitName Value="ModulePascal"/>
    8787      </Item15>
    8888      <Item16>
    89         <Filename Value="Target\Java\TargetJava.pas"/>
    90         <UnitName Value="TargetJava"/>
     89        <Filename Value="CompilerAPI.pas"/>
     90        <UnitName Value="CompilerAPI"/>
    9191      </Item16>
    9292      <Item17>
    93         <Filename Value="Target\XML\TargetXML.pas"/>
    94         <UnitName Value="TargetXML"/>
     93        <Filename Value="Modules\GCC\ModuleGCC.pas"/>
     94        <UnitName Value="ModuleGCC"/>
    9595      </Item17>
    9696      <Item18>
    97         <Filename Value="Modules\Interpretter\ModuleInterpretter.pas"/>
    98         <UnitName Value="ModuleInterpretter"/>
     97        <Filename Value="SourceConvertor.pas"/>
     98        <UnitName Value="SourceConvertor"/>
    9999      </Item18>
    100100      <Item19>
    101         <Filename Value="Target\NASM\TargetNASM.pas"/>
    102         <UnitName Value="TargetNASM"/>
     101        <Filename Value="Modules\Brainfuck\ModuleBrainfuck.pas"/>
     102        <UnitName Value="ModuleBrainfuck"/>
    103103      </Item19>
    104104      <Item20>
    105         <Filename Value="Modules\Pascal\ModulePascal.pas"/>
    106         <UnitName Value="ModulePascal"/>
     105        <Filename Value="Modules\PHP\ModulePHP.pas"/>
     106        <UnitName Value="ModulePHP"/>
    107107      </Item20>
    108108      <Item21>
    109         <Filename Value="CompilerAPI.pas"/>
    110         <UnitName Value="CompilerAPI"/>
     109        <Filename Value="Modules\Java\ModuleJava.pas"/>
     110        <UnitName Value="ModuleJava"/>
    111111      </Item21>
    112112      <Item22>
    113         <Filename Value="Modules\GCC\ModuleGCC.pas"/>
    114         <UnitName Value="ModuleGCC"/>
     113        <Filename Value="Modules\ASM8051\ModuleASM8051.pas"/>
     114        <UnitName Value="ModuleASM8051"/>
    115115      </Item22>
    116116      <Item23>
    117         <Filename Value="SourceConvertor.pas"/>
    118         <UnitName Value="SourceConvertor"/>
     117        <Filename Value="Modules\Java\TargetJava.pas"/>
     118        <UnitName Value="TargetJava"/>
    119119      </Item23>
    120120      <Item24>
    121         <Filename Value="Modules\Brainfuck\ModuleBrainfuck.pas"/>
    122         <UnitName Value="ModuleBrainfuck"/>
     121        <Filename Value="Modules\PHP\TargetPHP.pas"/>
     122        <UnitName Value="TargetPHP"/>
    123123      </Item24>
    124124      <Item25>
    125         <Filename Value="Modules\PHP\ModulePHP.pas"/>
    126         <UnitName Value="ModulePHP"/>
     125        <Filename Value="Modules\XML\ModuleXML.pas"/>
     126        <UnitName Value="ModuleXML"/>
    127127      </Item25>
    128128      <Item26>
    129         <Filename Value="Modules\Java\ModuleJava.pas"/>
    130         <UnitName Value="ModuleJava"/>
     129        <Filename Value="Modules\XML\TargetXML.pas"/>
     130        <UnitName Value="TargetXML"/>
    131131      </Item26>
    132132      <Item27>
    133         <Filename Value="Modules\ASM8051\ModuleASM8051.pas"/>
    134         <UnitName Value="ModuleASM8051"/>
     133        <Filename Value="Modules\DynamicC\ModuleDynamicC.pas"/>
     134        <UnitName Value="ModuleDynamicC"/>
    135135      </Item27>
    136136      <Item28>
    137         <Filename Value="Target\GCC\ProducerGCC.pas"/>
    138         <UnitName Value="ProducerGCC"/>
     137        <Filename Value="Modules\DynamicC\ProducerDynamicC.pas"/>
     138        <UnitName Value="ProducerDynamicC"/>
    139139      </Item28>
     140      <Item29>
     141        <Filename Value="Modules\NASM\TargetNASM.pas"/>
     142        <UnitName Value="TargetNASM"/>
     143      </Item29>
     144      <Item30>
     145        <Filename Value="Modules\DynamicC\TargetDynamicC.pas"/>
     146        <UnitName Value="TargetDynamicC"/>
     147      </Item30>
     148      <Item31>
     149        <Filename Value="Modules\NASM\ModuleNASM.pas"/>
     150        <UnitName Value="ModuleNASM"/>
     151      </Item31>
    140152    </Files>
    141153    <CompatibilityMode Value="True"/>

  • trunk/Compiler/TranspascalCompiler.pas

    r75 r77  
    1010uses
    1111  Compiler, SourceCodePascal, Producer, Analyzer, Target, Executor,
    12   AnalyzerPascal, ProducerDynamicC, ProducerASM8051, TargetASM8051, TargetGCC,
    13   ProducerGCC, ProducerDelphi, ModuleDelphi, TargetPHP, TargetJava, TargetXML,
    14   ModuleInterpretter, TargetNASM, ModulePascal, CompilerAPI, ModuleGCC,
    15   SourceConvertor, ModuleBrainfuck, ModulePHP, ModuleJava, ModuleASM8051,
    16   LazarusPackageIntf;
     12  AnalyzerPascal, ProducerASM8051, TargetASM8051, TargetGCC, ProducerGCC,
     13  ProducerDelphi, ModuleDelphi, ModuleInterpretter, ModulePascal, CompilerAPI,
     14  ModuleGCC, SourceConvertor, ModuleBrainfuck, ModulePHP, ModuleJava,
     15  ModuleASM8051, TargetJava, TargetPHP, ModuleXML, TargetXML, ModuleDynamicC,
     16  ProducerDynamicC, TargetNASM, TargetDynamicC, ModuleNASM, LazarusPackageIntf;
    1717
    1818implementation

  • trunk/IDE/Core.pas

    r75 r77  
    6262  Core: TCore;
    6363
     64
    6465implementation
    6566
    … …  
    6869uses
    6970  FormMain, ProjectTemplates, IDEModulePascal, ModulePascal, ModuleGCC,
    70   ModuleInterpretter, ModuleDelphi, ModulePHP, ModuleJava, ModuleASM8051;
     71  ModuleInterpretter, ModuleDelphi, ModulePHP, ModuleJava, ModuleASM8051,
     72  ModuleXML, ModuleNASM;
    7173
    7274{ TCore }
    … …  
    216218    RegisterModule(TModuleJava.Create(nil));
    217219    RegisterModule(TModuleASM8051.Create(nil));
    218     //RegisterModule(TModuleXML.Create(nil));
    219     //RegisterModule(TModuleNASM.Create(nil));
     220    RegisterModule(TModuleXML.Create(nil));
     221    RegisterModule(TModuleNASM.Create(nil));
    220222    Modules.Perform(maEnable);
    221223    Modules.Perform(maStart);
    … …  
    350352destructor TCustomCompiler.Destroy;
    351353begin
    352   TargetFiles.Free;
    353   SourceFiles.Free;
    354   inherited Destroy;
    355 end;
    356 
     354  FreeAndNil(TargetFiles);
     355  FreeAndNil(SourceFiles);
     356  inherited;
     357end;
    357358
    358359end.

  • trunk/IDE/Languages/Transpascal.cs.po

    r75 r77  
    7171
    7272#: tformmain.aabout.caption
    73 msgctxt "tformmain.aabout.caption"
    7473msgid "About..."
    75 msgstr "O aplikaci..."
     74msgstr ""
    7675
    7776#: tformmain.abuild.caption
    78 msgctxt "tformmain.abuild.caption"
    7977msgid "Build"
    80 msgstr "Sestavit"
     78msgstr ""
    8179
    8280#: tformmain.aexit.caption
    83 msgctxt "tformmain.aexit.caption"
    8481msgid "Exit"
    85 msgstr "Ukončit"
     82msgstr ""
    8683
    8784#: tformmain.ahelp.caption
    8885msgctxt "tformmain.ahelp.caption"
    8986msgid "Help"
    90 msgstr "Nápověda"
     87msgstr ""
    9188
    9289#: tformmain.ahomepage.caption
    93 msgctxt "tformmain.ahomepage.caption"
    9490msgid "Homepage"
    95 msgstr "Domovská stránka"
     91msgstr ""
    9692
    9793#: tformmain.apause.caption
    98 msgctxt "tformmain.apause.caption"
    9994msgid "Pause"
    100 msgstr "Pozastavit"
     95msgstr ""
    10196
    10297#: tformmain.aprojectclose.caption
    103 msgctxt "tformmain.aprojectclose.caption"
    10498msgid "Close"
    105 msgstr "Zavřít"
     99msgstr ""
    106100
    107101#: tformmain.aprojectnew.caption
    108 msgctxt "tformmain.aprojectnew.caption"
    109102msgid "New..."
    110 msgstr "Nový..."
     103msgstr ""
    111104
    112105#: tformmain.aprojectnew.hint
    113 msgctxt "tformmain.aprojectnew.hint"
    114106msgid "Create new project"
    115 msgstr "Vytvořit nový projekt"
     107msgstr ""
    116108
    117109#: tformmain.aprojectopen.caption
    118 msgctxt "tformmain.aprojectopen.caption"
    119110msgid "Open..."
    120 msgstr "Otevřít..."
     111msgstr ""
    121112
    122113#: tformmain.aprojectopen.hint
    123 msgctxt "tformmain.aprojectopen.hint"
    124114msgid "Open project"
    125 msgstr "Otevřít projekt"
     115msgstr ""
    126116
    127117#: tformmain.aprojectsave.caption
    128 msgctxt "tformmain.aprojectsave.caption"
    129118msgid "Save"
    130 msgstr "Uložit"
     119msgstr ""
    131120
    132121#: tformmain.aprojectsave.hint
    133 msgctxt "tformmain.aprojectsave.hint"
    134122msgid "Save project to disk"
    135 msgstr "Uložit projekt na disk"
     123msgstr ""
    136124
    137125#: tformmain.aprojectsaveas.caption
    138 msgctxt "tformmain.aprojectsaveas.caption"
    139126msgid "Save as..."
    140 msgstr "Uložit jako..."
     127msgstr ""
    141128
    142129#: tformmain.aprojectsaveas.hint
    143 msgctxt "tformmain.aprojectsaveas.hint"
    144130msgid "Save project with custom name"
    145 msgstr "Uložit projekt s vlastním jménem"
     131msgstr ""
    146132
    147133#: tformmain.areset.caption
    148 msgctxt "tformmain.areset.caption"
    149134msgid "Reset"
    150 msgstr "Vynulovat"
     135msgstr ""
    151136
    152137#: tformmain.arun.caption
    153138msgctxt "tformmain.arun.caption"
    154139msgid "Run"
    155 msgstr "Spustit"
     140msgstr ""
    156141
    157142#: tformmain.aruntocursor.caption
    158 msgctxt "tformmain.aruntocursor.caption"
    159143msgid "Run to cursor"
    160 msgstr "Spustit po ukazatel"
     144msgstr ""
    161145
    162146#: tformmain.astepin.caption
    163 msgctxt "tformmain.astepin.caption"
    164147msgid "Step in"
    165 msgstr "Vejít do"
     148msgstr ""
    166149
    167150#: tformmain.astepout.caption
    168 msgctxt "tformmain.astepout.caption"
    169151msgid "Step out"
    170 msgstr "Vyjít ven"
     152msgstr ""
    171153
    172154#: tformmain.astepover.caption
    173 msgctxt "tformmain.astepover.caption"
    174155msgid "Step over"
    175 msgstr "Přejít přes"
     156msgstr ""
    176157
    177158#: tformmain.astop.caption
    178 msgctxt "tformmain.astop.caption"
    179159msgid "Stop"
    180 msgstr "Zastavit"
     160msgstr ""
    181161
    182162#: tformmain.aviewcodetree.caption
    183 msgctxt "tformmain.aviewcodetree.caption"
    184163msgid "Code tree"
    185 msgstr "Strom kódu"
     164msgstr ""
    186165
    187166#: tformmain.aviewcompiledsoruce.caption
    188 msgctxt "tformmain.aviewcompiledsoruce.caption"
    189167msgid "Compiled source"
    190 msgstr "Přeložený zdroj"
     168msgstr ""
    191169
    192170#: tformmain.aviewmessages.caption
    193171msgctxt "tformmain.aviewmessages.caption"
    194172msgid "Messages"
    195 msgstr "Zprávy"
     173msgstr ""
    196174
    197175#: tformmain.aviewobjectinspector.caption
    198 msgctxt "tformmain.aviewobjectinspector.caption"
    199176msgid "Object inspector"
    200 msgstr "Inspektor objektů"
     177msgstr ""
    201178
    202179#: tformmain.aviewoptions.caption
    203 msgctxt "tformmain.aviewoptions.caption"
    204180msgid "Options"
    205 msgstr "Volby"
     181msgstr ""
    206182
    207183#: tformmain.aviewproject.caption
    208 msgctxt "tformmain.aviewproject.caption"
    209184msgid "Project manager"
    210 msgstr "Správce projektu"
     185msgstr ""
    211186
    212187#: tformmain.aviewsourceeditor.caption
    213 msgctxt "tformmain.aviewsourceeditor.caption"
    214188msgid "Source editor"
    215 msgstr "Zdrojový editor"
     189msgstr ""
    216190
    217191#: tformmain.aviewtargets.caption
    218 msgctxt "tformmain.aviewtargets.caption"
    219192msgid "Targets"
    220 msgstr "Cíle"
     193msgstr ""
    221194
    222195#: tformmain.caption
    223 msgctxt "tformmain.caption"
    224196msgid "Transpascal IDE"
    225 msgstr "Transpascal IDE"
     197msgstr ""
    226198
    227199#: tformmain.menuitem1.caption
    228200msgctxt "tformmain.menuitem1.caption"
    229201msgid "Project"
    230 msgstr "Projekt"
     202msgstr ""
    231203
    232204#: tformmain.menuitem15.caption
    233 msgctxt "tformmain.menuitem15.caption"
    234205msgid "View"
    235 msgstr "Zobrazit"
     206msgstr ""
    236207
    237208#: tformmain.menuitem7.caption
    238209msgctxt "tformmain.menuitem7.caption"
    239210msgid "Run"
    240 msgstr "Spustit"
     211msgstr ""
    241212
    242213#: tformmain.menuitem9.caption
    243214msgctxt "tformmain.menuitem9.caption"
    244215msgid "Help"
    245 msgstr "Nápověda"
     216msgstr ""
    246217
    247218#: tformmain.menuitemopenrecent.caption
    248 msgctxt "tformmain.menuitemopenrecent.caption"
    249219msgid "Open recent"
    250 msgstr "Otevřít nedávné"
     220msgstr ""
    251221
    252222#: tformmain.menuitemproducer.caption
    253 msgctxt "tformmain.menuitemproducer.caption"
    254223msgid "Target"
    255 msgstr "Cíl"
     224msgstr ""
    256225
    257226#: tformmain.tabsheetbreakpoints.caption
    258 msgctxt "tformmain.tabsheetbreakpoints.caption"
    259227msgid "Breakpoints"
    260 msgstr "Body zastavení"
     228msgstr ""
    261229
    262230#: tformmain.tabsheetcodetree.caption
    263 msgctxt "tformmain.tabsheetcodetree.caption"
    264231msgid "Code Tree"
    265 msgstr "Strom kódu"
     232msgstr ""
    266233
    267234#: tformmain.tabsheetexternalproducer.caption
    268 msgctxt "tformmain.tabsheetexternalproducer.caption"
    269235msgid "External producer"
    270 msgstr "Vnější generátor"
     236msgstr ""
    271237
    272238#: tformmain.tabsheetmessages.caption
    273239msgctxt "tformmain.tabsheetmessages.caption"
    274240msgid "Messages"
    275 msgstr "Zprávy"
     241msgstr ""
    276242
    277243#: tformmain.tabsheetproject.caption
    278244msgctxt "tformmain.tabsheetproject.caption"
    279245msgid "Project"
    280 msgstr "Projekt"
     246msgstr ""
    281247
    282248#: tformmain.tabsheetsource.caption
    283 msgctxt "tformmain.tabsheetsource.caption"
    284249msgid "Source code"
    285 msgstr "Zdrojový kód"
     250msgstr ""
    286251
    287252#: tformmain.tabsheettarget.caption
    288 msgctxt "tformmain.tabsheettarget.caption"
    289253msgid "Target code"
    290 msgstr "Cílový kód"
     254msgstr ""
    291255
    292256#: tformmain.tabsheettargetproject.caption
    293 msgctxt "tformmain.tabsheettargetproject.caption"
    294257msgid "Target project"
    295 msgstr "Cílový projekt"
    296 
    297 #: tformproject.aadd.caption
    298 msgid "Add"
    299 msgstr ""
    300 
    301 #: tformproject.adelete.caption
    302 msgid "Delete"
    303 msgstr ""
    304 
    305 #: tformproject.arename.caption
    306 msgid "Rename"
    307 msgstr ""
    308 
    309 #: tformproject.ashow.caption
    310 msgid "Show"
    311 msgstr ""
    312 
    313 #: tformproject.caption
    314 #, fuzzy
    315 msgctxt "tformproject.caption"
    316 msgid "Project manager"
    317 msgstr "Správce projektu"
    318 
    319 #: tformtargetcode.caption
    320 #, fuzzy
    321 msgctxt "tformtargetcode.caption"
    322 msgid "Target code"
    323 msgstr "Cílový kód"
    324 
    325 #: tformtargets.atargetoptions.caption
    326 #, fuzzy
    327 msgctxt "tformtargets.atargetoptions.caption"
    328 msgid "Options"
    329 msgstr "Volby"
    330 
    331 #: tformtargets.atargetoptions.hint
    332 msgid "Target options"
    333 msgstr ""
    334 
    335 #: tformtargets.caption
    336 #, fuzzy
    337 msgctxt "tformtargets.caption"
    338 msgid "Targets"
    339 msgstr "Cíle"
    340 
    341 #: tformtargets.listview1.columns[0].caption
    342 msgid "Name"
    343 msgstr ""
    344 
    345 #: tformtargets.listview1.columns[1].caption
    346 #, fuzzy
    347 msgctxt "tformtargets.listview1.columns[1].caption"
    348 msgid "Compiler path"
    349 msgstr "Cesta překladače"
    350 
    351 #: tformtargets.listview1.columns[2].caption
    352 msgid "Executor path"
    353 msgstr ""
    354 
     258msgstr ""
     259

  • trunk/IDE/Languages/Transpascal.pot

    r75 r77  
    161161
    162162#: tformmain.aviewoptions.caption
    163 msgctxt "tformmain.aviewoptions.caption"
    164163msgid "Options"
    165164msgstr ""
    166165
    167166#: tformmain.aviewproject.caption
    168 msgctxt "tformmain.aviewproject.caption"
    169167msgid "Project manager"
    170168msgstr ""
    … …  
    175173
    176174#: tformmain.aviewtargets.caption
    177 msgctxt "tformmain.aviewtargets.caption"
    178175msgid "Targets"
    179176msgstr ""
    … …  
    237234
    238235#: tformmain.tabsheettarget.caption
    239 msgctxt "tformmain.tabsheettarget.caption"
    240236msgid "Target code"
    241237msgstr ""
    … …  
    245241msgstr ""
    246242
    247 #: tformproject.aadd.caption
    248 msgid "Add"
    249 msgstr ""
    250 
    251 #: tformproject.adelete.caption
    252 msgid "Delete"
    253 msgstr ""
    254 
    255 #: tformproject.arename.caption
    256 msgid "Rename"
    257 msgstr ""
    258 
    259 #: tformproject.ashow.caption
    260 msgid "Show"
    261 msgstr ""
    262 
    263 #: tformproject.caption
    264 msgctxt "tformproject.caption"
    265 msgid "Project manager"
    266 msgstr ""
    267 
    268 #: tformtargetcode.caption
    269 msgctxt "tformtargetcode.caption"
    270 msgid "Target code"
    271 msgstr ""
    272 
    273 #: tformtargets.atargetoptions.caption
    274 msgctxt "tformtargets.atargetoptions.caption"
    275 msgid "Options"
    276 msgstr ""
    277 
    278 #: tformtargets.atargetoptions.hint
    279 msgid "Target options"
    280 msgstr ""
    281 
    282 #: tformtargets.caption
    283 msgctxt "tformtargets.caption"
    284 msgid "Targets"
    285 msgstr ""
    286 
    287 #: tformtargets.listview1.columns[0].caption
    288 msgid "Name"
    289 msgstr ""
    290 
    291 #: tformtargets.listview1.columns[1].caption
    292 msgctxt "tformtargets.listview1.columns[1].caption"
    293 msgid "Compiler path"
    294 msgstr ""
    295 
    296 #: tformtargets.listview1.columns[2].caption
    297 msgid "Executor path"
    298 msgstr ""
    299 

  • trunk/Packages/ModularSystem/ModularSystem.pas

    r75 r77  
    2727    FCategory: string;
    2828    FEnabled: Boolean;
     29    FOnUpdate: TNotifyEvent;
    2930    FReleaseTime: TDateTime;
    3031    FRunning: Boolean;
    … …  
    4546    procedure SetManager(AValue: TModuleManager);
    4647    procedure SetRunning(AValue: Boolean);
     48    procedure DoUpdate;
    4749  protected
    4850    procedure DoStart; virtual;
    … …  
    8789    property WebSite: string read FWebSite write FWebSite;
    8890    // Screenshots, reviews, icon, weak dependencies, ...
     91    property OnUpdate: TNotifyEvent read FOnUpdate write FOnUpdate;
    8992  end;
    9093
    … …  
    272275  Module.FManager := Self;
    273276  Module.API := API;
    274   //Modules.Update;
     277  DoUpdate(Self);
    275278end;
    276279
    … …  
    278281begin
    279282  Modules.Remove(Module);
    280   //Modules.Update;
     283  DoUpdate(Self);
    281284end;
    282285
    … …  
    286289  Modules := TModules.Create;
    287290  Modules.OwnsObjects := False;
    288   //Modules.OnUpdate := DoUpdate;
    289291end;
    290292
    … …  
    304306    RootKey := Context.RootKey;
    305307    for I := 0 to Modules.Count - 1 do
    306     with TModule(Modules[I]) do begin
     308    with Modules[I] do begin
    307309      OpenKey(Context.Key + '\' + Identification, True);
    308310      Installed := ReadBoolWithDefault('Installed', Installed);
    … …  
    322324    RootKey := Context.RootKey;
    323325    for I := 0 to Modules.Count - 1 do
    324     with TModule(Modules[I]) do begin
     326    with Modules[I] do begin
    325327      OpenKey(Context.Key + '\' + Identification, True);
    326328      WriteBool('Enabled', Enabled);
    … …  
    342344procedure TModule.DoStart;
    343345begin
    344 
    345346end;
    346347
    347348procedure TModule.DoStop;
    348349begin
    349 
    350350end;
    351351
    352352procedure TModule.DoInstall;
    353353begin
    354 
    355354end;
    356355
    357356procedure TModule.DoUninstall;
    358357begin
    359 
    360358end;
    361359
    362360procedure TModule.DoUpgrade;
    363361begin
    364 
     362end;
     363
     364procedure TModule.DoUpdate;
     365begin
     366  if Assigned(FOnUpdate) then FOnUpdate(Self);
    365367end;
    366368
    … …  
    398400    List.Free;
    399401  end;
    400   //Manager.Modules.Update;
     402  DoUpdate;
    401403end;
    402404
    … …  
    440442  FStartUpTime := Now - StartTime;
    441443  FRunning := True;
    442   //Manager.Modules.Update;
     444  DoUpdate;
    443445end;
    444446
    … …  
    458460  end;
    459461  DoStop;
    460   //Manager.Modules.Update;
     462  DoUpdate;
    461463end;
    462464
    … …  
    482484  FInstalled := True;
    483485  DoInstall;
    484   //Enable; // Auto enable installed module
    485   //Manager.Modules.Update;
     486  Enable; // Auto enable installed module
     487  DoUpdate;
    486488end;
    487489
    … …  
    502504  FInstalled := False;
    503505  DoUninstall;
    504   //Manager.Modules.Update;
     506  DoUpdate;
    505507end;
    506508
    … …  
    514516begin
    515517  if not Enabled or not Installed then Exit;
    516   if Running then try
     518  if Running then
     519  try
    517520    Stop;
    518521    DoUpgrade;
    … …  
    520523    Start;
    521524  end else DoUpgrade;
    522   //Manager.Modules.Update;
     525  DoUpdate;
    523526end;
    524527
    … …  
    540543begin
    541544  FInstalled := Value;
    542   //Manager.Modules.Update;
     545  DoUpdate;
    543546end;
    544547
Note: See TracChangeset for help on using the changeset viewer.