Changeset 33


Ignore:
Timestamp:
Aug 4, 2010, 1:53:01 PM (14 years ago)
Author:
george
Message:
  • Upraveno: Rozšířen pascal syntetizer.
Files:
3 added
1 deleted
8 edited

Legend:

Unmodified
Added
Removed

  • branches/Pascal Compiler 2/Example.pas

    r20 r33  
    2323
    2424    // dasdComment 
     25
    2526   
    2627    //Here we are
     28
    2729    ddd
    2830{dfsf}
    … …  
    5860
    5961end.
    60 

  • branches/Syntetizer/Syntetizer.lpi

    r27 r33  
    5050        <ResourceBaseClass Value="Form"/>
    5151        <UnitName Value="UMainForm"/>
    52         <CursorPos X="18" Y="53"/>
    53         <TopLine Value="40"/>
     52        <CursorPos X="8" Y="3"/>
     53        <TopLine Value="1"/>
    5454        <EditorIndex Value="0"/>
    5555        <UsageCount Value="20"/>
    … …  
    6060        <IsPartOfProject Value="True"/>
    6161        <UnitName Value="USyntetizer"/>
    62         <CursorPos X="50" Y="227"/>
    63         <TopLine Value="211"/>
     62        <CursorPos X="58" Y="37"/>
     63        <TopLine Value="21"/>
    6464        <EditorIndex Value="2"/>
    6565        <UsageCount Value="20"/>
    … …  
    6969        <Filename Value="..\..\..\..\..\Programy\Lazarus_0.9.28\fpc\2.2.4\source\rtl\objpas\classes\classesh.inc"/>
    7070        <CursorPos X="3" Y="234"/>
    71         <TopLine Value="218"/>
     71        <TopLine Value="1"/>
     72        <EditorIndex Value="3"/>
    7273        <UsageCount Value="10"/>
     74        <Loaded Value="True"/>
    7375      </Unit3>
    7476    </Units>
    … …  
    7678      <Position1>
    7779        <Filename Value="USyntetizer.pas"/>
    78         <Caret Line="57" Column="65" TopLine="42"/>
     80        <Caret Line="36" Column="1" TopLine="15"/>
    7981      </Position1>
    8082      <Position2>
    8183        <Filename Value="USyntetizer.pas"/>
    82         <Caret Line="63" Column="39" TopLine="54"/>
     84        <Caret Line="296" Column="10" TopLine="266"/>
    8385      </Position2>
    8486      <Position3>
    8587        <Filename Value="USyntetizer.pas"/>
    86         <Caret Line="16" Column="1" TopLine="1"/>
     88        <Caret Line="293" Column="10" TopLine="271"/>
    8789      </Position3>
    8890      <Position4>
    8991        <Filename Value="USyntetizer.pas"/>
    90         <Caret Line="100" Column="14" TopLine="84"/>
     92        <Caret Line="291" Column="18" TopLine="271"/>
    9193      </Position4>
    9294      <Position5>
    9395        <Filename Value="USyntetizer.pas"/>
    94         <Caret Line="76" Column="19" TopLine="60"/>
     96        <Caret Line="278" Column="5" TopLine="270"/>
    9597      </Position5>
    9698      <Position6>
    9799        <Filename Value="USyntetizer.pas"/>
    98         <Caret Line="74" Column="37" TopLine="52"/>
     100        <Caret Line="33" Column="11" TopLine="17"/>
    99101      </Position6>
    100102      <Position7>
    101103        <Filename Value="USyntetizer.pas"/>
    102         <Caret Line="114" Column="1" TopLine="100"/>
     104        <Caret Line="74" Column="1" TopLine="44"/>
    103105      </Position7>
    104106      <Position8>
    105107        <Filename Value="USyntetizer.pas"/>
    106         <Caret Line="154" Column="13" TopLine="138"/>
     108        <Caret Line="283" Column="16" TopLine="269"/>
    107109      </Position8>
    108110      <Position9>
    109111        <Filename Value="USyntetizer.pas"/>
    110         <Caret Line="26" Column="43" TopLine="16"/>
     112        <Caret Line="276" Column="24" TopLine="260"/>
    111113      </Position9>
    112114      <Position10>
    113115        <Filename Value="USyntetizer.pas"/>
    114         <Caret Line="29" Column="1" TopLine="11"/>
     116        <Caret Line="136" Column="7" TopLine="129"/>
    115117      </Position10>
    116118      <Position11>
    117119        <Filename Value="USyntetizer.pas"/>
    118         <Caret Line="227" Column="6" TopLine="200"/>
     120        <Caret Line="65" Column="43" TopLine="40"/>
    119121      </Position11>
    120122      <Position12>
    121123        <Filename Value="USyntetizer.pas"/>
    122         <Caret Line="218" Column="22" TopLine="200"/>
     124        <Caret Line="325" Column="51" TopLine="306"/>
    123125      </Position12>
    124126      <Position13>
    125127        <Filename Value="USyntetizer.pas"/>
    126         <Caret Line="58" Column="3" TopLine="42"/>
     128        <Caret Line="153" Column="31" TopLine="137"/>
    127129      </Position13>
    128130      <Position14>
    129131        <Filename Value="USyntetizer.pas"/>
    130         <Caret Line="220" Column="26" TopLine="200"/>
     132        <Caret Line="313" Column="7" TopLine="297"/>
    131133      </Position14>
    132134      <Position15>
    133135        <Filename Value="USyntetizer.pas"/>
    134         <Caret Line="221" Column="12" TopLine="200"/>
     136        <Caret Line="54" Column="15" TopLine="38"/>
    135137      </Position15>
    136138      <Position16>
    137139        <Filename Value="USyntetizer.pas"/>
    138         <Caret Line="65" Column="1" TopLine="39"/>
     140        <Caret Line="30" Column="3" TopLine="14"/>
    139141      </Position16>
    140142      <Position17>
    141143        <Filename Value="USyntetizer.pas"/>
    142         <Caret Line="239" Column="3" TopLine="222"/>
     144        <Caret Line="313" Column="5" TopLine="297"/>
    143145      </Position17>
    144146      <Position18>
    145147        <Filename Value="USyntetizer.pas"/>
    146         <Caret Line="62" Column="28" TopLine="46"/>
     148        <Caret Line="54" Column="18" TopLine="38"/>
    147149      </Position18>
    148150      <Position19>
    149151        <Filename Value="USyntetizer.pas"/>
    150         <Caret Line="245" Column="24" TopLine="222"/>
     152        <Caret Line="33" Column="51" TopLine="14"/>
    151153      </Position19>
    152154      <Position20>
    153155        <Filename Value="USyntetizer.pas"/>
    154         <Caret Line="225" Column="3" TopLine="223"/>
     156        <Caret Line="313" Column="17" TopLine="297"/>
    155157      </Position20>
    156158      <Position21>
    157159        <Filename Value="UMainForm.pas"/>
    158         <Caret Line="53" Column="18" TopLine="40"/>
     160        <Caret Line="53" Column="20" TopLine="43"/>
    159161      </Position21>
    160162      <Position22>
    161163        <Filename Value="USyntetizer.pas"/>
    162         <Caret Line="72" Column="28" TopLine="57"/>
     164        <Caret Line="85" Column="23" TopLine="69"/>
    163165      </Position22>
    164166      <Position23>
    165167        <Filename Value="USyntetizer.pas"/>
    166         <Caret Line="35" Column="20" TopLine="21"/>
     168        <Caret Line="325" Column="15" TopLine="313"/>
    167169      </Position23>
    168170      <Position24>
    169171        <Filename Value="USyntetizer.pas"/>
    170         <Caret Line="73" Column="16" TopLine="62"/>
     172        <Caret Line="327" Column="35" TopLine="315"/>
    171173      </Position24>
    172174      <Position25>
    173175        <Filename Value="USyntetizer.pas"/>
    174         <Caret Line="49" Column="32" TopLine="32"/>
     176        <Caret Line="312" Column="23" TopLine="304"/>
    175177      </Position25>
    176178      <Position26>
    177179        <Filename Value="USyntetizer.pas"/>
    178         <Caret Line="17" Column="34" TopLine="7"/>
     180        <Caret Line="67" Column="48" TopLine="54"/>
    179181      </Position26>
    180182      <Position27>
    181183        <Filename Value="USyntetizer.pas"/>
    182         <Caret Line="20" Column="57" TopLine="2"/>
     184        <Caret Line="72" Column="53" TopLine="58"/>
    183185      </Position27>
    184186      <Position28>
    185         <Filename Value="USyntetizer.pas"/>
    186         <Caret Line="29" Column="1" TopLine="2"/>
     187        <Filename Value="UMainForm.pas"/>
     188        <Caret Line="51" Column="20" TopLine="46"/>
    187189      </Position28>
    188190      <Position29>
    189         <Filename Value="USyntetizer.pas"/>
    190         <Caret Line="163" Column="23" TopLine="147"/>
     191        <Filename Value="UMainForm.pas"/>
     192        <Caret Line="59" Column="95" TopLine="44"/>
    191193      </Position29>
    192194      <Position30>
    193195        <Filename Value="USyntetizer.pas"/>
    194         <Caret Line="237" Column="34" TopLine="225"/>
     196        <Caret Line="194" Column="18" TopLine="176"/>
    195197      </Position30>
    196198    </JumpHistory>

  • branches/Syntetizer/UMainForm.pas

    r27 r33  
    5151        Value := 'CONSOLE';
    5252      end;
     53      with Procedures do begin
     54        with TProcedure(Procedures[Procedures.Add(TProcedure.Create)]) do begin
     55          Name := 'Boom';
     56          with TProcedureParameter(Parameters[Parameters.Add(TProcedureParameter.Create)]) do begin
     57            Name := 'Value';
     58            VarType := 'string';
     59          end;
     60          with Code do begin
     61            with TProcedureCall(Commands[Commands.Add(TProcedureCall.Create)]) do begin
     62              Name := 'WriteLn';
     63              with TProcedureParameterValue(Parameters[Parameters.Add(TProcedureParameterValue.Create)]) do begin
     64                Value := 'Value';
     65              end;
     66            end;
     67          end;
     68        end;
     69      end;
    5370      with Variables do begin
    5471        with TVariableDeclaration(Variables[Variables.Add(TVariableDeclaration.Create)]) do begin
    … …  
    6077        with TProcedureCall(Commands[Commands.Add(TProcedureCall.Create)]) do begin
    6178          Name := 'WriteLn';
    62           with TProcedureParameter(Parameters[Parameters.Add(TProcedureParameter.Create)]) do begin
     79          with TProcedureParameterValue(Parameters[Parameters.Add(TProcedureParameterValue.Create)]) do begin
    6380            Value := '''Hello hell''';
    6481          end;

  • branches/Syntetizer/USyntetizer.pas

    r27 r33  
    2626  TCommand = class(TInterfacedObject, ISyntetizable)
    2727    procedure Syntetize(Syntetizer: TSyntetizer); virtual;
    28   end;
    29 
    30   TProcedureParameter = class(TElement)
    31     Value: string;
    32   end;
    33 
    34   { TProcedureCall }
    35 
    36   TProcedureCall = class(TCommand)
    37     Name: string;
    38     Parameters: TList; // TList<TProcedureParameter>
    39     constructor Create;
    40     destructor Destroy; override;
    41     procedure Syntetize(Syntetizer: TSyntetizer); override;
    4228  end;
    4329
    … …  
    5642  end;
    5743
    58   { TVariableSection }
    59 
    6044  TVariableSection = class(TInterfacedObject, ISyntetizable)
    6145    Variables: TList; // TList<TVariableDeclaration>
    … …  
    6549  end;
    6650
     51  TProcedure = class(TInterfacedObject, ISyntetizable)
     52    Name: string;
     53    Parameters: TList;
     54    Code: TBeginEnd;
     55    constructor Create;
     56    destructor Destroy; override;
     57    procedure Syntetize(Syntetizer: TSyntetizer);
     58  end;
     59
     60  TProcedureList = class(TInterfacedObject, ISyntetizable)
     61    Procedures: TList; // TList<TProcedure>
     62    procedure Syntetize(Syntetizer: TSyntetizer);
     63    constructor Create;
     64    destructor Destroy; override;
     65  end;
     66
     67  TProcedureParameter = class(TInterfacedObject)
     68    Name: string;
     69    VarType: string;
     70  end;
     71
     72  TProcedureParameterValue = class(TInterfacedObject)
     73    Value: string;
     74  end;
     75
     76  TProcedureCall = class(TCommand)
     77    Name: string;
     78    Parameters: TList; // TList<TProcedureParameter>
     79    constructor Create;
     80    destructor Destroy; override;
     81    procedure Syntetize(Syntetizer: TSyntetizer); override;
     82  end;
     83
    6784  TProgram = class(TInterfacedObject, ISyntetizable)
    6885    Name: string;
    6986    Code: TBeginend;
    7087    CompilerDirectives: TList; // TList<TCompilerDirective>
     88    Procedures: TProcedureList; // TList<TProcedure>
    7189    Variables: TVariableSection;
    7290    procedure Syntetize(Syntetizer: TSyntetizer);
    … …  
    7492    destructor Destroy; override;
    7593  end;
    76 
    77   { TSyntetizer }
    7894
    7995  TSyntetizer = class
    … …  
    126142begin
    127143  Syntetizer.AddLine('program ' + Name + ';');
     144  Syntetizer.AddLine('');
    128145  for I := 0 to CompilerDirectives.Count - 1 do
    129146    TCompilerDirective(CompilerDirectives[I]).Syntetize(Syntetizer);
     147  Syntetizer.AddLine('');
     148  Procedures.Syntetize(Syntetizer);
    130149  Variables.Syntetize(Syntetizer);
    131150  Code.Syntetize(Syntetizer);
    … …  
    137156  CompilerDirectives := TList.Create;
    138157  Variables := TVariableSection.Create;
     158  Procedures := TProcedureList.Create;
    139159  Code := TBeginEnd.Create;
    140160  Code.LastEnd := True;
    … …  
    145165  I: Integer;
    146166begin
     167  Procedures.Destroy;
    147168  Variables.Destroy;
    148169  for I := 0 to CompilerDirectives.Count - 1 do
    … …  
    207228begin
    208229  for I := 0 to Parameters.Count - 1 do
    209     ParameterString := ParameterString + TProcedureParameter(Parameters[I]).Value;
     230    ParameterString := ParameterString + TProcedureParameterValue(Parameters[I]).Value;
    210231  if Parameters.Count > 0 then
    211232    ParameterString := '(' + ParameterString + ')';
    … …  
    264285end;
    265286
     287{ TProcedure }
     288
     289constructor TProcedure.Create;
     290begin
     291  Parameters := TList.Create;
     292  Code := TBeginEnd.Create;
     293end;
     294
     295destructor TProcedure.Destroy;
     296var
     297  I: Integer;
     298begin
     299  Code.Destroy;
     300  //for I := 0 to Parameters.Count - 1 do
     301  //  TParameter(Parameters[I]).Destroy;
     302  Parameters.Destroy;
     303  inherited Destroy;
     304end;
     305
     306procedure TProcedure.Syntetize(Syntetizer: TSyntetizer);
     307var
     308  I: Integer;
     309  ParameterString: string;
     310begin
     311  with Syntetizer do begin
     312    for I := 0 to Parameters.Count - 1 do
     313    with TProcedureParameter(Parameters[I]) do begin
     314      ParameterString := ParameterString + Name + ': ' + VarType;
     315
     316    end;
     317    if Parameters.Count > 0 then
     318      ParameterString := '(' + ParameterString + ')';
     319    AddLine('procedure ' + Name + ParameterString + ';');
     320    Code.Syntetize(Syntetizer);
     321    AddLine('');
     322  end;
     323end;
     324
     325{ TProcedureList }
     326
     327procedure TProcedureList.Syntetize(Syntetizer: TSyntetizer);
     328var
     329  I: Integer;
     330begin
     331  for I := 0 to Procedures.Count - 1 do
     332    TProcedure(Procedures[I]).Syntetize(Syntetizer);
     333end;
     334
     335constructor TProcedureList.Create;
     336begin
     337  Procedures := TList.Create;
     338end;
     339
     340destructor TProcedureList.Destroy;
     341var
     342  I: Integer;
     343begin
     344  for I := 0 to Procedures.Count - 1 do
     345    TProcedure(Procedures[I]).Destroy;
     346  Procedures.Destroy;
     347  inherited Destroy;
     348end;
     349
    266350end.
    267351

  • branches/base/Base.lpi

    r22 r33  
    99      <Icon Value="0"/>
    1010      <UseXPManifest Value="True"/>
    11       <ActiveEditorIndexAtStart Value="0"/>
     11      <ActiveEditorIndexAtStart Value="2"/>
    1212    </General>
    1313    <VersionInfo>
    … …  
    3333      </Item1>
    3434    </RequiredPackages>
    35     <Units Count="5">
     35    <Units Count="6">
    3636      <Unit0>
    3737        <Filename Value="Base.lpr"/>
    3838        <IsPartOfProject Value="True"/>
    3939        <UnitName Value="Base"/>
    40         <CursorPos X="32" Y="15"/>
     40        <CursorPos X="17" Y="8"/>
    4141        <TopLine Value="1"/>
    42         <EditorIndex Value="2"/>
    43         <UsageCount Value="22"/>
     42        <EditorIndex Value="1"/>
     43        <UsageCount Value="26"/>
    4444        <Loaded Value="True"/>
    4545      </Unit0>
    … …  
    5050        <ResourceBaseClass Value="Form"/>
    5151        <UnitName Value="UMainForm"/>
    52         <CursorPos X="7" Y="16"/>
     52        <CursorPos X="19" Y="16"/>
    5353        <TopLine Value="1"/>
    5454        <EditorIndex Value="0"/>
    55         <UsageCount Value="22"/>
     55        <UsageCount Value="26"/>
    5656        <Loaded Value="True"/>
    5757      </Unit1>
    … …  
    6262        <TopLine Value="762"/>
    6363        <EditorIndex Value="3"/>
    64         <UsageCount Value="11"/>
     64        <UsageCount Value="13"/>
    6565        <Loaded Value="True"/>
    6666      </Unit2>
    … …  
    7070        <TopLine Value="559"/>
    7171        <EditorIndex Value="4"/>
    72         <UsageCount Value="11"/>
     72        <UsageCount Value="13"/>
    7373        <Loaded Value="True"/>
    7474      </Unit3>
    … …  
    7777        <IsPartOfProject Value="True"/>
    7878        <UnitName Value="UPascalParser"/>
    79         <CursorPos X="22" Y="34"/>
    80         <TopLine Value="17"/>
    81         <EditorIndex Value="1"/>
    82         <UsageCount Value="22"/>
    83         <Loaded Value="True"/>
     79        <CursorPos X="11" Y="19"/>
     80        <TopLine Value="7"/>
     81        <UsageCount Value="26"/>
    8482      </Unit4>
     83      <Unit5>
     84        <Filename Value="UTest.pas"/>
     85        <IsPartOfProject Value="True"/>
     86        <UnitName Value="UTest"/>
     87        <CursorPos X="7" Y="55"/>
     88        <TopLine Value="39"/>
     89        <EditorIndex Value="2"/>
     90        <UsageCount Value="24"/>
     91        <Loaded Value="True"/>
     92      </Unit5>
    8593    </Units>
    86     <JumpHistory Count="29" HistoryIndex="28">
     94    <JumpHistory Count="30" HistoryIndex="29">
    8795      <Position1>
    8896        <Filename Value="UMainForm.pas"/>
    89         <Caret Line="114" Column="1" TopLine="98"/>
     97        <Caret Line="163" Column="1" TopLine="147"/>
    9098      </Position1>
    9199      <Position2>
    92100        <Filename Value="UMainForm.pas"/>
    93         <Caret Line="135" Column="1" TopLine="119"/>
     101        <Caret Line="114" Column="1" TopLine="98"/>
    94102      </Position2>
    95103      <Position3>
    96104        <Filename Value="UMainForm.pas"/>
    97         <Caret Line="136" Column="1" TopLine="120"/>
     105        <Caret Line="127" Column="21" TopLine="110"/>
    98106      </Position3>
    99107      <Position4>
    100108        <Filename Value="UMainForm.pas"/>
    101         <Caret Line="163" Column="1" TopLine="147"/>
     109        <Caret Line="125" Column="1" TopLine="109"/>
    102110      </Position4>
    103111      <Position5>
    104112        <Filename Value="UMainForm.pas"/>
    105         <Caret Line="114" Column="1" TopLine="98"/>
     113        <Caret Line="126" Column="1" TopLine="110"/>
    106114      </Position5>
    107115      <Position6>
    108116        <Filename Value="UMainForm.pas"/>
    109         <Caret Line="127" Column="21" TopLine="110"/>
     117        <Caret Line="127" Column="1" TopLine="111"/>
    110118      </Position6>
    111119      <Position7>
    112120        <Filename Value="UMainForm.pas"/>
    113         <Caret Line="125" Column="1" TopLine="109"/>
     121        <Caret Line="128" Column="1" TopLine="112"/>
    114122      </Position7>
    115123      <Position8>
    116124        <Filename Value="UMainForm.pas"/>
    117         <Caret Line="126" Column="1" TopLine="110"/>
     125        <Caret Line="129" Column="1" TopLine="113"/>
    118126      </Position8>
    119127      <Position9>
    120128        <Filename Value="UMainForm.pas"/>
    121         <Caret Line="127" Column="1" TopLine="111"/>
     129        <Caret Line="130" Column="1" TopLine="114"/>
    122130      </Position9>
    123131      <Position10>
    124132        <Filename Value="UMainForm.pas"/>
    125         <Caret Line="128" Column="1" TopLine="112"/>
     133        <Caret Line="131" Column="1" TopLine="115"/>
    126134      </Position10>
    127135      <Position11>
    128136        <Filename Value="UMainForm.pas"/>
    129         <Caret Line="129" Column="1" TopLine="113"/>
     137        <Caret Line="163" Column="1" TopLine="147"/>
    130138      </Position11>
    131139      <Position12>
    132140        <Filename Value="UMainForm.pas"/>
    133         <Caret Line="130" Column="1" TopLine="114"/>
     141        <Caret Line="114" Column="1" TopLine="98"/>
    134142      </Position12>
    135143      <Position13>
    136144        <Filename Value="UMainForm.pas"/>
    137         <Caret Line="131" Column="1" TopLine="115"/>
     145        <Caret Line="151" Column="1" TopLine="135"/>
    138146      </Position13>
    139147      <Position14>
    140148        <Filename Value="UMainForm.pas"/>
    141         <Caret Line="163" Column="1" TopLine="147"/>
     149        <Caret Line="155" Column="1" TopLine="139"/>
    142150      </Position14>
    143151      <Position15>
    144152        <Filename Value="UMainForm.pas"/>
    145         <Caret Line="114" Column="1" TopLine="98"/>
     153        <Caret Line="163" Column="1" TopLine="147"/>
    146154      </Position15>
    147155      <Position16>
    148156        <Filename Value="UMainForm.pas"/>
    149         <Caret Line="151" Column="1" TopLine="135"/>
     157        <Caret Line="114" Column="1" TopLine="98"/>
    150158      </Position16>
    151159      <Position17>
    152160        <Filename Value="UMainForm.pas"/>
    153         <Caret Line="155" Column="1" TopLine="139"/>
     161        <Caret Line="158" Column="1" TopLine="130"/>
    154162      </Position17>
    155163      <Position18>
    156164        <Filename Value="UMainForm.pas"/>
    157         <Caret Line="163" Column="1" TopLine="147"/>
     165        <Caret Line="187" Column="1" TopLine="159"/>
    158166      </Position18>
    159167      <Position19>
    160168        <Filename Value="UMainForm.pas"/>
    161         <Caret Line="114" Column="1" TopLine="98"/>
     169        <Caret Line="182" Column="20" TopLine="164"/>
    162170      </Position19>
    163171      <Position20>
    164172        <Filename Value="UMainForm.pas"/>
    165         <Caret Line="158" Column="1" TopLine="130"/>
     173        <Caret Line="103" Column="49" TopLine="92"/>
    166174      </Position20>
    167175      <Position21>
    168         <Filename Value="UMainForm.pas"/>
    169         <Caret Line="187" Column="1" TopLine="159"/>
     176        <Filename Value="Base.lpr"/>
     177        <Caret Line="1" Column="1" TopLine="1"/>
    170178      </Position21>
    171179      <Position22>
    172180        <Filename Value="UMainForm.pas"/>
    173         <Caret Line="182" Column="20" TopLine="164"/>
     181        <Caret Line="224" Column="1" TopLine="196"/>
    174182      </Position22>
    175183      <Position23>
    176184        <Filename Value="UMainForm.pas"/>
    177         <Caret Line="103" Column="49" TopLine="92"/>
     185        <Caret Line="215" Column="30" TopLine="197"/>
    178186      </Position23>
    179187      <Position24>
    180         <Filename Value="Base.lpr"/>
    181         <Caret Line="1" Column="1" TopLine="1"/>
     188        <Filename Value="UMainForm.pas"/>
     189        <Caret Line="207" Column="13" TopLine="191"/>
    182190      </Position24>
    183191      <Position25>
    184192        <Filename Value="UMainForm.pas"/>
    185         <Caret Line="224" Column="1" TopLine="196"/>
     193        <Caret Line="212" Column="3" TopLine="193"/>
    186194      </Position25>
    187195      <Position26>
    188         <Filename Value="UMainForm.pas"/>
    189         <Caret Line="215" Column="30" TopLine="197"/>
     196        <Filename Value="UTest.pas"/>
     197        <Caret Line="51" Column="22" TopLine="23"/>
    190198      </Position26>
    191199      <Position27>
    192         <Filename Value="UMainForm.pas"/>
    193         <Caret Line="207" Column="13" TopLine="191"/>
     200        <Filename Value="UTest.pas"/>
     201        <Caret Line="32" Column="12" TopLine="3"/>
    194202      </Position27>
    195203      <Position28>
    196         <Filename Value="UMainForm.pas"/>
    197         <Caret Line="212" Column="3" TopLine="193"/>
     204        <Filename Value="UTest.pas"/>
     205        <Caret Line="15" Column="1" TopLine="3"/>
    198206      </Position28>
    199207      <Position29>
    200         <Filename Value="UPascalParser.pas"/>
    201         <Caret Line="30" Column="1" TopLine="15"/>
     208        <Filename Value="UTest.pas"/>
     209        <Caret Line="12" Column="44" TopLine="1"/>
    202210      </Position29>
     211      <Position30>
     212        <Filename Value="UTest.pas"/>
     213        <Caret Line="37" Column="23" TopLine="9"/>
     214      </Position30>
    203215    </JumpHistory>
    204216  </ProjectOptions>

  • branches/base/Base.lpr

    r22 r33  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UMainForm, UPascalParser, LResources
     10  Forms, UMainForm, UPascalParser, LResources, UTest
    1111  { you can add units after this };
    1212

  • trunk

    • Property svn:ignore set to
      PascalCompilerAVR.exe
      *.dcu
      *.dsk

  • trunk/Example.pas

    r18 r33  
    44  B: Byte;
    55begin
    6   A := 'a' + (10 + 2 * 3 + 2) xor 10 / 2;
     6  A := 'a' + (11 + 1 + 2 * 3 + 2) xor 10 / 2;
    77  B := 20;
    88  while A < 10 do A := A + 1;
Note: See TracChangeset for help on using the changeset viewer.