Changeset 42


Ignore:
Timestamp:
Feb 29, 2012, 11:16:44 AM (12 years ago)
Author:
chronos
Message:
  • Added: Targets definition classes.
Location:
trunk
Files:
9 added
2 deleted
10 edited

Legend:

Unmodified
Added
Removed

  • trunk/Compiler/Target/UTargets.pas

    r41 r42  
    1414
    1515uses
    16   UTargetInterpretter;
     16  UTargetInterpretter, UTargetDelphi, UTargetPHP, UTargetJava, UTargetXML,
     17  UTargetASM8051, UTargetGCC;
    1718
    1819procedure RegisterTargets(Compiler: TCompiler);
    1920begin
    2021  Compiler.Targets.Add(TTargetInterpretter.Create);
     22  Compiler.Targets.Add(TTargetDelphi.Create);
     23  Compiler.Targets.Add(TTargetPHP.Create);
     24  Compiler.Targets.Add(TTargetJava.Create);
     25  Compiler.Targets.Add(TTargetGCC.Create);
     26  Compiler.Targets.Add(TTargetASM8051.Create);
     27  Compiler.Targets.Add(TTargetXML.Create);
    2128end;
    2229

  • trunk/Compiler/TranspascalCompiler.lpk

    r41 r42  
    99      <PathDelim Value="\"/>
    1010      <SearchPaths>
    11         <OtherUnitFiles Value="Target;Target\Interpretter;Target\ASM8051;Target\Java;Target\GCC;Target\PHP;Target\Delphi;Target\Dynamic C"/>
     11        <OtherUnitFiles Value="Target;Target\Interpretter;Target\ASM8051;Target\Java;Target\GCC;Target\PHP;Target\Delphi;Target\Dynamic C;Target\XML"/>
    1212        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
    1313      </SearchPaths>
    … …  
    2626    </CompilerOptions>
    2727    <Version Minor="1"/>
    28     <Files Count="13">
     28    <Files Count="19">
    2929      <Item1>
    3030        <Filename Value="UCompiler.pas"/>
    … …  
    7979        <UnitName Value="UTargetInterpretter"/>
    8080      </Item13>
     81      <Item14>
     82        <Filename Value="Target\Delphi\UTargetDelphi.pas"/>
     83        <UnitName Value="UTargetDelphi"/>
     84      </Item14>
     85      <Item15>
     86        <Filename Value="Target\PHP\UTargetPHP.pas"/>
     87        <UnitName Value="UTargetPHP"/>
     88      </Item15>
     89      <Item16>
     90        <Filename Value="Target\Java\UTargetJava.pas"/>
     91        <UnitName Value="UTargetJava"/>
     92      </Item16>
     93      <Item17>
     94        <Filename Value="Target\XML\UTargetXML.pas"/>
     95        <UnitName Value="UTargetXML"/>
     96      </Item17>
     97      <Item18>
     98        <Filename Value="Target\ASM8051\UTargetASM8051.pas"/>
     99        <UnitName Value="UTargetASM8051"/>
     100      </Item18>
     101      <Item19>
     102        <Filename Value="Target\GCC\UTargetGCC.pas"/>
     103        <UnitName Value="UTargetGCC"/>
     104      </Item19>
    81105    </Files>
    82106    <Type Value="RunAndDesignTime"/>

  • trunk/Compiler/TranspascalCompiler.pas

    r41 r42  
    1010  UCompiler, USourceCode, UProducer, UProducerASM8051, UProducerDynamicc,
    1111  UProducerPascal, UProducerGCC, UAnalyzer, UAnalyzerPascal, UTarget,
    12   UExecutor, UTargets, UTargetInterpretter, LazarusPackageIntf;
     12  UExecutor, UTargets, UTargetInterpretter, UTargetDelphi, UTargetPHP,
     13  UTargetJava, UTargetXML, UTargetASM8051, UTargetGCC, LazarusPackageIntf;
    1314
    1415implementation

  • trunk/IDE/Forms/UMainForm.lfm

    r41 r42  
    8989    Top = 26
    9090    Width = 200
    91     ActivePage = TabSheetProject
     91    ActivePage = TabSheetCompiledProject
    9292    Align = alRight
    93     TabIndex = 0
     93    TabIndex = 2
    9494    TabOrder = 3
    9595    TabPosition = tpRight
    … …  
    148148  object MainMenu1: TMainMenu
    149149    Images = ImageList1
    150     left = 624
    151     top = 8
     150    left = 115
     151    top = 160
    152152    object MenuItem1: TMenuItem
    153153      Caption = 'Project'
    … …  
    474474      end
    475475      object MenuItemProducer: TMenuItem
    476         Caption = 'Producer'
     476        Caption = 'Target'
    477477      end
    478478    end
    … …  
    540540      end
    541541      object MenuItem24: TMenuItem
    542         Action = AViewProducers
     542        Action = AViewTargets
    543543      end
    544544    end
    … …  
    591591  object ActionList1: TActionList
    592592    Images = ImageList1
    593     left = 624
    594     top = 64
     593    left = 112
     594    top = 216
    595595    object AProjectNew: TAction
    596596      Category = 'Project'
    … …  
    688688      OnExecute = AViewCompiledSoruceExecute
    689689    end
    690     object AViewProducers: TAction
     690    object AViewTargets: TAction
    691691      Category = 'View'
    692       Caption = 'Producers'
    693       OnExecute = AViewProducersExecute
     692      Caption = 'Targets'
     693      OnExecute = AViewTargetsExecute
    694694    end
    695695  end
    … …  
    707707  end
    708708  object ImageList1: TImageList
    709     left = 624
    710     top = 112
     709    left = 344
     710    top = 184
    711711    Bitmap = {
    712712      4C690E0000001000000010000000000000000000000000000000000000000000

  • trunk/IDE/Forms/UMainForm.lrt

    r41 r42  
    1111TMAINFORM.MENUITEM12.CAPTION=-
    1212TMAINFORM.MENUITEM7.CAPTION=Run
    13 TMAINFORM.MENUITEMPRODUCER.CAPTION=Producer
     13TMAINFORM.MENUITEMPRODUCER.CAPTION=Target
    1414TMAINFORM.MENUITEM15.CAPTION=View
    1515TMAINFORM.MENUITEM22.CAPTION=-
    … …  
    3636TMAINFORM.AVIEWCODETREE.CAPTION=Code tree
    3737TMAINFORM.AVIEWCOMPILEDSORUCE.CAPTION=Compiled source
    38 TMAINFORM.AVIEWPRODUCERS.CAPTION=Producers
     38TMAINFORM.AVIEWTARGETS.CAPTION=Targets

  • trunk/IDE/Forms/UMainForm.pas

    r41 r42  
    2929  TMainForm = class(TForm)
    3030    ABuild: TAction;
    31     AViewProducers: TAction;
     31    AViewTargets: TAction;
    3232    AViewCompiledSoruce: TAction;
    3333    AViewCodeTree: TAction;
    … …  
    114114    procedure AViewMessagesExecute(Sender: TObject);
    115115    procedure AViewOptionsExecute(Sender: TObject);
    116     procedure AViewProducersExecute(Sender: TObject);
     116    procedure AViewTargetsExecute(Sender: TObject);
    117117    procedure AViewProjectExecute(Sender: TObject);
    118118    procedure AViewSourceEditorExecute(Sender: TObject);
    … …  
    156156uses
    157157  UMessagesForm, UCodeForm, UProjectManager, UCommon, UAboutForm, UFormOptions,
    158   UCompilersForm, UTarget, UAnalyzer, UProducer;
     158  UFormTargets, UTarget, UAnalyzer, UProducer;
    159159
    160160resourcestring
    … …  
    250250end;
    251251
    252 procedure TMainForm.AViewProducersExecute(Sender: TObject);
    253 begin
    254   FormProducers.Show;
     252procedure TMainForm.AViewTargetsExecute(Sender: TObject);
     253begin
     254  FormTargets.Show;
    255255end;
    256256

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

    r41 r42  
    102102msgstr "Cesta vykonání"
    103103
     104#: tformtargets.caption
     105msgctxt "tformtargets.caption"
     106msgid "Targets"
     107msgstr ""
     108
     109#: tformtargets.listview1.columns[0].caption
     110msgctxt "tformtargets.listview1.columns[0].caption"
     111msgid "Name"
     112msgstr "Jméno"
     113
     114#: tformtargets.listview1.columns[1].caption
     115msgctxt "tformtargets.listview1.columns[1].caption"
     116msgid "Execution path"
     117msgstr "Cesta vykonání"
     118
    104119#: tmainform.aabout.caption
    105120msgid "About..."
    … …  
    183198msgstr "Volby"
    184199
    185 #: tmainform.aviewproducers.caption
    186 msgctxt "tmainform.aviewproducers.caption"
    187 msgid "Producers"
    188 msgstr "Tvůrci"
    189 
    190200#: tmainform.aviewproject.caption
    191201msgctxt "tmainform.aviewproject.caption"
    … …  
    197207msgstr "Zdrojový editor"
    198208
     209#: tmainform.aviewtargets.caption
     210msgctxt "tmainform.aviewtargets.caption"
     211msgid "Targets"
     212msgstr ""
     213
    199214#: tmainform.caption
    200215msgid "Transpascal IDE"
    … …  
    234249
    235250#: tmainform.menuitemproducer.caption
    236 msgid "Producer"
     251#, fuzzy
     252#| msgid "Producer"
     253msgid "Target"
    237254msgstr "Tvůrce"
    238255
    … …  
    317334
    318335#: ucompilersform.scompilerpath
     336msgctxt "ucompilersform.scompilerpath"
     337msgid "Compiler path"
     338msgstr "Cesta překladače"
     339
     340#: uformtargets.scompileroptions
     341msgctxt "uformtargets.scompileroptions"
     342msgid "Compiler options"
     343msgstr "Volby překladače"
     344
     345#: uformtargets.scompilerpath
     346msgctxt "uformtargets.scompilerpath"
    319347msgid "Compiler path"
    320348msgstr "Cesta překladače"

  • trunk/IDE/Languages/Transpascal.po

    r41 r42  
    9494msgstr ""
    9595
     96#: tformtargets.caption
     97msgctxt "tformtargets.caption"
     98msgid "Targets"
     99msgstr ""
     100
     101#: tformtargets.listview1.columns[0].caption
     102msgctxt "TFORMTARGETS.LISTVIEW1.COLUMNS[0].CAPTION"
     103msgid "Name"
     104msgstr ""
     105
     106#: tformtargets.listview1.columns[1].caption
     107msgctxt "TFORMTARGETS.LISTVIEW1.COLUMNS[1].CAPTION"
     108msgid "Execution path"
     109msgstr ""
     110
    96111#: tmainform.aabout.caption
    97112msgid "About..."
    … …  
    175190msgstr ""
    176191
    177 #: tmainform.aviewproducers.caption
    178 msgctxt "TMAINFORM.AVIEWPRODUCERS.CAPTION"
    179 msgid "Producers"
    180 msgstr ""
    181 
    182192#: tmainform.aviewproject.caption
    183193msgctxt "tmainform.aviewproject.caption"
    … …  
    189199msgstr ""
    190200
     201#: tmainform.aviewtargets.caption
     202msgctxt "TMAINFORM.AVIEWTARGETS.CAPTION"
     203msgid "Targets"
     204msgstr ""
     205
    191206#: tmainform.caption
    192207msgid "Transpascal IDE"
    … …  
    226241
    227242#: tmainform.menuitemproducer.caption
    228 msgid "Producer"
     243msgid "Target"
    229244msgstr ""
    230245
    … …  
    309324
    310325#: ucompilersform.scompilerpath
     326msgctxt "ucompilersform.scompilerpath"
     327msgid "Compiler path"
     328msgstr ""
     329
     330#: uformtargets.scompileroptions
     331msgctxt "uformtargets.scompileroptions"
     332msgid "Compiler options"
     333msgstr ""
     334
     335#: uformtargets.scompilerpath
     336msgctxt "uformtargets.scompilerpath"
    311337msgid "Compiler path"
    312338msgstr ""

  • trunk/IDE/Transpascal.lpi

    r41 r42  
    190190      </Unit11>
    191191      <Unit12>
    192         <Filename Value="Forms\UCompilersForm.pas"/>
    193         <IsPartOfProject Value="True"/>
    194         <ComponentName Value="FormProducers"/>
    195         <HasResources Value="True"/>
    196         <ResourceBaseClass Value="Form"/>
    197         <UnitName Value="UCompilersForm"/>
     192        <Filename Value="Forms\UFormTargets.pas"/>
     193        <IsPartOfProject Value="True"/>
     194        <ComponentName Value="FormTargets"/>
     195        <HasResources Value="True"/>
     196        <ResourceBaseClass Value="Form"/>
     197        <UnitName Value="UFormTargets"/>
    198198      </Unit12>
    199199      <Unit13>

  • trunk/IDE/Transpascal.lpr

    r40 r42  
    1111  UTextSource, UProject, UApplicationInfo, TranspascalCompiler, UProjectManager, UCodeForm, UMessagesForm,
    1212  UCompiledForm, UCodeTreeForm, TemplateGenerics, CoolTranslator, Common,
    13   UAboutForm, UFormOptions, UCompilersForm, UCompilerSettingsForm;
     13  UAboutForm, UFormOptions, UFormTargets, UCompilerSettingsForm;
    1414
    1515{$R *.res}
    … …  
    3838  Application.CreateForm(TFormOptions, FormOptions);
    3939  Application.CreateForm(TCompilerSettingsForm, CompilerSettingsForm);
    40   Application.CreateForm(TFormProducers, FormProducers);
     40  Application.CreateForm(TFormTargets, FormTargets);
    4141  Application.Run;
    4242end.
Note: See TracChangeset for help on using the changeset viewer.