Changeset 81 for branches


Ignore:
Timestamp:
Oct 22, 2010, 4:16:35 PM (14 years ago)
Author:
george
Message:
  • Added: Partial support for multiple analyzers.
Location:
branches/Transpascal
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • branches/Transpascal/Compiler/UCompiler.pas

    r77 r81  
    1313type
    1414  TProducerType = (ptGCCC, ptDynamicC, ptPascal, ptAssembler, ptXML);
     15  TAnalyzerType = (ptCustomPascal, ptDelphi);
    1516
    1617  TErrorMessage = class
    … …  
    6061  ProducerTypeName: array[TProducerType] of string = (
    6162    'GCC C', 'Rabbit Dynamic C', 'Generic Pascal', 'Assembler', 'XML');
    62 
     63  AnalyzerTypeName: array[TAnalyzerType] of string = (
     64    'Custom pascal', 'Delphi');
    6365
    6466implementation

  • branches/Transpascal/Compiler/USourceCode.pas

    r80 r81  
    153153
    154154  TType = class
     155    ForwardDeclared: Boolean;
    155156    Internal: Boolean;
    156157    Parent: TTypeList;

  • branches/Transpascal/Forms/UMainForm.lfm

    r78 r81  
    11object MainForm: TMainForm
    2   Left = 142
     2  Left = 362
    33  Height = 501
    44  Top = 113
    … …  
    4242    TabOrder = 2
    4343    object ComboBoxTargetSelection: TComboBox
    44       Left = 1
     44      Left = 192
    4545      Height = 21
    4646      Top = 2
    4747      Width = 135
     48      Align = alLeft
    4849      ItemHeight = 13
    4950      ItemIndex = 1
    … …  
    6061    end
    6162    object Button1: TButton
    62       Left = 136
    63       Height = 22
     63      Left = 327
     64      Height = 24
    6465      Top = 2
    6566      Width = 59
    6667      Action = ABuild
     68      Align = alLeft
    6769      TabOrder = 1
    6870    end
    6971    object CheckBoxLogParsing: TCheckBox
    70       Left = 195
    71       Height = 17
     72      Left = 386
     73      Height = 24
    7274      Top = 2
    7375      Width = 105
     76      Align = alLeft
    7477      Caption = 'Log parsing to file'
    7578      TabOrder = 2
     79    end
     80    object ComboBoxAnalyzerType: TComboBox
     81      Left = 40
     82      Height = 21
     83      Top = 2
     84      Width = 124
     85      Align = alLeft
     86      ItemHeight = 13
     87      Style = csDropDownList
     88      TabOrder = 3
     89    end
     90    object Label1: TLabel
     91      Left = 1
     92      Height = 24
     93      Top = 2
     94      Width = 39
     95      Align = alLeft
     96      Alignment = taCenter
     97      AutoSize = False
     98      BorderSpacing.CellAlignVertical = ccaCenter
     99      Caption = 'From:'
     100      Layout = tlCenter
     101      ParentColor = False
     102    end
     103    object Label2: TLabel
     104      Left = 164
     105      Height = 24
     106      Top = 2
     107      Width = 28
     108      Align = alLeft
     109      Alignment = taCenter
     110      AutoSize = False
     111      Caption = 'To:'
     112      Layout = tlCenter
     113      ParentColor = False
    76114    end
    77115  end
    … …  
    141179      Caption = 'Build'
    142180      OnExecute = ABuildExecute
     181      ShortCut = 120
    143182    end
    144183  end

  • branches/Transpascal/Forms/UMainForm.pas

    r78 r81  
    3030    Button1: TButton;
    3131    CheckBoxLogParsing: TCheckBox;
     32    ComboBoxAnalyzerType: TComboBox;
    3233    ComboBoxTargetSelection: TComboBox;
    3334    CoolDockClient1: TCoolDockClient;
    3435    CoolDockMaster1: TCoolDockMaster;
     36    Label1: TLabel;
     37    Label2: TLabel;
    3538    MainMenu1: TMainMenu;
    3639    MenuItem1: TMenuItem;
    … …  
    162165      ComboBoxTargetSelection.ItemIndex :=
    163166        ReadIntegerWithDefault('ProducerType', 0);
     167      ComboBoxAnalyzerType.ItemIndex :=
     168        ReadIntegerWithDefault('AnalyzerType', 0);
    164169      CheckBoxLogParsing.Checked := ReadBoolWithDefault('LogParsing', False);
    165170    finally
    … …  
    177182      WriteBool('ReopenLastOpenedFile', ReopenLastOpenedFile);
    178183      WriteInteger('ProducerType', ComboBoxTargetSelection.ItemIndex);
     184      WriteInteger('AnalyzerType', ComboBoxAnalyzerType.ItemIndex);
    179185      WriteBool('LogParsing', CheckBoxLogParsing.Checked);
    180186    finally
    … …  
    203209var
    204210  ProducerType: TProducerType;
     211  AnalyzerType: TAnalyzerType;
    205212begin
    206213  DebugLog.FileName := 'DebugLog.txt';
    … …  
    215222  for ProducerType := Low(ProducerType) to High(ProducerType) do
    216223    ComboBoxTargetSelection.AddItem(ProducerTypeName[ProducerType], nil);
     224  ComboBoxAnalyzerType.Clear;
     225  for AnalyzerType := Low(AnalyzerType) to High(AnalyzerType) do
     226    ComboBoxAnalyzerType.AddItem(AnalyzerTypeName[AnalyzerType], nil);
    217227end;
    218228

  • branches/Transpascal/Transpascal.lpi

    r80 r81  
    5454        <IsPartOfProject Value="True"/>
    5555        <UnitName Value="Transpascal"/>
    56         <EditorIndex Value="11"/>
     56        <EditorIndex Value="7"/>
    5757        <WindowIndex Value="0"/>
    5858        <TopLine Value="1"/>
    … …  
    6969        <ResourceBaseClass Value="Form"/>
    7070        <UnitName Value="UMainForm"/>
    71         <EditorIndex Value="10"/>
    72         <WindowIndex Value="0"/>
    73         <TopLine Value="255"/>
    74         <CursorPos X="29" Y="267"/>
     71        <IsVisibleTab Value="True"/>
     72        <EditorIndex Value="6"/>
     73        <WindowIndex Value="0"/>
     74        <TopLine Value="205"/>
     75        <CursorPos X="1" Y="223"/>
    7576        <UsageCount Value="215"/>
    7677        <Loaded Value="True"/>
    … …  
    211212        <Filename Value="Compiler\UCompiler.pas"/>
    212213        <UnitName Value="UCompiler"/>
    213         <EditorIndex Value="7"/>
    214         <WindowIndex Value="0"/>
    215         <TopLine Value="1"/>
    216         <CursorPos X="62" Y="8"/>
     214        <EditorIndex Value="3"/>
     215        <WindowIndex Value="0"/>
     216        <TopLine Value="55"/>
     217        <CursorPos X="15" Y="63"/>
    217218        <UsageCount Value="103"/>
    218219        <Loaded Value="True"/>
    … …  
    221222        <Filename Value="Compiler\USourceCode.pas"/>
    222223        <UnitName Value="USourceCode"/>
    223         <EditorIndex Value="12"/>
    224         <WindowIndex Value="0"/>
    225         <TopLine Value="211"/>
    226         <CursorPos X="3" Y="224"/>
     224        <EditorIndex Value="8"/>
     225        <WindowIndex Value="0"/>
     226        <TopLine Value="141"/>
     227        <CursorPos X="30" Y="155"/>
    227228        <UsageCount Value="100"/>
    228229        <Loaded Value="True"/>
    … …  
    231232        <Filename Value="Compiler\Analyze\UParser.pas"/>
    232233        <UnitName Value="UParser"/>
    233         <EditorIndex Value="8"/>
    234         <WindowIndex Value="0"/>
    235         <TopLine Value="75"/>
    236         <CursorPos X="1" Y="88"/>
     234        <EditorIndex Value="4"/>
     235        <WindowIndex Value="0"/>
     236        <TopLine Value="24"/>
     237        <CursorPos X="19" Y="85"/>
    237238        <UsageCount Value="103"/>
    238239        <Loaded Value="True"/>
    … …  
    302303        <Filename Value="Compiler\Produce\UProducerTreeView.pas"/>
    303304        <UnitName Value="UProducerTreeView"/>
    304         <EditorIndex Value="4"/>
    305305        <WindowIndex Value="0"/>
    306306        <TopLine Value="141"/>
    307307        <CursorPos X="81" Y="154"/>
    308         <UsageCount Value="25"/>
    309         <Loaded Value="True"/>
     308        <UsageCount Value="24"/>
    310309      </Unit26>
    311310      <Unit27>
    … …  
    351350        <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    352351        <UnitName Value="UProducerDynamicC"/>
    353         <EditorIndex Value="3"/>
     352        <EditorIndex Value="1"/>
    354353        <WindowIndex Value="0"/>
    355354        <TopLine Value="270"/>
    … …  
    361360        <Filename Value="Compiler\Produce\UProducerAsm8051.pas"/>
    362361        <UnitName Value="UProducerAsm8051"/>
    363         <EditorIndex Value="5"/>
    364362        <WindowIndex Value="0"/>
    365363        <TopLine Value="144"/>
    366364        <CursorPos X="56" Y="157"/>
    367         <UsageCount Value="21"/>
    368         <Loaded Value="True"/>
     365        <UsageCount Value="20"/>
    369366      </Unit33>
    370367      <Unit34>
    371368        <Filename Value="Compiler\Produce\UProducerPascal.pas"/>
    372369        <UnitName Value="UProducerPascal"/>
    373         <EditorIndex Value="6"/>
     370        <EditorIndex Value="2"/>
    374371        <WindowIndex Value="0"/>
    375372        <TopLine Value="301"/>
    … …  
    381378        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    382379        <UnitName Value="UPascalParser"/>
    383         <IsVisibleTab Value="True"/>
    384380        <EditorIndex Value="0"/>
    385381        <WindowIndex Value="0"/>
    386         <TopLine Value="571"/>
    387         <CursorPos X="57" Y="579"/>
    388         <UsageCount Value="84"/>
     382        <TopLine Value="25"/>
     383        <CursorPos X="66" Y="47"/>
     384        <UsageCount Value="85"/>
    389385        <Loaded Value="True"/>
    390386      </Unit35>
    … …  
    448444        <IsPartOfProject Value="True"/>
    449445        <UnitName Value="UDebugLog"/>
    450         <EditorIndex Value="2"/>
    451446        <WindowIndex Value="0"/>
    452447        <TopLine Value="36"/>
    453448        <CursorPos X="30" Y="50"/>
    454         <UsageCount Value="75"/>
    455         <Loaded Value="True"/>
     449        <UsageCount Value="76"/>
    456450        <DefaultSyntaxHighlighter Value="Delphi"/>
    457451      </Unit43>
    … …  
    474468        <Filename Value="Compiler\Produce\UProducerGCCC.pas"/>
    475469        <UnitName Value="UProducerGCCC"/>
    476         <EditorIndex Value="9"/>
     470        <EditorIndex Value="5"/>
    477471        <WindowIndex Value="0"/>
    478472        <TopLine Value="270"/>
    479473        <CursorPos X="30" Y="278"/>
    480         <UsageCount Value="15"/>
     474        <UsageCount Value="16"/>
    481475        <Loaded Value="True"/>
    482476      </Unit46>
    … …  
    484478        <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\packages\fcl-base\src\contnrs.pp"/>
    485479        <UnitName Value="contnrs"/>
    486         <EditorIndex Value="1"/>
    487480        <WindowIndex Value="0"/>
    488481        <TopLine Value="66"/>
    489482        <CursorPos X="14" Y="91"/>
    490483        <UsageCount Value="10"/>
    491         <Loaded Value="True"/>
    492484      </Unit47>
    493485    </Units>
    … …  
    495487      <Position1>
    496488        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    497         <Caret Line="240" Column="1" TopLine="230"/>
     489        <Caret Line="14" Column="13" TopLine="1"/>
    498490      </Position1>
    499491      <Position2>
    500492        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    501         <Caret Line="241" Column="1" TopLine="230"/>
     493        <Caret Line="13" Column="17" TopLine="1"/>
    502494      </Position2>
    503495      <Position3>
    504496        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    505         <Caret Line="14" Column="12" TopLine="1"/>
     497        <Caret Line="14" Column="1" TopLine="1"/>
    506498      </Position3>
    507499      <Position4>
    508500        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    509         <Caret Line="17" Column="4" TopLine="1"/>
     501        <Caret Line="13" Column="22" TopLine="1"/>
    510502      </Position4>
    511503      <Position5>
    512504        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    513         <Caret Line="16" Column="15" TopLine="1"/>
     505        <Caret Line="575" Column="24" TopLine="559"/>
    514506      </Position5>
    515507      <Position6>
    516508        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    517         <Caret Line="14" Column="13" TopLine="1"/>
     509        <Caret Line="668" Column="6" TopLine="648"/>
    518510      </Position6>
    519511      <Position7>
    520512        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    521         <Caret Line="13" Column="17" TopLine="1"/>
     513        <Caret Line="446" Column="24" TopLine="439"/>
    522514      </Position7>
    523515      <Position8>
    524516        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    525         <Caret Line="14" Column="1" TopLine="1"/>
     517        <Caret Line="487" Column="28" TopLine="480"/>
    526518      </Position8>
    527519      <Position9>
    528520        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    529         <Caret Line="13" Column="22" TopLine="1"/>
     521        <Caret Line="575" Column="27" TopLine="560"/>
    530522      </Position9>
    531523      <Position10>
    532524        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    533         <Caret Line="575" Column="24" TopLine="559"/>
     525        <Caret Line="624" Column="29" TopLine="615"/>
    534526      </Position10>
    535527      <Position11>
    536528        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    537         <Caret Line="668" Column="6" TopLine="648"/>
     529        <Caret Line="612" Column="70" TopLine="599"/>
    538530      </Position11>
    539531      <Position12>
    540532        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    541         <Caret Line="446" Column="24" TopLine="439"/>
     533        <Caret Line="649" Column="38" TopLine="635"/>
    542534      </Position12>
    543535      <Position13>
    544536        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    545         <Caret Line="487" Column="28" TopLine="480"/>
     537        <Caret Line="627" Column="27" TopLine="623"/>
    546538      </Position13>
    547539      <Position14>
    548540        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    549         <Caret Line="575" Column="27" TopLine="560"/>
     541        <Caret Line="612" Column="63" TopLine="611"/>
    550542      </Position14>
    551543      <Position15>
    552544        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    553         <Caret Line="624" Column="29" TopLine="615"/>
     545        <Caret Line="36" Column="87" TopLine="24"/>
    554546      </Position15>
    555547      <Position16>
    556548        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    557         <Caret Line="612" Column="70" TopLine="599"/>
     549        <Caret Line="575" Column="24" TopLine="562"/>
    558550      </Position16>
    559551      <Position17>
    560552        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    561         <Caret Line="649" Column="38" TopLine="635"/>
     553        <Caret Line="613" Column="17" TopLine="609"/>
    562554      </Position17>
    563555      <Position18>
    564556        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    565         <Caret Line="627" Column="27" TopLine="623"/>
     557        <Caret Line="652" Column="41" TopLine="638"/>
    566558      </Position18>
    567559      <Position19>
    568         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    569         <Caret Line="612" Column="63" TopLine="611"/>
     560        <Filename Value="Compiler\USourceCode.pas"/>
     561        <Caret Line="273" Column="27" TopLine="260"/>
    570562      </Position19>
    571563      <Position20>
    572         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    573         <Caret Line="36" Column="87" TopLine="24"/>
     564        <Filename Value="Compiler\USourceCode.pas"/>
     565        <Caret Line="242" Column="37" TopLine="227"/>
    574566      </Position20>
    575567      <Position21>
    576         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    577         <Caret Line="575" Column="24" TopLine="562"/>
     568        <Filename Value="Compiler\USourceCode.pas"/>
     569        <Caret Line="237" Column="26" TopLine="224"/>
    578570      </Position21>
    579571      <Position22>
    580572        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    581         <Caret Line="613" Column="17" TopLine="609"/>
     573        <Caret Line="652" Column="41" TopLine="638"/>
    582574      </Position22>
    583575      <Position23>
    584576        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    585         <Caret Line="652" Column="41" TopLine="638"/>
     577        <Caret Line="656" Column="71" TopLine="641"/>
    586578      </Position23>
    587579      <Position24>
    588         <Filename Value="Compiler\USourceCode.pas"/>
    589         <Caret Line="273" Column="27" TopLine="260"/>
     580        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     581        <Caret Line="619" Column="1" TopLine="600"/>
    590582      </Position24>
    591583      <Position25>
    592         <Filename Value="Compiler\USourceCode.pas"/>
    593         <Caret Line="242" Column="37" TopLine="227"/>
     584        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     585        <Caret Line="471" Column="27" TopLine="463"/>
    594586      </Position25>
    595587      <Position26>
    596         <Filename Value="Compiler\USourceCode.pas"/>
    597         <Caret Line="237" Column="26" TopLine="224"/>
     588        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
     589        <Caret Line="579" Column="28" TopLine="574"/>
    598590      </Position26>
    599591      <Position27>
    600592        <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    601         <Caret Line="652" Column="41" TopLine="638"/>
     593        <Caret Line="47" Column="66" TopLine="25"/>
    602594      </Position27>
    603595      <Position28>
    604         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    605         <Caret Line="656" Column="71" TopLine="641"/>
     596        <Filename Value="Forms\UMainForm.pas"/>
     597        <Caret Line="267" Column="29" TopLine="255"/>
    606598      </Position28>
    607599      <Position29>
    608         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    609         <Caret Line="619" Column="1" TopLine="600"/>
     600        <Filename Value="Forms\UMainForm.pas"/>
     601        <Caret Line="268" Column="29" TopLine="256"/>
    610602      </Position29>
    611603      <Position30>
    612         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    613         <Caret Line="471" Column="27" TopLine="463"/>
     604        <Filename Value="Forms\UMainForm.pas"/>
     605        <Caret Line="269" Column="29" TopLine="257"/>
    614606      </Position30>
    615607    </JumpHistory>
Note: See TracChangeset for help on using the changeset viewer.