Changeset 28


Ignore:
Timestamp:
Nov 11, 2009, 10:30:00 AM (15 years ago)
Author:
george
Message:
  • Delphi projekt převeden na Lazarus projekt.
Location:
branches/Analyzátor gramatiky
Files:
8 added
2 deleted
5 edited

Legend:

Unmodified
Added
Removed

  • branches/Analyzátor gramatiky

    • Property svn:ignore

      •  

        old new  
        11*.exe
        22*.dcu
         3backup
         4lib

  • branches/Analyzátor gramatiky/UGrammer.pas

    r17 r28  
    11unit UGrammer;
     2
     3{$MODE Delphi}
    24
    35interface
    … …  
    911  TGrammerRule = class;
    1012
    11   TPathItem = record
     13  TPathItem = class
    1214  public
    1315    Rule: TGrammerRule;
    … …  
    1820  end;
    1921
    20   TGrammerPath = record
     22  TGrammerPath = class
    2123    Items: array of TPathItem;
    2224    procedure Assign(Source: TGrammerPath);
    … …  
    2426  end;
    2527
    26   TPossibleCharacter = record
     28  TPossibleCharacter = class
    2729    Character: Char;
    2830    RulePath: TGrammerPath;
    … …  
    3032  end;
    3133
    32   TPossibleCharacters = record
     34  TPossibleCharacters = class
    3335    Items: array of TPossibleCharacter;
    3436    procedure Assign(Source: TPossibleCharacters);

  • branches/Analyzátor gramatiky/UMainForm.pas

    r17 r28  
    11unit UMainForm;
    22
     3{$MODE Delphi}
     4
    35interface
    46
    57uses
    6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    7   Dialogs, StdCtrls, ComCtrls, UGrammer, UProgram;
     8  LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms,
     9  Dialogs, StdCtrls, ComCtrls, LResources, UGrammer, UProgram;
    810
    911const
    … …  
    5052implementation
    5153
    52 {$R *.dfm}
    5354
    5455procedure TMainForm.Button1Click(Sender: TObject);
    … …  
    648649end;
    649650
     651initialization
     652  {$i UMainForm.lrs}
     653  {$i UMainForm.lrs}
     654
    650655end.

  • branches/Analyzátor gramatiky/UProgram.pas

    r17 r28  
    11unit UProgram;
     2
     3{$MODE Delphi}
    24
    35interface

  • branches/Analyzátor gramatiky/grammer/test.grm

    r10 r28  
    44constant = CONST constant_definition { ',' constant_definition } ';' .
    55constant_definition = NAME '=' NUMBER .
    6 variable = VAR NAME { ',' NAME } ';' .
     6variable =
     7VAR NAME { ',' NAME } ';' .
    78function = FUNCTION NAME '(' [ NAME { ',' NAME } ]  ')' block ';' .
    89expression = [ ( '-' | '+' ) ] term { ( '-' | '+' ) term } .
Note: See TracChangeset for help on using the changeset viewer.